- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2005-11-15
|
|
楼主 |
发表于 2006-8-10 21:31
|
显示全部楼层
又找到一个更新的原码,不知哪位朋友要的大家看看吧,也许会有用的
EXPLAIN(c<>0,'*******************************************');
KBZ:=INTPART(OPEN);{取得开盘整数部分}
KBX:=INTPART(FRACPART(OPEN)*100+0.5);{取得开盘小数部分}
KBZA:=NUMBERSUM(KBZ,0);{开盘价整数部分各数字之和}
KBXA:=NUMBERSUM(KBX,0);{开盘价小数部分各数字之和}
KBZB:=IF(KBZA>16,KBZA-16,KBZA);
KBXB:=IF(KBXA>16,KBXA-16,KBXA);
KBZC:=IF(KBZB>8,KBZB-8,KBZB);{主卦上卦数}
KBXC:=IF(KBXB>8,KBXB-8,KBXB);{主卦下卦数}
KBXC:=IF(KBXC=0,8,KBXC);{主卦下卦数}
SBZ:=INTPART(CLOSE);{取得收盘整数部分}
SBX:=INTPART(FRACPART(CLOSE)*100+0.5);{取得收盘小数部分}
SBZA:=NUMBERSUM(SBZ,0);{收盘价整数部分各数字之和}
SBXA:=NUMBERSUM(SBX,0);{收盘价小数部分各数字之和}
SBZB:=IF(SBZA>16,SBZA-16,SBZA);
SBXB:=IF(SBXA>16,SBXA-16,SBXA);
SBZC:=IF(SBZB>8,SBZB-8,SBZB);{变卦上卦数}
SBXC:=IF(SBXB>8,SBXB-8,SBXB);{变卦下卦数}
SBXC:=IF(SBXC=0,8,SBXC);{变卦下卦数}
GA1:='乾';
GA2:='兑';
GA3:='离';
GA4:='震';
GA5:='巽';
GA6:='坎';
GA7:='艮';
GA8:='坤';
t1:='';
tt1:='';
t2:='';
tt2:='';
t3:='';
tt3:='';
t4:='';
tt4:='';
t5:='';
tt5:='';
t6:='';
tt6:='';
t7:='';
tt7:='';
t8:='';
tt8:='';
t3:=IF(KBZC=1 ,GA1,t3);{求主卦上卦}
t3:=IF(KBZC=2 ,GA2,t3);
t3:=IF(KBZC=3 ,GA3,t3);
t3:=IF(KBZC=4 ,GA4,t3);
t3:=IF(KBZC=5 ,GA5,t3);
t3:=IF(KBZC=6 ,GA6,t3);
t3:=IF(KBZC=7 ,GA7,t3);
t3:=IF(KBZC=8 ,GA8,t3);
tt3:=if(t3='乾','111',tt3);{求主卦上卦二进制代码}
tt3:=if(t3='兑','110',tt3);
tt3:=if(t3='离','101',tt3);
tt3:=if(t3='震','100',tt3);
tt3:=if(t3='巽','011',tt3);
tt3:=if(t3='坎','010',tt3);
tt3:=if(t3='艮','001',tt3);
tt3:=if(t3='坤','000',tt3);
t6:=IF(KBXC=1 ,GA1,t6);{求主卦下卦}
t6:=IF(KBXC=2 ,GA2,t6);
t6:=IF(KBXC=3 ,GA3,t6);
t6:=IF(KBXC=4 ,GA4,t6);
t6:=IF(KBXC=5 ,GA5,t6);
t6:=IF(KBXC=6 ,GA6,t6);
t6:=IF(KBXC=7 ,GA7,t6);
t6:=IF(KBXC=8 ,GA8,t6);
tt6:=if(t6='乾','111',tt6);{求主卦下卦二进制代码}
tt6:=if(t6='兑','110',tt6);
tt6:=if(t6='离','101',tt6);
tt6:=if(t6='震','100',tt6);
tt6:=if(t6='巽','011',tt6);
tt6:=if(t6='坎','010',tt6);
tt6:=if(t6='艮','001',tt6);
tt6:=if(t6='坤','000',tt6);
t4:=IF(SBZC=1 ,GA1,t4);{求变卦上卦}
t4:=IF(SBZC=2 ,GA2,t4);
t4:=IF(SBZC=3 ,GA3,t4);
t4:=IF(SBZC=4 ,GA4,t4);
t4:=IF(SBZC=5 ,GA5,t4);
t4:=IF(SBZC=6 ,GA6,t4);
t4:=IF(SBZC=7 ,GA7,t4);
t4:=IF(SBZC=8 ,GA8,t4);
tt4:=if(t4='乾','111',tt4);
tt4:=if(t4='兑','110',tt4);
tt4:=if(t4='离','101',tt4);
tt4:=if(t4='震','100',tt4);
tt4:=if(t4='巽','011',tt4);
tt4:=if(t4='坎','010',tt4);
tt4:=if(t4='艮','001',tt4);
tt4:=if(t4='坤','000',tt4);
t2:=IF(SBXC=1 ,GA1,t2);{求变卦下卦}
t2:=IF(SBXC=2 ,GA2,t2);
t2:=IF(SBXC=3 ,GA3,t2);
t2:=IF(SBXC=4 ,GA4,t2);
t2:=IF(SBXC=5 ,GA5,t2);
t2:=IF(SBXC=6 ,GA6,t2);
t2:=IF(SBXC=7 ,GA7,t2);
t2:=IF(SBXC=8 ,GA8,t2);
tt2:=if(t2='乾','111',tt2);
tt2:=if(t2='兑','110',tt2);
tt2:=if(t2='离','101',tt2);
tt2:=if(t2='震','100',tt2);
tt2:=if(t2='巽','011',tt2);
tt2:=if(t2='坎','010',tt2);
tt2:=if(t2='艮','001',tt2);
tt2:=if(t2='坤','000',tt2);
t5:=STRRIGHT(tt6,1)+STRLEFT(tt3,2);{求主卦的互上卦}
tt5:=if(t5='111','乾',tt5);
tt5:=if(t5='110','兑',tt5);
tt5:=if(t5='101','离',tt5);
tt5:=if(t5='100','震',tt5);
tt5:=if(t5='011','巽',tt5);
tt5:=if(t5='010','坎',tt5);
tt5:=if(t5='001','艮',tt5);
tt5:=if(t5='000','坤',tt5);
t8:=STRRIGHT(tt6,2)+STRLEFT(tt3,1);{求主卦的互下卦}
tt8:=if(t8='111','乾',tt8);
tt8:=if(t8='110','兑',tt8);
tt8:=if(t8='101','离',tt8);
tt8:=if(t8='100','震',tt8);
tt8:=if(t8='011','巽',tt8);
tt8:=if(t8='010','坎',tt8);
tt8:=if(t8='001','艮',tt8);
tt8:=if(t8='000','坤',tt8);
t7:=STRRIGHT(tt2,1)+STRLEFT(tt4,2);{求变卦的互上卦}
tt7:=if(t7='111','乾',tt7);
tt7:=if(t7='110','兑',tt7);
tt7:=if(t7='101','离',tt7);
tt7:=if(t7='100','震',tt7);
tt7:=if(t7='011','巽',tt7);
tt7:=if(t7='010','坎',tt7);
tt7:=if(t7='001','艮',tt7);
tt7:=if(t7='000','坤',tt7);
t1:=STRRIGHT(tt2,2)+STRLEFT(tt4,1);{求变卦的互下卦}
tt1:=if(t1='111','乾',tt1);
tt1:=if(t1='110','兑',tt1);
tt1:=if(t1='101','离',tt1);
tt1:=if(t1='100','震',tt1);
tt1:=if(t1='011','巽',tt1);
tt1:=if(t1='010','坎',tt1);
tt1:=if(t1='001','艮',tt1);
tt1:=if(t1='000','坤',tt1);
tanb:='天盘:'+tt1+' '+t2+' '+t3+' '+t4+' '+tt5+' '+t6+' '+tt7+' '+tt8;
EXPLAIN(c,tanb);
d1:='乾';
d2:='兑';
d3:='离';
d4:='震';
d5:='巽';
d6:='坎';
d7:='艮';
d8:='坤';
d:='地盘:'+d1+' '+d2+' '+d3+' '+d4+' '+d5+' '+d6+' '+d7+' '+d8;
EXPLAIN(c,d);
EXPLAIN(c<>0,'-------------------------------------------');
kxgx:='';
kxgx:=if(h-c=0 and l-o=0 and (c>o or (c=o and ref(c,1)<=c)) ,'乾',kxgx);
kxgx:=if(h-c<>0 and l-o=0 and (c>o or (c=o and ref(c,1)<=c)),'兑',kxgx);
kxgx:=if(h-c<>0 and l-o<>0 and (c>o or (c=o and ref(c,1)<=c)),'离',kxgx);
kxgx:=if(h-o=0 and l-c<>0 and (c<o or (c=o and ref(c,1)>=c)),'震',kxgx);
kxgx:=if(h-c=0 and l-o<>0 and (c>o or (c=o and ref(c,1)<=c)),'巽',kxgx);
kxgx:=if(h-o<>0 and l-c<>0 and (c<o or (c=o and ref(c,1)>=c)),'坎',kxgx);
kxgx:=if(h-o<>0 and l-c=0 and (c<o or (c=o and ref(c,1)>=c)),'艮',kxgx);
kxgx:=if(h-o=0 and l-c=0 and (c<o or (c=o and ref(c,1)>=c)),'坤',kxgx);
gong:='';
gong:=if(kxgx='乾',d1,gong);
gong:=if(kxgx='兑',d2,gong);
gong:=if(kxgx='离',d3,gong);
gong:=if(kxgx='震',d4,gong);
gong:=if(kxgx='巽',d5,gong);
gong:=if(kxgx='坎',d6,gong);
gong:=if(kxgx='艮',d7,gong);
gong:=if(kxgx='坤',d8,gong);
gonga:='用宫:'+gong+'宫';
EXPLAIN(c,gonga);
EXPLAIN(c<>0,'-------------------------------------------');
tg1:=gong;
tg1:=if(gong=d1 and tt1<>gong,tt1,tg1);
tg1:=if(d1=tt1 and tg1='',tt1,tg1);
tg1:=if(gong=d2 and t2<>gong,t2,tg1);
tg1:=if(d2=t2 and tg1='',t2,tg1);
tg1:=if(gong=d3 and t3<>gong,t3,tg1);
tg1:=if(d3=t3 and tg1='',t3,tg1);
tg1:=if(gong=d4 and t4<>gong,t4,tg1);
tg1:=if(d4=t4 and tg1='',t4,tg1);
tg1:=if(gong=d5 and tt5<>gong,tt5,tg1);
tg1:=if(d5=tt5 and tg1='',tt5,tg1);
tg1:=if(gong=d6 and t6<>gong,t6,tg1);
tg1:=if(d6=t6 and tg1='',t6,tg1);
tg1:=if(gong=d7 and tt7<>gong,tt7,tg1);
tg1:=if(d7=tt7 and tg1='',tt7,tg1);
tg1:=if(gong=d8 and tt8<>gong,tt8,tg1);
tg1:=if(d8=tt8 and tg1='',tt8,tg1);
dp1:=gong;
tg:=if(tg1=dp1,'旁推法推宫结果:','正推法推宫结果:');
ttg1:='';
ttg1:=if(tg1=dp1 and tg1='震','巽',ttg1);
ttg1:=if(tg1=dp1 and tg1='艮','兑',ttg1);
ttg1:=if(tg1=dp1 and tg1='离','坎',ttg1);
ttg1:=if(tg1=dp1 and tg1='乾','坤',ttg1);
ttg1:=if(tg1=dp1 and tg1='坤' and ttg1='','乾',ttg1);
ttg1:=if(tg1=dp1 and tg1='坎' and ttg1='','离',ttg1);
ttg1:=if(tg1=dp1 and tg1='兑' and ttg1='','艮',ttg1);
ttg1:=if(tg1=dp1 and tg1='巽' and ttg1='','震',ttg1);
tg1:=if(tg1=dp1,ttg1,tg1);
EXPLAIN(c,tg);
tg2:=tg1;
tg2:=if(d1=tg1 and tt1<>tg1,tt1,tg2);
tg2:=if(d2=tg1 and t2<>tg1,t2,tg2);
tg2:=if(d3=tg1 and t3<>tg1,t3,tg2);
tg2:=if(d4=tg1 and t4<>tg1,t4,tg2);
tg2:=if(d5=tg1 and t5<>tg1,tt5,tg2);
tg2:=if(d6=tg1 and t6<>tg1,t6,tg2);
tg2:=if(d7=tg1 and t7<>tg1,tt7,tg2);
tg2:=if(d8=tg1 and t8<>tg1,tt8,tg2);
dp2:=if(tg2<>tg1,tg1,dp1);
dp2:=if(dp2=tg2,dp1,dp2);
tg2:=if(tg2=dp1 and dp2=tg1,tg1,tg2);
dp2:=if(tg2=tg1 and dp2=tg1,dp1,dp2);
tg3:=tg2;
tg3:=if(d1=tg2 and tt1<>tg1 and tt1<>tg2,tt1,tg3);
tg3:=if(d2=tg2 and t2<>tg1 and t2<>tg2,t2,tg3);
tg3:=if(d3=tg2 and t3<>tg1 and t3<>tg2,t3,tg3);
tg3:=if(d4=tg2 and t4<>tg1 and t4<>tg2,t4,tg3);
tg3:=if(d5=tg2 and tt5<>tg1 and tt5<>tg2,tt5,tg3);
tg3:=if(d6=tg2 and t6<>tg1 and t6<>tg2,t6,tg3);
tg3:=if(d7=tg2 and tt7<>tg1 and tt7<>tg2,tt7,tg3);
tg3:=if(d8=tg2 and tt8<>tg1 and tt8<>tg2,tt8,tg3);
dp3:=if(tg3<>tg2 and tg3<>tg1,tg2,dp2);
dp3:=if(dp3=tg3,dp2,dp3);
tg3:=if(tg3=dp2 and dp3=tg2,tg2,tg3);
dp3:=if(tg3=tg2 and dp3=tg2,dp2,dp3);
tg3:=if(tg='旁推法推宫结果:',tg2,tg3);
dp3:=if(tg='旁推法推宫结果:',dp2,dp3);
tg4:=tg3;
tg4:=if(d1=tg3 and tt1<>tg1 and tt1<>tg2 and tt1<>tg3,tt1,tg4);
tg4:=if(d2=tg3 and t2<>tg1 and t2<>tg2 and t2<>tg3,t2,tg4);
tg4:=if(d3=tg3 and t3<>tg1 and t3<>tg2 and t3<>tg3,t3,tg4);
tg4:=if(d4=tg3 and t4<>tg1 and t4<>tg2 and t4<>tg3,t4,tg4);
tg4:=if(d5=tg3 and tt5<>tg1 and tt5<>tg2 and tt5<>tg3,tt5,tg4);
tg4:=if(d6=tg3 and t6<>tg1 and t6<>tg2 and t6<>tg3,t6,tg4);
tg4:=if(d7=tg3 and tt7<>tg1 and tt7<>tg2 and tt7<>tg3,tt7,tg4);
tg4:=if(d8=tg3 and tt8<>tg1 and tt8<>tg2 and tt8<>tg3,tt8,tg4);
dp4:=if(tg4<>tg3 and tg4<>tg2 and tg4<>tg1,tg3,dp3);
dp4:=if(dp4=tg4,dp3,dp4);
tg4:=if(tg4=dp3 and dp4=tg3,tg3,tg4);
dp4:=if(tg4=tg3 and dp4=tg3,dp3,dp4);
tg4:=if(tg='旁推法推宫结果:',tg2,tg4);
dp4:=if(tg='旁推法推宫结果:',dp2,dp4);
tg5:=tg4;
tg5:=if(d1=tg4 and tt1<>tg1 and tt1<>tg2 and tt1<>tg3 and tt1<>tg4,tt1,tg5);
tg5:=if(d2=tg4 and t2<>tg1 and t2<>tg2 and t2<>tg3 and t2<>tg4,t2,tg5);
tg5:=if(d3=tg4 and t3<>tg1 and t3<>tg2 and t3<>tg3 and t3<>tg4,t3,tg5);
tg5:=if(d4=tg4 and t4<>tg1 and t4<>tg2 and t4<>tg3 and t4<>tg4,t4,tg5);
tg5:=if(d5=tg4 and tt5<>tg1 and tt5<>tg2 and tt5<>tg3 and tt5<>tg4,tt5,tg5);
tg5:=if(d6=tg4 and t6<>tg1 and t6<>tg2 and t6<>tg3 and t6<>tg4,t6,tg5);
tg5:=if(d7=tg4 and tt7<>tg1 and tt7<>tg2 and tt7<>tg3 and tt7<>tg4,tt7,tg5);
tg5:=if(d8=tg4 and tt8<>tg1 and tt8<>tg2 and tt8<>tg3 and tt8<>tg4,tt8,tg5);
dp5:=if(tg5<>tg4 and tg5<>tg3 and tg5<>tg2 and tg5<>tg1,tg4,dp4);
dp5:=if(dp5=tg5,dp4,dp5);
tg5:=if(tg5=dp4 and dp5=tg4,tg4,tg5);
dp5:=if(tg5=tg4 and dp5=tg4,dp4,dp5);
tg5:=if(tg='旁推法推宫结果:',tg2,tg5);
dp5:=if(tg='旁推法推宫结果:',dp2,dp5);
tg6:=tg5;
tg6:=if(d1=tg5 and tt1<>tg1 and tt1<>tg2 and tt1<>tg3 and tt1<>tg4 and tt1<>tg5,tt1,tg6);
tg6:=if(d2=tg5 and t2<>tg1 and t2<>tg2 and t2<>tg3 and t2<>tg4 and t2<>tg5,t2,tg6);
tg6:=if(d3=tg5 and t3<>tg1 and t3<>tg2 and t3<>tg3 and t3<>tg4 and t3<>tg5,t3,tg6);
tg6:=if(d4=tg5 and t4<>tg1 and t4<>tg2 and t4<>tg3 and t4<>tg4 and t4<>tg5,t4,tg6);
tg6:=if(d5=tg5 and tt5<>tg1 and tt5<>tg2 and tt5<>tg3 and tt5<>tg4 and tt5<>tg5,tt5,tg6);
tg6:=if(d6=tg5 and t6<>tg1 and t6<>tg2 and t6<>tg3 and t6<>tg4 and t6<>tg5,t6,tg6);
tg6:=if(d7=tg5 and tt7<>tg1 and tt7<>tg2 and tt7<>tg3 and tt7<>tg4 and tt7<>tg5,tt7,tg6);
tg6:=if(d8=tg5 and tt8<>tg1 and tt8<>tg2 and tt8<>tg3 and tt8<>tg4 and tt8<>tg5,tt8,tg6);
dp6:=if(tg6<>tg5 and tg6<>tg4 and tg6<>tg3 and tg6<>tg2 and tg6<>tg1,tg5,dp5);
dp6:=if(dp6=tg6,dp5,dp6);
tg6:=if(tg6=dp5 and dp6=tg5,tg5,tg6);
dp6:=if(tg6=tg5 and dp6=tg5,dp5,dp6);
tg6:=if(tg='旁推法推宫结果:',tg2,tg6);
dp6:=if(tg='旁推法推宫结果:',dp2,dp6);
tg7:=tg6;
tg7:=if(d1=tg6 and tt1<>tg1 and tt1<>tg2 and tt1<>tg3 and tt1<>tg4 and tt1<>tg5 and tt1<>tg6,tt1,tg7);
tg7:=if(d2=tg6 and t2<>tg1 and t2<>tg2 and t2<>tg3 and t2<>tg4 and t2<>tg5 and t2<>tg6,t2,tg7);
tg7:=if(d3=tg6 and t3<>tg1 and t3<>tg2 and t3<>tg3 and t3<>tg4 and t3<>tg5 and t3<>tg6,t3,tg7);
tg7:=if(d4=tg6 and t4<>tg1 and t4<>tg2 and t4<>tg3 and t4<>tg4 and t4<>tg5 and t4<>tg6,t4,tg7);
tg7:=if(d5=tg6 and tt5<>tg1 and tt5<>tg2 and tt5<>tg3 and tt5<>tg4 and tt5<>tg5 and tt5<>tg6,tt5,tg7);
tg7:=if(d6=tg6 and t6<>tg1 and t6<>tg2 and t6<>tg3 and t6<>tg4 and t6<>tg5 and t6<>tg6,t6,tg7);
tg7:=if(d7=tg6 and tt7<>tg1 and tt7<>tg2 and tt7<>tg3 and tt7<>tg4 and tt7<>tg5 and tt7<>tg6,tt7,tg7);
tg7:=if(d8=tg6 and tt8<>tg1 and tt8<>tg2 and tt8<>tg3 and tt8<>tg4 and tt8<>tg5 and tt8<>tg6,tt8,tg7);
dp7:=if(tg7<>tg6 and tg7<>tg5 and tg7<>tg4 and tg7<>tg3 and tg7<>tg2 and tg7<>tg1,tg6,dp6);
dp7:=if(dp7=tg7,dp6,dp7);
tg7:=if(tg7=dp6 and dp7=tg6,tg6,tg7);
dp7:=if(tg7=tg6 and dp7=tg6,dp6,dp7);
tg7:=if(tg='旁推法推宫结果:',tg2,tg7);
dp7:=if(tg='旁推法推宫结果:',dp2,dp7);
tg8:=tg7;
tg8:=if(d1=tg7 and tt1<>tg1 and tt1<>tg2 and tt1<>tg3 and tt1<>tg4 and tt1<>tg5 and tt1<>tg6 and tt1<>tg7,tt1,tg8);
tg8:=if(d2=tg7 and t2<>tg1 and t2<>tg2 and t2<>tg3 and t2<>tg4 and t2<>tg5 and t2<>tg6 and t2<>tg7,t2,tg8);
tg8:=if(d3=tg7 and t3<>tg1 and t3<>tg2 and t3<>tg3 and t3<>tg4 and t3<>tg5 and t3<>tg6 and t3<>tg7,t3,tg8);
tg8:=if(d4=tg7 and t4<>tg1 and t4<>tg2 and t4<>tg3 and t4<>tg4 and t4<>tg5 and t4<>tg6 and t4<>tg7,t4,tg8);
tg8:=if(d5=tg7 and tt5<>tg1 and tt5<>tg2 and tt5<>tg3 and tt5<>tg4 and tt5<>tg5 and tt5<>tg6 and tt5<>tg7,tt5,tg8);
tg8:=if(d6=tg7 and t6<>tg1 and t6<>tg2 and t6<>tg3 and t6<>tg4 and t6<>tg5 and t6<>tg6 and t6<>tg7,t6,tg8);
tg8:=if(d7=tg7 and tt7<>tg1 and tt7<>tg2 and tt7<>tg3 and tt7<>tg4 and tt7<>tg5 and tt7<>tg6 and tt7<>tg7,tt7,tg8);
tg8:=if(d8=tg7 and tt8<>tg1 and tt8<>tg2 and tt8<>tg3 and tt8<>tg4 and tt8<>tg5 and tt8<>tg6 and tt8<>tg7,tt8,tg8);
dp8:=if(tg8<>tg7 and tg8<>tg6 and tg8<>tg5 and tg8<>tg4 and tg8<>tg3 and tg8<>tg2 and tg8<>tg1,tg7,dp7);
dp8:=if(dp8=tg8,dp7,dp8);
tg8:=if(tg8=dp7 and dp8=tg7,tg7,tg8);
dp8:=if(tg8=tg7 and dp8=tg7,dp7,dp8);
tg8:=if(tg='旁推法推宫结果:',tg2,tg8);
dp8:=if(tg='旁推法推宫结果:',dp2,dp8);
tg8:=if(tg8='乾','乾↑',tg8);
tg8:=if(tg8='艮','艮↑',tg8);
tg8:=if(tg8='离','离↑',tg8);
tg8:=if(tg8='震','震↑',tg8);
tg8:=if(tg8='坤','坤↓',tg8);
tg8:=if(tg8='巽','巽↓',tg8);
tg8:=if(tg8='坎','坎↓',tg8);
tg8:=if(tg8='兑','兑↓',tg8);
dp8:=if(dp8='乾','乾↑',dp8);
dp8:=if(dp8='艮','艮↑',dp8);
dp8:=if(dp8='离','离↑',dp8);
dp8:=if(dp8='震','震↑',dp8);
dp8:=if(dp8='坤','坤↓',dp8);
dp8:=if(dp8='巽','巽↓',dp8);
dp8:=if(dp8='坎','坎↓',dp8);
dp8:=if(dp8='兑','兑↓',dp8);
tgg8:='天盘:'+tg8;
dpp8:='地盘:'+dp8;
EXPLAIN(c,tgg8);
EXPLAIN(c,dpp8);
EXPLAIN(c<>0,'-------------------------------------------');
zd:='';
zd:=if(tg8='艮↑' and dp8='乾↑','根据涨跌两分法:天盘艮卦为阳为上涨卦;而根据幅度三分法:天盘艮卦涨跌幅度为大幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘乾卦为阳为大幅、天盘艮卦也为阳为大幅,且力量向上方集中,为外引象。综合各方力量判断下一个交易周期为大幅上涨!',zd);
zd:=if(tg8='离↑' and dp8='乾↑','根据涨跌两分法:天盘离卦为阴为上涨卦;而根据幅度三分法:天盘离卦涨跌幅度为中幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘乾卦为阳为大幅、天盘离卦为阴为中幅,且力量向上方集中,为外引象。综合各方力量判断下一个交易周期为中到大幅上涨!',zd);
zd:=if(tg8='震↑' and dp8='乾↑','根据涨跌两分法:天盘震卦为阳为上涨卦;而根据幅度三分法:天盘震卦涨跌幅度为小幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘乾卦为阳为大幅、天盘震卦为阳为小幅,且力量向上方集中,为外引象。综合各方力量判断下一个交易周期为中幅上涨!',zd);
zd:=if(tg8='乾↑' and dp8='艮↑','根据涨跌两分法:天盘乾卦为阳为上涨卦;而根据幅度三分法:天盘乾卦涨跌幅度为大幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘艮卦为阳为大幅、天盘乾卦也为阳为大幅,且力量向上方集中,为外引象。综合各方力量判断下一个交易周期为大幅上涨!',zd);
zd:=if(tg8='离↑' and dp8='艮↑','根据涨跌两分法:天盘离卦为阴为上涨卦;而根据幅度三分法:天盘离卦涨跌幅度为中幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘艮卦为阳为大幅、天盘离卦为阴为中幅,且力量向上方集中,为外引象。综合各方力量判断下一个交易周期为中到大幅上涨!',zd);
zd:=if(dp8='艮↑','根据涨跌两分法:天盘震卦为阳为上涨卦;而根据幅度三分法:天盘震卦涨跌幅度为小幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘艮卦为阳为大幅、天盘震卦为阳为小幅,且力量向上方集中,为外引象。综合各方力量判断下一个交易周期为中幅上涨!',zd);
zd:=if(tg8='乾↑' and dp8='震↑','根据涨跌两分法:天盘乾卦为阳为上涨卦;而根据幅度三分法:天盘乾卦涨跌幅度为大幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘震卦为阳为小幅、天盘乾卦为阳为大幅,且力量向上方集中,为外引象。综合各方力量判断下一个交易周期为大幅上涨!',zd);
zd:=if(tg8='艮↑' and dp8='震↑','根据涨跌两分法:天盘艮卦为阳为上涨卦;而根据幅度三分法:天盘艮卦涨跌幅度为大幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘震卦为阳为小幅、天盘艮卦为阳为大幅,且力量向上方集中,为外引象。综合各方力量判断下一个交易周期为大幅上涨!',zd);
zd:=if(tg8='离↑' and dp8='震↑','根据涨跌两分法:天盘离卦为阴为上涨卦;而根据幅度三分法:天盘离卦涨跌幅度为中幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘震卦为阳为小幅、天盘离卦为阴为中幅,且力量向上方集中,为外引象。综合各方力量判断下一个交易周期为小到中幅上涨!',zd);
zd:=if(tg8='乾↑' and dp8='离↑','根据涨跌两分法:天盘乾卦为阳为上涨卦;而根据幅度三分法:天盘乾卦涨跌幅度为大幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘离卦为阴为中幅、天盘乾卦为阳为大幅,且力量向上方集中,为外引象。综合各方力量判断下一个交易周期为中到大幅上涨!',zd);
zd:=if(tg8='艮↑' and dp8='离↑','根据涨跌两分法:天盘艮卦为阳为上涨卦;而根据幅度三分法:天盘艮卦涨跌幅度为大幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘离卦为阴为中幅、天盘艮卦为阳为大幅,且力量向上方集中,为外引象。综合各方力量判断下一个交易周期为中到大幅上涨!',zd);
zd:=if(tg8='震↑' and dp8='离↑','根据涨跌两分法:天盘震卦为阳为上涨卦;而根据幅度三分法:天盘震卦涨跌幅度为小幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘离卦为阴为中幅、天盘震卦为阳为小幅,且力量向上方集中,为外引象。综合各方力量判断下一个交易周期为小到中幅上涨!',zd);
zd:=if(tg8='巽↓' and dp8='乾↑','根据涨跌两分法:天盘巽卦为阴为下跌卦;而根据幅度三分法:天盘巽卦涨跌幅度为小幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘乾卦为阳为大幅、天盘巽卦为阴为小幅,且力量向中心集中,为向心象,力量集中。综合各方力量判断下一个交易周期为中幅下跌!',zd);
zd:=if(tg8='兑↓' and dp8='乾↑','根据涨跌两分法:天盘兑卦为阴为下跌卦;而根据幅度三分法:天盘兑卦涨跌幅度为大幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘乾卦为阳为大幅、天盘兑卦为阴为大幅,且力量向中心集中,为向心象,力量集中。综合各方力量判断下一个交易周期为大幅下跌!',zd);
zd:=if(tg8='坎↓' and dp8='乾↑','根据涨跌两分法:天盘坎卦为阳为下跌卦;而根据幅度三分法:天盘坎卦涨跌幅度为中幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘乾卦为阳为大幅、天盘坎卦为阳为中幅,且力量向中心集中,为向心象,力量集中。综合各方力量判断下一个交易周期为中到大幅下跌!',zd);
zd:=if(tg8='坤↓' and dp8='乾↑','根据涨跌两分法:天盘坤卦为阴为下跌卦;而根据幅度三分法:天盘坤卦涨跌幅度为小幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘乾卦为阳为大幅、天盘坤卦为阴为小幅,且力量向中心集中,为向心象,力量集中。综合各方力量判断下一个交易周期为中幅下跌!',zd);
zd:=if(tg8='巽↓' and dp8='艮↑','根据涨跌两分法:天盘巽卦为阴为下跌卦;而根据幅度三分法:天盘巽卦涨跌幅度为小幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘艮卦为阳为大幅、天盘巽卦为阴为小幅,且力量向中心集中,为向心象,力量集中。综合各方力量判断下一个交易周期为小到中幅下跌!',zd);
zd:=if(tg8='兑↓' and dp8='艮↑','根据涨跌两分法:天盘兑卦为阴为下跌卦;而根据幅度三分法:天盘兑卦涨跌幅度为大幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘艮卦为阳为大幅、天盘兑卦为阴为大幅,且力量向中心集中,为向心象,力量集中。综合各方力量判断下一个交易周期为大幅下跌!',zd);
zd:=if( tg8='坎↓' and dp8='艮↑','根据涨跌两分法:天盘坎卦为阳为下跌卦;而根据幅度三分法:天盘坎卦涨跌幅度为中幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘艮卦为阳为大幅、天盘坎卦为阳为中幅,且力量向中心集中,为向心象,力量集中。综合各方力量判断下一个交易周期为中到大幅下跌!',zd);
zd:=if(tg8='坤↓' and dp8='艮↑','根据涨跌两分法:天盘坤卦为阴为下跌卦;而根据幅度三分法:天盘坤卦涨跌幅度为小幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘艮卦为阳为大幅、天盘坤卦为阴为小幅,且力量向中心集中,为向心象,力量集中。综合各方力量判断下一个交易周期为中到大幅下跌!',zd);
zd:=if(tg8='巽↓' and dp8='离↑','根据涨跌两分法:天盘巽卦为阴为下跌卦;而根据幅度三分法:天盘巽卦涨跌幅度为小幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘离卦为阴为中幅、天盘巽卦为阴为小幅,且力量向中心集中,为向心象,力量集中。综合各方力量判断下一个交易周期为小到中幅下跌!',zd);
zd:=if(tg8='兑↓' and dp8='离↑','根据涨跌两分法:天盘兑卦为阴为下跌卦;而根据幅度三分法:天盘兑卦涨跌幅度为大幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘离卦为阴为中幅、天盘兑卦为阴为大幅,且力量向中心集中,为向心象,力量集中。综合各方力量判断下一个交易周期为大幅下跌!',zd);
zd:=if(tg8='坎↓' and dp8='离↑','根据涨跌两分法:天盘坎卦为阳为下跌卦;而根据幅度三分法:天盘坎卦涨跌幅度为中幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘离卦为阴为中幅、天盘坎卦为阳为中幅,且力量向中心集中,为向心象,力量集中。综合各方力量判断下一个交易周期为中到大幅下跌!',zd);
zd:=if(tg8='坤↓' and dp8='离↑','根据涨跌两分法:天盘坤卦为阴为下跌卦;而根据幅度三分法:天盘坤卦涨跌幅度为小幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘离卦为阴为中幅、天盘坤卦为阴为小幅,且力量向中心集中,为向心象,力量集中。综合各方力量判断下一个交易周期为中幅下跌!',zd);
zd:=if(tg8='巽↓' and dp8='震↑','根据涨跌两分法:天盘巽卦为阴为下跌卦;而根据幅度三分法:天盘巽卦涨跌幅度为小幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘震卦为阳为小幅、天盘巽卦为阴为小幅,且力量向中心集中,为向心象,力量集中。综合各方力量判断下一个交易周期为中幅下跌!',zd);
zd:=if(tg8='兑↓' and dp8='震↑','根据涨跌两分法:天盘兑卦为阴为下跌卦;而根据幅度三分法:天盘兑卦涨跌幅度为大幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘震卦为阳为小幅、天盘兑卦为阴为大幅,且力量向中心集中,为向心象,力量集中。综合各方力量判断下一个交易周期为中到大幅下跌!',zd);
zd:=if(tg8='坎↓' and dp8='震↑','根据涨跌两分法:天盘坎卦为阳为下跌卦;而根据幅度三分法:天盘坎卦涨跌幅度为中幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘震卦为阳为小幅、天盘坎卦为阳为中幅,且力量向中心集中,为向心象,力量集中。综合各方力量判断下一个交易周期为中幅下跌!',zd);
zd:=if(tg8='坤↓' and dp8='震↑','根据涨跌两分法:天盘坤卦为阴为下跌卦;而根据幅度三分法:天盘坤卦涨跌幅度为小幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘震卦为阳为小幅、天盘坤卦为阴为小幅,且力量向中心集中,为向心象,力量集中。综合各方力量判断下一个交易周期为中幅下跌!',zd);
zd:=if(tg8='巽↓' and dp8='兑↓','根据涨跌两分法:天盘巽卦为阴为下跌卦;而根据幅度三分法:天盘巽卦涨跌幅度为小幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘兑卦为阴为大幅、天盘巽卦为阴为小幅,且力量向下方集中,为内引象。综合各方力量判断下一个交易周期为中幅下跌!',zd);
zd:=if(tg8='坎↓' and dp8='兑↓','根据涨跌两分法:天盘坎卦为阳为下跌卦;而根据幅度三分法:天盘坎卦涨跌幅度为中幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘兑卦为阴为大幅、天盘坎卦为阳为中幅,且力量向下方集中,为内引象。综合各方力量判断下一个交易周期为中到大幅下跌!',zd);
zd:=if(tg8='坤↓' and dp8='兑↓','根据涨跌两分法:天盘坤卦为阴为下跌卦;而根据幅度三分法:天盘坤卦涨跌幅度为小幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘兑卦为阴为大幅、天盘坤卦为阴为小幅,且力量向下方集中,为内引象。综合各方力量判断下一个交易周期为小到中幅下跌!',zd);
zd:=if(tg8='兑↓' and dp8='巽↓','根据涨跌两分法:天盘兑卦为阴为下跌卦;而根据幅度三分法:天盘兑卦涨跌幅度为大幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘巽卦为阴为小幅、天盘兑卦为阴为大幅,且力量向下方集中,为内引象。综合各方力量判断下一个交易周期为大幅下跌!',zd);
zd:=if(tg8='坎↓' and dp8='巽↓','根据涨跌两分法:天盘坎卦为阳为下跌卦;而根据幅度三分法:天盘坎卦涨跌幅度为中幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘巽卦为阴为小幅、天盘坎卦为阳为中幅,且力量向下方集中,为内引象。综合各方力量判断下一个交易周期为中到大幅下跌!',zd);
zd:=if(tg8='坤↓' and dp8='巽↓','根据涨跌两分法:天盘坤卦为阴为下跌卦;而根据幅度三分法:天盘坤卦涨跌幅度为小幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘巽卦为阴为小幅、天盘坤卦为阴为小幅,且力量向下方集中,为内引象。综合各方力量判断下一个交易周期为中幅下跌!',zd);
zd:=if(tg8='巽↓' and dp8='坎↓','根据涨跌两分法:天盘巽卦为阴为下跌卦;而根据幅度三分法:天盘巽卦涨跌幅度为小幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘坎卦为阳为中幅、天盘巽卦为阴为小幅,且力量向下方集中,为内引象。综合各方力量判断下一个交易周期为中幅下跌!',zd);
zd:=if(tg8='兑↓' and dp8='坎↓','根据涨跌两分法:天盘兑卦为阴为下跌卦;而根据幅度三分法:天盘兑卦涨跌幅度为大幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘坎卦为阳为中幅、天盘兑卦为阴为大幅,且力量向下方集中,为内引象。综合各方力量判断下一个交易周期为大幅下跌!',zd);
zd:=if(tg8='坤↓' and dp8='坎↓','根据涨跌两分法:天盘坤卦为阴为下跌卦;而根据幅度三分法:天盘坤卦涨跌幅度为小幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘坎卦为阳为中幅、天盘坤卦为阴为小幅,且力量向下方集中,为内引象。综合各方力量判断下一个交易周期为小到中幅下跌!',zd);
zd:=if(tg8='巽↓' and dp8='坤↓','根据涨跌两分法:天盘巽卦为阴为下跌卦;而根据幅度三分法:天盘巽卦涨跌幅度为小幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘坤卦为阴为小幅、天盘巽卦为阴为小幅,且力量向下方集中,为内引象。综合各方力量判断下一个交易周期为中幅下跌!',zd);
zd:=if(tg8='兑↓' and dp8='坤↓','根据涨跌两分法:天盘兑卦为阴为下跌卦;而根据幅度三分法:天盘兑卦涨跌幅度为大幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘坤卦为阴为小幅、天盘兑卦为阴为大幅,且力量向下方集中,为内引象。综合各方力量判断下一个交易周期为大幅下跌!',zd);
zd:=if(tg8='坎↓' and dp8='坤↓','根据涨跌两分法:天盘坎卦为阳为下跌卦;而根据幅度三分法:天盘坎卦涨跌幅度为中幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘坤卦为阴为小幅、天盘坎卦为阴为中幅,且力量向下方集中,为内引象。综合各方力量判断下一个交易周期为大幅下跌!',zd);
zd:=if(tg8='乾↑' and dp8='巽↓','根据涨跌两分法:天盘乾卦为阳为上涨卦;而根据幅度三分法:天盘乾卦涨跌幅度为大幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘巽卦为阴为小幅、天盘乾卦为阳为大幅,且力量向外分散,为离心象,力量不能集中。综合各方力量判断下一个交易周期为中幅上涨!',zd);
zd:=if(tg8='离↑' and dp8='巽↓','根据涨跌两分法:天盘离卦为阳为上涨卦;而根据幅度三分法:天盘离卦涨跌幅度为中幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘巽卦为阴为小幅、天盘离卦为阴为中幅,且力量向外分散,为离心象,力量不能集中。综合各方力量判断下一个交易周期为小幅上涨!',zd);
zd:=if(tg8='艮↑' and dp8='巽↓','根据涨跌两分法:天盘艮卦为阳为上涨卦;而根据幅度三分法:天盘艮卦涨跌幅度为大幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘巽卦为阴为小幅、天盘艮卦为阳为大幅,且力量向外分散,为离心象,力量不能集中。综合各方力量判断下一个交易周期为中幅上涨!',zd);
zd:=if(tg8='震↑' and dp8='巽↓','根据涨跌两分法:天盘震卦为阳为上涨卦;而根据幅度三分法:天盘震卦涨跌幅度为小幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘巽卦为阴为小幅、天盘震卦为阳为小幅,且力量向外分散,为离心象,力量不能集中。综合各方力量判断下一个交易周期为微幅上涨!',zd);
zd:=if(tg8='乾↑' and dp8='兑↓','根据涨跌两分法:天盘乾卦为阳为上涨卦;而根据幅度三分法:天盘乾卦涨跌幅度为大幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘兑卦为阴为大幅、天盘乾卦为阳为大幅,且力量向外分散,为离心象,力量不能集中,但地盘兑卦有喜悦之象,天盘乾卦又为阳为大幅。综合各方力量判断下一个交易周期为大幅上涨!',zd);
zd:=if(tg8='离↑' and dp8='兑↓','根据涨跌两分法:天盘离卦为阳为上涨卦;而根据幅度三分法:天盘离卦涨跌幅度为中幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘兑卦为阴为大幅、天盘离卦为阴为中幅,且力量向外分散,为离心象,力量不能集中。综合各方力量判断下一个交易周期为小幅上涨!',zd);
zd:=if(tg8='艮↑' and dp8='兑↓','根据涨跌两分法:天盘艮卦为阳为上涨卦;而根据幅度三分法:天盘艮卦涨跌幅度为大幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘兑卦为阴为大幅、天盘艮卦为阳为大幅,且力量向外分散,为离心象,力量不能集中。综合各方力量判断下一个交易周期为中幅上涨!',zd);
zd:=if(tg8='震↑' and dp8='兑↓','根据涨跌两分法:天盘震卦为阳为上涨卦;而根据幅度三分法:天盘震卦涨跌幅度为小幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘兑卦为阴为大幅、天盘震卦为阳为小幅,且力量向外分散,为离心象,力量不能集中。综合各方力量判断下一个交易周期为微幅上涨!',zd);
zd:=if(tg8='乾↑' and dp8='坎↓','根据涨跌两分法:天盘乾卦为阳为上涨卦;而根据幅度三分法:天盘乾卦涨跌幅度为大幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘坎卦为阳为中幅、天盘乾卦为阳为大幅,且力量向外分散,为离心象,力量不能集中。综合各方力量判断下一个交易周期为中幅上涨!',zd);
zd:=if(tg8='离↑' and dp8='坎↓','根据涨跌两分法:天盘离卦为阳为上涨卦;而根据幅度三分法:天盘离卦涨跌幅度为中幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘坎卦为阳为中幅、天盘离卦为阴为中幅,且力量向外分散,为离心象,力量不能集中。综合各方力量判断下一个交易周期为小幅上涨!',zd);
zd:=if(tg8='艮↑' and dp8='坎↓','根据涨跌两分法:天盘艮卦为阳为上涨卦;而根据幅度三分法:天盘艮卦涨跌幅度为大幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘坎卦为阳为中幅、天盘艮卦为阳为大幅,且力量向外分散,为离心象,力量不能集中。且坎为险,艮为止,上涨中途遇到险阻。综合各方力量判断下一个交易周期为小到中幅下跌!',zd);
zd:=if(tg8='震↑' and dp8='坎↓','根据涨跌两分法:天盘震卦为阳为上涨卦;而根据幅度三分法:天盘震卦涨跌幅度为小幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘坎卦为阳为中幅、天盘震卦为阳为小幅,且力量向外分散,为离心象,力量不能集中。综合各方力量判断下一个交易周期为微幅上涨!',zd);
zd:=if(tg8='乾↑' and dp8='坤↓','根据涨跌两分法:天盘乾卦为阳为上涨卦;而根据幅度三分法:天盘乾卦涨跌幅度为大幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘坤卦为阴为小幅、天盘乾卦为阳为大幅,且力量向外分散,为离心象,力量不能集中。综合各方力量判断下一个交易周期为中幅上涨!',zd);
zd:=if(tg8='离↑' and dp8='坤↓','根据涨跌两分法:天盘离卦为阳为上涨卦;而根据幅度三分法:天盘离卦涨跌幅度为中幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘坤卦为阴为小幅、天盘离卦为阴为中幅,且力量向外分散,为离心象,力量不能集中。综合各方力量判断下一个交易周期为小幅上涨!',zd);
zd:=if(tg8='艮↑' and dp8='坤↓','根据涨跌两分法:天盘艮卦为阳为上涨卦;而根据幅度三分法:天盘艮卦涨跌幅度为大幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘坤卦为阴为小幅、天盘艮卦为阳为大幅,且力量向外分散,为离心象,力量不能集中。综合各方力量判断下一个交易周期为中幅上涨!',zd);
zd:=if(tg8='震↑' and dp8='坤↓','根据涨跌两分法:天盘震卦为阳为上涨卦;而根据幅度三分法:天盘震卦涨跌幅度为小幅,但具体涨跌幅度还要结合地盘用和顺四象法判断;根据和顺四象法:地盘坤卦为阴为小幅、天盘震卦为阳为小幅,且力量向外分散,为离心象,力量不能集中。综合各方力量判断下一个交易周期为微幅下跌!',zd);
EXPLAIN(c,'小成图分析结果:');
EXPLAIN(c,zd);
EXPLAIN(c<>0,'*******************************************');
k:=sysparam(1)=barpos;{光标}
drawyitext(k and date,6,ganzhi(date,0,0),0)colorred align1;{年干支=5}
drawyitext(k and date,5,ganzhi(date,0,1),0)colorred align1;{月干支=5}
drawyitext(k and date,4,ganzhi(date,0,2),0)colorred align1;{日干支=5}
n:=3;{节气=n=3}
j1:=date-lsolartermdate(1)>=0;
jj1:=j1>ref(j1,1);
j2:=date-lsolartermdate(2)>=0;
jj2:=j2>ref(j2,1);
j3:=date-lsolartermdate(3)>=0;
jj3:=j3>ref(j3,1);
j4:=date-lsolartermdate(4)>=0;
jj4:=j4>ref(j4,1);
j5:=date-lsolartermdate(5)>=0;
jj5:=j5>ref(j5,1);
j6:=date-lsolartermdate(6)>=0;
jj6:=j6>ref(j6,1);
j7:=date-lsolartermdate(7)>=0;
jj7:=j7>ref(j7,1);
j8:=date-lsolartermdate(8)>=0;
jj8:=j8>ref(j8,1);
j9:=date-lsolartermdate(9)>=0;
jj9:=j9>ref(j9,1);
j10:=date-lsolartermdate(10)>=0;
jj10:=j10>ref(j10,1);
j11:=date-lsolartermdate(11)>=0;
jj11:=j11>ref(j11,1);
j12:=date-lsolartermdate(12)>=0;
jj12:=j12>ref(j12,1);
j13:=date-lsolartermdate(13)>=0;
jj13:=j13>ref(j13,1);
j14:=date-lsolartermdate(14)>=0;
jj14:=j14>ref(j14,1);
j15:=date-lsolartermdate(15)>=0;
jj15:=j15>ref(j15,1);
j16:=date-lsolartermdate(16)>=0;
jj16:=j16>ref(j16,1);
j17:=date-lsolartermdate(17)>=0;
jj17:=j17>ref(j17,1);
j18:=date-lsolartermdate(18)>=0;
jj18:=j18>ref(j18,1);
j19:=date-lsolartermdate(19)>=0;
jj19:=j19>ref(j19,1);
j20:=date-lsolartermdate(20)>=0;
jj20:=j20>ref(j20,1);
j21:=date-lsolartermdate(21)>=0;
jj21:=j21>ref(j21,1);
j22:=date-lsolartermdate(22)>=0;
jj22:=j22>ref(j22,1);
j23:=date-lsolartermdate(23)>=0;
jj23:=j23>ref(j23,1);
j24:=date-lsolartermdate(24)>=0;
jj24:=j24>ref(j24,1);
drawtext(jj1,n,'●小寒') coloryellow;
drawtext(jj2,n,'●大寒') coloryellow;
drawtext(jj3,n,'●立春') color71b255;
drawtext(jj4,n,'●雨水') color71b255;
drawtext(jj5,n,'●惊蛰') color71b255;
drawtext(jj6,n,'●春分') color71b255;
drawtext(jj7,n,'●清明') coloryellow;
drawtext(jj8,n,'●谷雨') coloryellow;
drawtext(jj9,n,'●立夏') colorred;
drawtext(jj10,n,'●小满') colorred;
drawtext(jj11,n,'●芒种') colorred;
drawtext(jj12,n,'●夏至') colorred;
drawtext(jj13,n,'●小暑') coloryellow;
drawtext(jj14,n,'●大暑') coloryellow;
drawtext(jj15,n,'●立秋') colorbbbbbb;
drawtext(jj16,n,'●处暑') colorbbbbbb;
drawtext(jj17,n,'●白露') colorbbbbbb;
drawtext(jj18,n,'●秋分') colorbbbbbb;
drawtext(jj19,n,'●寒露') coloryellow;
drawtext(jj20,n,'●霜降') coloryellow;
drawtext(jj21,n,'●立冬') colorcyan;
drawtext(jj22,n,'●小雪') colorcyan;
drawtext(jj23,n,'●大雪') colorcyan;
drawtext(jj24,n,'●冬至') colorcyan;
drawtext(lday=1,2,'●新月') coloryellow;
drawtext(lday=8,2,'●上弦') coloryellow;
drawtext(lday=15,2,'●满月') coloryellow;
drawtext(lday=23,2,'●下弦') coloryellow; |
|
|