T:=150;
TT:=3;
N1:=0;
AMOV:=VOL*(OPEN+CLOSE)/2;
成本价:SUM(AMOV,5)/SUM(VOL,5),LINETHICK1,COLOR209FFF;
MAA:MA(C,N1),COLOR00FF00;
DRAWTEXT(ISLASTBAR AND N1>0 AND MAA>REF(MAA,1),MAA,'↑'),COLOR00FF00;
DRAWTEXT(ISLASTBAR AND N1>0 AND MAA<REF(MAA,1),MAA,'↓'),COLOR00FF00;
高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),LINEdot,COLORYELLOW;
二:REFDATE(H2,DATE),LINEdot,COLORMAGENTA;
三:REFDATE(H3,DATE),LINEdot,COLOR00FFFF;
四:REFDATE(H4,DATE),LINEdot,COLORMAGENTA;
五:REFDATE(H5,DATE),LINEdot,COLORYELLOW;
低2:REFDATE(低1,DATE),COLOR00FF00;
{TT3:=(CURRBARSCOUNT=5);}
TT4:=(CURRBARSCOUNT=1);
{DRAWNUMBER(TT3 AND 顶,顶,顶),COLOR999900;}
DRAWTEXT(TT4 AND 顶,顶,'顶'),COLOR208FFF;
{DRAWNUMBER(TT3 AND 一,一,一),COLOR999999;}
DRAWTEXT(TT4 AND 一,一,'0.809'),COLOR208FFF;
{DRAWNUMBER(TT3 AND 二,二,二),COLOR999999;}
DRAWTEXT(TT4 AND 二,二,'0.618'),COLOR208FFF;
{DRAWNUMBER(TT3 AND 三,三,三),COLOR999999;}
DRAWTEXT(TT4 AND 三,三,'0.5'),COLOR208FFF;
{DRAWNUMBER(TT3 AND 四,四,四),COLOR999999;}
DRAWTEXT(TT4 AND 四,四,'0.382'),COLOR208FFF;
{DRAWNUMBER(TT3 AND 五,五,五),COLOR999999;}
DRAWTEXT(TT4 AND 五,五,'0.191'),COLOR208FFF;
{DRAWNUMBER(TT3 AND 低,低*1.01,低),COLOR999900;}
DRAWTEXT(TT4 AND 低2,低2*1.009,'底'),COLOR208FFF;
如何实现在主图上只画最后一组高低点的黄金分割,前面的统统不画?
采用序列模式运行公式
TT:=3;
N1:=0;
AMOV:=VOL*(OPEN+CLOSE)/2;
成本价:SUM(AMOV,5)/SUM(VOL,5),LINETHICK1,COLOR209FFF;
MAA:MA(C,N1),COLOR00FF00;
DRAWTEXT(ISLASTBAR AND N1>0 AND MAA>REF(MAA,1),MAA,'↑'),COLOR00FF00;
DRAWTEXT(ISLASTBAR AND N1>0 AND MAA<REF(MAA,1),MAA,'↓'),COLOR00FF00;
高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[DATACOUNT],DATE),COLORFFFF00;
一:REFDATE(H1[DATACOUNT],date),LINEdot,COLORYELLOW;
二:REFDATE(H2[DATACOUNT],DATE),LINEdot,COLORMAGENTA;
三:REFDATE(H3[DATACOUNT],DATE),LINEdot,COLOR00FFFF;
四:REFDATE(H4[DATACOUNT],DATE),LINEdot,COLORMAGENTA;
五:REFDATE(H5[DATACOUNT],DATE),LINEdot,COLORYELLOW;
低2:REFDATE(低1[DATACOUNT],DATE),COLOR00FF00;