function calc(form) {

	var i;				// ループカウンタ
	var wk, wk2;		// 階乗積算用
	var bunbo, bunsi;	// 元利均等公式の分子、分母
	var wans;			// 借入可能金額

	// （支払回数−１）乗の階乗を算出
	wk = 1+(1/12)*(form.nenri.value/100);
	wk2 = wk;			// 初期値退避
	for( i=1; i <= form.kaisuu.value-1; i++ )
	{
		wk2 = wk2*wk;
	}

	// 借入可能金額算出
	bunbo = wk2 - 1;
	bunsi = wk2*(form.nenri.value/100)/12;
	wans = Math.floor(form.siharai.value*bunbo/bunsi);

	// 借入可能金額を１万円単位切り捨て
	wans = Math.floor(wans/10000);

	// テキストボックスへ出力
	form.ans.value = wans + "万円";

}