缠论波浪黄金趋势线组合[支撑压力系列]
自动画线公式，划线公式需要用到未来函数
ZBGS1:=8;
ZBGS2:=REF(H,ZBGS1)=HHV(H,2*ZBGS1+1);
ZBGS3:=FILTER(ZBGS2,ZBGS1);
ZBGS4:=BACKSET(ZBGS3,ZBGS1+1);
ZBGS5:=FILTER(ZBGS4,ZBGS1);
ZBGS6:=REF(L,ZBGS1)=LLV(L,2*ZBGS1+1);
ZBGS7:=FILTER(ZBGS6,ZBGS1);
ZBGS8:=BACKSET(ZBGS7,ZBGS1+1);
ZBGS9:=FILTER(ZBGS8,ZBGS1);
ZBGS10:=(REF(LLV(L,2*ZBGS1),1)+REF(HHV(H,2*ZBGS1),1))/2;
ZBGS11:=(H+L)/2;
ZBGS12:=(ZBGS5 AND NOT(ZBGS9 AND ZBGS10>=ZBGS11)) OR ISLASTBAR OR BARSCOUNT(C)=1;
ZBGS13:=(ZBGS9 AND NOT(ZBGS5 AND ZBGS10< ZBGS11));
ZBGS14:=ZBGS5 AND NOT(ZBGS9 AND ZBGS10>=ZBGS11);
ZBGS15:=REF(BARSLAST(ZBGS12),1)+1;
ZBGS16:=BACKSET(ZBGS12 AND COUNT(ZBGS13,ZBGS15)>0,LLVBARS(IF(ZBGS13,L,10000),ZBGS15));
ZBGS17:=ZBGS16>REF(ZBGS16,1);
ZBGS18:=BACKSET(ZBGS17,2);
ZBGS19:=ZBGS18>REF(ZBGS18,1);
ZBGS20:=ZBGS19 OR ISLASTBAR OR BARSCOUNT(C)=1;
ZBGS21:=REF(BARSLAST(ZBGS20),1)+1;
ZBGS22:=BACKSET(ZBGS20 AND COUNT(ZBGS14,ZBGS21)>0,HHVBARS(IF(ZBGS14,H,0),ZBGS21));
ZBGS23:=ZBGS22>REF(ZBGS22,1);
ZBGS24:=BACKSET(ZBGS23,2);
ZBGS25:=ZBGS24>REF(ZBGS24,1);
ZBGS26:=BACKSET(ISLASTBAR,BARSLAST(ZBGS25)+1);
ZBGS27:=ZBGS26>REF(ZBGS26,1);
ZBGS28:=BACKSET(ISLASTBAR,BARSLAST(ZBGS19)+1);
ZBGS29:=ZBGS28>REF(ZBGS28,1);
ZBGS30:=BACKSET(ZBGS27,REF(BARSLAST(ZBGS25),1)+2);
ZBGS31:=ZBGS30>REF(ZBGS30,1);
ZBGS32:=BACKSET(ZBGS29,REF(BARSLAST(ZBGS19),1)+2);
ZBGS33:=ZBGS32>REF(ZBGS32,1);
ZBGS34:DRAWLINE(ZBGS31,H,ZBGS27,H,1),LINETHICK2,COLORRED;
ZBGS35:DRAWLINE(ZBGS33,L,ZBGS29,L,1),LINETHICK2,COLORGREEN;
DRAWICON(ZBGS31,H,2);
DRAWICON(ZBGS27,H,2);
DRAWICON(ZBGS33,L,1);
DRAWICON(ZBGS29,L,1);
DRAWLINE(ZBGS25,H,ZBGS19,L,0),COLORGREEN;
DRAWLINE(ZBGS19,L,ZBGS25,H,0),COLORRED;
ZBGS36:=34;
ZBGS37:=3;
ZBGS38:=REF(HHV(H,ZBGS36),ZBGS37);
ZBGS39:=REF(LLV(L,ZBGS36),ZBGS37);
ZBGS40:=ZBGS38-(ZBGS38-ZBGS39)*0.191;
ZBGS41:=ZBGS38-(ZBGS38-ZBGS39)*0.382;
ZBGS42:=ZBGS38-(ZBGS38-ZBGS39)*0.500;
ZBGS43:=ZBGS38-(ZBGS38-ZBGS39)*0.618;
ZBGS44:=ZBGS38-(ZBGS38-ZBGS39)*0.809;
ZBGS45:REFDATE(ZBGS38,DATE),COLORYELLOW;
ZBGS46:REFDATE(ZBGS40,DATE),COLORGRAY,DOTLINE;
ZBGS47:REFDATE(ZBGS41,DATE),COLORGRAY,DOTLINE;
ZBGS48:REFDATE(ZBGS42,DATE),COLORRED,DOTLINE;
ZBGS49:REFDATE(ZBGS43,DATE),COLORGRAY,DOTLINE;
ZBGS50:REFDATE(ZBGS44,DATE),COLORGRAY,DOTLINE;
ZBGS51:REFDATE(ZBGS39,DATE),COLORYELLOW;
ZBGS52:=(CURRBARSCOUNT=34);
DRAWTEXT(ZBGS52 AND ZBGS45,ZBGS45,'---高---'),COLORYELLOW;
DRAWTEXT(ZBGS52 AND ZBGS46,ZBGS46,'-0.809-'),COLORCYAN;
DRAWTEXT(ZBGS52 AND ZBGS47,ZBGS47,'-0.618-'),COLORGREEN;
DRAWTEXT(ZBGS52 AND ZBGS48,ZBGS48,'-0.500-'),COLORYELLOW;
DRAWTEXT(ZBGS52 AND ZBGS49,ZBGS49,'-0.382-'),COLORGREEN;
DRAWTEXT(ZBGS52 AND ZBGS50,ZBGS50,'-0.191-'),COLORCYAN;
DRAWTEXT(ZBGS52 AND ZBGS51,ZBGS51,'---底---'),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=1,ZBGS45,CON2STR(ZBGS45,2)),COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=1,ZBGS46,CON2STR(ZBGS46,2)),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=1,ZBGS47,CON2STR(ZBGS47,2)),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=1,ZBGS48,CON2STR(ZBGS48,2)),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=1,ZBGS49,CON2STR(ZBGS49,2)),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=1,ZBGS50,CON2STR(ZBGS50,2)),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=1,ZBGS51,CON2STR(ZBGS51,2)),COLORMAGENTA;
