缠论中枢源代码

MA(CLOSE,5);//福安赚差价的人，设计QQ624544691//高低点一定是前6天和后6天的最高点和最低点//BD1:=LOW=LLV(LOW,6)ANDREFX(LOW,1)=LOWANDREFX(LOW,2)=LOWANDREFX(LOW,3)=LOWANDREFX(LOW,4)=LOWANDREFX(LOW,5)=LOW;//笔高，粗选//BG1:=HIGH=HHV(HIGH,6)ANDREFX(HIGH,1)=HIGHANDREFX(HIGH,2)=HIGHANDREFX(HIGH,3)=HIGHANDREFX(HIGH,4)=HIGHANDREFX(HIGH,5)=HIGH;//笔低，粗选//BDQ:=(REFX(BD1,1)=1ANDBARSLAST(BG1)=3)OR(REFX(BD1,1)=1ANDCOUNT(BD1,BARPOS)=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(BD1ANDLOW=LLV(LOW,BARSLAST(BDQ1))ANDCOUNT(BG1,BARPOS)=0);BDDW:=BACKSET(BD2,BARSLAST(BDQ1));//DRAWTEXT(BDDW,HIGH,'1');//DRAWTEXT((BDDWANDREFX(BDDW,1)=0),LOW*0.94,'第二低点');//BD3:=(BDDWANDREFX(BDDW,1)=0)OR(BDDWANDISLASTBAR)OR(BD1ANDBARSLAST(BG1)4);//修改过，去除高低点在同一根////笔高前一根//BGQ:=(REFX(BG1,1)=1ANDBARSLAST(BD1)=3)OR(REFX(BG1,1)=1ANDCOUNT(BD1,BARPOS)=0ANDCOUNT(BG1,BARPOS)=0);//DRAWTEXT(BGQ,HIGH,'前')COLORYELLOW;//测试低点//BGQ1:=(BGQANDCOUNT(BGQ,BARSLAST(BD1))=1)OR(BARSSINCE(BGQ)=0);//DRAWTEXT(BGQ1,HIGH*1.03,'第一前')COLORCYAN;//测试低点////新笔高//BG2:=(BG1ANDBARSLAST(BD1)3ANDHIGH=HHV(HIGH,BARSLAST(BGQ1))ANDCOUNT(BD1,BARSLAST(BGQ1))=0)OR(BG1ANDHIGH=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)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,'前')COLORYELLOW;//测试低点////DRAWTEXT(BDQ1,LOW*0.96,'第一前')COLORCYAN;//测试低点////新BD2//BD230:=(BD1ANDLOW=LLV(LOW,BARSLAST(BDQ130))ANDCOUNT(BG1,BARSLAST(BDQ130))=0)OR(BD1ANDLOW=LLV(LOW,BARSLAST(BDQ130))ANDCOUNT(BG1,BARPOS)=0);BDDW30:=BACKSET(BD230,BARSLAST(BDQ130));BD4:=BDDW30ANDREFX(BDDW30,1)=0;BD5:=BD3OR(BD4ANDBARSLAST(BG1)4);//跟前面的笔低距离小于4，并且价格是最高的////笔高前一根//BGQ30:=(REFX(BG1,1)=1)OR(REFX(BG1,1)=1ANDCOUNT(BD1,BARPOS)=0ANDCOUNT(BG1,BARPOS)=0);//DRAWTEXT(BGQ,HIGH,'前')COLORYELLOW;//测试低点//BGQ130:=(BGQ30ANDCOUNT(BGQ30,BARSLAST(BD1))=1)OR(BARSSINCE(BGQ30)=0);//DRAWTEXT(BGQ1,HIGH*1.03,'第一前')COLORCYAN;//测试低点////新笔高//BG230:=(BG1ANDHIGH=HHV(HIGH,BARSLAST(BGQ130))ANDCOUNT(BD1,BARSLAST(BGQ130))=0)OR(BG1ANDHIGH=HHV(HIGH,BARSLAST(BGQ130))ANDCOUNT(BD1,BARPOS)=0);BGDW30:=BACKSET(BG230,BARSLAST(BGQ130));BG4:=BGDW30ANDREFX(BGDW30,1)=0;BG5:=BG3OR(BG4ANDBARSLAST(BD1)4);//去掉绝对错误低点//BD6:=(BD5ANDLOW=REF(HIGH,BARSLAST(BG5)));//最低价大于前笔高//BD7:=BD5ANDREFX(HIGH,1)=REF(HIGH,BARSLAST(BG5));//笔低后面一根最高价大于前高////DRAWTEXT(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,'低点')COLORRED;//测试低点////DRAWTEXT(BG5,HIGH,'高点')COLORGREEN;//测试高点////DRAWTEXT(BD1,LOW,'低点');//测试低点////DRAWTEXT(BG1,HIGH,'高点');//测试高点////DRAWTEXT(BD,LOW,'Y低点');//测试低点////DRAWTEXT(BG,HIGH,'Y高点');//测试高点//JQD:=BARSLAST(BD);//距前低//JQG:=BARSLAST(BG);//距前高////K线包含处理////前面顶部左侧K线第1根是否跟前一根重合//DQBHGG:=(REF(LOW,JQG+1)=REF(LOW,JQG+2)ANDREF(HIGH,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(LOW,JQD+2)ANDREF(HIGH,JQD+1)=REF(HIGH,JQD+2))OR(REF(LOW,JQD+1)=REF(LOW,JQD+2)ANDREF(HIGH,JQD+1)=REF(HIGH,JQD+2));//当前位置左右侧跟前面高点点最高点是否包含判断//ADQGYCA:=(REFX(LOW,1)=REFX(LOW,2)ANDREFX(HIGH,1)=REFX(HIGH,2))OR(REFX(LOW,1)=REFX(LOW,2)ANDREFX(HIGH,JQG+1)=REFX(HIGH,2));KAKDZC:=(REF(LOW,1)=REF(LOW,2)ANDREF(HIGH,1)=REF(HIGH,2))OR(REF(LOW,1)=REF(LOW,2)ANDREF(HIGH,JQG+1)=REF(HIGH,2));BKDQDYC:=(REFX(LOW,1)=REFX(LOW,2)ANDREFX(HIGH,1)=REFX(HIGH,2))OR(REFX(LOW,1)=REFX(LOW,2)ANDREFX(HIGH,JQG+1)=REFX(HIGH,2));JKDQDZCA:=(REF(LOW,1)=REF(LOW,2)ANDREF(HIGH,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));//当前是顶分型，取低点最大值//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(DQBHGG,GZD,REF(LOW,JQG+1))ANDREF(HIGH,JQG)IFELSE(JKDQDZCA,DQDZC,REF(HIGH,1))ANDREF(HIGH,JQG)IFELSE(BKDQDYC,DQDYC,REFX(HIGH,1))ANDLOWREF(CLOSE,JQG+2)ANDLOWIFELSE((REF(HIGH,JQG)=REF(HIGH,JQG+1)ANDREF(LOW,JQG)=REF(LOW,JQG+1)),REF(LOW,JQG+2),REF(LOW,JQG+1))ANDLOWIFELSE(REF(HIGH,JQG)=REF(HIGH,JQG-1)ANDREF(LOW,JQG)=REF(LOW,JQG-1),REF(LOW,JQG-2),REF(LOW,JQG-1))ANDREF(HIGH,JQG)IFELSE(LOW=REFX(LOW,1)ANDHIGH=REFX(HIGH,1)ANDLOW=REF(LOW,1)ANDHIGH=REF(HIGH,1),REFX(HIGH,2),REFX(HIGH,1)))OR(BARSSINCE(BD)=0ANDCOUNT(BG,BARPOS)=0)OR(BARSSINCE(BD)=0ANDCOUNT(BG,BARPOS)=1ANDBARSLAST(BG)=4ANDLOWREF(HIGH,BARSLAST(BG))ANDLOWREF(LOW,BARSLAST(BG)-1)ANDREF(HIGH,1)RE