function SimCalc() {
	var ri=document.simfm.goriyogaku.value;
	var ka=document.simfm.kai.value;
	var he=document.simfm.hensaigetugaku.value;
	var ne=document.simfm.nenri.value;
	if((ri =="" || ri > -1)&&(ka =="" || ka > -1)&&(he =="" || he > -1)&&(ne > -1)){
    	if (document.simfm.goriyogaku.value == "") {
        	if ((document.simfm.hensaigetugaku.value == "") || (document.simfm.kai.value == "")) {
    	        alert("入力項目が不足しています。ご記入の上もう一度、スタートボタンを押してください。") ;
    	    } else {
    	        RiyoCalc() ;
    	    }
    	} else {
    	    if (document.simfm.hensaigetugaku.value == "") {
    	        if (document.simfm.kai.value == "") {
    	            alert("入力項目が不足しています。ご記入の上もう一度、スタートボタンを押してください。") ;
    	        } else {
    	            HensaiCalc() ;
    	        }
    	    } else {
    	        if (document.simfm.kai.value != "") {
    	            alert("入力項目が多すぎます。知りたい項目のクリアボタンを押し、もう一度、スタートボタンを押してください。") ;
    	        } else {
    	            kaiCalc() ;
    	        }
    	    }
    	}
    }else{
		alert("数値が正しくありません。半角数字で入力してください。");
	}
    return false;
}

function RiyoCalc(){
    Nenri      = document.simfm.nenri.value      - 0 ;
    hensaigetugaku = document.simfm.hensaigetugaku.value - 0 ;
    kai      = document.simfm.kai.value      - 0 ;


    Getsuri    = Nenri / 1200 ;
    Goukei1    = hensaigetugaku / Getsuri ;
    Goukei2    = 1 / (Math.pow(1 + Getsuri, kai)) ;
    Goukei3    = Goukei1 * (1 - Goukei2) ;


    document.simfm.hensaigetugaku.value = hensaigetugaku ;
    document.simfm.goriyogaku.value   = Goukei ;
    //document.simfm.r_cancel.focus() ;
}

function HensaiCalc() {
    Nenri   = document.simfm.nenri.value    - 0 ;
    Kingaku = document.simfm.goriyogaku.value - 0 ;
    kai   = document.simfm.kai.value    - 0 ;


    Getsuri = Nenri / 1200 ;
    Goukei1 = Kingaku * Getsuri ;
    Goukei2 = 1 / (Math.pow(1 + Getsuri, kai)) ;
    Goukei3 = Goukei1 / (1 - Goukei2) ;
    Goukei  = Math.floor(Goukei3) ;


    document.simfm.goriyogaku.value   = Kingaku ;
    document.simfm.hensaigetugaku.value = Goukei ;
    //document.simfm.g_cancel.focus() ;
}

function kaiCalc() {
    Nenri      = document.Money.nenri.value      - 0 ;
    Kingaku    = document.Money.goriyogaku.value   - 0 ;
    hensaigetugaku = document.Money.hensaigetugaku.value - 0 ;


    Zangaku    = hensaigetugaku - (Kingaku * Getsuri) ;
    if (Zangaku < 0) {
        Goukei = Infinity;
    } else {
        Goukei1    = Math.log(hensaigetugaku / Zangaku) / Math.log(1 + Getsuri) ;
        Goukei     = Math.ceil(Goukei1) ;
    }

    document.simfm.goriyogaku.value   = Kingaku;
    document.simfm.hensaigetugaku.value = hensaigetugaku ;
    document.simfm.kai.value      = Goukei ;
    //document.simfm.b_cancel.focus() ;
}

function DataClear(obj) {
    obj.value = "" ;
    document.simfm.startBtn.focus() ;
}