通达信上红下绿指标公式

M1:=5;
SHORT:=12;
LONG:=26;
MID:=9;
V100:MA(V,100),LINETHICK3,COLOR000000;
DRAWBAND(V,RGB(255,255,255),V100,RGB(255,255,168));
TOTAL:=IF(PERIOD=1,5,IF(PERIOD=2,15,IF(PERIOD=3,30,IF(PERIOD=4,60,IF(PERIOD=5,TOTALFZNUM,1)))));
MTIME:=MOD(FROMOPEN,TOTAL);
CTIME:=IF(MTIME<0.5,TOTAL,MTIME);
Vvol:IF((CURRBARSCOUNT=1 AND DYNAINFO(8)>1),VOL*TOTAL/CTIME,DRAWNULL),NODRAW;
STICKLINE((CURRBARSCOUNT=1 AND DYNAINFO(8)>1),VVOL,0,-1,-1),COLOR00C0C0;
虚拟倍量:=VVOL/REF(V,1);
DRAWNUMBER(虚拟倍量>1,VVOL,ROUND(虚拟倍量));
VOLUME:VOL,VOLSTICK;
MAVOL1:MA(VOLUME,M1);
倍量:=VOL/REF(VOL,1)>=1.5;
缩量:=REF(VOL,1)/VOL>=1.5;
DRAWNUMBER(倍量,V,ROUND(V/REF(V,1))),COLORRED;
DRAWNUMBER(缩量,V,ROUND(REF(V,1)/V)),COLORBLUE;
{macd}
DIF:EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);
DEA:EMA(DIF,MID);
MacD:(DIF-DEA)*2,COLORSTICK;
{上绿下红};
{BArslAST(C<=O);上个阴线位置}
上个阴:BARSLAST(C<=O);
大于顶:C>REF(O,上个阴);
大于量:V>REF(V,上个阴);
上绿下红:MACD<=0 AND C>O AND C>REF(O,上个阴) AND V>REF(V,上个阴);
DRAWICON(FILTER(上绿下红,4),V,1);