[转载]分时牛熊 分时附图
公式如下：[code]
{分时牛熊}
买卖:=((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<DYNAINFO(6),1,K18);
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));
K22:=(VOL/WINNER(LOW))/REF(VOL/WINNER(LOW),3);
K23:=(K20>0 OR K20=1) AND K22>=3;
K24:=REF((K23 AND K21<80),1) OR REF((K23 AND K21<80),2) OR REF((K23 AND K21<80),3) OR REF((K23 AND K21<80),4);
K25:=IF(FILTER(K23 AND K21<80,3),5,0);
K26:=IF(FILTER(K23 AND K21<80 AND K24,3),10,0);
DRAWTEXT(K25,5,'进场'),COLOR00FFFF;
DRAWTEXT(K26,3,'加仓'),COLORFF0000;
K27:=(SMA(MAX((CLOSE-REF(CLOSE,1)),0),6,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),6,1));
K28:=(((2*CLOSE+HIGH)+LOW)/4)-LLV(LOW,34);
K29:=(K28/(HHV(HIGH,34)-LLV(LOW,34)))*100;
K30:=0.667*REF(EMA(K29,6),1)+0.333*EMA(K29,6);
K31:=CLOSE<(DYNAINFO(6)/REF(LLV(CLOSE,120),1));
K32:=COUNT(CLOSE<REF(CLOSE,1),8)/8>0.3;
K33:=COUNT(EMA(K29,6)>EMA(K30,4),3);
K34:=REF(LOW,1)=LLV(LOW,120);
K35:=K32 AND K33 AND K34 AND CLOSE>OPEN;
K36:=IF(K35,1,0) AND CROSS(K27*100,15);
DRAWTEXT(K36,2,'★底'),COLORFF00FF;
K37:=K1*10>=2 AND MOD(CURRENTTIME,2)=0;
DRAWTEXTABS(320,-12,IFS(K37,'关 注',' ')),COLORFFFF00;
K38:=K1*10>=2 AND MOD(CURRENTTIME,2)=1;
DRAWTEXTABS(320,-12,IFS(K38,'关 注 买 卖 总 量',' ')),COLORFFFF00;
{动态买卖，部分要L2支持}
a1:=(VOL/CLOSE)/3;
a2:=SUM((IF(((a1>40) AND (CLOSE>(REF(CLOSE,1)))),a1,0)),0);
a3:=SUM((IF(((a1>40) AND (CLOSE<(REF(CLOSE,1)))),a1,0)),0);
a4:=SUM((IF(((a1<40) AND (CLOSE>(REF(CLOSE,1)))),a1,0)),0);
a5:=SUM((IF(((a1<40) AND (CLOSE<(REF(CLOSE,1)))),a1,0)),0);
a6:=((a2+a3)+a4)+a5;
a7:=IF((BARSTATUS=2),((100*a2)/a6),0);
a8:=((IF((BARSTATUS=2),((100*a3)/a6),0)));
a9:=((IF((BARSTATUS=2),((100*a4)/a6),0)));
a10:=((IF((BARSTATUS=2),((100*a5)/a6),0)));
机构买盘:(a2),linethick3,ColorFF55FF;
机构卖盘:(a3),linethick3,ColorFFFF55;
散户买盘:(a4),Color5555FF;
散户卖盘:(a5),Color55FF55;
DRAWTEXTREL(1003,870,'机构买盘'),linethick2,ColorRED;
DRAWTEXTREL(1003,570,'机构卖盘'),linethick2,ColorGREEN;
DRAWTEXTREL(1003,320,'散户买盘'),linethick2,Color5555FF;
DRAWTEXTREL(1003,50,'散户卖盘'),linethick2,Color55FF55;
if ((BARSTATUS=2) ) Then DRAWTEXTREL(1020,750,''+FLOOR(a7)+'%'),linethick2,ColorRED;
if ((BARSTATUS=2) ) Then DRAWTEXTREL(1020,460,''+FLOOR(a8)+'%'),linethick2,ColorGREEN;
if ((BARSTATUS=2) ) Then DRAWTEXTREL(1020,200,''+FLOOR(a9)+'%'),linethick2,Color5555FF;
if ((BARSTATUS=2) ) Then DRAWTEXTREL(1020,-50,''+FLOOR(a10)+'%'),linethick2,Color55FF55;
机构买单数:SUM(NOTICE(15),0),linethick0,COLORRED;
机构卖单数:SUM(NOTICE(16),0),linethick0,COLORGREEN;
机构吃货数:SUM(NOTICE(17),0),linethick0,COLORRED;
机构吐货数:SUM(NOTICE(18),0),linethick0,COLORGREEN;
机构吃货量:=DYNAINFO(104);
机构吐货量:=DYNAINFO(105);
大笔买入数:=SUM(NOTICE(5),0);
大笔卖出数:=SUM(NOTICE(6),0);
大笔买入量:"DBMMY.大笔总买#tick",PRECIS0,linethick3,COLORRED;
大笔卖出量:"DBMMY.大笔总卖#tick",PRECIS0,linethick3,COLORyellow;
最大值:=400/(max(机构吃货量,机构吐货量));
AA:=600-(机构吃货量*最大值);
drawrectrel(200,AA,350,610,rgb(200,0,0)),color000000,layer5;
BB:=600-(机构吐货量*最大值);
DRAWRECTREL(350,BB,500,610,RGB(0,200,0)),COLOR000000,LAYER5;
DRAWTEXTREL(280,640,'机构吃货量：'),colorred;
DRAWTEXTREL(280,800,'机构吐货量：'),Color00FF00;
DRAWTEXTREL(420,640,NUMTOSTRN(机构吃货量,2)),colorred;
DRAWTEXTREL(420,800,NUMTOSTRN(机构吐货量,2)),COLOR00FF00;
DRAWTEXTREL(550,640,'大笔买入数：'),color8800ff;
DRAWTEXTREL(550,800,'大笔卖出数：'),Coloryellow;
DRAWTEXTREL(690,640,NUMTOSTRN(大笔买入数,1)),color8800FF;
DRAWTEXTREL(690,800,NUMTOSTRN(大笔卖出数,1)),COLORyellow;
[/code]
[attach]4502[/attach]
页:
[1]