【原创】纳甲64卦象图

最新推荐文章于 2018-04-16 21:33:20 发布

jerryfleming

最新推荐文章于 2018-04-16 21:33:20 发布

阅读量5k

点赞数

分类专栏：程序设计和算法文章标签： button border function image input table

本文链接：https://blog.csdn.net/jerryfleming/article/details/364958

版权

程序设计和算法专栏收录该内容

21 篇文章 0 订阅

订阅专栏

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(
"世 　 　 应 　 　 ",
"　 　 应 　 　 世 ",
"　 应 　 　 世 　 ",
"应 　 　 世 　 　 ",
"　 　 世 　 　 应 ",
"　 世 　 应 　 　 ",
"　 　 世 　 应 　 ",
"应 　 　 世 　 　 "
);

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> 
<table border="0" cellspacing="0">
<tr>
 <td align="center" colspan="6">
  
  
 </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>