// javascript Document
function set_init() {
// form1_ans.innerHTML = 0;
 form1_4.innerHTML = 0;
 form1_2.innerHTML = 0;
 form1_9.innerHTML = 0;

 form2.innerHTML = 0;
 form3.innerHTML = 0;
 form4.innerHTML = 0;
}

function form1_cal() {
 var form1_ans_wk = 0;
 var form1_hensaikikan1 = 0
 form1_kingaku = parseFloat(document.form1.form1_kind11.value) * 10000;
 form1_atama = parseFloat(document.form1.form1_kind51.value) * 10000;
 form1_kariire = form1_kingaku - form1_atama;
 form1_riritu = parseFloat(document.form1.form1_kind3.value);
 form1_bou_harai = parseFloat(document.form1.form1_kind4.value) * 10000;
 form1_hensaikikan1 = parseFloat(document.form1.form1_kind21.value) * 12 + parseFloat(document.form1.form1_kind22.value);

 form1_hensaikikan1_b = parseInt(form1_hensaikikan1 / 6);
 form1_bouri = form1_riritu / 100 / 2;
 form1_wk_b = Math.pow((1 + form1_bouri),form1_hensaikikan1_b) ;
 form1_bou_harai_all = form1_bou_harai * (form1_wk_b - 1) / (form1_wk_b * form1_bouri);

 form1_kariire = form1_kariire - form1_bou_harai_all
 form1_geturi = form1_riritu / 100 / 12;
 form1_wk1 = Math.pow((1 + form1_geturi),form1_hensaikikan1) ;
 form1_getugaku = form1_wk1 * form1_geturi / (form1_wk1 - 1) * form1_kariire;
 form1_soukinrigaku = parseInt(form1_getugaku) * form1_hensaikikan1 + form1_bou_harai * form1_hensaikikan1_b - form1_kingaku + form1_atama;
 form1_4.innerHTML = parseInt(form1_getugaku);
 form1_2.innerHTML = form1_hensaikikan1;
 form1_9.innerHTML = parseInt(form1_soukinrigaku);

 form2.innerHTML = form1_kingaku;
 form3.innerHTML = form1_riritu;
 form4.innerHTML = form1_hensaikikan1;
 return(false);
}

function MM_findObj(n, d) { //v4.01
 var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
 d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
 if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
 for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
 if(!x && d.getElementById) x=d.getElementById(n); return x;
}