---------------------------------------------------------- var bsg,zsg,bxg,zxg,shang,zhong,xiaaa,sh,zh,xi,jt,jb; var shang=["▄▄▄","▄ ▄","▄▄▄","▄ ▄","▄▄▄","▄ ▄","▄▄▄","▄ ▄"]; var zhong=["▄▄▄","▄▄▄","▄ ▄","▄ ▄","▄▄▄","▄▄▄","▄ ▄","▄ ▄"]; var xia=["▄▄▄","▄▄▄","▄▄▄","▄▄▄","▄ ▄","▄ ▄","▄ ▄","▄ ▄"]; var sh=[1,0,1,0,1,0,1,0]; var zh=[1,1,0,0,1,1,0,0]; var xi=[1,1,1,1,0,0,0,0]; var jb=[0,1,0,0,1,1,0,1]; if ((navigator.appName == "Microsoft Internet Explorer") && (parseInt(navigator.appVersion) >= 4)) { var jtzt="宋体";size='4'; } else {var jtzt="MingLiu"; }; var jt=["↑","↓"]; var ym=["寅","亥","申","巳","寅","亥","申","巳","寅","亥","申","巳"]; var th=["酉","午","卯","子","酉","午","卯","子","酉","午","卯","子"]; var rl=["寅","卯","巳","午","巳","午","申","寅","亥","寅"]; var gr=["丑、未","子、申","亥、酉","亥、酉","丑、未","子、申","丑、未","午、寅","巳、卯","巳、卯"]; //计算神煞------------------------------------------------------------------------------------------------------- var sym=ym[rzy-1]; var sth=th[rzy-1]; var srl=rl[rgx-1]; var sgr=gr[rgx-1]; var shensha="【神 煞】"+"日禄-"+srl+" 驿马-"+sym+" 桃花-"+sth+" 贵人-"+sgr; //++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ var fs; if (document.form1.elements[6].checked) { bsg=Number(document.form1.elements[9].value); zsg=Number(document.form1.elements[10].value); bxg=Number(document.form1.elements[11].value); zxg=Number(document.form1.elements[12].value); fs="自己设定"; }; if (document.form1.elements[5].checked) { bsg=Number(Math.round(Math.random()*7)+1); zsg=Number(Math.round(Math.random()*7)+1); bxg=Number(Math.round(Math.random()*7)+1); zxg=Number(Math.round(Math.random()*7)+1); fs="电脑随机"; }; if (document.form1.elements[7].checked) {bsg=sgs;bxg=xgs;fs="时间起卦";}; if (document.form1.elements[7].checked&&dy<=3) {zsg=sgs;zxg=strdy(dy,xgs)}; if (document.form1.elements[7].checked&&dy>3) {zsg=strdy(dy-3,sgs);zxg=xgs}; if (document.form1.elements[7].checked&&syear<2000) return alert("时间起卦只支持2001年--2017年"); if (document.form1.elements[8].checked) fs="报数起卦"; var bbsg,bbxg; if (document.form1.elements[8].checked) { bbsg=Number(document.form1.elements[13].value); bbxg=Number(document.form1.elements[14].value); }; if (document.form1.elements[8].checked&&bbsg==0||bbxg==0) return alert("请随意输入不超过8位的整数!"); var bdy,bdong; bdong=bbsg+bbxg+stimexs; if (bdong<=6&&bdong>0) bdy=bbsg+bbxg+stimexs; if (bdong>6) bdy=bdong%6; if (bdong%6==0) bdy=6; if (document.form1.elements[8].checked&&bbsg<=8&&bbsg>0) bsg=bbsg; if (document.form1.elements[8].checked&&bbsg>8) bsg=bbsg%8; if (document.form1.elements[8].checked&&bbsg%8==0||bbsg==0) bsg=8; if (document.form1.elements[8].checked&&bbxg<=8&&bbxg>0) bxg=bbxg; if (document.form1.elements[8].checked&&bbxg>8) bxg=bbxg%8; if (document.form1.elements[8].checked&&bbxg%8==0||bbxg==0) bxg=8; if (document.form1.elements[8].checked&&bdy<=3) {zsg=bsg;zxg=strdy(bdy,bxg)}; if (document.form1.elements[8].checked&&bdy>3) {zsg=strdy(bdy-3,bsg);zxg=bxg}; //计算9137宫的卦象------------------------------------ //9宫========= var sh9,zh9,xi9; sh9=sh[bsg-1]; zh9=zh[bsg-1]; xi9=xi[bsg-1]; //1宫========= var sh1,zh1,xi1; sh1=sh[bxg-1]; zh1=zh[bxg-1]; xi1=xi[bxg-1]; //3宫========= var sh3,zh3,xi3; sh3=sh[zsg-1]; zh3=zh[zsg-1]; xi3=xi[zsg-1]; //7宫========= var sh7,zh7,xi7; sh7=sh[zxg-1]; zh7=zh[zxg-1]; xi7=xi[zxg-1]; //计算4286宫的卦象------------------------------------------------------------------------- //4宫========= var sh4,zh4,xi4,x4; sh4=zh9; zh4=xi9; xi4=sh1; if (sh4==1&&zh4==1&&xi4==1) x4=0; if (sh4==0&&zh4==1&&xi4==1) x4=1; if (sh4==1&&zh4==0&&xi4==1) x4=2; if (sh4==0&&zh4==0&&xi4==1) x4=3; if (sh4==1&&zh4==1&&xi4==0) x4=4; if (sh4==0&&zh4==1&&xi4==0) x4=5; if (sh4==1&&zh4==0&&xi4==0) x4=6; if (sh4==0&&zh4==0&&xi4==0) x4=7; //2宫========= var sh2,zh2,xi2,k2; sh2=xi9; zh2=sh1; xi2=zh1; if (sh2==1&&zh2==1&&xi2==1) k2=0; if (sh2==0&&zh2==1&&xi2==1) k2=1; if (sh2==1&&zh2==0&&xi2==1) k2=2; if (sh2==0&&zh2==0&&xi2==1) k2=3; if (sh2==1&&zh2==1&&xi2==0) k2=4; if (sh2==0&&zh2==1&&xi2==0) k2=5; if (sh2==1&&zh2==0&&xi2==0) k2=6; if (sh2==0&&zh2==0&&xi2==0) k2=7; //8宫========= var sh8,zh8,xi8,g8; sh8=zh3; zh8=xi3; xi8=sh7; if (sh8==1&&zh8==1&&xi8==1) g8=0; if (sh8==0&&zh8==1&&xi8==1) g8=1; if (sh8==1&&zh8==0&&xi8==1) g8=2; if (sh8==0&&zh8==0&&xi8==1) g8=3; if (sh8==1&&zh8==1&&xi8==0) g8=4; if (sh8==0&&zh8==1&&xi8==0) g8=5; if (sh8==1&&zh8==0&&xi8==0) g8=6; if (sh8==0&&zh8==0&&xi8==0) g8=7; //6宫========= var sh6,zh6,xi6,q6; sh6=xi3; zh6=sh7; xi6=zh7; if (sh6==1&&zh6==1&&xi6==1) q6=0; if (sh6==0&&zh6==1&&xi6==1) q6=1; if (sh6==1&&zh6==0&&xi6==1) q6=2; if (sh6==0&&zh6==0&&xi6==1) q6=3; if (sh6==1&&zh6==1&&xi6==0) q6=4; if (sh6==0&&zh6==1&&xi6==0) q6=5; if (sh6==1&&zh6==0&&xi6==0) q6=6; if (sh6==0&&zh6==0&&xi6==0) q6=7; //5宫========== //获得中宫上卦-------------------------------------- var sh5,zh5,xi5,z5,zjt; if (sh1==0&&sh9==0&&sh3==0&&sh7==0) sh5=0; if (sh1==0&&sh9==0&&sh3==0&&sh7==1) sh5=1; if (sh1==0&&sh9==0&&sh3==1&&sh7==0) sh5=1; if (sh1==0&&sh9==0&&sh3==1&&sh7==1) sh5=0; if (sh1==0&&sh9==1&&sh3==0&&sh7==0) sh5=1; if (sh1==0&&sh9==1&&sh3==0&&sh7==1) sh5=0; if (sh1==0&&sh9==1&&sh3==1&&sh7==0) sh5=0; if (sh1==0&&sh9==1&&sh3==1&&sh7==1) sh5=1; if (sh1==1&&sh9==0&&sh3==0&&sh7==0) sh5=1; if (sh1==1&&sh9==0&&sh3==0&&sh7==1) sh5=0; if (sh1==1&&sh9==0&&sh3==1&&sh7==0) sh5=0; if (sh1==1&&sh9==0&&sh3==1&&sh7==1) sh5=1; if (sh1==1&&sh9==1&&sh3==0&&sh7==0) sh5=0; if (sh1==1&&sh9==1&&sh3==0&&sh7==1) sh5=1; if (sh1==1&&sh9==1&&sh3==1&&sh7==0) sh5=1; if (sh1==1&&sh9==1&&sh3==1&&sh7==1) sh5=0; //========================== if (zh1==0&&zh9==0&&zh3==0&&zh7==0) zh5=0; if (zh1==0&&zh9==0&&zh3==0&&zh7==1) zh5=1; if (zh1==0&&zh9==0&&zh3==1&&zh7==0) zh5=1; if (zh1==0&&zh9==0&&zh3==1&&zh7==1) zh5=0; if (zh1==0&&zh9==1&&zh3==0&&zh7==0) zh5=1; if (zh1==0&&zh9==1&&zh3==0&&zh7==1) zh5=0; if (zh1==0&&zh9==1&&zh3==1&&zh7==0) zh5=0; if (zh1==0&&zh9==1&&zh3==1&&zh7==1) zh5=1; if (zh1==1&&zh9==0&&zh3==0&&zh7==0) zh5=1; if (zh1==1&&zh9==0&&zh3==0&&zh7==1) zh5=0; if (zh1==1&&zh9==0&&zh3==1&&zh7==0) zh5=0; if (zh1==1&&zh9==0&&zh3==1&&zh7==1) zh5=1; if (zh1==1&&zh9==1&&zh3==0&&zh7==0) zh5=0; if (zh1==1&&zh9==1&&zh3==0&&zh7==1) zh5=1; if (zh1==1&&zh9==1&&zh3==1&&zh7==0) zh5=1; if (zh1==1&&zh9==1&&zh3==1&&zh7==1) zh5=0; //========================== if (xi1==0&&xi9==0&&xi3==0&&xi7==0) xi5=0; if (xi1==0&&xi9==0&&xi3==0&&xi7==1) xi5=1; if (xi1==0&&xi9==0&&xi3==1&&xi7==0) xi5=1; if (xi1==0&&xi9==0&&xi3==1&&xi7==1) xi5=0; if (xi1==0&&xi9==1&&xi3==0&&xi7==0) xi5=1; if (xi1==0&&xi9==1&&xi3==0&&xi7==1) xi5=0; if (xi1==0&&xi9==1&&xi3==1&&xi7==0) xi5=0; if (xi1==0&&xi9==1&&xi3==1&&xi7==1) xi5=1; if (xi1==1&&xi9==0&&xi3==0&&xi7==0) xi5=1; if (xi1==1&&xi9==0&&xi3==0&&xi7==1) xi5=0; if (xi1==1&&xi9==0&&xi3==1&&xi7==0) xi5=0; if (xi1==1&&xi9==0&&xi3==1&&xi7==1) xi5=1; if (xi1==1&&xi9==1&&xi3==0&&xi7==0) xi5=0; if (xi1==1&&xi9==1&&xi3==0&&xi7==1) xi5=1; if (xi1==1&&xi9==1&&xi3==1&&xi7==0) xi5=1; if (xi1==1&&xi9==1&&xi3==1&&xi7==1) xi5=0; //--------------------------------- if (sh5==1&&zh5==1&&xi5==1) {z5=0;zjt=0}; if (sh5==0&&zh5==1&&xi5==1) {z5=1;zjt=1}; if (sh5==1&&zh5==0&&xi5==1) {z5=2;zjt=0}; if (sh5==0&&zh5==0&&xi5==1) {z5=3;zjt=0}; if (sh5==1&&zh5==1&&xi5==0) {z5=4;zjt=1}; if (sh5==0&&zh5==1&&xi5==0) {z5=5;zjt=1}; if (sh5==1&&zh5==0&&xi5==0) {z5=6;zjt=0}; if (sh5==0&&zh5==0&&xi5==0) {z5=7;zjt=1}; //获得中宫下卦-------------------------------------- var xsh5,xzh5,xxi5,xz5,xzjt; if (sh2==0&&sh4==0&&sh6==0&&sh8==0) xsh5=0; if (sh2==0&&sh4==0&&sh6==0&&sh8==1) xsh5=1; if (sh2==0&&sh4==0&&sh6==1&&sh8==0) xsh5=1; if (sh2==0&&sh4==0&&sh6==1&&sh8==1) xsh5=0; if (sh2==0&&sh4==1&&sh6==0&&sh8==0) xsh5=1; if (sh2==0&&sh4==1&&sh6==0&&sh8==1) xsh5=0; if (sh2==0&&sh4==1&&sh6==1&&sh8==0) xsh5=0; if (sh2==0&&sh4==1&&sh6==1&&sh8==1) xsh5=1; if (sh2==1&&sh4==0&&sh6==0&&sh8==0) xsh5=1; if (sh2==1&&sh4==0&&sh6==0&&sh8==1) xsh5=0; if (sh2==1&&sh4==0&&sh6==1&&sh8==0) xsh5=0; if (sh2==1&&sh4==0&&sh6==1&&sh8==1) xsh5=1; if (sh2==1&&sh4==1&&sh6==0&&sh8==0) xsh5=0; if (sh2==1&&sh4==1&&sh6==0&&sh8==1) xsh5=1; if (sh2==1&&sh4==1&&sh6==1&&sh8==0) xsh5=1; if (sh2==1&&sh4==1&&sh6==1&&sh8==1) xsh5=0; //========================== if (zh2==0&&zh4==0&&zh6==0&&zh8==0) xzh5=0; if (zh2==0&&zh4==0&&zh6==0&&zh8==1) xzh5=1; if (zh2==0&&zh4==0&&zh6==1&&zh8==0) xzh5=1; if (zh2==0&&zh4==0&&zh6==1&&zh8==1) xzh5=0; if (zh2==0&&zh4==1&&zh6==0&&zh8==0) xzh5=1; if (zh2==0&&zh4==1&&zh6==0&&zh8==1) xzh5=0; if (zh2==0&&zh4==1&&zh6==1&&zh8==0) xzh5=0; if (zh2==0&&zh4==1&&zh6==1&&zh8==1) xzh5=1; if (zh2==1&&zh4==0&&zh6==0&&zh8==0) xzh5=1; if (zh2==1&&zh4==0&&zh6==0&&zh8==1) xzh5=0; if (zh2==1&&zh4==0&&zh6==1&&zh8==0) xzh5=0; if (zh2==1&&zh4==0&&zh6==1&&zh8==1) xzh5=1; if (zh2==1&&zh4==1&&zh6==0&&zh8==0) xzh5=0; if (zh2==1&&zh4==1&&zh6==0&&zh8==1) xzh5=1; if (zh2==1&&zh4==1&&zh6==1&&zh8==0) xzh5=1; if (zh2==1&&zh4==1&&zh6==1&&zh8==1) xzh5=0; //========================== if (xi2==0&&xi4==0&&xi6==0&&xi8==0) xxi5=0; if (xi2==0&&xi4==0&&xi6==0&&xi8==1) xxi5=1; if (xi2==0&&xi4==0&&xi6==1&&xi8==0) xxi5=1; if (xi2==0&&xi4==0&&xi6==1&&xi8==1) xxi5=0; if (xi2==0&&xi4==1&&xi6==0&&xi8==0) xxi5=1; if (xi2==0&&xi4==1&&xi6==0&&xi8==1) xxi5=0; if (xi2==0&&xi4==1&&xi6==1&&xi8==0) xxi5=0; if (xi2==0&&xi4==1&&xi6==1&&xi8==1) xxi5=1; if (xi2==1&&xi4==0&&xi6==0&&xi8==0) xxi5=1; if (xi2==1&&xi4==0&&xi6==0&&xi8==1) xxi5=0; if (xi2==1&&xi4==0&&xi6==1&&xi8==0) xxi5=0; if (xi2==1&&xi4==0&&xi6==1&&xi8==1) xxi5=1; if (xi2==1&&xi4==1&&xi6==0&&xi8==0) xxi5=0; if (xi2==1&&xi4==1&&xi6==0&&xi8==1) xxi5=1; if (xi2==1&&xi4==1&&xi6==1&&xi8==0) xxi5=1; if (xi2==1&&xi4==1&&xi6==1&&xi8==1) xxi5=0; //--------------------------------- if (xsh5==1&&xzh5==1&&xxi5==1) {xz5=0;xzjt=0}; if (xsh5==0&&xzh5==1&&xxi5==1) {xz5=1;xzjt=1}; if (xsh5==1&&xzh5==0&&xxi5==1) {xz5=2;xzjt=0}; if (xsh5==0&&xzh5==0&&xxi5==1) {xz5=3;xzjt=0}; if (xsh5==1&&xzh5==1&&xxi5==0) {xz5=4;xzjt=1}; if (xsh5==0&&xzh5==1&&xxi5==0) {xz5=5;xzjt=1}; if (xsh5==1&&xzh5==0&&xxi5==0) {xz5=6;xzjt=0}; if (xsh5==0&&xzh5==0&&xxi5==0) {xz5=7;xzjt=1}; //获取卦名================================= var bgm,zgm,gm5; bgm=gm(bsg,bxg); zgm=gm(zsg,zxg); gm5=gm(z5+1,xz5+1); //显示卦辞================================= var gc1,gc2,gc3,gc4,gc5,gc6,gc7,gc8,gc9,bgc,zgc; bgc=gmc(bsg,bxg); zgc=gmc(zsg,zxg); gc1=gmc(bxg,6); gc2=gmc(k2+1,8); gc3=gmc(zsg,4); gc4=gmc(x4+1,5); gc5=gmc(z5+1,xz5+1); gc6=gmc(q6+1,1); gc7=gmc(zxg,2); gc8=gmc(g8+1,7); gc9=gmc(bsg,3); //显示结果---------------------------------------------------------------------------------------------------------- //var undefined; if (bgm==undefined) return alert("输入有误,请随意输入不超过8位的整数!"); document.write("