分享

八卦

 华夏强胜 2013-10-25
{  八卦  }

AA:=AMOUNT/VOL/100;{//均价}
AI:=IF(C=O,AA-REF(AA,1),C-O);{//P1=0,按常规K线开收定阴阳爻}
AJ:=IF(C=REF(C,1),AA-REF(AA,1),C-REF(C,1));{//P1=1,按张东生-常秉义方法定阴阳爻}
A:=IF(C=0,AI,AJ);
{//对特殊阴阳爻作出标记}
DRAWICON((C=0 AND C=O AND AI>0) OR (C=1 AND C=REF(C,1) AND AJ>0),L,1);
DRAWICON((C=0 AND C=O AND AI<0) OR (C=1 AND C=REF(C,1) AND AJ<0),L,2);
{//选定6爻,P2=0,按K线顺序排卦,P2=1,按K线逆序排卦}
A1:=IF(C=0,REF(A,5),A);
A2:=IF(C=0,REF(A,4),REF(A,1));
A3:=IF(C=0,REF(A,3),REF(A,2));
A4:=IF(C=0,REF(A,2),REF(A,3));
A5:=IF(C=0,REF(A,1),REF(A,4));
A6:=IF(C=0,A,REF(A,5));
{//下卦}
X1:=A1>0 AND A2>0 AND A3>0;{//下卦乾-阳阳阳}
X2:=A1>0 AND A2>0 AND A3<0;{//下卦兑-阳阳阴}
X3:=A1>0 AND A2<0 AND A3>0;{//下卦离-阳阴阳}
X4:=A1>0 AND A2<0 AND A3<0;{//下卦震-阳阴阴}
X5:=A1<0 AND A2>0 AND A3>0;{//下卦巽-阴阳阳}
X6:=A1<0 AND A2>0 AND A3<0;{//下卦坎-阴阳阴}
X7:=A1<0 AND A2<0 AND A3>0;{//下卦艮-阴阴阳}
X8:=A1<0 AND A2<0 AND A3<0;{下卦坤-阴阴阴}
{//上卦}
S1:=A4>0 AND A5>0 AND A6>0;{上卦乾-阳阳阳}
S2:=A4>0 AND A5>0 AND A6<0;{上卦兑-阳阳阴}
S3:=A4>0 AND A5<0 AND A6>0;{//上卦离-阳阴阳}
S4:=A4>0 AND A5<0 AND A6<0;{//上卦震-阳阴阴}
S5:=A4<0 AND A5>0 AND A6>0;{//上卦巽-阴阳阳}
S6:=A4<0 AND A5>0 AND A6<0;{//上卦坎-阴阳阴}
S7:=A4<0 AND A5<0 AND A6>0;{//上卦艮-阴阴阳}
S8:=A4<0 AND A5<0 AND A6<0;{//上卦坤-阴阴阴}
{//乾宫八卦,红色系}
DRAWTEXT(X1 AND S1,HIGH*1.04,'乾'),COLOR0000BE;{11乾为天-阳阳阳阳阳阳}
DRAWTEXT(X1 AND S2,HIGH*1.04,'夬'),COLOR0000E4;{21泽天夬-阳阳阳阳阳阴}
DRAWTEXT(X1 AND S3,HIGH*1.08,'大有'),COLOR0000EA;{31火天大有-阳阳阳阳阴阳}
DRAWTEXT(X1 AND S4,HIGH*1.08,'大壮'),COLOR0000FF;{41雷天大壮-阳阳阳阳阴阴}
DRAWTEXT(X1 AND S5,HIGH*1.08,'▲小畜'),COLOR4441FF;{51风天小畜-阳阳阳阴阳阳}
DRAWTEXT(X1 AND S6,HIGH*1.04,'需'),COLOR436FFF;{61水天需-阳阳阳阴阳阴}
DRAWTEXT(X1 AND S7,HIGH*1.08,'大畜'),COLOR7A7DFF;{71山天大畜-阳阳阳阴阴阳}
DRAWTEXT(X1 AND S8,HIGH*1.04,'泰'),COLOR7A91FF;{81地天泰-阳阳阳阴阴阴}
{//兑宫八卦,绿色系}
DRAWTEXT(X2 AND S1,HIGH*1.04,'履'),COLOR00A300;{12天泽履-阳阳阴阳阳阳}
DRAWTEXT(X2 AND S2,HIGH*1.04,'兑'),COLOR00FF00;{22兑为泽-阳阳阴阳阳阴}
DRAWTEXT(X2 AND S3,HIGH*1.04,'睽'),COLOR00FF00;{32火泽睽-阳阳阴阳阴阳}
DRAWTEXT(X2 AND S4,HIGH*1.08,'归妹'),COLOR00FF00;{42雷泽归妹-阳阳阴阳阴阴}
DRAWTEXT(X2 AND S5,HIGH*1.08,'◆中孚'),COLOR00FF00;{52风泽中孚-阳阳阴阴阳阳}
DRAWTEXT(X2 AND S6,HIGH*1.04,'节'),COLOR00FF00;{62水泽节-阳阳阴阴阳阴}
DRAWTEXT(X2 AND S7,HIGH*1.04,'损'),COLOR00FF00;{72山泽损-阳阳阴阴阴阳}
DRAWTEXT(X2 AND S8,HIGH*1.04,'临'),COLOR00FF00;{82地泽临-阳阳阴阴阴阴}
{//离宫八卦,黄色系}
DRAWTEXT(X3 AND S1,HIGH*1.08,'同人'),COLOR00FFFF;{13天火同人-阳阴阳阳阳阳}
DRAWTEXT(X3 AND S2,HIGH*1.04,'革'),COLOR00FFFF;{23泽火革-阳阴阳阳阳阴}
DRAWTEXT(X3 AND S3,HIGH*1.04,'离'),COLOR00FFFF;{33离为火-阳阴阳阳阴阳}
DRAWTEXT(X3 AND S4,HIGH*1.04,'丰'),COLOR00FFFF;{43雷火丰-阳阴阳阳阴阴}
DRAWTEXT(X3 AND S5,HIGH*1.08,'家人'),COLOR00FFFF;{53风火家人-阳阴阳阴阳阳}
DRAWTEXT(X3 AND S6,HIGH*1.08,'既济'),COLOR00FFFF;{63水火既济-阳阴阳阴阳阴}
DRAWTEXT(X3 AND S7,HIGH*1.04,'贲'),COLOR00FFFF;{73火山贲-阳阴阳阴阴阳}
DRAWTEXT(X3 AND S8,HIGH*1.08,'明夷'),COLOR00FFFF;{83地火明夷-阳阴阳阴阴阴}
{//震宫八卦,肉粉色系}
DRAWTEXT(X4 AND S1,HIGH*1.08,'无妄'),COLORCCCCFF;{14天雷无妄-阳阴阴阳阳阳}
DRAWTEXT(X4 AND S2,HIGH*1.04,'随'),COLORCCCCFF;{24泽雷随-阳阴阴阳阳阴}
DRAWTEXT(X4 AND S3,HIGH*1.08,'噬嗑'),COLORCCCCFF;{34火雷噬嗑-阳阴阴阳阴阳}
DRAWTEXT(X4 AND S4,HIGH*1.04,'震'),COLORCCCCFF;{44震为雷-阳阴阴阳阴阴}
DRAWTEXT(X4 AND S5,HIGH*1.04,'益'),COLORCCCCFF;{54风雷益-阳阴阴阴阳阳}
DRAWTEXT(X4 AND S6,HIGH*1.04,'屯'),COLORCCCCFF;{64水雷屯-阳阴阴阴阳阴}
DRAWTEXT(X4 AND S7,HIGH*1.04,'颐'),COLORCCCCFF;{74山雷颐-阳阴阴阴阴阳}
DRAWTEXT(X4 AND S8,HIGH*1.04,'复'),COLORCCCCFF;{84地雷复-阳阴阴阴阴阴}
{//巽宫八卦,紫色系}
DRAWTEXT(X5 AND S1,HIGH*1.04,'姤'),COLORFF00FF;{15天风姤-阴阳阳阳阳阳}
DRAWTEXT(X5 AND S2,HIGH*1.08,'大过'),COLORFF00FF;{25泽风大过-阴阳阳阳阳阴}
DRAWTEXT(X5 AND S3,HIGH*1.04,'鼎'),COLORFF00FF;{35火风鼎-阴阳阳阳阴阳}
DRAWTEXT(X5 AND S4,HIGH*1.04,'恒'),COLORFF00FF;{45雷风恒-阴阳阳阳阴阴}
DRAWTEXT(X5 AND S5,HIGH*1.04,'巽'),COLORFF00FF;{55巽为风-阴阳阳阴阳阳}
DRAWTEXT(X5 AND S6,HIGH*1.04,'井'),COLORFF00FF;{65水风井-阴阳阳阴阳阴}
DRAWTEXT(X5 AND S7,HIGH*1.04,'蛊'),COLORFF00FF;{75山风蛊-阴阳阳阴阴阳}
DRAWTEXT(X5 AND S8,HIGH*1.04,'升'),COLORFF00FF;{85地风升-阴阳阳阴阴阴}
{//坎宫八卦,浅灰色系}
DRAWTEXT(X6 AND S1,HIGH*1.04,'讼'),COLORFFEADD;{16天水讼-阴阳阴阳阳阳}
DRAWTEXT(X6 AND S2,HIGH*1.04,'困'),COLORFFEADD;{26泽水困-阴阳阴阳阳阴}
DRAWTEXT(X6 AND S3,HIGH*1.08,'末济'),COLORFFEADD;{36火水末济-阴阳阴阳阴阳}
DRAWTEXT(X6 AND S4,HIGH*1.04,'解'),COLORFFEADD;{46雷水解-阴阳阴阳阴阴}
DRAWTEXT(X6 AND S5,HIGH*1.04,'涣'),COLORFFEADD;{56风水涣-阴阳阴阴阳阳}
DRAWTEXT(X6 AND S6,HIGH*1.04,'坎'),COLORFFEADD;{66坎为水-阴阳阴阴阳阴}
DRAWTEXT(X6 AND S7,HIGH*1.04,'蒙'),COLORFFEADD;{76山水蒙-阴阳阴阴阴阳}
DRAWTEXT(X6 AND S8,HIGH*1.04,'师'),COLORFFEADD;{86地水师-阴阳阴阴阴阴}
{//艮宫八卦,浅兰色系}
DRAWTEXT(X7 AND S1,HIGH*1.04,'逹'),COLORFFFF00;{17天山逹-阴阴阳阳阳阳}
DRAWTEXT(X7 AND S2,HIGH*1.04,'咸'),COLORFFF300;{27泽山咸-阴阴阳阳阳阴}
DRAWTEXT(X7 AND S3,HIGH*1.04,'旅'),COLORFFE500;{37火山旅-阴阴阳阳阴阳}
DRAWTEXT(X7 AND S4,HIGH*1.08,'小过'),COLORFFDB00;{47雷山小过-阴阴阳阳阴阴}
DRAWTEXT(X7 AND S5,HIGH*1.04,'渐'),COLORFFAB00;{57风山渐-阴阴阳阴阳阳}
DRAWTEXT(X7 AND S6,HIGH*1.04,'蹇'),COLORFF9800;{67水山蹇-阴阴阳阴阳阴}
DRAWTEXT(X7 AND S7,HIGH*1.04,'艮'),COLOREE9800;{77艮为山-阴阴阳阴阴阳}
DRAWTEXT(X7 AND S8,HIGH*1.04,'谦'),COLORCC9800;{87地山谦-阴阴阳阴阴阴}
{//坤宫八卦,浅咖啡色系}
DRAWTEXT(X8 AND S1,HIGH*1.04,'否'),COLOR90A9C1;{18天地否-阴阴阴阳阳阳}
DRAWTEXT(X8 AND S2,HIGH*1.04,'萃'),COLOR90A9C1;{28泽地萃-阴阴阴阳阳阴}
DRAWTEXT(X8 AND S3,HIGH*1.04,'晋'),COLOR90A9C1;{38火地晋-阴阴阴阳阴阳}
DRAWTEXT(X8 AND S4,HIGH*1.04,'豫'),COLOR90A9C1;{48雷地豫-阴阴阴阳阴阴}
DRAWTEXT(X8 AND S5,HIGH*1.04,'观'),COLOR90A9C1;{58风地观-阴阴阴阴阳阳}
DRAWTEXT(X8 AND S6,HIGH*1.04,'比'),COLOR90A9C1;{68水地比-阴阴阴阴阳阴}
DRAWTEXT(X8 AND S7,HIGH*1.04,'剥'),COLOR90A9C1;{78山地剥-阴阴阴阴阴阴阳}
DRAWTEXT(X8 AND S8,HIGH*1.04,'坤'),COLOR90A9C1;{88坤为地-阴阴阴阴阴阴};

 

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约