T:=150;TT:=3;
高1:=REF(HHV(H,T),TT);
底1:=REF(LLV(L,T),TT);
H1:=高1-(高1-底1)*0.191;
H2:=高1-(高1-底1)*0.382;
H3:=高1-(高1-底1)*0.5;
H4:=高1-(高1-底1)*0.618;
H5:=高1-(高1-底1)*0.809;
顶:REFDATE(高1,DATE),COLORRED;
一:REFDATE(H1,DATE),DOTLINE,COLORLIMAGENTA;
二:REFDATE(H2,DATE),DOTLINE,COLORMAGENTA;
三:REFDATE(H3,DATE),COLORLIRED;
四:REFDATE(H4,DATE),DOTLINE,COLORFF7F00;
五:REFDATE(H5,DATE),DOTLINE,COLORLICYAN;
底:REFDATE(底1,DATE),COLOR00FF00;
TT3:=(CURRBARSCOUNT=50);
TT4:=(CURRBARSCOUNT=50+3);
DRAWNUMBER(TT3 AND 顶,顶,顶),COLORRED;
DRAWTEXT(TT4 AND 顶,顶,'高:'),COLOR208FFF;
DRAWNUMBER(TT3 AND 一,一,一),COLORLIMAGENTA;
DRAWTEXT(TT4 AND 一,一,'191:'),COLOR208FFF;
DRAWNUMBER(TT3 AND 二,二,二),COLORMAGENTA;
DRAWTEXT(TT4 AND 二,二,'382:'),COLOR208FFF;
DRAWNUMBER(TT3 AND 三,三,三),COLORLIRED;
DRAWTEXT(TT4 AND 三,三,'1/2:'),COLOR208FFF;
DRAWNUMBER(TT3 AND 四,四,四),COLORFF7F00;
DRAWTEXT(TT4 AND 四,四,'618:'),COLOR208FFF;
DRAWNUMBER(TT3 AND 五,五,五),COLORLICYAN;
DRAWTEXT(TT4 AND 五,五,'809:'),COLOR208FFF;
DRAWNUMBER(TT3 AND 底,底*1.01,底),COLOR00FF00;
DRAWTEXT(TT4 AND 底,底*1.009,'底:'),COLOR208FFF;
MA3:MA(CLOSE,3),COLORWHITE,LINETHICK2;
QA:=REF(H,12)=HHV(H,2*12+1);
QB:=BACKSET(QA,12+1);
QC:=FILTER(QB,12) AND H=HHV(H,12+1);
QD:=BARSLAST(QC);
QE:=IF(QC,CURRBARSCOUNT,0);
QF:=IF(QD,REF(QE,QD),QE);
QG:=CONST(QF);
QH:=REF(QF,QD+1);
QW:=CONST(QH);
DRAWLINE(CURRBARSCOUNT=QW,H,CURRBARSCOUNT=QG,H,1),COLOR3399FF;
阻力1:=DRAWLINE(CURRBARSCOUNT=QW,H,CURRBARSCOUNT=QG,H,1),COLOR3399FF;
QM:=INTPART(3*8/5);
QR:=REF(H,QM)=HHV(H,2*QM+1);
QT:=FILTER(QR,QM);
QY:=BACKSET(QT,QM+1);
QU:=FILTER(QY,QM);
QI:=BACKSET(ISLASTBAR,BARSLAST(QU)+1);
QP:=QI>REF(QI,1);
DRAWLINE(QU,H,QP,H,1),COLORRED;
阻力2:=DRAWLINE(QU,H,QP,H,1),COLORRED;
QA1:=REF(L,8)=LLV(L,2*8+1);
QB1:=BACKSET(QA1,8+1);
QC1:=FILTER(QB1,8) AND L=LLV(L,8+1);
QD1:=BARSLAST(QC1);
QE1:=IF(QC1,CURRBARSCOUNT,0);
QF1:=IF(QD1,REF(L,QD1),L);
QG1:=IF(QD1,REF(QE1,QD1),QE1);
QH1:=CONST(QG1);
QW1:=REF(QF1,QD1+1);
QM1:=REF(QG1,QD1+1);
QR1:=CONST(QM1);
DRAWLINE(CURRBARSCOUNT=QR1,L,CURRBARSCOUNT=QH1,L,1),COLORBLUE;
支撑1:=DRAWLINE(CURRBARSCOUNT=QR1,L,CURRBARSCOUNT=QH1,L,1),COLORBLUE;
QT1:=REF(L,QM)=LLV(L,2*QM+1);
QY1:=FILTER(QT1,QM);
QU1:=BACKSET(QY1,QM+1);
QI1:=FILTER(QU1,QM);
QP1:=BACKSET(ISLASTBAR,BARSLAST(QI1)+1);
QJ1:=QP1>REF(QP1,1);
DRAWLINE(QI1,L,QJ1,L,1),COLORFF00FF;
支撑2:=DRAWLINE(QI1,L,QJ1,L,1),COLORFF00FF;