
<!--
/*********************************************************************/
// initializing strings for all of the FORM ELEMENTS
// the description will appear below where their default value is set
var doc_purchase = document.CCForm.purchase;
var doc_apr = document.CCForm.apr;
var doc_apr2 = document.CCForm.apr2;
var doc_apr3 = document.CCForm.apr3;
var doc_freq = document.CCForm.freq;
var doc_freq2 = document.CCForm.freq2;
var doc_freq3 = document.CCForm.freq3;
var doc_payment = document.CCForm.payment;
var doc_payment2 = document.CCForm.payment2;
var doc_payment3 = document.CCForm.payment3;
var doc_month_rto = document.CCForm.month_rto;
var doc_payment_rto = document.CCForm.payment_rto;


var doc_G18 = document.CCForm.G18;
var doc_H18 = document.CCForm.H18;
var doc_I18 = document.CCForm.I18;
var doc_K18 = document.CCForm.K18;

var doc_G20 = document.CCForm.G20;
var doc_H20 = document.CCForm.H20;
var doc_I20 = document.CCForm.I20;
var doc_K20 = document.CCForm.K20;

var doc_G21 = document.CCForm.G21;
var doc_H21 = document.CCForm.H21;
var doc_I21 = document.CCForm.I21;
var doc_K21 = document.CCForm.K21;

var doc_G22 = document.CCForm.G22;
var doc_H22 = document.CCForm.H22;
var doc_I22 = document.CCForm.I22;
var doc_K22 = document.CCForm.K22;

var doc_G23 = document.CCForm.G23;
var doc_H23 = document.CCForm.H23;
var doc_I23 = document.CCForm.I23;
var doc_K23 = document.CCForm.K23;

var doc_G24 = document.CCForm.G24;
var doc_H24 = document.CCForm.H24;
var doc_I24 = document.CCForm.I24;
var doc_K24 = document.CCForm.K24;



// initializing the variables for the computations
var var_purchase;
var var_apr;
var var_apr2;
var var_apr3;
var var_freq;
var var_freq2;
var var_freq3;
var var_payment;
var var_payment2;
var var_payment3;
var var_month_rto;
var var_payment_rto;

var var_G18;
var var_H18;
var var_I18;
var var_K18;

var var_G20;
var var_H20;
var var_I20;
var var_K20;

var var_G21;
var var_H21;
var var_I21;
var var_K21;

var var_G22;
var var_H22;
var var_I22;
var var_K22;

var var_G23;
var var_H23;
var var_I23;
var var_K23;

var var_G24;
var var_H24;
var var_I24;
var var_K24;




/*********************************************************************/
/*                               Input                               */


// ---------------------- SETTING THE DEFAULTS ------------------------
// Values are given to the form elements but computation are made with variables which 
// are set with the document.form.element.value 


/*
// setting up the defaults for the form elements

doc_purchase.value = 1000;	//purchase

//	[G] INPUT fields are [MasterCard/Visa]
//	[H] ---------------- [DeptStoreCard]
//	[I] ---------------- [Line of Credit]
//	[K] ---------------- [Rent-to-Own]

//	"Annual Percentage Rate (APR)"
doc_apr.value = 18;				// apr
doc_apr2.value = 28;			// apr2
doc_apr3.value = 5.5;				// apr3

//	"Compounding Frequency of Interest Rate"
doc_freq.value = 12;			// freq	
doc_freq2.value = 12;			// freq2
doc_freq3.value = 12;			// freq3
//	"Monthly (Minimum) Payment to be Made"
doc_payment.value = 40.00;		// payment
doc_payment2.value = 40.00;		// payment2
doc_payment3.value = 40.00;		// payment3
//	"payments"
doc_month_rto.value = 24;		// months.rto	(Number of Months - Rent To Own)
doc_payment_rto.value = 80.00;	// payment.rto	(Monthly Payment - Rent To Own)
*/







/*                               Input                                 */
/***********************************************************************/




/*_______________________________________________________________________*/
/******************************* FUNCTION ********************************/
function updateCC()
{
	
	/***********************************************************************/
	/*                               Input                                 */
	
	/********************************************/
	//setting up the variable for the computation
	
	var_purchase = doc_purchase.value;	
	
	//	"Annual Percentage Rate (APR)"
	var_apr = eval(isNumeric(doc_apr.value))/100;					
	var_apr2 = eval(isNumeric(doc_apr2.value))/100;
	var_apr3 = eval(isNumeric(doc_apr3.value))/100;
	
	//	"Compounding Frequency of Interest Rate"
	var_freq = eval(isNumeric(doc_freq.value));				
	var_freq2 = eval(isNumeric(doc_freq2.value));
	var_freq3 = eval(isNumeric(doc_freq3.value));
	
	//	"Monthly (Minimum) Payment to be Made"
	var_payment = eval(isNumeric(doc_payment.value));			
	var_payment2 = eval(isNumeric(doc_payment2.value));
	var_payment3 = eval(isNumeric(doc_payment3.value));
	
	//	"payments"
	var_month_rto = eval(isNumeric(doc_month_rto.value));	//	Number of Months
	var_payment_rto = eval(isNumeric(doc_payment_rto.value));	//	Monthly Payment
	
	/*                               Input                               */
	/* ------------------------------------------------------------------*/
	
	
	/* ------------------------------------------------------------------*/
	/*                               Output                              */
	
	var_G18 = var_payment/var_purchase;			// =+payment/purchase
	var_H18 = var_payment2/var_purchase;		// =+payment2/purchase
	var_I18 = var_payment3/var_purchase; 		// =+payment3/purchase
	var_K18 = var_payment_rto/var_purchase;		// =payment.rto/purchase
	
	if(var_freq == 0)
	{
		var_G20 = var_apr;
	}else{
		var_G20 = Math.pow((1+(var_apr/var_freq)),var_freq)-1;	// =+(1+apr/freq)^freq-1
	}
	
	if(var_freq2 == 0)
	{
		var_H20 = var_apr2;
	}else{
		var_H20 = Math.pow((1+(var_apr2/var_freq2)),var_freq2)-1;	// =+(1+apr2/freq2)^freq2-1
	}
	
	if(var_freq3 == 0)
	{
		var_I20 = var_apr3;
	}else{
		var_I20 = Math.pow((1+(var_apr3/var_freq3)),var_freq3)-1;	// =+(1+apr3/freq3)^freq3-1
	}
	
	var_K20 = 12*InterestRate(var_month_rto,var_payment_rto,-var_purchase)
				// =12*RATE(months.rto,payment.rto,-purchase,0,0)
	
	var_G21 = numberPeriod(var_apr/12,var_payment,-var_purchase,0,0);	// =NPER(apr/12,payment,-purchase,0,0)
	var_H21 = numberPeriod(var_apr2/12,var_payment2,-var_purchase,0,0);	// =NPER(apr2/12,payment2,-purchase,0,0)
	var_I21 = numberPeriod(var_apr3/12,var_payment3,-var_purchase,0,0);	// =NPER(apr3/12,payment3,-purchase,0,0)
	
	var_G22 = var_payment*var_G21;	// =+payment*G21
	var_H22 = var_payment2*var_H21;	// =+payment2*H21
	var_I22 = var_payment3*var_I21;	// =+payment2*I21
	var_K22 = var_payment_rto*var_month_rto;	// =+payment.rto*months.rto
	
	var_G23 = var_G22-var_purchase;	// =+G22-purchase
	var_H23 = var_H22-var_purchase;	// =+H22-purchase
	var_I23 = var_I22-var_purchase;	// =+I22-purchase
	var_K23 = var_K22-var_purchase;	// =+K22-purchase
	
	var_G24 = var_G22/var_purchase-1;	// =+G22/purchase-1
	var_H24 = var_H22/var_purchase-1;	// =+H22/purchase-1
	var_I24 = var_I22/var_purchase-1;	// =+I22/purchase-1
	var_K24 = var_K22/var_purchase-1;	// =+K22/purchase-1
	/*                               Output                              */
	/* ------------------------------------------------------------------*/
	
	
	
	
	/* ------------------------------------------------------------------*/
	/*                   setting values to the form fields               */
	
	// INPUT	
	//	"Annual Percentage Rate (APR)"
	doc_apr.value = decimal(var_apr*100);				// apr
	doc_apr2.value = decimal(var_apr2*100);			// apr2
	doc_apr3.value = decimal(var_apr3*100);				// apr3
	
	//	"Compounding Frequency of Interest Rate"
	doc_freq.value = decimal(var_freq);			// freq	
	doc_freq2.value = decimal(var_freq2);			// freq2
	doc_freq3.value = decimal(var_freq3);			// freq3
	//	"Monthly (Minimum) Payment to be Made"
	doc_payment.value = cash(var_payment);		// payment
	doc_payment2.value = cash(var_payment2);		// payment2
	doc_payment3.value = cash(var_payment3);		// payment3
	//	"payments"
	doc_month_rto.value = decimal(var_month_rto);		// months.rto	(Number of Months - Rent To Own)
	doc_payment_rto.value = decimal(var_payment_rto);	// payment.rto	(Monthly Payment - Rent To Own)

	//OUTPUT
	doc_G18.value = percentage(var_G18);
	doc_G20.value = percentage(var_G20);
	doc_G21.value = decimal(var_G21);
	doc_G22.value = decimal(var_G22);
	doc_G23.value = decimal(var_G23);
	doc_G24.value = percentage(var_G24);
	
	if(!decimal(var_G21) || !decimal(var_G22) || !decimal(var_G23) || !decimal(var_G24) || decimal(var_G21) == Infinity || decimal(var_G22) == Infinity || decimal(var_G23) == Infinity || decimal(var_G24) == Infinity)
	{
		doc_G21.value = " ERROR ";
		doc_G22.value = " ERROR ";
		doc_G23.value = " ERROR ";
		doc_G24.value = " ERROR ";
		// alert("ERROR: \n the minimum monthly payment you are making for the MASTERCARD OR VISA is not large enough to cover the monthly interest payment... ");
	}/**/
	
	doc_H18.value = percentage(var_H18);
	doc_H20.value = percentage(var_H20);
	doc_H21.value = decimal(var_H21);
	doc_H22.value = decimal(var_H22);
	doc_H23.value = decimal(var_H23);
	doc_H24.value = percentage(var_H24);
	if(!decimal(var_H21) || !decimal(var_H22) || !decimal(var_H23) || !decimal(var_H24) || decimal(var_H21) == Infinity || decimal(var_H22) == Infinity || decimal(var_H23) == Infinity || decimal(var_H24) == Infinity)
	{		
		doc_H21.value = " ERROR ";
		doc_H22.value = " ERROR ";
		doc_H23.value = " ERROR ";
		doc_H24.value = " ERROR ";
		// alert("ERROR: \n the minimum monthly payment you are making for the DEPT. STORE CARD is not large enough to cover the monthly interest payment... ");
	}/**/
	
	doc_I18.value = percentage(var_I18);
	doc_I20.value = percentage(var_I20);
	doc_I21.value = decimal(var_I21);
	doc_I22.value = decimal(var_I22);
	doc_I23.value = decimal(var_I23);
	doc_I24.value = percentage(var_I24);
	if(!decimal(var_I21) || !decimal(var_I22) || !decimal(var_I23) || !decimal(var_I24) || decimal(var_I21) == Infinity || decimal(var_I22) == Infinity || decimal(var_I23) == Infinity || decimal(var_I24) == Infinity)
	{
		doc_I21.value = " ERROR ";
		doc_I22.value = " ERROR ";
		doc_I23.value = " ERROR ";
		doc_I24.value = " ERROR ";
		// alert("ERROR: \n the minimum monthly payment you are making for the LINE OF CREDIT is not large enough to cover the monthly interest payment... ");
	}/**/
	
	doc_K18.value = percentage(var_K18);
	doc_K20.value = percentage(var_K20);
	
	doc_K22.value = decimal(var_K22);
	doc_K23.value = decimal(var_K23);
	doc_K24.value = percentage(var_K24);
	if(decimal(var_K23) < 0 || decimal(var_K24) < 0)
	{
		doc_K23.value = " ERROR ";
		doc_K24.value = " ERROR ";
		// alert("ERROR: \n the total price paid for the item under RENT-TO-OWN is less than the actual selling price of the item signifying a negative interest payment which is hignly unlikely to occure. ");
	}/**/
}

//-->