{1、波浪高低點}
TY:=H;
HD:=FILTER(BACKSET(FILTER(REF(TY,10)=HHV(TY,2*10+1),10),10+1),10);
LD:=FILTER(BACKSET(FILTER(REF(TY,10)=LLV(TY,2*10+1),10),10+1),10);
A:=REF(H,BARSLAST(HD));
B:=REF(H,BARSLAST(LD));
T1:=BARSLAST(HD);
T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);
波浪頂:IF(T1,A,A),COLORGREEN,POINTDOT,LINETHICK1;
DRAWNUMBER(波浪頂!=REF(波浪頂,1),H,波浪頂),COLORF00FF0;
STICKLINE(T1,A,A,9,0){,POINTDOT},COLORF00FF0,LINETHICK1;
波浪底:=IF(T2,B,B),COLORGREEN{,POINTDOT},LINETHICK1;
STICKLINE(T2,B,B,9,0){,POINTDOT},COLORCYAN,LINETHICK1;
{2、支撐部分1}
QA12:=REF(CLOSE,6)=LLV(CLOSE,2*6+1);
QB12:=BACKSET(QA12,6+1);
QC12:=FILTER(QB12,6) AND CLOSE=LLV(CLOSE,6+1);
QD12:=BARSLAST(QC12);
QE12:=IF(QC12,CURRBARSCOUNT,0);
QF12:=IF(QD12,REF(QE12,QD12),QE12);
QG12:=CONST(QF12);
支撐1:=DRAWLINE(CURRBARSCOUNT=QG12,CLOSE,ISLASTBAR,REF(CLOSE,QG12-1),1),COLOR00FF00,LINETHICK1;
DRAWNUMBER(支撐1!=REF(支撐1,1),C,支撐1),COLOR00FF00;
DRAWNUMBER(ISLASTBAR,支撐1,支撐1),COLOR00FF00;
{3、支撐部分2}
QA14:=REF(CLOSE,3)=LLV(CLOSE,2*3+1);
QB14:=BACKSET(QA14,3+1);
QC14:=FILTER(QB14,3) AND CLOSE=LLV(CLOSE,3+1);
QD14:=BARSLAST(QC14);
QE14:=IF(QC14,CURRBARSCOUNT,0);
QF14:=IF(QD14,REF(QE14,QD14),QE14);
QG14:=CONST(QF14);
支撐2:=DRAWLINE(CURRBARSCOUNT=QG14,CLOSE,ISLASTBAR,REF(CLOSE,QG14-1),1),COLOR00FF00,LINETHICK1;
{DRAWNUMBER(支撐2!=REF(支撐2,1),L,支撐2),COLOR00FF00;};
STICKLINE(C>支撐1,支撐1,波浪頂,15,1),COLOR005599,LINETHICK2;{箱體畫框}
STICKLINE(C>支撐2,支撐2,波浪頂,5,1),COLOR005599,LINETHICK2;{箱體畫框}
STICKLINE(C>支撐1,支撐1,(波浪頂+支撐1)/2,15,1),COLOR005599,LINETHICK2;{箱體畫框}
{二、箱體部分–支撐到頸線畫箱體}
QA11:=REF(CLOSE,6)=HHV(CLOSE,2*6+1);
QB11:=BACKSET(QA11,6+1);
QC11:=FILTER(QB11,6) AND CLOSE=HHV(CLOSE,6+1);
QD11:=BARSLAST(QC11);
QE11:=IF(QC11,CURRBARSCOUNT,0);
QF11:=IF(QD11,REF(QE11,QD11),QE11);
QG11:=CONST(QF11);
頸線2:DRAWLINE(CURRBARSCOUNT=QG11,CLOSE,ISLASTBAR,REF(C,QG11-1),1),COLORFFDD00,LINETHICK1;
STICKLINE(C>支撐1,支撐1,頸線2,5,1),COLORFFAA33;{箱體畫框}
STICKLINE(C>支撐1,支撐1,(頸線2+支撐1)/2,5,1),COLORFFAA33;{箱體畫框}
DRAWKLINE(H,O,L,C);
DRAWNUMBER(頸線2!=REF(頸線2,1),C,頸線2),COLOR00FF00;
DRAWNUMBER(ISLASTBAR,波浪頂,波浪頂),COLOR005599;
DRAWNUMBER(ISLASTBAR,(波浪頂+支撐1)/2,(波浪頂+支撐1)/2),COLOR005599;
DRAWNUMBER(ISLASTBAR,頸線2,頸線2),COLORFFAA33;
DRAWNUMBER(ISLASTBAR,(頸線2+支撐1)/2,(頸線2+支撐1)/2),COLORFFAA33;
{三、箱體部分–過線放量買到支撐1畫箱體}
T1B:=CONST(LLVBARS(LOW,10));
T1HIGH:=CONST(REF(HIGH,T1B));
CCC:=CONST(CURRBARSCOUNT);
T2B:=CONST(BARSLAST(CURRBARSCOUNT>CCC+T1B AND H>T1HIGH));
T2HIGH:=CONST(REF(HIGH,T2B));
T3B:=CONST(BARSLAST(CURRBARSCOUNT>CCC+T2B AND HIGH>T2HIGH));
T3HIGH:=CONST(REF(HIGH,T3B));
搶錢10:DRAWLINE(CURRBARSCOUNT=T3B+1, T3HIGH, ISLASTBAR, T3HIGH, 1),COLORYELLOW,LINETHICK1;{,LINETHICK2,COLOR0000FF;}
DRAWTEXT(ISLASTBAR, T3HIGH, ‘過線’)LINETHICK1,COLORYELLOW;
DRAWNUMBER(搶錢10!=REF(搶錢10,1),H,搶錢10),COLORYELLOW;
STICKLINE(C>支撐1,(搶錢10+支撐1)/2,(搶錢10+支撐1)/2,5,1),COLORYELLOW;{箱體畫框};