Dismiss Notice
Join Physics Forums Today!
The friendliest, high quality science and math community on the planet! Everyone who loves science is here!

Mathematica calculator

  1. Jun 18, 2009 #1
    Hello. I just started to learn mathematica a few days ago. Im trying
    to make a calculator that can graphically represent the relationship
    between:

    savings
    interest
    time

    the mathematical formula im using you can see below.

    this is what I've written sofar...







    Manipulate[


    **%% Here i would like to make a "ListLinePlot" using this function:
    (this is the formula for my calculations)

    (#1*(1 + #2/#3)^(#3*#4) - 1)/(#2/#3) &[d, g, f, n]


    then I would like to use the below controlls to manipulate the values
    of d,g,f and n. How is this done?

    I understand that there has to be some kind of list or table that
    contains the accumulated sum at certain times. But I have no clue how
    to make this list. The problem with my function is that it only
    calculates the correct final answer. for example

    "if i invest 1000€ per month with 5% interest for 8 years, what is the
    accumulated sum?"



    GridLines -> Automatic,



    {{f, 1, "Frequency"}, {1 -> "Annually", 1/4 -> "Quarterly",
    1/12 -> "Monthly"}},
    Delimiter,



    {{a, 5000, "Initial Investment"}, 0, 10000000, 1000,
    Appearance -> {"Open", "Labeled"}},

    {{d, 0, "Added Contributions/yr"}, -500000, 500000, 1000,
    Appearance -> {"Open", "Labeled"}},

    {{g, 0.05, "Growth(%/100)"}, 0, 1, 0.05,
    Appearance -> {"Open", "Labeled"}},

    {{n, 5, "Years"}, 1, 100, 1, Appearance -> {"Open", "Labeled"}},



    ControlPlacement -> Left]
     
  2. jcsd
  3. Jun 19, 2009 #2
    I've added this into at the top, just below Manipulate in the code:


    L1 = Table[(#1*((1 + (#2/#3))^(#3*x) - 1))/(#2/#3) &[a, g, f, x], {x,
    0, n}]
    L2 = Table[x, {x, 0, n}]

    ListLinePlot[{L1, L2}, DataRange -> {0, n},


    I think im on the way to the right solution but it doesn't really work... this is my entire code:

    Manipulate[

    L1 = Table[(#1*((1 + (#2/#3))^(#3*x) - 1))/(#2/#3) &[a, g, f, x], {x,
    0, n}]
    L2 = Table[x, {x, 0, n}]

    ListLinePlot[{L1, L2}, DataRange -> {0, n},



    GridLines -> Automatic,


    Delimiter,



    {{f, 12, "Frequency of contributions"}, {1 -> "Annually",
    1/4 -> "Quarterly", 1/12 -> "Monthly"}},
    Delimiter,



    {{d, 5000, "Initial Deposit"}, 0, 10000000, 1000,
    Appearance -> {"Open", "Labeled"}},

    {{a, 100, "Added Contributions"}, -500000, 500000, 1000,
    Appearance -> {"Open", "Labeled"}},

    {{g, 0.05, "Growth(%/100)"}, 0, 1, 0.05,
    Appearance -> {"Open", "Labeled"}},

    {{n, 5, "Years"}, 1, 100, 1, Appearance -> {"Open", "Labeled"}},



    ControlPlacement -> Left]
     
Know someone interested in this topic? Share this thread via Reddit, Google+, Twitter, or Facebook




Similar Discussions: Mathematica calculator
  1. Mathematica Help! (Replies: 3)

  2. Mathematica help (Replies: 3)

  3. Mathematica help (Replies: 2)

  4. Plots in Mathematica (Replies: 1)

  5. Mathematica Trouble (Replies: 2)

Loading...