源码如下：
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，不设变卦，需要的朋友可以自己添加。