DRAWRECTABS(450,5 ,450+DYNAINFO(69)/3 ,12 , rgb(255,0,0)),COLOR00ffFF,LINETHICK1,LAYER5;
DRAWRECTABS(450,20 ,450+DYNAINFO(70)/3 ,27 , rgb(0,255,0)),COLOR0077FF,LAYER6;
DRAWRECTABS(450,35 ,450+DYNAINFO(71)/3 ,42 , rgb(255,255,0)),COLORff00FF,LAYER6;
DRAWTEXTABS(353,0,' 涨家数:'+NUMTOSTRN(DYNAINFO(69),0)+ ''),COLOR0000ff,LINETHICK2;
DRAWTEXTABS(353,15,' 跌家数:'+NUMTOSTRN(DYNAINFO(70),0)+ ''),COLOR00ff00,LINETHICK2;
DRAWTEXTABS(353,30,' 平家数:'+NUMTOSTRN(DYNAINFO(71),0)+ ''),COLOR00FFff,LINETHICK2;
A1:=DYNAINFO(23) /(DYNAINFO(23)+ DYNAINFO(22))*100;
A2:=DYNAINFO(17);
DRAWTEXTABS(0,2,'【主动率】▄ '+NUMTOSTRN(A1,1)+'%'),linethick4,color00ffFF;
DRAWTEXTABS(120,2,' ['+NUMTOSTRN("BSVOL.真主动率#tick",1)+'%]'),linethick4,color00ff00;
DRAWTEXTABS(0,22,IFS((A2 >= 1), '【量比】▄ '+NUMTOSTRN(A2,2)+'%,','')),linethick4,color0000FF;
DRAWTEXTABS(0,22,IFS((A2 < 1), '【量比】▄ '+NUMTOSTRN(A2,2)+'%,','')),linethick4,color00FF00;
{1.叠加大盘******”引用“【A】'001.RC#DAY'}
TC:=STRCMP(STRLEFT(MARKETLABEL,2),'SZ');
DPSH:="SH000001$CLOSE"/HHV(STKINDI('SH000001','001.RC#DAY'),0);
DPSZ:="399001$CLOSE"/HHV(STKINDI('399001','001.RC#DAY'),0);
DPC:=IF(INBLOCK('A股板块'),DYNAINFO(3)*IF(C=0,DPSZ,DPSH),C);
POLYLINE(C>0,DPC),COLORff00FF,LAYER0,linethick2;
DRAWTEXTabs(350,50,'大盘指数：'+"001.大盘指数#day"),COLORYELLOW,LINETHICK4;
DRAWTEXTABS(550,50,IFS(("001.大盘涨幅#day" >= 0), '【大盘涨幅】▄ '+NUMTOSTRN("001.大盘涨幅#day",3)+'%,','')),linethick4,color0000FF;
DRAWTEXTABS(550,50,IFS(("001.大盘涨幅#day" < 0), '【大盘涨幅】▄ '+NUMTOSTRN("001.大盘涨幅#day",3)+'%,','')),linethick4,color00FF00;
C, Color00ffF9,LINETHICK2,LAYER0;
VERTLINE(BARSTATUS=2,3),COLORFF9900,LAYER7;
{2,主力流入*****"DDEDATA@dde分时"}
DD:="DDEDATA@dde分时"(6)+"DDEDATA@dde分时"(7);
LXDD:=abs(hhv(DD,0)-llv(DD,0))/(HHV(c,0)-llv(c,0));
换算:DD/LXDD+DYNAINFO(3),linethick2,color0077ff,PRECIS4;
BBD:DD-REF(DD,1),LINETHICK0;;;
STICKLINE(BBD>0,换算,换算+BBD/1000,2,0),COLOR0000ff,LINETHICK2;
STICKLINE(BBD<0,换算,换算+BBD/1000,2,0),COLOR00ff00,LINETHICK2;;
DRAWTEXT( BARSTATUS=2,换算*1.0005,'＄'+NUMTOSTRN(DD,1)+'万' ),ALIGN0,LINETHICK6,Color0000FF,LAYER0;
{3,散户流入*****"DDEDATA@dde分时"}
散净额:("DDEDATA@dde分时"(9)),color00ff00,LINETHICK0;
LXDS:=abs(hhv(散净额,0)-llv(散净额,0))/(HHV(c,0)-llv(c,0));
换算S:散净额/LXDS+DYNAINFO(3),linethick1,color00ff00,LAYER0;
DRAWTEXT( BARSTATUS=2,换算S*1.0005,'＄'+NUMTOSTRN(散净额,1)+'万' ),ALIGN0,LINETHICK6,Color00FF00,LAYER0;
{4,主动率****** ”引用“【B】"分笔买卖"}
主动买:"分笔买卖.主动买#tick",colorred,linethick0,PRECIS0;
主动卖:"分笔买卖.主动卖#tick",coloryellow,linethick0,PRECIS0;
主动净量:主动买-主动卖,colorstick,linethick0,PRECIS0;
主动Sf:=abs(hhv(主动净量,0)-llv(主动净量,0))/(HHV(c,0)-llv(c,0));
SS主动:主动净量/主动Sf+DYNAINFO(3),colorFF6600,linethick1,LAYER1;
A1:=DYNAINFO(23) /(DYNAINFO(23)+ DYNAINFO(22))*100;
DRAWTEXT( BARSTATUS=2,SS主动*1.0005,' ▄'+NUMTOSTRN(A1,1)+'%' ),ALIGN0,LINETHICK3,Color00ffFF,LAYER6;
{5,真主动率******.”引用“【C】"BSVOL"}
真主动净量:"BSVOL.真主动净量#tick",colorstick,linethick0,PRECIS0;
真主动Sf:=abs(hhv(真主动净量,0)-llv(真主动净量,0))/(HHV(c,0)-llv(c,0));
真主动:真主动净量/真主动Sf+DYNAINFO(3),ColorAAffAA,DOTLINE,LAYER1;
DRAWTEXT( BARSTATUS=2,真主动*1.0005,' ▄'+NUMTOSTRN("BSVOL.真主动率#tick",1)+'%,'),linethick3,color00FF00;
fillrgn(真主动,SS主动,真主动>SS主动,RGB(220,0,80),真主动<SS主动,RGB(20,55,0)),LAYER6;
{7,五日均线*******”引用“【D】"MA"}
"MA.MA1#DAY",Color00ffff,DOTLINE;
"MA.MAR#DAY",Color00ff00,DOTLINE;
DRAWTEXTABS(5,50,'MA5: '+NUMTOSTRN("MA.MA1#DAY",2)+'元'),Color00ffFF,LINETHICK3,LAYER0;
DRAWTEXTABS(5,70,'昨MA5: '+NUMTOSTRN("MA.MAR#DAY",2)+'元'),Color00FF00,LINETHICK3,LAYER0;
{7，VOL}
STICKLINE(C>ref(c,1),C,C+v/capital*300,2,0),COLOR0000FF,linethick2,LAYER0;
STICKLINE(C<ref(c,1),C,C-v/capital*300,2,0),COLOR00FF00,linethick2,LAYER0;
STICKLINE(C=ref(c,1),C,C+v/capital*300,2,0),COLORFF9900,linethick2,LAYER0;
=========================以下是另需加进的部份=============================================
{***本公式----"DDEDATA@dde分时"需要注册，收费的要改函数，不用时用大括弧括上****}
{***本公式要有以下四个公式配合***名不能改是”引用“需要****}
【A】
{001}{名不能改是”引用公式“}
A1:DYNAINFO(14),LINETHICK0;
c1:c,LINETHICK0;
o1:o,LINETHICK0;
h1:h,LINETHICK0;
l1:l,LINETHICK0;
rc:DYNAINFO(3),LINETHICK0;
ra:DYNAINFO(7),LINETHICK0;
Aj:AMOUNT;
大盘指数:INDEXC;
大盘涨跌:INDEXC-REF(INDEXC,1);
大盘涨幅:(INDEXC-REF(INDEXC,1))/(REF(INDEXC,1))*100;
【B】
{分笔买卖}
主动买:SUM(BUYVOL,0),Color0000ff,linethick2;
主动卖:SUM(SELLVOL,0),Color00ff00,linethick2;
主动净量:主动买-主动卖,colorstick,linethick0,PRECIS0;
主动率:主动买/(主动卖+主动买)*100,colorwhite,PRECIS2,linethick0;
DRAWTEXTABS(0,5,IFS((主动率 >= 50),'【主动买/(主买+主卖)*100】▄ '+NUMTOSTRN(主动率,1)+'%,','')),linethick4,color00FFFF;
DRAWTEXTABS(0,5,IFS((主动率< 50),'【主动买/(主买+主卖)*100】▄ '+NUMTOSTRN(主动率,1)+'%,','')),linethick4,color00FF00;
买卖次:BARSSINCE(v)+1,PRECIS0;
主买:SUM(BUYVOL,买卖次),PRECIS0;
主卖:SUM(SELLVOL,买卖次),PRECIS0;
成交笔数:SUM(TICKCOUNT,0),PRECIS0;
主买次:SUM(ISBUYORDER,0),PRECIS0;
【C】
{BSVOL}
N:=0;
var1:=sum(if(bidprice(1)>ref(bidprice(1),1),(buyvol-sellvol),N),0);
var2:=sum(if(bidprice(1)=ref(bidprice(1),1),(buyvol-sellvol),N),0);
var3:=sum(if(bidprice(1)<ref(bidprice(1),1),(sellvol-buyvol),N),0);
True:(var1+var2-var3)/(var1+abs(var2)+var3)*sum(v,N)/capital*100,Color0000ff;
false:(sum(buyvol,N)-sum(sellvol,N))/(sum(buyvol,N)+sum(sellvol,N))*sum(v,N)/capital*100,Color00ff00;
var1a:=sum(if(bidprice(1)>ref(bidprice(1),1),(buyvol),N),0);
var2a:=sum(if(bidprice(1)=ref(bidprice(1),1),(buyvol),N),0);
var3a:=sum(if(bidprice(1)<ref(bidprice(1),1),(sellvol),N),0);
真主动率:(var1+var2)/(abs(var1)+abs(var2)+abs(var3))*100,Color0000ff,linethick0;
假主动率:(sum(buyvol,N))/(sum(buyvol,N)+sum(sellvol,N))*100,Color00ff00,linethick0;
真主动净量:(var1+var2-var3)*sum(v,N)/capital*100,linethick0;
【D】
{MA---里加一句}
MAR:ref(MA1,1),LINETHICK0;
 |
