Operation Manual

Aktivitäten 842
temp5 =Endwert und temp6 =vorschüssig oder nachschüssig (1 = Monatsbeginn, also
vorschüssig, 0 = Monatsende, d.h. nachschüssig).
Hinweis: Umfangreichen Text können Sie über die Tastatur Ihres Computers eingeben
und dann mit TI Connect™ Software an den TI-89 Titanium / Voyage™ 200 übertragen.
:tvm(temp1,temp2,temp3,temp4,temp5,temp6)
:Func
:Local tempi,tempfunc,tempstr1
:Ltemp3+(1+temp2/1200ùtemp6)ùtemp4ù((1N(1+temp2/1200)^
(Ltemp1))/(temp2/1200))Ntemp5ù(1+temp2/1200)^(Ltemp1)
!tempfunc
:For tempi,1,5,1
:"temp"&exact(string(tempi))!tempstr1
:If when(#tempstr1=0,false,false,true) Then
:If tempi=2
:Return approx(nsolve(tempfunc=0,#tempstr1) | #tempstr1>0 and
#tempstr1<100)
:Return approx(nsolve(tempfunc=0,#tempstr1))
:EndIf
:EndFor
:Return "parameter error"
:EndFunc