1. Limited time only! Sign up for a free 30min personal tutor trial with Chegg Tutors
    Dismiss Notice
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...