//フォーカス喪失時のカンマ編集(ボーナス返済分)
	function k2_hensyu(f,b_kari){
	        b_kari1 = f.b_kari.value;
	        f.b_kari.value = k_delete(b_kari1);
	        b_kari1 = f.b_kari.value;
	        f.b_kari.value = k_hensyu(b_kari1);
	        return true;
	}
	function reset(f){
	        f.n_kari.value = "";
	        f.b_kari.value = "";
	        f.kikan.value = "";
	        }
	//シミュレーションメインルーチン
	function sim_main(f){
	        f.n_kari.value = k_delete(f.n_kari.value);
	        f.b_kari.value = k_delete(f.b_kari.value);
	        if (!(n_kari_chk(f) && b_kari_chk(f) && kikan_chk(f) && kinri_chk(f))){
	                return;
	        }
	//諸費用返済用変数宣言
	        wk_n_kari = eval(f.n_kari.value * 10000);
	//      各返済額の計算
	        mon_hensai = Math.floor(mon_hensai_calc(f));
	        bon_hensai = Math.floor(bon_hensai_calc(f));
	//      mortgage = mortgage_calc(wk_n_kari,f);
	//預入金変換
	        f.n_kari.value = k_hensyu(f.n_kari.value);
	        f.b_kari.value = k_hensyu(f.b_kari.value);
	//      各返済額の出力
	        f.mon_hensai.value = mon_hensai;
	        f.bon_hensai.value = bon_hensai + mon_hensai;
	        f.year_hensai.value = (mon_hensai * 12) +(bon_hensai * 2);
	        f.mon_hensai.value = k_hensyu(f.mon_hensai.value);
	        f.bon_hensai.value = k_hensyu(f.bon_hensai.value);
	        f.year_hensai.value = k_hensyu(f.year_hensai.value);
	        }
	
	//毎月返済利息の計算
	function m_risoku_calc(zandaka,f){
	        zandaka = 100 * Math.floor(zandaka / 100);
	        m_risoku = Math.floor(zandaka * (f.kinri.value) / 100 / 12);
	        return(m_risoku);
	        }
	//ボーナス返済利息の計算
	function b_risoku_calc(zandaka,f){
	        zandaka = 100 * Math.floor(zandaka / 100);
	        b_risoku = Math.floor(zandaka * (f.kinri.value) / 100 / 2);
	        return(b_risoku);
	        }
	//Numericチェック
	function com_num_chk(n) {
	        for(i = 0; i <  n.length; i++){
	                t = n.substring(i,i+1);
	                if (t == "0" || t == "1" || t == "2" || t == "3" || t == "4" ||
	                t == "5" || t == "6" || t == "7" || t == "8" || t == "9" ||
	                t == "."){
	                        continue;
	                        }
	                else{
	                        return false;
	                }
	        }
	        return true;
	}
	//フォーカス喪失時のカンマ編集
	function lost_hensyu(obj){
	        obj.value = k_delete(obj.value);
	        obj.value = k_hensyu(obj.value);
	}
	//カンマ編集
	function k_hensyu(n) {
	        cnt = 0;
	        ans = "";
	        len = n.length;
	        for(i = 0; i < n.length; i++){
	                t = n.substring(i,i+1);
	                ans = ans + t;
	                cnt = cnt + 1;
	                if(n.length - cnt == 9 || n.length - cnt == 6 || n.length - cnt == 3){
	                        ans = ans + ",";
	                }
	        }
	        return(ans);
	}
	//カンマ編集(削除)
	function k_delete(n) {
	                ans = "";
	                len = n.length;
	                for(i = 0; i < n.length; i++){
	                        t = n.substring(i,i+1);
	                        if(t == ","){
	                                t = "";
	                        }
	                        ans = ans + t;
	                }
	                return(ans);
	}
	//借入額の入力チェック
	function n_kari_chk(f) {
	        wk = f.n_kari.value;
	        if (wk == ""){
	                alert("借入額が入力されていません。");
	                f.n_kari.focus();
	                return false;
	        }
	        if (!com_num_chk(wk)){
	                alert ("借入額は半角数字で入力してください。");
	                f.n_kari.focus();
	                return false;
	        }
	        if(wk < 50 || wk > 10000){
	                alert ("借入額は50万円～10000万円の間で入力してください。");
	                f.n_kari.focus();
	                return false;
	        }
	        return true;
	}
	//ボーナス返済額の入力チェック
	function b_kari_chk(f) {
	        wk_n = f.n_kari.value;
	        wk_b = f.b_kari.value;
	        if (wk_b == ""){
			alert("ボーナス返済額を入力してください。");
	                f.b_kari.value = "0";
			f.b_kari.focus();
	                return false;
	        }
	        if (!com_num_chk(wk_b)){
	                alert ("ボーナス返済額は半角数字で入力してください。");
	                f.b_kari.focus();
	                return false;
	        }
	        if((wk_b * 2) > wk_n){
	                alert ("ボーナス返済分は借入金額の半分以下で入力して下さい。");
	                f.b_kari.focus();
	                return false;
	        }
	        return true;
	}
	//借入期間の入力チェック
	function kikan_chk(f) {
	        wk = f.kikan.value;
	        if (wk == ""){
	                alert("返済期間が入力されていません。");
	                f.kikan.focus();
	                return false;
	        }
	        if (!com_num_chk(wk)){
	                alert ("返済期間は半角数字で入力してください。");
	                f.kikan.focus();
	                return false;
	        }
	        if(wk < 2 || wk > 35){
	                alert ("返済期間は２～３５年の間で入力して下さい。");
	                f.kikan.focus();
	                return false;
	        }
	        return true;
	}
	//金利の入力チェック
	function kinri_chk(f) {
	        wk = f.kinri.value;
	        if (wk == ""){
	                alert("金利が入力されていません。");
	                f.kinri.focus();
	                return false;
	        }
	        if (!com_num_chk(wk)){
	                alert ("金利は半角数字で入力してください。");
	                f.kinri.focus();
	                return false;
	        }
	        if(wk < 0.001 || wk > 15.00){
	                alert ("金利は0.001～15.00％の間で入力して下さい。");
	                f.kinri.focus();
	                return false;
	        }
	        return true;
	}
	//ブラウザのチェック
	function br_chk(m){
	        e_lit = "";
	        ee_lit = "";
	        msg = "";
	        e_msg = "";
	        ee_msg = "";
	        flg = "off";
	        if(navigator.appName == "Netscape" && navigator.appVersion.substring(0,3) == "3.0"){
	                for(i=0; i<m.length; i++){
	                        lit = m.substring(i,i+1);
	                        e_lit = escape(lit);
	                        e_len = e_lit.length;
	                        for(j=0; j<e_lit.length; j++){
	                                ee_lit = e_lit.substring(j,j+1);
	                                if(ee_lit == "%" && e_len == 3){
	                                        ee_lit = e_lit.substring(j,j+3);
	                                        j = j + 3;
	                                }
	                                if(ee_lit == "%8E"){
	                                        e_msg = e_msg + "%8E%8E";
	                                }
	                                e_msg = e_msg + e_lit;
	                        }
	                        msg = unescape(e_msg);
	                }
	                return(msg);
	        }else{
	                return(m);
	        }
	}
	//毎月返済額の計算
	function mon_hensai_calc(f){
	        wk_kari = eval(f.n_kari.value * 10000) - eval(f.b_kari.value * 10000);
	        wk_kinri = eval(f.kinri.value / 100);
	        wk_kaisu = eval(f.kikan.value * 12);
	        wk_bunsi = wk_kari * (wk_kinri / 12) * Math.pow((1 + (wk_kinri / 12)),wk_kaisu);
	        wk_bunbo = Math.pow((1 + (wk_kinri / 12)),wk_kaisu) - 1;
	        kingaku = Math.floor(wk_bunsi / wk_bunbo);
	        return(kingaku);
	        }
	//ボーナス返済額の計算
	function bon_hensai_calc(f){ 
	        wk_b_kari = eval(f.b_kari.value * 10000);
	        wk_kinri = eval(f.kinri.value / 100);
	        wk_kaisu = eval(f.kikan.value * 2);
	        wk_bunsi = wk_b_kari * wk_kinri / 2 * (1 + 6 * wk_kinri / 12) * Math.pow((1 + wk_kinri / 2),(wk_kaisu - 1));
	        wk_bunbo = Math.pow(1 + wk_kinri / 2,wk_kaisu) - 1;
	        kingaku = Math.floor(wk_bunsi / wk_bunbo);
	        return(kingaku);
	        }
	//フォーカス処理
	function init_focus(f){
	        f.forms[0].elements[0].focus();
	        }