<!--Copyright(C) by Takahito Yamada All rights reserved The original made by Taiji. Arranged by Takahito Yamada. -->
<!--
//
	var XX="変換前", YY="変換後", XXX=1, YYY=1;
//変換前
	function input(x){
		XX=x.value;
		if (XX=="mm") XXX=1/0.1;
		if (XX=="cm") XXX=1/1;
		if (XX=="m") XXX=1/100;
		if (XX=="km") XXX=1/100000;
//
		if (XX=="分［殷］") XXX=1/0.158;
		if (XX=="寸［殷］") XXX=1/1.58;
		if (XX=="尺［殷］") XXX=1/15.8;
//
		if (XX=="分［戦国、秦、前漢、新］") XXX=1/0.231;
		if (XX=="寸［戦国、秦、前漢、新］") XXX=1/2.31;
		if (XX=="尺［戦国、秦、前漢、新］") XXX=1/23.1;
		if (XX=="丈［戦国、秦、前漢、新］") XXX=1/231;
		if (XX=="引［秦、前漢、新］") XXX=1/2310;
//
		if (XX=="分［後漢］") XXX=1/0.2375;
		if (XX=="寸［後漢］") XXX=1/2.375;
		if (XX=="尺［後漢］") XXX=1/23.75;
		if (XX=="丈［後漢］") XXX=1/237.5;
		if (XX=="引［後漢］") XXX=1/2375;
//
		if (XX=="分［後漢末、三国、西晋］") XXX=1/0.242;
		if (XX=="寸［後漢末、三国、西晋］") XXX=1/2.42;
		if (XX=="尺［後漢末、三国、西晋］") XXX=1/24.2;
		if (XX=="丈［後漢末、三国、西晋］") XXX=1/242;
//
		if (XX=="分［東晋、五胡十六国、南朝］") XXX=1/0.245;
		if (XX=="寸［東晋、五胡十六国、南朝］") XXX=1/2.45;
		if (XX=="尺［東晋、五胡十六国、南朝］") XXX=1/24.5;
		if (XX=="丈［東晋、五胡十六国、南朝］") XXX=1/245;
//
		if (XX=="分［北朝、隋］") XXX=1/0.296;
		if (XX=="寸［北朝、隋］") XXX=1/2.96;
		if (XX=="尺［北朝、隋］") XXX=1/29.6;
		if (XX=="丈［北朝、隋］") XXX=1/296;
//
		if (XX=="分［唐］") XXX=1/0.3;
		if (XX=="寸［唐］") XXX=1/3;
		if (XX=="小尺［唐］") XXX=1/30;
		if (XX=="小丈［唐］") XXX=1/300;
		if (XX=="大尺［唐］") XXX=1/36;
		if (XX=="大丈［唐］") XXX=1/360;
//
		if (XX=="分［宋、元］") XXX=1/0.312;
		if (XX=="寸［宋、元］") XXX=1/3.12;
		if (XX=="尺［宋、元］") XXX=1/31.2;
		if (XX=="丈［宋、元］") XXX=1/312;
//
		if (XX=="分［明：裁衣］") XXX=1/0.34;
		if (XX=="寸［明：裁衣］") XXX=1/3.4;
		if (XX=="尺［明：裁衣］") XXX=1/34;
		if (XX=="丈［明：裁衣］") XXX=1/340;
		if (XX=="歩［明：裁衣］") XXX=1/34/5;
		if (XX=="里［明：裁衣］") XXX=1/34/5/360;

		if (XX=="分［明：量地］") XXX=1/0.327;
		if (XX=="寸［明：量地］") XXX=1/3.27;
		if (XX=="尺［明：量地］") XXX=1/32.7;
		if (XX=="丈［明：量地］") XXX=1/327;
		if (XX=="歩［明：量地］") XXX=1/32.7/5;
		if (XX=="里［明：量地］") XXX=1/32.7/360;

		if (XX=="分［明：営造］") XXX=1/0.32;
		if (XX=="寸［明：営造］") XXX=1/3.2;
		if (XX=="尺［明：営造］") XXX=1/32;
		if (XX=="丈［明：営造］") XXX=1/320;
		if (XX=="歩［明：営造］") XXX=1/32/5;
		if (XX=="里［明：営造］") XXX=1/32/5/360;

//
		if (XX=="分［清：裁衣］") XXX=1/0.355;
		if (XX=="寸［清：裁衣］") XXX=1/3.5;
		if (XX=="尺［清：裁衣］") XXX=1/35.5;
		if (XX=="丈［清：裁衣］") XXX=1/355;
		if (XX=="歩［清：裁衣］") XXX=1/35.5/5;
		if (XX=="里［清：裁衣］") XXX=1/35.5/5/360;

		if (XX=="分［清：量地］") XXX=1/0.345;
		if (XX=="寸［清：量地］") XXX=1/3.45;
		if (XX=="尺［清：量地］") XXX=1/34.5;
		if (XX=="丈［清：量地］") XXX=1/345;
		if (XX=="歩［清：量地］") XXX=1/345/5;
		if (XX=="里［清：量地］") XXX=1/345/5/360;

		if (XX=="分［清：営造］") XXX=1/0.32;
		if (XX=="寸［清：営造］") XXX=1/3.2;
		if (XX=="尺［清：営造］") XXX=1/32;
		if (XX=="丈［清：営造］") XXX=1/320;
		if (XX=="歩［清：営造］") XXX=1/32/5;
		if (XX=="里［清：営造］") XXX=1/32/5/360;

//変換後
	}
	function output(y){
		YY=y.value;
		if (YY=="mm") YYY=1/0.1;
		if (YY=="cm") YYY=1/1;
		if (YY=="m") YYY=1/100;
		if (YY=="km") YYY=1/100000;
//
		if (YY=="分［殷］") YYY=1/0.158;
		if (YY=="寸［殷］") YYY=1/1.58;
		if (YY=="尺［殷］") YYY=1/15.8;
//
		if (YY=="分［戦国、秦、前漢、新］") YYY=1/0.231;
		if (YY=="寸［戦国、秦、前漢、新］") YYY=1/2.31;
		if (YY=="尺［戦国、秦、前漢、新］") YYY=1/23.1;
		if (YY=="丈［戦国、秦、前漢、新］") YYY=1/231;
		if (XX=="引［秦、前漢、新］") XXX=1/2310;
//
		if (YY=="分［後漢］") YYY=1/0.2375;
		if (YY=="寸［後漢］") YYY=1/2.375;
		if (YY=="尺［後漢］") YYY=1/23.75;
		if (YY=="丈［後漢］") YYY=1/237.5;
		if (YY=="引［後漢］") YYY=1/2375;
//
		if (YY=="分［後漢末、三国、西晋］") YYY=1/0.242;
		if (YY=="寸［後漢末、三国、西晋］") YYY=1/2.42;
		if (YY=="尺［後漢末、三国、西晋］") YYY=1/24.2;
		if (YY=="丈［後漢末、三国、西晋］") YYY=1/242;
//
		if (YY=="分［東晋、五胡十六国、南朝］") YYY=1/0.245;
		if (YY=="寸［東晋、五胡十六国、南朝］") YYY=1/2.45;
		if (YY=="尺［東晋、五胡十六国、南朝］") YYY=1/24.5;
		if (YY=="丈［東晋、五胡十六国、南朝］") YYY=1/245;
//
		if (YY=="分［北朝、隋］") YYY=1/0.296;
		if (YY=="寸［北朝、隋］") YYY=1/2.96;
		if (YY=="尺［北朝、隋］") YYY=1/29.6;
		if (YY=="丈［北朝、隋］") YYY=1/296;
//
		if (YY=="分［唐］") YYY=1/0.3;
		if (YY=="寸［唐］") YYY=1/3;
		if (YY=="小尺［唐］") YYY=1/30;
		if (YY=="小丈［唐］") YYY=1/300;
		if (YY=="大尺［唐］") YYY=1/36;
		if (YY=="大丈［唐］") YYY=1/360;
//
		if (YY=="分［宋、元］") YYY=1/0.312;
		if (YY=="寸［宋、元］") YYY=1/3.12;
		if (YY=="尺［宋、元］") YYY=1/31.2;
		if (YY=="丈［宋、元］") YYY=1/312;
//
		if (YY=="分［明：裁衣］") YYY=1/0.34;
		if (YY=="寸［明：裁衣］") YYY=1/3.4;
		if (YY=="尺［明：裁衣］") YYY=1/34;
		if (YY=="丈［明：裁衣］") YYY=1/340;
		if (YY=="丈［明：裁衣］") YYY=1/34/5;
		if (YY=="丈［明：裁衣］") YYY=1/34/5/360;

		if (YY=="分［明：量地］") YYY=1/0.327
		if (YY=="寸［明：量地］") YYY=1/3.27;
		if (YY=="尺［明：量地］") YYY=1/32.7;
		if (YY=="丈［明：量地］") YYY=1/327;
		if (YY=="丈［明：量地］") YYY=1/32.7/5;
		if (YY=="丈［明：量地］") YYY=1/32.7/5/360;

		if (YY=="分［明：営造］") YYY=1/0.32;
		if (YY=="寸［明：営造］") YYY=1/3.2;
		if (YY=="尺［明：営造］") YYY=1/32;
		if (YY=="丈［明：営造］") YYY=1/320;
		if (YY=="歩［明：営造］") YYY=1/32/5;
		if (YY=="里［明：営造］") YYY=1/32/5/360;
//
		if (YY=="分［清：裁衣］") YYY=1/0.355;
		if (YY=="寸［清：裁衣］") YYY=1/3.55;
		if (YY=="尺［清：裁衣］") YYY=1/35.5;
		if (YY=="丈［清：裁衣］") YYY=1/355;
		if (YY=="歩［清：裁衣］") YYY=1/35.5/5;
		if (YY=="里［清：裁衣］") YYY=1/35.5/5/360;

		if (YY=="分［清：量地］") YYY=1/0.345;
		if (YY=="寸［清：量地］") YYY=1/3.45;
		if (YY=="尺［清：量地］") YYY=1/34.5;
		if (YY=="丈［清：量地］") YYY=1/345;
		if (YY=="歩［清：量地］") YYY=1/34.5/5;
		if (YY=="里［清：量地］") YYY=1/34.5/5/360;

		if (YY=="分［清：営造］") YYY=1/0.32;
		if (YY=="寸［清：営造］") YYY=1/3.2;
		if (YY=="尺［清：営造］") YYY=1/32;
		if (YY=="丈［清：営造］") YYY=1/320;
		if (YY=="歩［清：営造］") YYY=1/32/5;
		if (YY=="里［清：営造］") YYY=1/32/5/360;

//実際の換算部分
	}
	function keisan(f){
		if (f.s.value=="")
			alert("入力されていません。");
		else {
		if (isNaN(f.s.value))
			alert("半角で数値を入力して下さい。");
		else {
		SS=eval("f.s.value");
		ZZZ=YYY/XXX*SS;
		if (ZZZ==0) k=0;
		else {
		h=Math.log(Math.abs(ZZZ))*Math.LOG10E;
		i=3-Math.round(h);
//		i=3-Math.floor(h);
		j=ZZZ*Math.pow(10,i);
		k=Math.round(j)/Math.pow(10,i);
		}
		f.result.value=f.s.value+" "+XX+" ＝ "+k+" "+YY;
		}
		}
	}
//-->