通达信【分时密码】源码附图
先建立一个引用公式：
{分时引}
昨总额:REF(AMOUNT/1000000,1),NODRAW;
昨总:REF(V,1),NODRAW;
黄金买点:=EMA((O+H+L)/3,4)COLORWHITE,NODRAW;
黄金卖点:=EMA(C+(H-L)*0.618,3)COLORYELLOW,NODRAW;
预测明日卖点:黄金卖点+(黄金卖点-黄金买点)*0.618,NODRAW,COLORWHITE;
预测明日买点:EMA((O+H+L)/3,4)+((H+L)/2-REF((O+H+L)/3,3))/4,NODRAW;
今卖:MA(REF(预测明日卖点,1),1)*1,COLORLIMAGENTA,NODRAW;
今买:REF(预测明日买点,1),COLORLIMAGENTA,NODRAW;
DD1:=EMA((O+H+L)/3,4)COLORWHITE,NODRAW;
DD2:=EMA(C+(H-L)*0.618,3)COLORYELLOW,NODRAW;
密码1:DD2+(DD2-DD1)*0.618,NODRAW,COLORWHITE;
密码2:EMA((O+H+L)/3,4)+((H+L)/2-REF((O+H+L)/3,3))/4,NODRAW;
密码3:MA(REF(密码1,1),1)*1,COLORLIMAGENTA,NODRAW;
密码4:REF(密码2,1),COLORLIMAGENTA,NODRAW;
ZS:DYNAINFO(3);
上涨家数:INDEXADV,NODRAW;
下跌家数:INDEXDEC,NODRAW;
主公式来了
{【分时密码】}
DRAWGBK(C>0, RGB(0,10,10),RGB(88,0,0),0,'11',0);
{E5:=EMA(C,5);
E13:=EMA(C,13);
DRAWBAND(E5,RGB(200,0,0),E13,RGB(0,200,0));
DRAWKLINE(H,O,L,C);};
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:=(DIF-DEA)*2,COLORSTICK;
K1:=IF(PERIOD=0 ,"分时引.密码3#DAY",DRAWNULL);
D1:=IF(PERIOD=0 ,"分时引.密码1#DAY",DRAWNULL);
F1:=IF(PERIOD=0 ,"分时引.密码4#DAY",DRAWNULL);
J1:=IF(PERIOD=0 ,"分时引.密码2#DAY",DRAWNULL);
昨收:=IF(PERIOD=0 ,"分时引.ZS#DAY",DRAWNULL);
RCC:=昨收;
突破:=REF(EMA(C,14),1);
A1X:=(EMA(C,10)-突破)/突破*100;
多方:=IF(A1X>=0,REF(EMA(C,10),BARSLAST(CROSS(A1X,0))+1),DRAWNULL);
空方:=IF(A1X<0,REF(EMA(C,10),BARSLAST(CROSS(0,A1X))+1),DRAWNULL);
STICKLINE(A1X>=0,多方,突破,10,0),COLOR000099;
STICKLINE(A1X<0,空方,突破,10,0),COLOR00CC66;
STICKLINE(MACD>=0 AND MACD>=REF(MACD,1),RCC*1,MACD*5+RCC*1,0,0),COLOR992299,LINETHICK3;
STICKLINE(MACD>=0 AND MACD< REF(MACD,1),RCC*1,MACD*5+RCC*1,0,0),COLOR774422,LINETHICK3;
STICKLINE(MACD<0 AND MACD>=REF(MACD,1),RCC*1,MACD*5+RCC*1,0,0),COLOR064499,LINETHICK3;
STICKLINE(MACD<0 AND MACD< REF(MACD,1),RCC*1,MACD*5+RCC*1,0,0),COLOR774422,LINETHICK3;
IF(PERIOD=0 ,C,DRAWNULL)LINETHICK1,COLORCCCCCC;
分时均价线:SUM(C*V,240)/SUM(V,240),COLORYELLOW;
MD:=EMA(C,1)-EMA(C,5);
分时线:CLOSE,COLORCYAN,LINETHICK2;
上升:IF(CLOSE>=REF(CLOSE,1),CLOSE,DRAWNULL),COLOR0000C6,LINETHICK2;
{J1,COLORYELLOW,LINETHICK1;
D2:D1+(昨收-K1),DOTLINE,COLORWHITE,LINETHICK1;};
{所属地域:DRAWTEXT_FIX(ISLASTBAR ,0.08,0.01,1,DYBLOCK),COLORYELLOW;
所属行业:DRAWTEXT_FIX(ISLASTBAR ,0.1,0.01,0,HYBLOCK),COLORYELLOW;};
