跟庄图(副图)

Z1:=STRCAT(HYBLOCK,'');

Z2:=STRCAT(Z1,DYBLOCK);

Z3:=STRCAT(Z2,'');

DRAWTEXT_FIX(ISLASTBAR,0,0.03,0,STRCAT(Z3,GNBLOCK)),COLORLIRED;

DRAWTEXT_FIX(ISLASTBAR,0,1,0,FGBLOCK),COLORLIMAGENTA;

MAA5:MA(C,5),COLORFF00FF,LINETHICK2;

MAA10:=MA(C,10);

MAA30:MA(C,30),COLORRED;

KS:IF(MAA10MAA30,MAA10,MAA30),COLORBLUE;

A3:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;

A4:=SMA(A3,3,1);

A5:=SMA(A4,3,1);

A6:=3*A4-2*A5;

A7:=C-REF(C,1);

A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);

买:=LLV(A8,2)=LLV(A8,7)ANDCOUNT(A80,2)ANDCROSS(A8,MA(A8,2));

DRAWTEXT(FILTER(买=1,5),,'↖跟庄买进'),COLORYELLOW;

STICKLINE(买,OPEN,CLOSE,2,0),COLORYELLOW;

VAR1:=CLOSEREF(CLOSE,1)ANDCLOSEREF(CLOSE,2);

VAR2:=REF(VAR1,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

VAR3:=REF(VAR2,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

VAR4:=REF(VAR3,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

VAR5:=REF(VAR4,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

VAR6:=REF(VAR5,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

VAR7:=REF(VAR6,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

VAR8:=REF(VAR7,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

VAR9:=REF(VAR8,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

VARA:=REF(VAR9,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

VARB:=REF(VARA,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

VARC:=REF(VARB,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

STICKLINE(VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7OR

VAR8ORVAR9ORVARAORVARBORVARC,CLOSE,REF(CLOSE,1),3,1),COLORRED;{红1}

VARD:=CLOSEREF(CLOSE,1)ANDCLOSEREF(CLOSE,2);

VARE:=REF(VARD,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

VARF:=REF(VARE,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

VAR10:=REF(VARF,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

VAR11:=REF(VAR10,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

VAR12:=REF(VAR11,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

VAR13:=REF(VAR12,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

VAR14:=REF(VAR13,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

VAR15:=REF(VAR14,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

VAR16:=REF(VAR15,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

VAR17:=REF(VAR16,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

VAR18:=REF(VAR17,1)ANDCLOSE=REF(CLOSE,1)ANDCLOSE=REF(CLOSE,2);

STICKLINE(VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13OR

VAR14ORVAR15ORVAR16ORVAR17ORVAR18,CLOSE,REF(CLOSE,1),3,0),COLORFFCC66;

VAR19:=REF(VARDORVAREORVARFORVAR10ORVAR11ORVAR12ORVAR13OR

VAR14ORVAR15ORVAR16ORVAR17ORVAR18,1)ANDVAR1;

STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),4,1),COLORYELLOW;

VAR1A:=REF(VAR1ORVAR2ORVAR3ORVAR4ORVAR5ORVAR6ORVAR7OR

VAR8ORVAR9ORVARAORVARBORVARC,1)ANDVARD;

STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),5,2),COLOR00FF00;

STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),3,0),COLOR00C8FF;

STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),2,0),COLOR10ECFF;

STICKLINE(VAR19,REF(CLOSE,1),REF(CLOSE,2),2,0),COLOR10FFFF;

STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3,0),COLOR00D900;

STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),3,0),COLORBLUE;

STICKLINE(VAR1A,REF(CLOSE,1),REF(CLOSE,2),0,0),COLOR090FF2;

PMA:MA(C,5),COLORWHITE,LINETHICK2;

IF(PMAREF(PMA,1),PMA,DRAWNULL),COLORRED,LINETHICK2;

IF(PMAREF(PMA,1),PMA,DRAWNULL),COLORGREEN,LINETHICK2;

T:=150;

TT:=3;

N1:=0;

高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),COLORFFFF00;

一:REFDATE(H1,DATE),DOTLINE,COLORYELLOW;

二:REFDATE(H2,DATE),DOTLINE,COLORMAGENTA;

三:REFDATE(H3,DATE),DOTLINE,COLOR00FFFF;

四:REFDATE(H4,DATE),DOTLINE,COLORMAGENTA;

五:REFDATE(H5,DATE),DOTLINE,COLORYELLOW;

低:REFDATE(低1,DATE),COLOR00FF00;

TT4:=(CURRBARSCOUNT=1);

DRAWTEXT(TT4AND顶,顶,'顶'),COLOR208FFF;

DRAWTEXT(TT4AND一,一,'0.809'),COLOR208FFF;

DRAWTEXT(TT4AND二,二,'0.618'),COLOR208FFF;

DRAWTEXT(TT4AND三,三,'0.5'),COLOR208FFF;

DRAWTEXT(TT4AND四,四,'0.382'),COLOR208FFF;

DRAWTEXT(TT4AND五,五,'0.191'),COLOR208FFF;

DRAWTEXT(TT4AND低,低*1.009,'底'),COLOR208FFF;