缠论中枢源代码

MA(CLOSE,5);

//福安赚差价的人，设计QQ624544691

//高低点一定是前6天和后6天的最高点和最低点//

BD1:=LOW<=LLV(LOW,6) AND REFX(LOW,1)>=LOW AND REFX(LOW,2)>=LOW AND REFX(LOW,3)>=LOW AND REFX(LOW,4)>=LOW AND REFX(LOW,5)>=LOW ;//笔高，粗选//

BG1:= HIGH>=HHV(HIGH,6) AND REFX(HIGH,1)<=HIGH AND REFX(HIGH,2)<=HIGH AND REFX(HIGH,3)<=HIGH AND REFX(HIGH,4)<=HIGH AND REFX(HIGH,5)<=HIGH ;//笔低，粗选//

BDQ:=(REFX(BD1,1)=1 AND BARSLAST(BG1)>=3)

OR (REFX(BD1,1)=1 AND COUNT(BD1,BARPOS)=0 AND COUNT(BG1,BARPOS)=0) ; BDQ1:=(BDQ AND COUNT(BDQ,BARSLAST(BG1))=1) OR ( BARSSINCE(BDQ)=0); BD2:=(BD1 AND BARSLAST(BG1)>3 AND LOW<=LLV(LOW,BARSLAST(BDQ1)) AND COUNT(BG1,BARSLAST(BDQ1))=0) OR (BD1 AND LOW<=LLV(LOW,BARSLAST(BDQ1)) AND COUNT(BG1,BARPOS)=0 ); BDDW:=BACKSET(BD2,BARSLAST(BDQ1)); //DRAWTEXT(BDDW,HIGH,'1');

//DRAWTEXT((BDDW AND REFX(BDDW,1)=0),LOW*0.94,'第二低点');//

BD3:=(BDDW AND REFX(BDDW,1)=0) OR (BDDW AND ISLASTBAR) OR (BD1 AND BARSLAST(BG1)<4);//修改过，去除高低点在同一根//

//笔高前一根//

BGQ:=(REFX(BG1,1)=1 AND BARSLAST(BD1)>=3)

OR (REFX(BG1,1)=1 AND COUNT(BD1,BARPOS)=0 AND COUNT(BG1,BARPOS)=0); //DRAWTEXT(BGQ ,HIGH,'前')COL OR YELLOW;//测试低点//

BGQ1:=(BGQ AND COUNT(BGQ,BARSLAST(BD1))=1) OR ( BARSSINCE(BGQ)=0); //DRAWTEXT(BGQ1 ,HIGH*1.03,'第一前')COL OR CYAN;//测试低点// //新笔高//

BG2:=(BG1 AND BARSLAST(BD1)>3 AND HIGH>=HHV(HIGH,BARSLAST(BGQ1)) AND COUNT(BD1,BARSLAST(BGQ1))=0 ) OR (BG1 AND HIGH>=HHV(HIGH,BARSLAST(BGQ1)) AND COUNT(BD1,BARPOS)=0 ); BGDW:=BACKSET(BG2,BARSLAST(BGQ1));

//DRAWTEXT((BGDW AND REFX(BGDW,1)=0),HIGH*1.03,'第二高');// BG3:=(BGDW AND REFX(BGDW,1)=0) OR (BG1 AND BARSLAST(BD1)<4) ;

//跟前面的笔高距离小于4，并且价格是最低的// //笔低前一根//

(BGDW AND ISLASTBAR) OR

BDQ30:=(REFX(BD1,1)=1 ) OR (REFX(BD1,1)=1 AND COUNT(BD1,BARPOS)=0 AND COUNT(BG1,BARPOS)=0) ; BDQ130:=(BDQ30 AND COUNT(BDQ30,BARSLAST(BG1))=1)

OR ( BARSSINCE(BDQ30)=0);

//DRAWTEXT(BDQ ,LOW*0.98,'前')COL OR YELLOW;//测试低点// //DRAWTEXT(BDQ1,LOW*0.96,'第一前')COL OR CYAN;//测试低点// //新BD2//

BD230:=(BD1 AND LOW<=LLV(LOW,BARSLAST(BDQ130)) AND COUNT(BG1,BARSLAST(BDQ130))=0 ) OR (BD1 AND LOW<=LLV(LOW,BARSLAST(BDQ130)) AND COUNT(BG1,BARPOS)=0 ); BDDW30:=BACKSET(BD230,BARSLAST(BDQ130)); BD4:=BDDW30 AND REFX(BDDW30,1)=0;

BD5:=BD3 OR (BD4 AND BARSLAST(BG1)<4 ) ;

//跟前面的笔低距离小于4，并且价格是最高的// //笔高前一根//

BGQ30:=(REFX(BG1,1)=1 )

OR (REFX(BG1,1)=1 AND COUNT(BD1,BARPOS)=0 AND COUNT(BG1,BARPOS)=0); //DRAWTEXT(BGQ ,HIGH,'前')COL OR YELLOW;//测试低点// BGQ130:=(BGQ30 AND COUNT(BGQ30,BARSLAST(BD1))=1) ( BARSSINCE(BGQ30)=0);

//DRAWTEXT(BGQ1 ,HIGH*1.03,'第一前')COL OR CYAN;//测试低点// //新笔高//

OR

BG230:=(BG1 AND HIGH>=HHV(HIGH,BARSLAST(BGQ130)) AND COUNT(BD1,BARSLAST(BGQ130))=0) OR (BG1 AND HIGH>=HHV(HIGH,BARSLAST(BGQ130)) AND COUNT(BD1,BARPOS)=0 ); BGDW30:=BACKSET(BG230,BARSLAST(BGQ130)); BG4:=BGDW30 AND REFX(BGDW30,1)=0;

BG5:=BG3 OR (BG4 AND BARSLAST(BD1)<4) ;

//去掉绝对错误低点//

BD6:=(BD5 AND LOW>=REF(HIGH,BARSLAST(BG5)) ) ;//最低价大于前笔高//

BD7:= BD5 AND REFX(HIGH,1)>=REF(HIGH,BARSLAST(BG5)) ;//笔低后面一根最高价大于前高//

//DRAWTEXT(BD7,HIGH,'错误低点');//

BD:=BD5 AND BD6=0 AND BD7=0;

//去掉绝对错误高点//

BG6:=BG5 AND HIGH<=REF(LOW,BARSLAST(BD5));

BG7:=BG5 AND REFX(LOW,1)<=REF(LOW,BARSLAST(BD5)) ; BG:= BG5 AND BG6=0 AND BG7=0;

//DRAWTEXT(BD5 ,LOW,'低点')COL OR RED;//测试低点// //DRAWTEXT(BG5,HIGH,'高点')COL OR GREEN;//测试高点// //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) AND REF(HIGH,JQG+1)>=REF(HIGH,JQG+2)) OR (REF(LOW,JQG+1)>=REF(LOW,JQG+2) AND REF(HIGH,JQG+1)<=REF(HIGH,JQG+2));

//前面底部的左侧第一根K线是否跟前一根重合//

DDQQBBHH:=(REF(LOW,JQD+1)<=REF(LOW,JQD+2) AND REF(HIGH,JQD+1)>=REF(HIGH,JQD+2)) OR (REF(LOW,JQD+1)>=REF(LOW,JQD+2) AND REF(HIGH,JQD+1)<=REF(HIGH,JQD+2));

//当前位置左右侧跟前面高点点最高点是否包含判断//

ADQGYCA:=(REFX(LOW,1)<=REFX(LOW,2) AND REFX(HIGH,1)>=REFX(HIGH,2)) OR (REFX(LOW,1)>=REFX(LOW,2) AND REFX(HIGH,JQG+1)<=REFX(HIGH,2));

KAKDZC:=(REF(LOW,1)<=REF(LOW,2) AND REF(HIGH,1)>=REF(HIGH,2)) OR (REF(LOW,1)>=REF(LOW,2) AND REF(HIGH,JQG+1)<=REF(HIGH,2));

BKDQDYC:=(REFX(LOW,1)<=REFX(LOW,2) AND REFX(HIGH,1)>=REFX(HIGH,2)) OR (REFX(LOW,1)>=REFX(LOW,2) AND REFX(HIGH,JQG+1)<=REFX(HIGH,2));

JKDQDZCA:=(REF(LOW,1)<=REF(LOW,2) AND REF(HIGH,1)>=REF(HIGH,2)) OR (REF(LOW,1)>=REF(LOW,2) AND REF(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:=LOW

//顶分型底分型包含判断//

BDB:=(BD AND LOW

>IFELSE(JKDQDZCA,DQDZC,REF(HIGH,1)) AND REF(HIGH,JQG)>IFELSE(BKDQDYC,DQDYC,REFX(HIGH,1))

AND LOW=REF(HIGH,JQG+1) AND REF(LOW,JQG)<=REF(LOW,JQG+1)),REF(LOW,JQG+2),REF(LOW,JQG+1)) AND LOW=REF(HIGH,JQG-1)

AND REF(LOW,JQG)<=REF(LOW,JQG-1),REF(LOW,JQG-2),REF(LOW,JQG-1)) AND REF(HIGH,JQG)>IFELSE(LOW<=REFX(LOW,1) AND HIGH>=REFX(HIGH,1) AND LOW<=REF(LOW,1) AND HIGH>=REF(HIGH,1),REFX(HIGH,2),REFX(HIGH,1))) OR (BARSSINCE(BD)=0 AND COUNT(BG ,BARPOS)=0) OR (BARSSINCE(BD)=0 AND COUNT(BG ,BARPOS)=1 AND BARSLAST(BG)>=4 AND LOW

; //当前底分型，最后一句包含缺口情况 AND LOW

BGB:=(BG AND REF(LOW,JQD)REF(CLOSE,JQD+2)

AND HIGH>IFELSE(DDQQBBHH,DZD,REF(HIGH,JQD+1))

AND REF(LOW,JQD)IFELSE(REF(LOW,JQD)<=REF(LOW,JQD+1)

AND REF(HIGH,JQD)>REF(HIGH,JQD+1),REF(HIGH,JQD+2),REF(HIGH,JQD+1)) AND HIGH>IFELSE(REF(LOW,JQD)<=REF(LOW,JQD-1)

AND REF(HIGH,JQD)>REF(HIGH,JQD-1),REF(HIGH,JQD-2),REF(HIGH,JQD-1)) AND REF(LOW,JQD)=REFX(HIGH,1) AND LOW<=REFX(LOW,1) AND HIGH>=REF(HIGH,1) AND LOW<=REF(LOW,1),REFX(LOW,2),REFX(LOW,1))) OR (BARSSINCE(BG)=0 AND COUNT(BD ,BARPOS)=0) OR (BARSSINCE(BG)=0 AND COUNT(BD ,BARPOS)=1 AND BARSLAST(BD)>=4 AND HIGH>REF(LOW,BARSLAST(BD)) AND HIGH>REF(HIGH,BARSLAST(BD)-1) AND REF(LOW,1)>REF(LOW,BARSLAST(BD)) AND REFX(LOW,1)>REF(LOW,BARSLAST(BD)))

;//当前顶分型,最后一句是包含缺口情况 AND HIGH>REF(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)=1 AND BARSLAST(BDB)>=3 ) OR (REFX(BGB,1)=1 AND COUNT(BDB,BARPOS)=0 AND COUNT(BGB,BARPOS)=0);

//DRAWTEXT(BBGQ ,HIGH,'前')COL OR YELLOW;//测试低点//

BBGQ1:=(BBGQ AND COUNT(BBGQ,BARSLAST(BDB))=1) OR ( BARSSINCE(BBGQ)=0); //DRAWTEXT(BBGQ1 ,HIGH*1.05,'第一前')COL OR CYAN;//测试低点//

//新笔高////合并高点，只合并到距离前低5根K线部分//

GG2:=(BGB AND BARSLAST(BDB)>3 AND HIGH>=HHV(HIGH,BARSLAST(BBGQ1)) AND COUNT(BDB,BARSLAST(BBGQ1))=0);

GG:=BACKSET(GG2,BARSLAST(BBGQ1));

//DRAWTEXT(GG,HIGH,'1')COL OR YELLOW;//测试低点//

//DRAWTEXT((GG AND REFX(GG,1)=0),HIGH*1.03,'二高');//

XZBG1:=BGB AND BARSLAST(BDB)<4 ;//保留近高//

ZGD:=((GG AND REFX(GG,1)=0) OR XZBG1) OR (GG AND ISLASTBAR) (BARSSINCE(BGB)=0 AND COUNT(BDB,BARPOS)=0);//获取特殊高序列//

//新笔低// //笔低前一根//

BBDQ:=(REFX(BDB,1)=1 AND BARSLAST(BGB)>=3)

OR (REFX(BDB,1)=1 AND COUNT(BDB,BARPOS)=0 AND COUNT(BGB,BARPOS)=0); BBDQ1:=(BBDQ AND COUNT(BBDQ,BARSLAST(BGB))=1) OR ( BARSSINCE(BBDQ)=0); //DRAWTEXT(BBDQ ,LOW*0.98,'前')COL OR YELLOW;//测试低点// //DRAWTEXT(BBDQ1,LOW*0.96,'第一前')COL OR CYAN;//测试低点// //新BD2//

DD2:=(BDB AND BARSLAST(BGB)>3 AND LOW<=LLV(LOW,BARSLAST(BBDQ1)) AND COUNT(BGB,BARSLAST(BBDQ1))=0); DD:=BACKSET(DD2,BARSLAST(BBDQ1)); //DRAWTEXT(DD,HIGH,'1');

//DRAWTEXT((DD AND REFX(DD,1)=0),LOW*0.94,'第二低点');//

XZBD1:=BDB AND BARSLAST(BGB)<4;//保留近低//

ZDD:=((DD AND REFX(DD,1)=0) OR XZBD1) OR (DD AND ISLASTBAR) (BARSSINCE(BDB)=0 AND COUNT(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;

OR

OR

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库缠论中枢源代码在线全文阅读。