<html>
<head>
<title>纳甲64卦象图</title>
<style>
#GuaYaoNaJia{line-height: 1.3;}
</style>
<script>
var single="█████<br>"; //阳爻
var double="██ ██<br>"; //阴爻
var BaGuaPre=new Array("乾","兑","离","震","巽","坎","艮","坤"); //var gua-name=new Array(天,泽,火,雷,风,水,山,地);
var WuXing=new Array("金","水","木","火","土");
var WuXingLiuQin="金水木火土";
var TianGan=new Array("甲","乙","丙","丁","戊","己","庚","辛","壬","癸");
var DiZhi=new Array("子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥");
//var GanZhi60=new Array("甲子","乙丑","丙寅","丁卯","戊辰","己巳","庚午","辛未","壬申","癸酉","甲戌","乙亥","丙子","丁丑","戊寅","己卯","庚辰","辛巳","壬午","癸未","甲申","乙酉","丙戌","丁亥","戊子","己丑","庚寅","辛卯","壬辰","癸巳","甲午","乙未","丙申","丁酉","戊戌","己亥","庚子","辛丑","壬寅","癸卯","甲辰","乙巳","丙午","丁未","戊申","己酉","庚戌","辛亥","壬子","癸丑","甲寅","乙卯","丙辰","丁巳","戊午","己未","庚申","辛酉","壬戌","癸亥");
var Number=new Array("一","二","三","四","五","六","七","八");
var BaGuaWuXing=new Array(WuXing[0],WuXing[0],WuXing[3],WuXing[2],WuXing[2],WuXing[1],WuXing[4],WuXing[4]);
var DiZhiWuXing=new Array(WuXing[1],WuXing[4],WuXing[2],WuXing[2],WuXing[4],WuXing[3],WuXing[3],WuXing[4],WuXing[0],WuXing[0],WuXing[4],WuXing[1]);
var Gua64=new Array(
"乾","夬","大有","大壮","小畜","需","大畜","泰",
"履","兑","暌","归妹","中孚","节","损","临",
"同人","革","离","丰","家人","既济","贲","明夷",
"无妄","随","噬嗑","震","益","屯","颐","复",
"姤","大过","鼎","恒","巽","井","蛊","升",
"讼","困","未济","解","涣","坎","蒙","师",
"遁","咸","旅","小过","渐","蹇","艮","谦",
"否","萃","晋","豫","观","比","剥","坤"
);
var GuaPalace8=new Array(
11,86,18,85,52,87,73,84,
76,21,75,28,77,62,74,83,
38,65,31,66,53,64,72,67,
55,48,56,41,54,63,57,82,
12,47,33,44,51,46,58,45,
37,22,34,43,36,61,35,68,
13,24,32,27,78,25,71,26,
14,23,17,42,15,88,16,81
);
var BaGuaTianGan=new Array(
8,8,8,0,0,0,
3,3,3,3,3,3,
5,5,5,5,5,5,
6,6,6,6,6,6,
7,7,7,7,7,7,
4,4,4,4,4,4,
2,2,2,2,2,2,
9,9,9,1,1,1
);
var BaGuaDiZhi=new Array(
10,8,6,4,2,0,
7,9,11,1,3,5,
5,7,9,11,1,3,
10,8,6,4,2,0,
3,5,7,9,11,1,
0,10,8,6,4,2,
2,0,10,8,6,4,
9,11,1,3,5,7
);
var Shi_Ying=new Array(
"世<br> <br> <br>应<br> <br> <br>",
" <br> <br>应<br> <br> <br>世<br>",
" <br>应<br> <br> <br>世<br> <br>",
"应<br> <br> <br>世<br> <br> <br>",
" <br> <br>世<br> <br> <br>应<br>",
" <br>世<br> <br>应<br> <br> <br>",
" <br> <br>世<br> <br>应<br> <br>",
"应<br> <br> <br>世<br> <br> <br>"
);
function ShowGua64(){
//show name
var i,j,m;
var k=new Array(0,1,2,3,4,5); //
var YaoDigit=new Array(0,0,0,0,0,0);
var YaoImage=new Array(single,single,single,single,single,single);
var order=eval(select1.value)+eval(select2.value*8);
GuaName64.innerHTML=eval(order+1)+"."+Gua64[order];
i=GuaPalace8[order];
GuaPalaceName.innerHTML=BaGuaPre[eval((i-i%10)/10)-1]+BaGuaWuXing[eval((i-i%10)/10)-1]+"宫第"+Number[eval(i%10)-1]+"卦";
//convert order to binary
//for (i=0;i<5;i++){
if (order>=32) {YaoDigit[0]=1;order=order-32;}
if (order>=16) {YaoDigit[1]=1;order=order-16;}
if (order>=8) {YaoDigit[2]=1;order=order-8;}
if (order>=4) {YaoDigit[3]=1;order=order-4;}
if (order>=2) {YaoDigit[4]=1;order=order-2;}
if (order>=1)YaoDigit[5]=1;
//change binary to image
for (i=0;i<6;i++){
if (YaoDigit[i]) YaoImage[i]=double;
}
GuaImage64.innerHTML=YaoImage[5]+YaoImage[4]+YaoImage[3]+YaoImage[2]+YaoImage[1]+YaoImage[0];
i=select1.value*6;j=select2.value*6;
k[0]=BaGuaDiZhi[i+0];k[1]=BaGuaDiZhi[i+1];k[2]=BaGuaDiZhi[i+2];k[3]=BaGuaDiZhi[j+3];k[4]=BaGuaDiZhi[j+4];k[5]=BaGuaDiZhi[j+5];
GuaYaoTianGan.innerHTML=TianGan[BaGuaTianGan[i+0]]+TianGan[BaGuaTianGan[i+1]]+TianGan[BaGuaTianGan[i+2]]+TianGan[BaGuaTianGan[j+3]]+TianGan[BaGuaTianGan[j+4]]+TianGan[BaGuaTianGan[j+5]];
GuaYaoDiZhi.innerHTML=DiZhi[k[0]]+DiZhi[k[1]]+DiZhi[k[2]]+DiZhi[k[3]]+DiZhi[k[4]]+DiZhi[k[5]];
GuaYaoWuXing.innerHTML=DiZhiWuXing[k[0]]+DiZhiWuXing[k[1]]+DiZhiWuXing[k[2]]+DiZhiWuXing[k[3]]+DiZhiWuXing[k[4]]+DiZhiWuXing[k[5]];
ShiYingPosition.innerHTML=Shi_Ying[GuaPalace8[order]%10-1];
i=WuXingLiuQin.indexOf(BaGuaWuXing[eval((GuaPalace8[order]-GuaPalace8[order]%10)/10)-1]);
GuaYaoLiuQin.innerHTML="";
for (j=0;j<6;j++){
m=WuXingLiuQin.indexOf(DiZhiWuXing[k[j]]);
if (m==(i+1>4?i+1-5:i+1)) GuaYaoLiuQin.innerHTML+="子孙";
else if (m==(i-1<0?i-1+5:i-1)) GuaYaoLiuQin.innerHTML+="父母";
else if (m==(i+2>4?i+2-5:i+2)) GuaYaoLiuQin.innerHTML+="妻财";
else if (m==(i-2<0?i-2+5:i-2)) GuaYaoLiuQin.innerHTML+="官鬼";
else if (m==i) GuaYaoLiuQin.innerHTML+="兄弟";
}
}
</script>
</head>
<body margin="0">
<input type="button" value="开始" onClick="ShowGua64()">
<select name="select1">
<option value="0">天</option>
<option value="1">泽</option>
<option value="2">火</option>
<option value="3">雷</option>
<option value="4">风</option>
<option value="5">水</option>
<option value="6">山</option>
<option value="7">地</option>
</select>
<select name="select2">
<option value="0">天</option>
<option value="1">泽</option>
<option value="2">火</option>
<option value="3">雷</option>
<option value="4">风</option>
<option value="5">水</option>
<option value="6">山</option>
<option value="7">地</option>
</select><br>
<table border="0" cellspacing="0">
<tr>
<td align="center" colspan="6">
<span id="GuaName64"><b> </b></span>
<span id="GuaPalaceName"> </span>
</td>
</tr>
<tr id="GuaYaoNaJia">
<td width="80" id="GuaImage64" height="130"> </td>
<td width="10" id="GuaYaoTianGan"> </td>
<td width="10" id="GuaYaoDiZhi"> </td>
<td width="35" id="GuaYaoLiuQin"> </td>
<td width="10" id="GuaYaoWuXing"> </td>
<td width="10" id="ShiYingPosition"> </td>
</tr>
</table>
</body>
</html>