<!-- // 2004 (C) Hartmut Josi Bennöhr D 25791 Linden
function werteholen(){ var kotext=document.fko.ko.value; var pproztext=document.fpproz.pproz.value; var ntext = document.fn.n.value; var rtext = document.fr.r.value; var kntext = document.fkn.kn.value; f = 1;f1=1;f2=1; ko=eval(kotext); pproz=eval(pproztext); q=1+pproz/100; n=eval(ntext); r=eval(rtext); kn=eval(kntext); if (document.radbut.verm[0].checked) {f=-1} if (document.radbut.verm[1].checked) {f=1}
if (document.radbut.zahlw[0].checked) {f=f*1} if (document.radbut.zahlw[1].checked) {f1=f;f=f*q;f2=2}
} function runde(zahl,dezimalen){
  var zp=Math.pow(10,dezimalen); zp=Math.floor(zahl*zp+0.5)/zp;
  if (zp>=1000000000||zp<=-100000000){var anz=window.open("","Josi","width=300,height=150,screenX=100,dependent=Yes");anz.document.write("<br>vollst&auml;ndige Zahl:<br>");anz.document.write(zp);anz.setTimeout('window.close()',22004)} return zp;} function kober(){ werteholen(); if (q==0) {var fehler=window.open("","Josi2","width=250,height=150,screenX=300,dependent=Yes");fehler.document.write("<font size='5' color='red'>Der angegebene Zinssatz ist wohl nicht&nbsp;sinnvoll?!</font>"); fehler.setTimeout('window.close()',2004)} else { if (q==1) {ko=kn-r*f*n;
document.fko.ko.value=runde(ko,2)} else{ko=(kn-r*f*(Math.pow(q,n)-1)/(q-1))/Math.pow(q,n);document.fko.ko.value=runde(ko,2)}}} function knber(){ werteholen(); if (q==1){kn=ko+r*f*n}
else {kn=ko*Math.pow(q,n)+r*f*(Math.pow(q,n)-1)/(q-1)} document.fkn.kn.value=runde(kn,2);} function pber(){ werteholen();  qv=1.05; dq=0.05;schln=0; while (Math.abs(dq)>0.000000001){if (f2==2) {f=f1*qv} kv=ko*Math.pow(qv,n)+r*f*(Math.pow(qv,n)-1)/(qv-1);schln++; if (schln>150) {
zeig=window.open("","Josi3","width=250,height=150,screenX=100,dependent=Yes");zeig.document.write("Die Berechnung von q wurde wegen zu vieler Iterationsschritte abgebrochen!");zeig.setTimeout('window.close()',7000);break;} if (kn>kv) {qv=qv+dq; dq=dq/2} else {qv=qv-dq/2}} pproz=(qv-1)*100; document.fpproz.pproz.value=runde(pproz,5);} function nber(){
  werteholen(); if(q==1){if(r==0){if(kn==ko){n=0}else{ zeig2=window.open("","Josi4","width=250,height=150,screenX=100,dependent=Yes");zeig2.document.write("Lösung nicht möglich!");zeig2.setTimeout('window.close()',4500)}}else{n=(kn-ko)/r/f}}
            else{n=Math.log((kn*(q-1)+f*r)/(ko*(q-1)+f*r))/Math.log(q)}document.fn.n.value=runde(n,5);
}

function rber(){werteholen();if(q==1){if(n==0){if(kn==ko){r=0}else{
zeig3=window.open("","Josi5","width=250,height=150,screenX=100,dependent=Yes");zeig3.document.write("Lösung nicht möglich!");zeig3.setTimeout('window.close()',4500)}}else{r=(kn-ko)/n/f}}else{r=(kn-ko*Math.pow(q,n))*(q-1)/(Math.pow(q,n)-1)/f}document.fr.r.value=runde(r,2);
}
-->