黃金分割畫線

一名津人 2019-07-15

展開全文

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),'■請確認已跌去前一波大行情漲幅的百分之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;