缠论中枢源代码(3)

DWGFXZCFZ:=BACKSET(BGB10 AND HIGH>=HHV(HIGH,BARSLAST(GFXZC)) AND COUNT(TZDQCHD,BARSLAST(GFXZC))=0,BARSLAST(GFXZC)); //DRAWTEXT(DWGFXZCFZ,HIGH,'1');//

DWDYGZC:=(DWGFXZCFZ AND REFX(DWGFXZCFZ,1)=0) OR (DWGFXZCFZ AND ISLASTBAR);

//DRAWTEXT(DWDYGZC,HIGH*1.03,'Z顶分型')COL OR CYAN;//

TZGQCHGG1:=((TZDQCHG AND TZGQCFZ=0) OR DWDYGZC) OR (BARSSINCE(ZGD)=0 AND COUNT(TZDQCHD,BARPOS)=0);//特征高去除后低点，产生新高点序列记为TZGQCHG1//; //验证//

//DRAWTEXT(TZDQCHG AND TZGQCFZ=0,HIGH,'高点')COL OR MAGENTA;// //合并高点//

ZZGQ:=REFX(TZGQCHGG1,1)=1;

ZZGQ1:=(ZZGQ AND COUNT(ZZGQ,BARSLAST(TZDQCHD))=1) OR (BARSSINCE(ZZGQ)=0);

TZGDZZFZ:=BACKSET(TZGQCHGG1 AND HIGH>=HHV(HIGH,BARSLAST(ZZGQ1)) AND COUNT(TZDQCHD,BARSLAST(ZZGQ1))=0,BARSLAST(ZZGQ1)); //验证//

//DRAWTEXT(ZZGQ,HIGH,'前')COL OR MAGENTA;

//DRAWTEXT(ZZGQ1,HIGH*0.95,'第一前')COL OR CYAN;//

TZGQCHG1:=(TZGDZZFZ AND REFX(TZGDZZFZ,1)=0) (TZGDZZFZ AND ISLASTBAR)

(BARSSINCE(TZGQCHGG1)=0 AND COUNT(TZDQCHD,BARPOS)=0); //最新高//

//DRAWTEXT(TZGQCHG1,HIGH*0.98,'新高')COL OR MAGENTA;// //合并低点//

ZZDDQ:=REFX(TZDQCHD,1)=1;//相对上一新高点，合并低点，定义新低点//

OR OR

ZZDDQ1:=(ZZDDQ AND COUNT(ZZDDQ,BARSLAST(TZGQCHG1))=1) OR (BARSSINCE(ZZDDQ)=0);

FZXDD1:=BACKSET(TZDQCHD AND LOW<=LLV(LOW,BARSLAST(ZZDDQ1)) AND COUNT(TZGQCHG1,BARSLAST(ZZDDQ1))=0 ,BARSLAST(ZZDDQ1));//赋值新高点，合并// //验证//

//DRAWTEXT(ZZDDQ,HIGH,'前')COL OR MAGENTA;

//DRAWTEXT(ZZDDQ1,HIGH*0.95,'第一前')COL OR CYAN;//

TZGQCHD1:=(FZXDD1 AND REFX(FZXDD1,1)=0) OR (FZXDD1 AND ISLASTBAR) OR (BARSSINCE(TZDQCHD)=0 AND COUNT(TZGQCHG1,BARPOS)=0);//合并低点后形成的新低点//

//再次去除特征高低点//

BBD:=TZGQCHD1; BBG:=TZGQCHG1;

C1:=BBG OR BBD;

POLYLINE( C1,IFELSE(BBD,LOW,HIGH) COLORGREEN) ) ,POINTDOT;

, IFELSE(BBD,COLORRED,