MASTERSHEET
Copy/Paste Formulae for Consumer Arithmetic

>Copy the formula you need
>Paste it into the other workbook you are using
>Type into the pink boxes as instructed in your other workbook
>NOTE: Do NOT alter the formulae in this workbook, these are your templates only.

Several variables symbols:

({{variable  name, quantity represented}, {prin, principal}, {r, interest rate (p.a.)}, {n, number of time periods (p.a.)}, {t, number of years}})

1. Simple Interest

a. The interest earned:

interest[prin_,r_,n_,t_]:=((prin*r*t)/100)
lm=interest[" prin "," r ","n","t"]
Print["Interest = ",Normal[lm]]

interest[prin_,r_,n_,t_]:=((prin*r*t)/100)
lm=interest[5000,4,1,5]
Print["Interest = ",Normal[lm]]

b. The total amount in investment:

totalamount[prin_,r_,t_]:=((prin*r*t)/100)+prin
lm=totalamount[" prin "," r ","t"]
Print["Total amount = ",Normal[lm]]

totalamount[prin_,r_,t_]:=((prin*r*t)/100)+prin
lm=totalamount[5000,5,4]
Print["Total Amount = ",Normal[lm]]

c. The interest earned Table and Graph:

Table[(("principal"*"interest rate"*"period")/100), {"period", starting year, ending year}]//TableForm

Example

Table[((10000*3.75*T)/100), {T, 1, 5}]//TableForm

ListPlot[Table[(("principal"*"interest rate"*"period")/100),, {"period", starting year, ending year}], AxesLabel-> {Years, Interest}]

Example

ListPlot[Table[((10000*3.75*T)/100), {T, 1, 5}], AxesLabel-> {Years, Interest}]

d. The interest known to find rate or time:

Solve["interest in $"==(("principal"*"interest rate"*"time")/100),"the thing you are looking for"]

2. Compound Interest

a. The interest earned:

interest[prin_,r_,n_,t_]:=prin(((1+((((r/n)))/100)))^((n*t)))-prin
lm=interest[" prin "," r ","n"," t "]//N
Print["Interest = ",Normal[lm]]

interest[prin_,r_,n_,t_]:=prin(((1+((((r/n)))/100)))^((n*t)))-prin
lm=interest[5000,4,1,5]//N
Print["Interest = ",Normal[lm]]

b. The total amount in investment:

totalamount[prin_,r_,n_,t_]:=prin(((1+((((r/n)))/100)))^((n*t)))
lm=totalamount[" prin "," r ","n"," t "]//N
Print["Total amount = ",Normal[lm]]

totalamount[prin_,r_,n_,t_]:=prin(((1+((((r/n)))/100)))^((n*t)))
lm=totalamount[5000,4,1,5]//N
Print["Total amount = ",Normal[lm]]

c. The interest earned Table and Graph:

TableForm[Table[{"period","principal"×(((1+(("interest rate")/100)))^("period"))-"principal","principal"×(((1+(("interest rate")/100)))^("period"))}, {"period", starting year, ending year}],TableHeadings->{None,{"Year","Interest earned","Investment"}}]

Example

TableForm[Table[{n,12000 (((1.03))^n)-12000,12000 (((1.03))^n)}, {n, 0, 10}],TableHeadings->{None,{"Year","Interest earned","Investment"}}]

ListPlot[Table[{"period","principal"×(((1+(("interest rate")/100)))^("period"))}, {"period", starting year, ending year}], PlotRange->{balance starting,balance ending},AxesLabel->{time, balance}]

Example:

ListPlot[Table[{n,12000 (((1.03))^n)}, {n, 0, 20}], PlotRange->{0,25000},AxesLabel->{time, balance}]

Plot[{"period","principal"×(((1+(("interest rate")/100)))^("period"))}, {"period", starting year, ending year}]

Example:

Plot[{n,12000 (((1.03))^n)}, {n, 0, 20}]

d. The total amount known to find rate or time:

Solve[amount in investment=="principal"×(((1+(("interest rate")/100)))^("period")),"the thing you are looking for"]

3. Compound Interest and Simple Interest Comparing Graph and Table

Compound interest and Simple Interest Comparing

Plot[{"principal"×(((1+(("interest rate")/100)))^("period")),"principal"+((("principal"*"interest rate"*"period")/100))},{"period",starting year,ending year}]

Example:

Plot[{1000×(((1+(7/100)))^T),1000+(((1000*10*T)/100))},{T,0,40}]

compare[prin_,r_,n_]:=TableForm[Table[{prin×(((1+((r/n)/100)))^(n*T)),prin+(((prin*r/n*n*T)/100))},{T,starting year,ending year}],TableHeadings->{None,{"Compound","Simple"}}]
lm=compare[" prin "," r ","n"]//N
Print["Compare Coumpound Simple Amount Table = ",Normal[lm]]

compare[prin_,r_,n_]:=TableForm[Table[{prin×(((1+((r/n)/100)))^(n*T)),prin+(((prin*r*T)/100))},{T,1,10}],TableHeadings->{None,{"Compound","Simple"}}]
lm=compare[4000,6,2]//N
Print["Compare Coumpound Simple Amount Table = ",Normal[lm]]