Mathematica calculator

1. Jun 18, 2009

Lobotomy

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. Jun 19, 2009

Lobotomy

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]