通達信分時牛熊圖
{分時牛熊}
買賣:=((sum(if(time>93000,transactvol(1,0),0),0)-sum(if(time>93000,transactvol(2,0),0),0))/(sum(if(time>93000,transactvol(1,0),0),0)+sum(if(time>93000,transactvol(2,0),0),0)));
k8:=barslast(sum(if(time>93000,transactnum(1,0)-transactnum(2,0),0),0)>llv(sum(if(time>93000,transactnum(1,0)-transactnum(2,0),0),0),0))<3 and barslast(sum(if(time>93000,ORDERNUM(2,0)-ORDERNUM(1,0),0),0)>llv(sum(if(time>93000,ORDERNUM(2,0)-ORDERNUM(1,0),0),0),0))<3;
k11:=barslast(sum(if(time>93000,transactnum(1,0)-transactnum(2,0),0),0)>0)<3 and barslast(sum(if(time>93000,ORDERNUM(2,0)-ORDERNUM(1,0),0),0)>0)<3;
k14:=barslast(sum(if(time>93000,transactnum(1,0)-transactnum(2,0),0),0)>=hhv(sum(if(time>93000,transactnum(1,0)-transactnum(2,0),0),0),0))<3 and barslast(sum(if(time>93000,ORDERNUM(2,0)-ORDERNUM(1,0),0),0)>=hhv(sum(if(time>93000,ORDERNUM(2,0)-ORDERNUM(1,0),0),0),0))<3;
k17:=high/dynainfo(4)<(1+3/100);
k22:=barslast(cross(買賣,0))<3 and LAST(買賣>0)>1;
k23:=barslast(cross(sum(if(time>93000,transactnum(1,0)-transactnum(2,0),0),0),sum(if(time>93000,ORDERNUM(2,0)-ORDERNUM(1,0),0),0)))<3;
k25:=k17 and k22 and k23 and k14 and k8 and k11;
vertline(k25,0),LINETHICK5,coloryellow;
主動率:(SUM(TRANSACTNUM(1,0),0)-SUM(TRANSACTNUM(2,0),0))/(SUM(TRANSACTNUM(1,0),0)+SUM(TRANSACTNUM(2,0),0)),LINETHICK3,coloryellow;
FILLRGN(0,主動率,主動率>0,rgb(80,0,0),主動率<=0,rgb(0,55,55)),LINETHICK2,PRECIS0;
VAR1:=EMA(EMA(CLOSE,13),13);
控盤:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
JJ:=DYNAINFO(11);
P:=55;
S:=8;
M1:=3;
財:=(EMA(CLOSE,S)-EMA(CLOSE,P))*10;
神:=EMA(財,M1);
BTJ11:=(C-JJ)/JJ<-0.03;
BTJ2:=控盤>REF(控盤,1) AND 控盤<-0.2;
BTJ3:=CROSS(財,神) AND 財<-0.3;
BTJ811:=FILTER(BTJ11 AND BTJ2 AND BTJ3,13);
莊:= BTJ11 AND BTJ2 AND BTJ3;
有莊:FILTER(莊,55);
DRAWTEXT(BTJ811,有莊,'有莊'),COLORMAGENTA,ALIGN1;
A1:=DYNAINFO(23) / DYNAINFO(22);
A2:=DYNAINFO(17);
DRAWTEXTREL(220,520,IFS((A1 >= 1),'能量:'+NUMTOSTRN(A1,2)+' 量比: '+NUMTOSTRN(A2,2),'')),linethick7,colorRED;
DRAWTEXTREL(220,520,IFS((A1 < 1),'能量:'+NUMTOSTRN(A1,2)+' 量比: '+NUMTOSTRN(A2,2),'')),linethick7,colorRED;
{分時秘密}
K1:=EMA(CLOSE,21)-EMA(CLOSE,453);
多:K1*10,COLORFFFFFF,PRECIS1;
空:EMA(K1*10,55),COLOR00FFFF,PRECIS1;
界:2,COLORFFFF00,PRECIS1;
軸:0,COLORFF0000,PRECIS1;
K3:=CROSS(K1*10,空) AND 空>=0;
K4:=K3 AND CLOSE>DYNAINFO(3);
K5:=(K1*10)+5;
DRAWTEXT(K4,K5,'買'),COLOR00FF00;
K6:=CROSS(K1*10,2) AND CLOSE>DYNAINFO(3);
DRAWTEXT(K6,4,'追'),COLOR00FFFF;
K7:=EMA(CLOSE,500)-REF(EMA(CLOSE,500),1);
K8:=K7/REF(EMA(CLOSE,500),1);
K9:=(K7/REF(EMA(CLOSE,500),1))*100;
K10:=EMA(K8*100,120)-0.0004;
K11:=EMA(K8*100,200);
K12:=CROSS(K10,K11) AND CLOSE>DYNAINFO(3);
K13:=K12 AND K1*10>0.6;
DRAWICON(K13,5,12),COLORFFFFFF;
K14:=SUM(AMOUNT,BARSCOUNT(CLOSE))/SUM(VOL*100,BARSCOUNT(CLOSE));
K15:=BETWEEN(CLOSE/K14,1.05,0.95)=0;
K16:=MA(CLOSE,BARSCOUNT(CLOSE));
K17:=CROSS(CLOSE/IF(K15,K16,K14),1.03);
STICKLINE(K17,2,5,6,0),COLORFF00FF;
K18:=((DYNAINFO(6)-LOW)+0.01)/((HIGH-LOW)+0.01);
K19:=IF(HIGH
K20:=IF(LOW>DYNAINFO(6),0,K19);
K21:=100*(CLOSE-REF(LLV(CLOSE,120),1))/(REF(HHV(CLOSE,120),1)-REF(LLV(CLOSE,120),1));
（南方財富網SOUTHMONEY.COM）