G1:=H=ZIGZAG(HIGH,5,1) && H>REFX(H,1);
G11:=BACKSET(ISLASTBAR,SUMBARS(G1,1));
G22:=BACKSET(ISLASTBAR,SUMBARS(G1,2));
D1:=L=ZIGZAG(L,5,1) && L<REFX(L,1);
D11:=BACKSET(ISLASTBAR,SUMBARS(D1,1));
D22:=BACKSET(ISLASTBAR,SUMBARS(D1,2));
CROSS(G11,0.5),ICON(1,'ICO1');
CROSS(D11,0.5),ICON(1,'ICO2');
DRAWLINE1(CROSS(G22,0.5),H,CROSS(G11,0.5),H,0.5),LINETHICK1,RGB(255,255,255);
DRAWLINE1(CROSS(D22,0.5),L,CROSS(D11,0.5),L,0.5),LINETHICK1,COLORRED;
NN:MIN(BARSLAST(CROSS(G11,0.5)),BARSLAST(CROSS(D11,0.5))),NODRAW;
HH:VALUEWHEN(CROSS(G11,0.5),H),NODRAW;
LL:VALUEWHEN(CROSS(D11,0.5),L),NODRAW;
DRAWSL(ISLASTBAR,HH,0,-NN,0,COLORRED);
DRAWSL(ISLASTBAR,LL,0,-NN,0,COLORGREEN);
DRAWSL(ISLASTBAR,LL+(HH-LL)*0.382,0,-NN,0,COLORYELLOW);
DRAWSL(ISLASTBAR,LL+(HH-LL)*0.5,0,-NN,0,COLORYELLOW);
DRAWSL(ISLASTBAR,LL+(HH-LL)*0.618,0,-NN,0,COLORYELLOW);
DRAWSL(ISLASTBAR,LL+(HH-LL)*1.27,0,-NN,0,COLORYELLOW);
KTEXT(ISLASTBAR,-NN,LL+(HH-LL)*0.382,0,COLORRED,' 0.382'),VALIGN1;
KTEXT(ISLASTBAR,-NN,LL+(HH-LL)*0.5,0,COLORRED,' 0.5'),VALIGN1;
KTEXT(ISLASTBAR,-NN,LL+(HH-LL)*0.618,0,COLORRED,' 0.618'),VALIGN1;
KTEXT(ISLASTBAR,-NN,LL+(HH-LL)*1.27,0,COLORRED,' 1.27'),VALIGN1;
KTEXT(ISLASTBAR,-NN,LL,0,COLORRED,' 0'),VALIGN1;
KTEXT(ISLASTBAR,-NN,LL+(HH-LL),0,COLORRED,' 1'),VALIGN1;
P:=5;
BC1:=IF(L=LLV(L,10*P),L,NULL);
BC2:=REFX1(BARSLAST(ISNULL(BC1)=0),10000);
BC3:=IF(BC2=0,L,REF(L,BC2));
TC1:=IF(H=HHV(H,10*P),H,NULL);
TC2:=REFX1(BARSLAST(ISNULL(TC1)=0),10000);
TC3:=IF(TC2=0,H,REF(H,TC2));
BZ:=MAX(BC2,TC2);
CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
LOWER:IF(CURRBARSCOUNT<=BZ+1,REFX1(BC3,10000),NULL),LINETHICK2;
UPPER:IF(CURRBARSCOUNT<=BZ+1,REFX1(TC3,10000),NULL),LINETHICK2;
IF(CURRBARSCOUNT<=BC2+1,IF(L=LLV(L,10*P),L,NULL),NULL),CIRCLEDOT,COLOR0000BF;
IF(CURRBARSCOUNT<=TC2+1,IF(H=HHV(H,10*P),H,NULL),NULL),CIRCLEDOT,COLOR0071E1;
X1:IF( CURRBARSCOUNT<=BZ+1,UPPER-(UPPER-LOWER)*0.191,NULL),POINTDOT,COLORWHITE;
X2:IF( CURRBARSCOUNT<=BZ+1,UPPER-(UPPER-LOWER)*0.382,NULL),POINTDOT,COLORWHITE;
X3:IF(CURRBARSCOUNT<=BZ+1,UPPER-(UPPER-LOWER)*0.5,NULL),COLORRED;
X4:IF( CURRBARSCOUNT<=BZ+1,UPPER-(UPPER-LOWER)*0.618,NULL),POINTDOT,COLORWHITE;
X5:IF(CURRBARSCOUNT<=BZ+1,UPPER-(UPPER-LOWER)*0.809,NULL),POINTDOT,COLORWHITE;
X6:IF(CURRBARSCOUNT<=BZ+1,UPPER-(UPPER-LOWER)*0.9,NULL),POINTDOT,COLORWHITE;
DRAWTEXT(CURRBARSCOUNT=5,UPPER,'UPPER');
DRAWTEXT(CURRBARSCOUNT=5,LOWER,'LOWER');
DRAWTEXT(CURRBARSCOUNT=5,X1,' 0.809');
DRAWTEXT(CURRBARSCOUNT=5,X2,' 0.618');
DRAWTEXT(CURRBARSCOUNT=5,X3,' 0.5');
DRAWTEXT(CURRBARSCOUNT=5,X4,' 0.382');
DRAWTEXT(CURRBARSCOUNT=5,X5,' 0.191');
DRAWTEXT(CURRBARSCOUNT=5,X6,' 0.1');
DRAWNUMBER(CURRBARSCOUNT=3,UPPER,UPPER,1,COLORYELLOW);
DRAWNUMBER(CURRBARSCOUNT=3,LOWER,LOWER,1,COLORWHITE);
DRAWNUMBER(CURRBARSCOUNT=3,X1,X1,1,COLORYELLOW);
DRAWNUMBER(CURRBARSCOUNT=3,X2,X2,1,COLORYELLOW);
DRAWNUMBER(CURRBARSCOUNT=3,X3,X3,1,COLORYELLOW);
DRAWNUMBER(CURRBARSCOUNT=3,X4,X4,1,COLORYELLOW);
DRAWNUMBER(CURRBARSCOUNT=3,X5,X5,1,COLORYELLOW);
DRAWNUMBER(CURRBARSCOUNT=3,X6,X6,1,COLORYELLOW);
CB1:=REFX1(IF(TC2>BC2,LOWER,LLV(L,TC2+1)),10000);
CB2:=REFX1(BARSLAST(L=CB1),10000);
CB3:=REFX1(REF(BARSLAST(O>C),CB2+1)+CB2+1,10000);
CB4:=IF(CB1<UPPER-(UPPER-LOWER)*0.52,REFX1(IF(REF(O,CB2)>REF(C,CB2),REF(C,CB2),REF(C,CB3)),10000),NULL);
參考線:IF(CURRBARSCOUNT<=CB2+65 AND CURRBARSCOUNT>CB2 AND C>1000,CB4,NULL);
DRAWTEXT(CURRBARSCOUNT=CB2+65,參考線,'參考線');
確底線:參考線*1.06;
DRAWTEXT(CURRBARSCOUNT=CB2+65,確底線,'確底線');
確防線:確底線*1.06;
DRAWTEXT(CURRBARSCOUNT=CB2+65,確防線,'確防線');
LCB1:=REFX1(IF(TC2<BC2,LOWER,NULL),10000);
LCB2:=REFX1(BARSLAST(L=LCB1),10000);
LCB3:=REFX1(REF(BARSLAST(O>C),LCB2+1)+LCB2+1,10000);
LCB4:=REFX1(IF(REF(O,LCB2)>REF(C,LCB2),REF(C,LCB2),REF(C,LCB3)),10000);
前參考線:IF(CURRBARSCOUNT<=BC2+65 AND CURRBARSCOUNT>BC2 AND C>1000,LCB4,NULL);
DRAWTEXT(CURRBARSCOUNT=BC2+65,前參考線,'參考線');
前確底線:前參考線*1.06;
DRAWTEXT(CURRBARSCOUNT=BC2+65,前確底線,'確底線');
前確防線:前確底線*1.06;
DRAWTEXT(CURRBARSCOUNT=BC2+65,前確防線,'確防線');
DRAWTEXT(C>1000 AND CURRBARSCOUNT=IF(BC2>TC2,BC2+65,CB2+65),IF(BC2>TC2,REFX1(BC3,10000)*1.08,REFX1(TC3,10000)*0.98),'■確底線僅僅適用于指數(shù)'),COLOR3171D0;
DRAWTEXT(C>1000 AND CURRBARSCOUNT=IF(BC2>TC2,BC2+65,CB2+65),IF(BC2>TC2,REFX1(BC3,10000)*1.05,REFX1(TC3,10000)*0.95),'■請確認(rèn)已跌去前一波大行情漲幅的百分之52以上'),COLOR3171D0;
DRAWTEXT(C>1000 AND CURRBARSCOUNT=IF(BC2>TC2,BC2+65,CB2+65),IF(BC2>TC2,REFX1(BC3,10000)*1.03,REFX1(TC3,10000)*0.92),'■跌幅不夠百分之52僅僅作為反彈看待而不是新底'),COLOR3171D0;
