// // compound.js // Action Machinery's Web Site // Written by: George Patterson // CopyRight(c) 2003 George Patterson all rights reserved // Last modified 7-10-2003 // Creates an Amortization Table from input based on the Form on compoundinterest.htm // function ofmt(num){ num = Math.round(num * 100); num = num / 100; return num; } function fmt(num){ num = Math.round(num * 100); num = num + "."; numd = num.substring(0 , num.length - 3) numc = num.substring(num.length - 3 , num.length - 1) numdd = numd if (numd.length > 18){ numh = numd.substring(numd.length - 3, numd.length) numt = numd.substring(numd.length - 6, numd.length - 3) numm = numd.substring(numd.length - 9, numd.length - 6) numb = numd.substring(numd.length - 12, numd.length - 9) numtr = numd.substring(numd.length - 15, numd.length - 12) numz = numd.substring(numd.length - 18, numd.length - 15) numzz = numd.substring(0, numd.length - 18) numdd = numzz + "," + numz + "," + numtr + "," + numb + "," + numm + "," + numt + "," + numh numd = "" } if (numd.length > 15){ numh = numd.substring(numd.length - 3, numd.length) numt = numd.substring(numd.length - 6, numd.length - 3) numm = numd.substring(numd.length - 9, numd.length - 6) numb = numd.substring(numd.length - 12, numd.length - 9) numtr = numd.substring(numd.length - 15, numd.length - 12) numz = numd.substring(0, numd.length - 15) numdd = numz + "," + numtr + "," + numb + "," + numm + "," + numt + "," + numh numd = "" } if (numd.length > 12){ numh = numd.substring(numd.length - 3, numd.length) numt = numd.substring(numd.length - 6, numd.length - 3) numm = numd.substring(numd.length - 9, numd.length - 6) numb = numd.substring(numd.length - 12, numd.length - 9) numtr = numd.substring(0, numd.length - 12) numdd = numtr + "," + numb + "," + numm + "," + numt + "," + numh numd = "" } if (numd.length > 9){ numh = numd.substring(numd.length - 3, numd.length) numt = numd.substring(numd.length - 6, numd.length - 3) numm = numd.substring(numd.length - 9, numd.length - 6) numb = numd.substring(0, numd.length - 9) numdd = numb + "," + numm + "," + numt + "," + numh numd = "" } if (numd.length > 6){ numh = numd.substring(numd.length - 3, numd.length) numt = numd.substring(numd.length - 6, numd.length - 3) numm = numd.substring(0, numd.length - 6) numdd = numm + "," + numt + "," + numh numd = "" } if (numd.length > 3){ numh = numd.substring(numd.length - 3, numd.length) numt = numd.substring(0, numd.length - 3) numdd = numt + "," + numh numd = "" } numd = numdd num = "$ " + numd + "." + numc return num; } function Calc(form){ var Prin = form.prin.value var Down = form.deposit.value if (Down > 0){ if (form.deptype[1].checked){ var temp = (Prin * (Down / 100 )) var Down = temp} var temp = (Prin - Down) var Prin = temp } form.principal.value = fmt(Prin) var Interest = (form.interest.value / 100) var Years = form.years.value var Months = (Years * 12) var Periods = (Years * 12) var side1 = (1+(Interest/12)) var side2 = (-1)*(Months) var tempa =(1-(Math.pow(side1, side2))) / (Interest / 12) var temp = Prin / tempa var payment = temp var TotalInterest = (payment * Months) - Prin var Perhour = (payment / 160) form.payment.value =fmt(payment) form.totalinterest.value = fmt(TotalInterest) form.perhour.value = fmt(Perhour) } function amort(form){ amor = open("","amor"); window.amor.focus() var Prin = form.prin.value var Down = form.deposit.value if (Down > 0){ if (form.deptype[1].checked){ var temp = (Prin * (Down / 100 )) var Down = temp} var temp = (Prin - Down) var Prin = temp } var Interest = (form.interest.value / 100) var Years = form.years.value var Months = (Years * 12) var Periods = (Years * 12) var side1 = (1+(Interest/12)) var side2 = (-1)*(Months) var tempa =(1-(Math.pow(side1, side2))) / (Interest / 12) var temp = Prin / tempa var payment = temp var TotalInterest = (payment * Months) - Prin var Perhour = (payment / 160) var Intsum = 0 var Prevprin = Prin amor.document.writeln ("") amor.document.writeln ("") amor.document.writeln ("Action Machinery Co., Inc. Compound Interest Amort Table") amor.document.writeln ("") amor.document.writeln ("") amor.document.writeln ("
") amor.document.writeln ("") amor.document.writeln ("Action Machinery's Compound Interest Calculator
") amor.document.writeln ("") amor.document.writeln ("(610) 691-6677 Phone (610) 694-0944 Fax
") amor.document.writeln ("2320 Highland Avenue - Bethlehem PA - 18020
") amor.document.writeln ("WWW.ACTIONMACHINERY.COM

") amor.document.writeln ("(See bottom of page for Printing Instructions)
") amor.document.writeln ("
") amor.document.writeln ("") amor.document.writeln ("Total Amount " + fmt(form.prin.value) +"
") if (Down <= 0 ){var Down = 0} amor.document.writeln ("Down Payment Amount " + fmt(Down) + "
") amor.document.writeln ("Interest Rate %" + form.interest.value + "
") amor.document.writeln ("Years " + form.years.value + " Number of payments " + Months + "
") amor.document.writeln ("Compounding Periods / Year 12
") amor.document.writeln ("Monthly Payment " + fmt(payment) + "
") amor.document.writeln ("Total Interest " + fmt(TotalInterest) + "
") amor.document.writeln ("Cost Per Hour " + fmt(Perhour) + "
") amor.document.writeln ("
") amor.document.writeln ("") amor.document.writeln ("") for (var i = 1; i<=Months; i++){ amor.document.writeln ("
Payment #Payment $To InterestTo PrincipalBalance
") amor.document.write (""); amor.document.write (""); var side1 = ( 1 + (Interest / 12) ) var side2 = (i - Months) var tempa = (1-(Math.pow(side1, side2))) / (Interest / 12) var temp1 = payment * tempa var temp2 = Prevprin - temp1 var temp3 = payment - temp2 Intsum = Intsum + temp3 amor.document.write (""); amor.document.write (""); if (temp1 < .0001) {var temp1 = 0} amor.document.write (""); Prevprin = temp1 amor.document.writeln (""); amor.document.writeln ("
" + i + " " + fmt(payment) + "" + fmt(temp3) + "" + fmt(temp2) + "" + fmt(temp1) + "
"); } amor.document.writeln ("

") amor.document.writeln ("") amor.document.writeln ("") amor.document.writeln ("
") amor.document.writeln ("To PRINT this Page - on the Menu Bar Select:
") amor.document.writeln ("EDIT - Select ALL
") amor.document.writeln ("FILE - Print
") amor.document.writeln ("Check off the \"SELECTION\" box in the Print Dialog window.
") amor.document.writeln ("Then Click OK and the page will print.
") amor.document.writeln ("

") amor.document.writeln ("

") amor.document.writeln ("
") amor.document.writeln ("") amor.document.writeln ("") amor.document.close }