//以下のプログラムに関する質問にはいっさい答えられません。(2001.4.dhr)
		function Caliculate(){	
		var sum = new Array(14);//最終的な通話料込み
		var tu = new Array(10);//標準通話料
		var x =  0;//ＤＤＩポケットのみ通用（他はtu[1]）
		var y =  0;//ＤＤＩポケットのみ通用
		var math = new Array(17);//Math.ceilを使う式
		y =6*document.Mitsumori.val3.value/7;
	x =(6*document.Mitsumori.val1.value　+ 6*document.Mitsumori.val2.value + 6*Math.ceil(y))/6 ;
	math[1] =Math.ceil(120*document.Mitsumori.val1.value/45);
	math[2] =Math.ceil(120*document.Mitsumori.val2.value/61);
	math[3] =Math.ceil(120*document.Mitsumori.val3.value/95);
	math[4] =Math.ceil(60*document.Mitsumori.val1.value/26);
	math[5] =Math.ceil(2*document.Mitsumori.val3.value/3);
	sum[1] =x*10 + 2295;
	tu[1] =(6*document.Mitsumori.val1.value　+ 6*document.Mitsumori.val2.value + 6*document.Mitsumori.val3.value)/6 ;
	tu[4] =(30*document.Mitsumori.val1.value+50*document.Mitsumori.val2.value+50*document.Mitsumori.val3.value+12800)/2;
	tu[8] =(20*document.Mitsumori.val1.value+20*2*document.Mitsumori.val2.value+20*document.Mitsumori.val3.value+3960)/2;
	tu[11] =(6*document.Mitsumori.val1.value+6*document.Mitsumori.val2.value+6*math[5])/6;
	document.open();
document.write("合計" + tu[1] + "分 DDIポケットのＨ”エッジ（<ul><li>標準コース＝" + sum[1] + "円");
if(x <=100){sum[2] = 2805;
		sum[3] = 4250;};
	if(100<x && x<=333){sum[2] =x*12 + 2805;
			sum[3] = 4250;
	};
	if(x>333){sum[2] =x*12 + 2805;
		sum[3] =x*9 + 4250;
		};
document.write("<li>スーパーパックＳ＝" + sum[2] + "円");
document.write("<li>スーパーパックＬ＝" + sum[3] + "円</ul>）<br>");
	tu[5] =(20*math[4]+20*math[2]+20*math[3])/2;
	if(tu[5]<=200){sum[12] =4050;
		sum[13] =3150;
		sum[14] =3510;
		sum[15] =5040;
		sum[16] =8100;};
	if(200<tu[5]<=285.7){sum[12] =(2*4050+2*tu[5])/2;
		sum[13] =3150;
		sum[14] =3510;
		sum[15] =5040;
		sum[16] =8100;};
	if(285.7<tu[5]<=785.7){sum[12] =(2*4050+2*tu[5])/2;
		sum[13] =(2*3150+2*1.4*tu[5])/2;
		sum[14] =3510;
		sum[15] =5040;
		sum[16] =8100;};
	if(785.7<tu[5]<=2333.3){sum[12] =(2*4050+2*tu[5])/2;
		sum[13] =(2*3150+2*1.4*tu[5])/2;
		sum[14] =(2*3510+2*1.4*tu[5])/2;
		sum[15] =5040;
		sum[16] =8100;};
	if(2333.3<tu[5]<=5636.3){sum[12] =(2*4050+2*tu[5])/2;
		sum[13] =(2*3150+2*1.4*tu[5])/2;
		sum[14] =(2*3510+2*1.4*tu[5])/2;
		sum[15] =(2*5040+2*1.2*tu[5])/2;
		sum[16] =8100;};
	if(5636.3<tu[5]){sum[12] =(2*4050+2*tu[5])/2;
		sum[13] =(2*3150+2*1.4*tu[5])/2;
		sum[14] =(2*3510+2*1.4*tu[5])/2;
		sum[15] =(2*5040+2*1.2*tu[5])/2;
		sum[16] =(2*8100+2*1.1*tu[5])/2;};
document.write("NTTドコモ（<ul><li>プランＡ＝" +sum[12]+ "円<li>プランＢ＝" +sum[13]+ "円<li>おはなしプラスＭ＝" +sum[14]+ "円<li>おはなしプラスＬ＝" +sum[15]+ "円<li>おはなしプラスＢＩＧ＝" +sum[16]+ "円</ul>）")
	tu[2] =(60*math[1]　+ 60*math[2] + 60*math[3]+25200 )/6 ;
	tu[3] =(1.4*60*math[1] + 60*math[2] + 60*math[3]+18600)/6;
document.write("cdmaOne（学割は２分の１<ul><li>標準プラン＝" + tu[2]+ "円");
document.write("<li>ちょっとコール＝" +tu[3]+ "円");
		if(tu[1]<=35){sum[4] =3600;
		sum[5] =5600;
		sum[6] =8600;
		sum[7] =13100;};
	if(35<tu[1] && tu[1]<=100){sum[4] =(7200+80*tu[1])/2;
		sum[5] =5600;
		sum[6] =8600;
		sum[7] =13100;};
	if(100<tu[1] && tu[1]<=200){sum[4] =(7200+80*tu[1])/2;
		sum[5] =(2*5600+60*tu[1])/2;
		sum[6] =8600;
		sum[7] =13100;
		};
	if(200<tu[1] && tu[1]<=600){sum[4] =(7200+80*tu[1])/2;
		sum[5] =(2*5600+60*tu[1])/2;
		sum[6] =(2*8600+40*tu[1])/2;
		sum[7] =13100;
		};
	if(600<tu[1]){sum[4] =(7200+80*tu[1])/2;
		sum[5] =(2*5600+60*tu[1])/2;
		sum[6] =(2*8600+40*tu[1])/2;
		sum[7] =(2*13100+30+tu[1])/2;
		};
document.write("<li>コミコミコールＳ＝" +sum[4]+ "円<li>コミコミコールＬ＝" +sum[5]+ "円<li>コミコミコールジャンボ＝" +sum[6]+ "円<li>コミコミコールスーパー＝" +sum[7]+ "円</ul>）<br>");
	if(tu[1]<=20){sum[8] =2700;
		sum[9] =3500;
		sum[10] =5200;
		sum[11] =8800;};
	if(20<tu[1]<=40){sum[8] =(2*2700+100*tu[1])/2;
		sum[9] =3500;
		sum[10] =5200;
		sum[11] =8800;};
	if(40<tu[1]<=100){sum[8] =(2*2700+100*tu[1])/2;
		sum[9] =(2*3500+80*tu[1])/2;
		sum[10] =5200;
		sum[11] =8800;};
	if(100<tu[1]<=240){sum[8] =(2*2700+100*tu[1])/2;
		sum[9] =(2*3500+80*tu[1])/2;
		sum[10] =(2*5200+60*tu[1])/2;
		sum[11] =8800;};
	if(240<tu[1]){sum[8] =(2*2700+100*tu[1])/2;
		sum[9] =(2*3500+80*tu[1])/2;
		sum[10] =(2*5200+60*tu[1])/2;
		sum[11] =(2*8800+50*tu[1])/2;};
document.write("Ｊフォン通話料込み(<ul><li>まるごトークＸ＝" +sum[8]+ "円<li>まるごトーク＝" +sum[9]+ "円<li>まるごトークＨ＝" +sum[10]+ "円<li>まるごトークスーパー＝" +sum[11]+ "円</ul>）");
tu[5] =(20*math[4]+20*math[2]+20*math[3]+7800)/2;
	tu[6] =(28*math[4]+20*math[2]+20*math[3]+5800)/2;
document.write("Jフォン標準 (<ul><li>スーパーハイコールプラン＝" +tu[4]+ "円<li>ハイコールプラン＝" +tu[5]+ "円<li>ローコールプラン＝" +tu[6]+ "円</ul>）");
	if(tu[11]<=33.3){sum[12] =1980;
		sum[13] =1980;
		sum[14] =4200;};
	if(33.3<tu[11]<=40){sum[12] =(198+3*tu[1])*10;
		sum[13] =1980;
		sum[14] =4200;};
	if(40<tu[11]<=220){sum[12] =(198+3*tu[1])*10;
		sum[13] =(198+2.5*tu[1])*10;
		sum[14] =4200;};
	if(220<tu[11]){sum[12] =(198+3*tu[1])*10;
		sum[13] =(198+2.5*tu[1])*10;
		sum[14] =(420+tu[1])*10;};
	math[6] =Math.ceil(10*tu[11]/3);
	tu[7] =(1.5*tu[11]+198)*10;
	tu[9] =(math[6]+135)*10;
	tu[10] =(tu[11]+270)*10;
document.write("ＮＴＴドコモのＰＨＳ　標準（<ul><li>プラン２７０＝" +tu[10]+ "円<li>プラン１９８＝" +tu[7]+ "円<li>プラン１９８デイライト＝" +tu[8]+ "円<li>プラン１３５＝" +tu[9]+ "円</ul>）<br>通話料込み（<ul><li>データプラス＝" +sum[12]+ "円<li>おはなしプラス＝" +sum[13]+ "円<li>おはなしプラス＝" +sum[14]+ "円</ul>）");
	document.close();
		}