源码如下：
h1:=if((h-ref(h,1))>0,1,0);
h2:=if((ref(h,1)-ref(h,2))>0,1,0);
h3:=if((ref(h,2)-ref(h,3))>0,1,0);
h4:=if((ref(h,3)-ref(h,4))>0,1,0);
h5:=if((ref(h,4)-ref(h,5))>0,1,0);
h6:=if((ref(h,5)-ref(h,6))>0,1,0);jj:=amount/v/100;
jj1:=if((jj-ref(jj,1))>0,1,0);
jj2:=if((ref(jj,1)-ref(jj,2))>0,1,0);
jj3:=if((ref(jj,2)-ref(jj,3))>0,1,0);
jj4:=if((ref(jj,3)-ref(jj,4))>0,1,0);
jj5:=if((ref(jj,4)-ref(jj,5))>0,1,0);
jj6:=if((ref(jj,5)-ref(jj,6))>0,1,0);l1:=if((l-ref(l,1))>0,1,0);
l2:=if((ref(l,1)-ref(l,2))>0,1,0);
l3:=if((ref(l,2)-ref(l,3))>0,1,0);
l4:=if((ref(l,3)-ref(l,4))>0,1,0);
l5:=if((ref(l,4)-ref(l,5))>0,1,0);
l6:=if((ref(l,5)-ref(l,6))>0,1,0);x1:=l6+jj6+h6;
x2:=l5+jj5+h5;
x3:=l4+jj4+h4;
x4:=l3+jj3+h3;
x5:=l2+jj2+h2;
x6:=l1+jj1+h1;泽山咸:=(x1=0 or x1=2) and (x2=0 or x2=2) and (x3=1 or x3=3) and (x4=1 or x4=3)
and (x5=1 or x5=3) and (x6=0 or x6=2);a1:=if(泽山咸=1,DRAWTEXTABS(10,10,' 兑宫：泽山咸 兑宫：泽山咸 '),0);
a2:=if(泽山咸=1,DRAWTEXTABS(10,20,'六神 伏神 本 卦 变 卦 '),0);
a3:=if(泽山咸=1,DRAWTEXTABS(10,30,'螣蛇 父母未土 ▅▅ ▅▅ 应 父母未土 ▅▅ ▅▅ 应 '),0);
a4:=if(泽山咸=1,DRAWTEXTABS(10,40,'勾陈 兄弟酉金 ▅▅▅▅▅ 兄弟酉金 ▅▅▅▅▅ '),0);
a5:=if(泽山咸=1,DRAWTEXTABS(10,50,'朱雀 子孙亥水 ▅▅▅▅▅ 子孙亥水 ▅▅▅▅▅ '),0);
a6:=if(泽山咸=1,DRAWTEXTABS(10,60,'青龙 兄弟申金 ▅▅▅▅▅ 世 兄弟申金 ▅▅▅▅▅ 世 '),0);
a7:=if(泽山咸=1,DRAWTEXTABS(10,70,'玄武 妻财卯木 官鬼午火 ▅▅ ▅▅ 官鬼午火 ▅▅ ▅▅ '),0);
a8:=if(泽山咸=1,DRAWTEXTABS(10,80,'白虎 父母辰土 ▅▅ ▅▅ 父母辰土 ▅▅ ▅▅ '),0);
其中x(n)是指六爻，x1为初爻，x6为六爻，每爻的值：阴0，2，阳1，3，不设变卦，需要的朋友可以自己添加。
 |
