通达信爬山涉水过草地副图公式源码

通达信爬山涉水过草地副图公式

量价一直是我们在操作中最重视的关系。我利用量价关系在通达信软件上做了一幅“山水画"，叫做 "爬山涉水"--还过草地：

源码

P1:=5;P2:=13;P3:=34;

 DRAWGBK(O>C,RGB(0,0,150),RGB(80,0,80),0,"01",0);

TJ:=IF(DYNAINFO(8)>0.01,0.01*DYNAINFO(10)/DYNAINFO(8),DYNAINFO(3));
 TD:=(DYNAINFO(5)<0.01 || DYNAINFO(6)<0.01);
 JT:=IF(TD,1,(TJ<(DYNAINFO(5)+0.01) && TJ>(DYNAINFO(6)-0.01)));
 CYC1:=IF(JT,0.01*EMA(AMOUNT,P1)/EMA(VOL,P1),EMA((HIGH+LOW+CLOSE)/3,P1));
 CYC2:=IF(JT,0.01*EMA(AMOUNT,P2)/EMA(VOL,P2),EMA((HIGH+LOW+CLOSE)/3,P2));
 CYC3:=IF(JT,0.01*EMA(AMOUNT,P3)/EMA(VOL,P3),EMA((HIGH+LOW+CLOSE)/3,P3));
 CYC∞:=IF(JT,DMA(AMOUNT/(100*VOL),100*VOL/FINANCE(7)),EMA((HIGH+LOW+CLOSE)/3,120));

STICKLINE(CYC1<CYC2,CYC2,CYC∞,4,0)COLORGREEN;
 DRAWBAND(CYC1,RGB(80,30,0),CYC∞,RGB(0,50,150));
 DRAWICON(CYC1>CYC∞ AND CYC2>CYC3 AND REF(C,1)<REF(O,1) AND C>REF(H,1) AND O<REF(C,1) AND MA(C,5)>REF(MA(C,5),1),CYC1,15);

倍量:=V>=2*REF(V,1);
 DRAWICON(CYC1>CYC∞ AND CYC2>CYC3 AND 倍量 ,CYC1*0.9,28);
 DRAWTEXT(CYC1>CYC∞ AND CYC2>CYC3 AND 倍量,CYC∞*0.9,"倍量"),COLORLIGRAY;

X:=CONST(DATE);
 Y:=IF(DATE<X, 240, FROMOPEN);
总交易日:=BARSCOUNT(CLOSE);

DRAWICON((VOL/Y*240)=CONST(LLV(VOL,总交易日)),CYC1,11);
 DRAWTEXT((VOL/Y*240)=CONST(LLV(VOL,60)) AND (VOL/Y*240)>CONST(LLV(VOL,总交易日)),CYC1,"地量"),COLORYELLOW;
 DRAWICON((VOL/Y*240)=CONST(LLV(VOL,60)),CYC∞*1.8,14);