软件名称：[B]发一个可预见涨跌的分时主图【主图，源码，附图】[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：3.00 KB
官方主页：Home Page
更新时间：2011-11-29 03:45:45
软件简介:
发一个可预见涨跌的分时主图【主图，源码，附图】复杂一点，要引入好几个公式，说好了不要怕麻烦，你再来！！要引入的公式放在后面， (1)”引用“,"分时DDX.ddx累积"
， (2) "引用“,"DATA@dde分时"， (3) ”引用“,"LXFSBBD.主力流入"， 这三个网上都有。我们只用其中之一，凡是不用的用的大括弧括上{-------}就不显示了，
你按装完，边用边唔，你就会看道它的奥妙了，（特别是两个主动率）
{--分时主图--}
{叠加大盘”引用","001"}
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;
{涨跌家数}
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;
C, Color00ffFF,LINETHICK2,LAYER0;
VERTLINE(BARSTATUS=2,3),COLORFF9900,LAYER7;
{1,收fei版的DDX ”引用“,"分时DDX.ddx累积"}
{zjjl0:="分时DDX.ddx累积";
zjjl1:=abs(hhv(zjjl0,0)-llv(zjjl0,0))/(HHV(c,0)-llv(c,0));
换算值:zjjl0/zjjl1+DYNAINFO(3),linethick2,color0000ff,PRECIS4;
DDX:="分时DDX.ddx";;
STICKLINE(DDX>0,换算值,换算值+DDX*5,2,0),COLOR0000ff,LINETHICK2;
STICKLINE(DDX<0,换算值,换算值+DDX*5,2,0),COLOR00ff00,LINETHICK2;;}
{1B,免FEI--分时DDX ”引用“,"LXFSBBD.主力流入"}
LXD:="LXFSBBD.主力流入";
LXDD:=abs(hhv(LXD,0)-llv(LXD,0))/(HHV(c,0)-llv(c,0));
换算:LXD/LXDD+DYNAINFO(3),linethick2,color0000ff,PRECIS4;
DDXL:="LXFSBBD.BBD";;
STICKLINE(DDXL>0,换算,换算+DDXL/1000,2,0),COLOR0000ff,LINETHICK2;
STICKLINE(DDXL<0,换算,换算+DDXL/1000,2,0),COLOR00ff00,LINETHICK2;;
DRAWTEXT( BARSTATUS=2,换算*1.0005,'＄'+NUMTOSTRN(LXD,0)+'万' ),ALIGN0,LINETHICK5,Color0000FF,LAYER0;
{2,主动率 ”引用“,"分笔买卖"}
主动买:"分笔买卖.主动买#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;
{3,真主动率.”引用“,"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;
{4,免FEI--主力净额,”引用“,"DATA@dde分时"}
{特净额:=("DATA@dde分时"(4)*SUM(AMOUNT,0)/10000)-("DATA@dde分时"(5)*SUM(AMOUNT,0)/10000);
大净额:=(("DATA@dde分时"(6))*SUM(AMOUNT,0)/10000)-(("DATA@dde分时"(7))*SUM(AMOUNT,0)/10000);
主力净额:=特净额+大净额;
主净额Sf:=abs(hhv(主力净额,0)-llv(主力净额,0))/(HHV(c,0)-llv(c,0));
主净额:主力净额/主净额Sf+DYNAINFO(3),linethick2,color0077ff,LAYER1;
DRAWTEXT( BARSTATUS=2,主净额*1.0005,'＄'+NUMTOSTRN(主力净额,0)+'万' ),ALIGN0,LINETHICK5,Color0000FF,LAYER0;}
{6,五日均线 ”引用“, "MA"}
"MA.MA5#DAY",Color00ffff,DOTLINE;
"MA.MA5R#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;
{***本公式要有以下四个公式配合***名不能改是”引用“需要}
{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;
{分笔买卖}
主动买: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;
{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;
{MA---里加一句}
MAR:ref(MA1,1),LINETHICK0;
[url=http://www.70822.com/soft/sort013/sort03/down-41473.html]发一个可预见涨跌的分时主图【主图，源码，附图】[/url]