缠论中枢源代码

1、MA(CLOSE,5);/福安赚差价的人，设计QQ/高低点一定是前6天和后6天的最高点和最低点/BD1:=LOW=LOWANDREFX(LOW,2)=LOWANDREFX(LOW,3)=LOW ANDREFX(LOW,4)=LOW ANDREFX(LOW,5)=LOW ;/笔高，粗选/BG1:=HIGH=HHV(HIGH,6)ANDREFX(HIGH,1)=HIGHANDREFX(HIGH,2)=HIGH ANDREFX(HIGH,3)=HIGH ANDREFX(HIGH,4)=HIGHANDREFX(HIGH,5)=3) OR(REFX(BD1,1)=1ANDCOUNT(BD1,BARPOS

2、)=0ANDCOUNT(BG1,BARPOS)=0) ;BDQ1:=(BDQANDCOUNT(BDQ,BARSLAST(BG1)=1) OR( BARSSINCE(BDQ)=0);BD2:=(BD1ANDBARSLAST(BG1)3ANDLOW=LLV(LOW,BARSLAST(BDQ1)ANDCOUNT(BG1,BARSLAST(BDQ1)=0) OR (BD1AND LOW=LLV(LOW,BARSLAST(BDQ1)ANDCOUNT(BG1,BARPOS)=0 );BDDW:=BACKSET(BD2,BARSLAST(BDQ1);/DRAWTEXT(BDDW,HIGH,1);/DRAWT

3、EXT(BDDWANDREFX(BDDW,1)=0),LOW*0.94,第二低点);/BD3:=(BDDWANDREFX(BDDW,1)=0) OR(BDDWANDISLASTBAR)OR (BD1ANDBARSLAST(BG1)=3) OR(REFX(BG1,1)=1ANDCOUNT(BD1,BARPOS)=0ANDCOUNT(BG1,BARPOS)=0);/DRAWTEXT(BGQ ,HIGH,前)COL OR YELLOW;/测试低点/BGQ1:=(BGQANDCOUNT(BGQ,BARSLAST(BD1)=1) OR ( BARSSINCE(BGQ)=0);/DRAWTEXT(BGQ1

4、 ,HIGH*1.03,第一前)COL OR CYAN;/测试低点/新笔高/BG2:=(BG1ANDBARSLAST(BD1)3ANDHIGH=HHV(HIGH,BARSLAST(BGQ1)ANDCOUNT(BD1,BARSLAST(BGQ1)=0 ) OR (BG1AND HIGH=HHV(HIGH,BARSLAST(BGQ1)ANDCOUNT(BD1,BARPOS)=0 );BGDW:=BACKSET(BG2,BARSLAST(BGQ1);/DRAWTEXT(BGDWANDREFX(BGDW,1)=0),HIGH*1.03,第二高);/BG3:=(BGDWANDREFX(BGDW,1)=0

5、) OR (BGDWANDISLASTBAR)OR (BG1ANDBARSLAST(BD1)4) ;/跟前面的笔高距离小于4，并且价格是最低的/笔低前一根/BDQ30:=(REFX(BD1,1)=1 ) OR(REFX(BD1,1)=1ANDCOUNT(BD1,BARPOS)=0ANDCOUNT(BG1,BARPOS)=0) ;BDQ130:=(BDQ30ANDCOUNT(BDQ30,BARSLAST(BG1)=1) OR( BARSSINCE(BDQ30)=0);/DRAWTEXT(BDQ ,LOW*0.98,前)COL OR YELLOW;/测试低点/DRAWTEXT(BDQ1,LOW*0

6、.96,第一前)COL OR CYAN;/测试低点/新BD2/BD230:=(BD1 ANDLOW=LLV(LOW,BARSLAST(BDQ130)ANDCOUNT(BG1,BARSLAST(BDQ130)=0) OR (BD1AND LOW=LLV(LOW,BARSLAST(BDQ130)ANDCOUNT(BG1,BARPOS)=0 );BDDW30:=BACKSET(BD230,BARSLAST(BDQ130);BD4:=BDDW30ANDREFX(BDDW30,1)=0;BD5:=BD3OR(BD4ANDBARSLAST(BG1)=HHV(HIGH,BARSLAST(BGQ130)AND

7、COUNT(BD1,BARSLAST(BGQ130)=0) OR (BG1AND HIGH=HHV(HIGH,BARSLAST(BGQ130)ANDCOUNT(BD1,BARPOS)=0 );BGDW30:=BACKSET(BG230,BARSLAST(BGQ130);BG4:=BGDW30ANDREFX(BGDW30,1)=0;BG5:=BG3OR (BG4ANDBARSLAST(BD1)=REF(HIGH,BARSLAST(BG5) );/最低价大于前笔高/BD7:= BD5ANDREFX(HIGH,1)=REF(HIGH,BARSLAST(BG5) ;/笔低后面一根最高价大于前高/DRA

8、WTEXT(BD7,HIGH,错误低点);/BD:=BD5ANDBD6=0ANDBD7=0;/去掉绝对错误高点/BG6:=BG5ANDHIGH=REF(LOW,BARSLAST(BD5);BG7:=BG5ANDREFX(LOW,1)=REF(LOW,BARSLAST(BD5) ;BG:= BG5ANDBG6=0ANDBG7=0;/DRAWTEXT(BD5 ,LOW,低点)COL OR RED;/测试低点/DRAWTEXT(BG5,HIGH,高点)COL OR GREEN;/测试高点/DRAWTEXT(BD1 ,LOW,低点) ;/测试低点/DRAWTEXT(BG1,HIGH,高点) ;/测试高

9、点/DRAWTEXT(BD,LOW ,Y低点);/测试低点/DRAWTEXT(BG,HIGH ,Y高点) ;/测试高点/JQD:=BARSLAST(BD);/距前低/JQG:=BARSLAST(BG);/距前高/K线包含处理/前面顶部左侧K线第1根是否跟前一根重合/DQBHGG:=(REF(LOW,JQG+1)=REF(HIGH,JQG+2)OR(REF(LOW,JQG+1)=REF(LOW,JQG+2)ANDREF(HIGH,JQG+1)=REF(HIGH,JQG+2);/前面底部的左侧第一根K线是否跟前一根重合/DDQQBBHH:=(REF(LOW,JQD+1)=REF(HIGH,JQD+

10、2)OR(REF(LOW,JQD+1)=REF(LOW,JQD+2)ANDREF(HIGH,JQD+1)=REF(HIGH,JQD+2);/当前位置左右侧跟前面高点点最高点是否包含判断/ADQGYCA:=(REFX(LOW,1)=REFX(HIGH,2)OR(REFX(LOW,1)=REFX(LOW,2)ANDREFX(HIGH,JQG+1)=REFX(HIGH,2);KAKDZC:=(REF(LOW,1)=REF(HIGH,2)OR(REF(LOW,1)=REF(LOW,2)ANDREF(HIGH,JQG+1)=REF(HIGH,2);BKDQDYC:=(REFX(LOW,1)=REFX(H

11、IGH,2)OR(REFX(LOW,1)=REFX(LOW,2)ANDREFX(HIGH,JQG+1)=REFX(HIGH,2);JKDQDZCA:=(REF(LOW,1)=REF(HIGH,2)OR(REF(LOW,1)=REF(LOW,2)ANDREF(HIGH,JQG+1)=REF(HIGH,2);/包含成立取最大值/按前面顺序/DZD:=MIN(REF(HIGH,JQD+1),REF(HIGH,JQD+2);GZD:=MAX(REF(LOW,JQG+1),REF(LOW,JQG+2);DQGYC:=MAX(REFX(LOW,1),REFX(LOW,2) );/当前是顶分型，取低点最大值

12、/DQGZC:=MAX(REF(LOW,1),REF(LOW,2);DQDYC:=MIN(REFX(HIGH,1),REFX(HIGH,2) );/当前是底分型，取高点最小值/DQDZC:=MIN(REF(HIGH,1),REF(HIGH,2);/高低点包含关系/BBDQBH:=LOWREF(LOW,JQG)ANDLOWREF(LOW,JQG+1)ANDLOWREF(LOW,JQG-1);/顶分型底分型包含判断/BDB:=(BDANDLOWIFELSE(JKDQDZCA,DQDZC,REF(HIGH,1)ANDREF(HIGH,JQG)IFELSE(BKDQDYC,DQDYC,REFX(HIG

13、H,1) ANDLOWREF(CLOSE,JQG+2)ANDLOW=REF(HIGH,JQG+1) ANDREF(LOW,JQG)=REF(LOW,JQG+1),REF(LOW,JQG+2),REF(LOW,JQG+1) ANDLOW=REF(HIGH,JQG-1) ANDREF(LOW,JQG)IFELSE(LOW=REFX(HIGH,1) ANDLOW=REF(HIGH,1),REFX(HIGH,2),REFX(HIGH,1) OR(BARSSINCE(BD)=0ANDCOUNT(BG ,BARPOS)=0) OR (BARSSINCE(BD)=0ANDCOUNT(BG ,BARPOS)=

14、1ANDBARSLAST(BG)=4ANDLOWREF(HIGH,BARSLAST(BG)ANDLOWREF(LOW,BARSLAST(BG)-1)ANDREF(HIGH,1)REF(HIGH,BARSLAST(BG)ANDREFX(HIGH,1)REF(HIGH,BARSLAST(BG); /当前底分型，最后一句包含缺口情况 ANDLOWREF(LOW,JQG)/BGB:=(BG ANDREF(LOW,JQD)REF(CLOSE,JQD+2) ANDHIGHIFELSE(DDQQBBHH,DZD,REF(HIGH,JQD+1) ANDREF(LOW,JQD)IFELSE(REF(LOW,JQ

15、D)REF(HIGH,JQD+1),REF(HIGH,JQD+2),REF(HIGH,JQD+1) ANDHIGHIFELSE(REF(LOW,JQD)REF(HIGH,JQD-1),REF(HIGH,JQD-2),REF(HIGH,JQD-1) ANDREF(LOW,JQD)=REFX(HIGH,1) ANDLOW=REF(HIGH,1) ANDLOW=4ANDHIGHREF(LOW,BARSLAST(BD)ANDHIGHREF(HIGH,BARSLAST(BD)-1)ANDREF(LOW,1)REF(LOW,BARSLAST(BD)ANDREFX(LOW,1)REF(LOW,BARSLAS

16、T(BD);/当前顶分型,最后一句是包含缺口情况 ANDHIGHREF(HIGH,JQD)/DRAWTEXT(BDB,LOW*0.98,低点)COL OR RED;/测试低点/DRAWTEXT(BGB,HIGH,高点)COL OR GREEN;/测试高点/HIGH*1.05;/合并同向高低点/JQD1:=BARSLAST(BDB);/距前低/JQG1:=BARSLAST(BGB);/距前高/笔高前一根/BBGQ:=(REFX(BGB,1)=1ANDBARSLAST(BDB)=3 ) OR(REFX(BGB,1)=1ANDCOUNT(BDB,BARPOS)=0ANDCOUNT(BGB,BARPO

17、S)=0);/DRAWTEXT(BBGQ ,HIGH,前)COL OR YELLOW;/测试低点/BBGQ1:=(BBGQANDCOUNT(BBGQ,BARSLAST(BDB)=1) OR ( BARSSINCE(BBGQ)=0);/DRAWTEXT(BBGQ1 ,HIGH*1.05,第一前)COL OR CYAN;/测试低点/新笔高/合并高点，只合并到距离前低5根K线部分/GG2:=(BGBANDBARSLAST(BDB)3ANDHIGH=HHV(HIGH,BARSLAST(BBGQ1)ANDCOUNT(BDB,BARSLAST(BBGQ1)=0);GG:=BACKSET(GG2,BARSL

18、AST(BBGQ1);/DRAWTEXT(GG,HIGH,1)COL OR YELLOW;/测试低点/DRAWTEXT(GGANDREFX(GG,1)=0),HIGH*1.03,二高);/XZBG1:=BGBANDBARSLAST(BDB)=3) OR(REFX(BDB,1)=1ANDCOUNT(BDB,BARPOS)=0ANDCOUNT(BGB,BARPOS)=0);BBDQ1:=(BBDQANDCOUNT(BBDQ,BARSLAST(BGB)=1) OR( BARSSINCE(BBDQ)=0);/DRAWTEXT(BBDQ ,LOW*0.98,前)COL OR YELLOW;/测试低点/D

19、RAWTEXT(BBDQ1,LOW*0.96,第一前)COL OR CYAN;/测试低点/新BD2/DD2:=(BDBANDBARSLAST(BGB)3ANDLOW=LLV(LOW,BARSLAST(BBDQ1)ANDCOUNT(BGB,BARSLAST(BBDQ1)=0);DD:=BACKSET(DD2,BARSLAST(BBDQ1);/DRAWTEXT(DD,HIGH,1);/DRAWTEXT(DDANDREFX(DD,1)=0),LOW*0.94,第二低点);/XZBD1:=BDBANDBARSLAST(BGB)4;/保留近低/ZDD:=(DDANDREFX(DD,1)=0)ORXZBD

20、1) OR(DDANDISLASTBAR) OR (BARSSINCE(BDB)=0ANDCOUNT(BGB,BARPOS)=0);/获取特殊低序列/精选点/DRAWTEXT(ZGD,HIGH*1.03,ZGD)COL OR WHITE DRAWABOVE;/DRAWTEXT(ZDD,LOW*0.97,ZDD)COL OR YELLOW DRAWABOVE;/DRAWTEXT(BDB,LOW,P低点)COL OR CYAN DRAWABOVE;/DRAWTEXT(BGB,HIGH,P高点)COL OR RED DRAWABOVE;/定义特征高低点后的，顶分型和底分型/FXD:=LOW=LOWA

21、NDREFX(LOW,2)=LOWANDREFX(LOW,3)=LOW ANDREFX(LOW,4)=LOW ANDREFX(LOW,5)=LOW ;/DRAWTEXT(FXD,LOW,FXD);/找出特征低点/TZD:=BACKSET(ZDDANDBARSLAST(ZGD)4 ,BARSLAST(ZGD);/特征低点向前赋值/TZDD:=(TZDANDREFX(TZD,1)=0) OR(TZDANDISLASTBAR);/定位特征低点/DRAWTEXT(TZDD,HIGH,特征低点);/TZG:=BACKSET(ZGDANDBARSLAST(ZDD)4 ,BARSLAST(ZDD);TZGG

22、:=(TZGANDREFX(TZG,1)=0) OR (TZGANDISLASTBAR);ZQGD:= BARSSINCE(ZGD)=0ANDCOUNT(ZDD,BARPOS)=0;JZD:=(TZDD ANDREF(TZGG,BARSLAST(ZGD)=0 ANDREF(REF(TZDD,BARSLAST(ZDD),1)=0) OR (TZDDANDREF(ZQGD,BARSLAST(ZGD);/找出特征低点/TZDQC:=BACKSET(JZD,BARSLAST(ZGD);/这地方等等再思考/TZDDDDFZ:=(TZDQCANDREFX(TZDQC,1)=0) OR (TZDQCANDI

23、SLASTBAR);/DRAWTEXT(TZDDDDFZ,LOW*0.98,去除低点)COL OR MAGENTA ;/找出符合条件底分型/JQD9:=BARSLAST(ZDD);/距前低/JQG9:=BARSLAST(ZGD);/距前高/K线包含处理/前面顶部左侧K线第1根是否跟前一根重合/DQBHGG9:=(REF(LOW,JQG9+1)=REF(HIGH,JQG9+2)OR(REF(LOW,JQG9+1)=REF(LOW,JQG9+2)ANDREF(HIGH,JQG9+1)=REF(HIGH,JQG9+2);/前面底部的左侧第一根K线是否跟前一根重合/DDQQBBHH9:=(REF(LO

24、W,JQD9+1)=REF(HIGH,JQD9+2)OR(REF(LOW,JQD9+1)=REF(LOW,JQD9+2)ANDREF(HIGH,JQD9+1)=REF(HIGH,JQD9+2);/当前位置左右侧跟前面高点点最高点是否包含判断/ADQGYCA9:=(REFX(LOW,1)=REFX(HIGH,2)OR(REFX(LOW,1)=REFX(LOW,2)ANDREFX(HIGH,JQG9+1)=REFX(HIGH,2);KAKDZC9:=(REF(LOW,1)=REF(HIGH,2)OR(REF(LOW,1)=REF(LOW,2)ANDREF(HIGH,JQG9+1)=REF(HIGH

25、,2);BKDQDYC9:=(REFX(LOW,1)=REFX(HIGH,2)OR(REFX(LOW,1)=REFX(LOW,2)ANDREFX(HIGH,JQG9+1)=REFX(HIGH,2);JKDQDZCA9:=(REF(LOW,1)=REF(HIGH,2)OR(REF(LOW,1)=REF(LOW,2)ANDREF(HIGH,JQG9+1)=REF(HIGH,2);/包含成立取最大值/按前面顺序/DZD9:=MIN(REF(HIGH,JQD9+1),REF(HIGH,JQD9+2);GZD9:=MAX(REF(LOW,JQG9+1),REF(LOW,JQG9+2);DQGYC9:=M

26、AX(REFX(LOW,1),REFX(LOW,2) );/当前是顶分型，取低点最大值/DQGZC9:=MAX(REF(LOW,1),REF(LOW,2);DQDYC9:=MIN(REFX(HIGH,1),REFX(HIGH,2) );/当前是底分型，取高点最小值/DQDZC9:=MIN(REF(HIGH,1),REF(HIGH,2);/高低点包含关系/BBDQBH9:=LOWREF(LOW,JQG9)ANDLOWREF(LOW,JQG9+1)ANDLOWREF(LOW,JQG9-1);/找出特征低点后符合条件的底分型/FHFXD:=BARSLAST(ZDD)=4AND FXDANDCOUNT

27、(ZDD,BARSLAST(ZGD)=1ANDREF(TZDDDDFZ,BARSLAST(ZDD)ANDHIGHREF(HIGH,BARSLAST(ZGD);/DRAWTEXT(FHFXD,LOW,底分型)COL OR RED;/顶分型底分型包含判断/BDB9:=(FHFXDANDLOWIFELSE(JKDQDZCA9,DQDZC9,REF(HIGH,1)ANDREF(HIGH,JQG9)IFELSE(BKDQDYC9,DQDYC9,REFX(HIGH,1) ANDLOWREF(CLOSE,JQG9+2)ANDLOWREF(LOW,JQG9-1) ANDLOW=REF(HIGH,JQG9+1)

28、 ANDREF(LOW,JQG9)=REF(LOW,JQG9+1),REF(LOW,JQG9+2),REF(LOW,JQG9+1) ANDLOW=REF(HIGH,JQG9-1) ANDREF(LOW,JQG9)IFELSE(LOW=REFX(HIGH,1) ANDLOW=REF(HIGH,1),REFX(HIGH,2),REFX(HIGH,1) ); /当前底分型，最后一句包含缺口情况 ANDLOWREF(LOW,JQG)/DRAWTEXT(BDB9,LOW*0.98,底分型)COL OR YELLOW;/定位第一个底分型/定位底分型左边一根/DFXZC1:=REFX(BDB9,1)=1 ;

29、DFXZC:=DFXZC1ANDCOUNT(DFXZC1,BARSLAST(ZGD)=1;/DRAWTEXT(BARSNEXT(BDB9)=1,LOW,前)COL OR RED;/DRAWTEXT(DFXZC,HIGH,第一前)COL OR GREEN;/DWDFXZCFZ:=BACKSET(BDB9ANDLOW=LLV(LOW,BARSLAST(DFXZC)ANDCOUNT(ZGD,BARSLAST(DFXZC)=0,BARSLAST(DFXZC);DWDYZC:=DWDFXZCFZANDREFX(DWDFXZCFZ,1)=0;/DRAWTEXT(DWDYZC,LOW*0.95,Z底分型)C

30、OL OR CYAN;/TZDQCHD1:=(ZDDANDTZDDDDFZ=0)ORDWDYZC) OR (DWDFXZCFZANDISLASTBAR) OR (BARSSINCE(ZDD)=0ANDCOUNT(ZGD,BARPOS)=0);/特征低去除后低点，产生新低点序列记为TZDQCHD/DRAWTEXT(TZDQCHD1,LOW*0.95,新低序列)COL OR RED;/合并低点/DDQ:=(REFX(TZDQCHD1,1)=1)OR (REFX(TZDQCHD1,1)=1ANDCOUNT(ZGD,BARPOS)=0ANDCOUNT(TZDQCHD1,BARPOS)=0);/DRAW

31、TEXT(DDQ,LOW,前);DDQ1:=(DDQANDCOUNT(DDQ,BARSLAST(ZGD)=1) OR (BARSSINCE(DDQ)=0);/DRAWTEXT(DDQ1,LOW*0.98,第一前)COL OR CYAN;/TZDCJDW:=BACKSET(TZDQCHD1ANDLOW=HHV(HIGH,BARSLAST(GDQQ1)ANDCOUNT(TZDQCHD,BARSLAST(GDQQ1)=0 ,BARSLAST(GDQQ1) );/赋值新高点，合并,修改过，添加COUNT(ZDD,BARSLAST(GDQQ1)=0/验证/DRAWTEXT(FZXGD,HIGH,1);/

32、DRAWTEXT(GDQQ,HIGH,前)COL OR MAGENTA;/DRAWTEXT(GDQQ1,HIGH*0.95,第一前)COL OR CYAN;/合并低点后形成的新高点/TZDQCHG:=(FZXGDANDREFX(FZXGD,1)=0) OR (FZXGDANDISLASTBAR) ;/DRAWTEXT(TZDQCHG,HIGH,新高) ;/找出特征高点/TZD1:=BACKSET(TZDQCHDANDBARSLAST(TZDQCHG)4 ,BARSLAST(TZDQCHG);/标记特征低点/TZDD1:=(TZD1ANDREFX(TZD1,1)=0) OR (TZD1ANDIS

33、LASTBAR);/区分特征低点序列/TZG1:=BACKSET(TZDQCHGANDBARSLAST(TZDQCHD)=REF(HIGH,1)ANDREFX(HIGH,1)=HIGH;/找出符合条件底分型/JQD10:=BARSLAST(TZDQCHD);/距前低/JQG10:=BARSLAST(TZDQCHG);/距前高/K线包含处理/前面顶部左侧K线第1根是否跟前一根重合/DQBHGG10:=(REF(LOW,JQG10+1)=REF(HIGH,JQG10+2)OR(REF(LOW,JQG10+1)=REF(LOW,JQG10+2)ANDREF(HIGH,JQG10+1)=REF(HIG

34、H,JQG10+2);/前面底部的左侧第一根K线是否跟前一根重合/DDQQBBHH10:=(REF(LOW,JQD10+1)=REF(HIGH,JQD10+2)OR(REF(LOW,JQD10+1)=REF(LOW,JQD10+2)ANDREF(HIGH,JQD10+1)=REF(HIGH,JQD10+2);/当前位置左右侧跟前面高点点最高点是否包含判断/ADQGYCA10:=(REFX(LOW,1)=REFX(HIGH,2)OR(REFX(LOW,1)=REFX(LOW,2)ANDREFX(HIGH,JQG10+1)=REFX(HIGH,2);KAKDZC10:=(REF(LOW,1)=RE

35、F(HIGH,2)OR(REF(LOW,1)=REF(LOW,2)ANDREF(HIGH,JQG10+1)=REF(HIGH,2);BKDQDYC10:=(REFX(LOW,1)=REFX(HIGH,2)OR(REFX(LOW,1)=REFX(LOW,2)ANDREFX(HIGH,JQG10+1)=REFX(HIGH,2);JKDQDZCA10:=(REF(LOW,1)=REF(HIGH,2)OR(REF(LOW,1)=REF(LOW,2)ANDREF(HIGH,JQG10+1)=REF(HIGH,2);/包含成立取最大值/按前面顺序/DZD10:=MIN(REF(HIGH,JQD10+1),

36、REF(HIGH,JQD10+2);GZD10:=MAX(REF(LOW,JQG10+1),REF(LOW,JQG10+2);DQGYC10:=MAX(REFX(LOW,1),REFX(LOW,2) );/当前是顶分型，取低点最大值/DQGZC10:=MAX(REF(LOW,1),REF(LOW,2);DQDYC10:=MIN(REFX(HIGH,1),REFX(HIGH,2) );/当前是底分型，取高点最小值/DQDZC10:=MIN(REF(HIGH,1),REF(HIGH,2);/高低点包含关系/BBDQBH10:=LOWREF(LOW,JQG10)ANDLOWREF(LOW,JQG10

37、+1)ANDLOWBARSLAST(TZDQCHG)ANDBARSLAST(TZDQCHD)=4AND FXGANDCOUNT(TZDQCHG,BARSLAST(TZDQCHD)=1 ANDREF(TZGQCFZ,BARSLAST(TZDQCHG)ANDHIGHREF(HIGH,BARSLAST(TZDQCHD);/DRAWTEXT(FHFXG,HIGH*1.03,顶分型)COL OR YELLOW;/顶分型底分型包含判断/BGB10:=(FHFXGANDHIGHIFELSE(DDQQBBHH10,DZD10,REF(HIGH,JQD10+1)ANDREF(LOW,JQD10)IFELSE(A

38、DQGYCA10,DQGYC10,REFX(LOW,1)ANDREF(LOW,JQD10)REF(CLOSE,JQD10+2) ANDHIGHIFELSE(REF(LOW,JQD10)REF(HIGH,JQD10+1),REF(HIGH,JQD10+2),REF(HIGH,JQD10+1) ANDHIGHIFELSE(REF(LOW,JQD10)REF(HIGH,JQD10-1),REF(HIGH,JQD10-2),REF(HIGH,JQD10-1) ANDREF(LOW,JQD10)=REFX(HIGH,1) ANDLOW=REF(HIGH,1) ANDLOWREF(HIGH,JQD)/DR

39、AWTEXT(BGB10,HIGH,顶分型)COL OR RED;/定位顶分型左边一根/GFXZC1:=REFX(BGB10,1)=1;GFXZC:=GFXZC1ANDCOUNT(GFXZC1,BARSLAST(TZDQCHG)=1;/赋值第一个CFXZC/DRAWTEXT(BARSNEXT(BGB10)=1 ,LOW,前)COL OR RED;/DRAWTEXT(GFXZC,HIGH,第一前)COL OR GREEN;/DWGFXZCFZ:=BACKSET(BGB10ANDHIGH=HHV(HIGH,BARSLAST(GFXZC)ANDCOUNT(TZDQCHD,BARSLAST(GFXZC)=0,BARSLAST(GFXZC);/DRAWTEXT(DWGFXZCFZ,HIGH,1);/DWDYGZC:=(DWGFXZCFZANDREFX(DWGFXZCFZ,1)=0