ClrHome
Lbl M
Menu("Interest and Half-Life Formulas","List Formulas",LF,"List Variables",LV,"Compound Interest",CI,"Continuous Compound Interest",CC,"Half-Life",HL,"Exit Program",X)
Pause

Lbl X
ClrHome
Stop

Lbl LF
ClrHome
Disp "Formulas:"
Disp "Compound: A=C(1+R/N)^NT"
Disp "Continuous/Growth: A=P^RT"
Disp "Half-Life: A=P(1/2)^T/H"
Pause ""
Goto M

Lbl LV
ClrHome
Disp "Variables:"
Disp "A = Final Amount"
Disp "C = Initial Amount"
Disp "r = Interest Rate"
Disp "n = # Times Comp Per Year"
Disp "t = # of Years Invested"
Disp "h = Half-Life of Element"
Pause ""
Goto M

Lbl CI
ClrHome
Menu("Compound Interest Formula","Find Final Amount",FA,"Find Initial Amount",IA,"Find Interest Rate",IR,"Find Time Invest (Years)",TI,"Go Back",GB
Pause

Lbl GB
Disp "Compound Interest Formula"
Disp "A=C(1+r/n)^nt"
ClrHome
Goto M

Lbl FA
Input "Initial Amount = ",C
Input "Interest Rate (%) = ",R
Input "Times Compounded = ",N
Input "Time Invested = ",T
R/100→R
C(1+(R/N))^NT→A
Disp "Final Amount = ",A
Pause ""
Goto M

Lbl IA
Input "Final Amount = ",A
Input "Interest Rate (%) = ",R
Input "Times Compounded = ",N
Input "Time Invested = ",T
R/100→R
A/(1+(R/N))^NT→C
Disp "Initial Amount = ",C
Pause ""
Goto M

Lbl IR
Input "Final Amount = ",A
Input "Initial Amount = ",C
Input "Times Compounded = ",N
Input "Time Invested = ",T
N(((A^(1/NT))/C)-1)→R
R*100→R
Disp "Interest Rate (%) = ",R
Pause ""
Goto M

Lbl TI
Input "Final Amount = ",A
Input "Initial Amount = ",C
Input "Interest Rate (%) = ",R
Input "Times Compounded = ",N
R/100→R
log(A)/(N(log(C(1+(R/N))))→T
Disp "Time Invested = ",T
Pause ""
Goto M

A=P^rt

Lbl CC
ClrHome
Menu("Continuous Compound Int","Find Final Amount",CF,"Find Initial Amount",CI,"Find Interest Rate",CR,"Find Time Invested",CT,"Go Back",GB
Pause

Lbl CF
Input "Initial Amount = ",P
Input "Interest Rate (%) = ",R
Input "Time Invested = ",T
R/100→R
P^RT→A
Disp "Final Amount = ",A
Pause ""
Goto H

Lbl CI
Input "Final Amount = ",A
Input "Interest Rate (%) = ",R
Input "Time Invested = ",T
R/100→R
A/(^RT)→P
Disp "Initial Amount = ",P
Pause ""
Goto H

Lbl CR
Input "Final Amount = ",A
Input "Initial Amount = ",P
Input "Time Invested = ",T
log(A)/(T(log(P)))→R
R*100→R
Disp "Interest Rate = ",R
Pause ""
Goto H

Lbl CT
Input "Final Amount = ",A
Input "Initial Amount = ",P
Input "Interest Rate (%) = ",R
R/100→R
log(A)/(R(log(P)))→T
Disp "Time Invested = ",T
Pause ""
Goto H

Lbl HL
ClrHome
Menu("Half-Life","Find Final Amount",HA,"Find Initial Amount",HI,"Find Time Decaying",HT,"Find Half-Life",HH,"Go Back",GB
Pause

Lbl GB
Goto M

Lbl HA
Input "Initial Amount = ",P
Input "Half-Life = ",H
Input "Time Decaying = ",T
P((1/2)^(T/H))→A
Disp "Final Amount = ",A
Pause ""
Goto H


Lbl HI
Input "Final Amount = ",A
Input "Half-Life = ",H
Input "Time Decaying = ",T
A/((1/2)^(T/H))→P
Disp "Initial Amount = ",P
Pause ""
Goto H

Lbl HT
Input "Final Amount = ",A
Input "Initial Amount = ",P
Input "Half-Life = ",H
(H)(log(A)/(log(P(1/2))))→T
Disp "Time Decaying = ",T
Pause ""
Goto H

Lbl HH
Input "Final Amount = ",A
Input "Initial Amount = ",P
Input "Time Decaying = ",T
(((T)log(P(1/2)))/log(A))→H
Disp "Half-Life = ",H
Pause ""
Goto H