分享

公式

 小散王 2010-11-27
dkby(多空博弈)指标的新建(1,当“多方”线向上与“空方线金叉时为买点2,当多方线向下与空方线死叉时为卖点)
 
{dkby多空博弈}
VAR1:=(HHV(HIGH,21)-C)/(HHV(HIGH,21)-LLV(LOW,21))*100-10;
VAR2:=(C-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100;
VAR3:=SMA(VAR2,13,8);
高位:90;
低位:0;
多方: SMA(VAR3,13,8),COLORaaaddd,linethick3;
stickline(多方>=ref(多方,1),多方,45,1,0),colorred;
空方: SMA(VAR1,21,8),COLORred,linethick3;
中轴:45,linethick3,colorffa2af;
长rsv55:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;
长k55:=SMA(长rsv55,3,1),colorwhite,linethick2;
多方a:SMA(长k55,3,1),colorffffff,linethick3;
空方a:SMA(长k55,3,1)*(-1)+100,colorffff00,linethick3;
{多空博弈用法:
1。当“多方”线向上与“空方”线“金叉”时为买点。
2。当“多方”线向下与“空方”线“死叉”时为卖点。
3。当“多方a”线向上与“空方a”线“金叉”时为买点。
4。当“多方a”线向下与“空方a”线“死叉”时为卖点。}
 

CLJC(主力出进)指标的新建
V2:=EMA(V1,13)-EMA(V1,34);
V3:=EMA(V2,5);
V4:=2*(V2-V3)*5.5;
主力开始出: IF(V4<=0,V4,0),colorgreen,LINETHICK2;
主力开始进: IF(V4>=0,V4,0),colorred,LINETHICK2;
V5:=(HHV(INDEXH,8)-INDEXC)/(HHV(INDEXH,8)-LLV(INDEXL,8))*8;
V6:=EMA(3*V5-2*SMA(V5,18,1),5);
V7:=(INDEXC-LLV(INDEXL,8))/(HHV(INDEXH,8)-LLV(INDEXL,8))*10;
V8:=(INDEXC*2+INDEXH+INDEXL)/4;
V9:=EMA(V8,13)-EMA(V8,34);
VA:=EMA(V9,3);
VB:=(V9-VA)/2;
 原文链接:http://www./viewthread.php?tid=3365078
多空对比指标。DKDB
短期:100*(C-LLV(L,5))/(HHV(C,5)-LLV(L,5)),colorwhite;
中期:100*(C-LLV(L,10))/(HHV(C,10)-LLV(L,10)),coloryellow;
中长期:100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20)),colormagenta;
长期:100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30)),colorred,LINETHICK2;
强市线:80,POINTDOT;
弱市线:20,POINTDOT;
分水岭:50,POINTDOT;
个股资金线:MA(C,1)/MA(REF(C,18),18)*100,LINETHICK2,COLORddFFFF;
资金生命线:MA(FORCAST(个股资金线,20),6),COLORMAGENTA,LINETHICK2
 
操盘线
买线:=EMA(C,2);
卖线:=EMA(SLOPE(C,21)*20+C,42);  
BU:=cross(买线,卖线);
SEL:=cross(卖线,买线);
drawtext(bu,LOW*0.989,'B'),colorred,linethick3;
DRAWTEXT(bu,LOW,''),Color208FFF,LINETHICK3;
DRAWTEXT(sel,HIGH,''),ColorFFFF00,LINETHICK3;
drawtext(sel,HIGH*1.0175,'S'),colorffff00,linethick3;
stickline(买线>=卖线,low,high,1,0),colorred;
stickline(买线>=卖线,close,open,4.5,0),color0000aa;
stickline(买线>=卖线,close,open,4,0),color0000cc;
stickline(买线>=卖线,close,open,3,0),color0000cc;
stickline(买线>=卖线,close,open,2,0),color0000ee;
stickline(买线<卖线,close,open,4.5,0),coloraaaa00;
stickline(买线<卖线,close,open,4,0),colorbbbb00;
stickline(买线<卖线,close,open,3,0),colorcccc00;
stickline(买线<卖线,close,open,2,0),coloreeee00;
stickline(买线<卖线,low,high,1,0),colorffff00;
stickline(cross(买线,卖线) or cross(卖线,买线),open,close,3,0),color00ffff;
指导线: EMA((EMA(CLOSE,4)+EMA(CLOSE,6)+EMA(CLOSE,12)+EMA(CLOSE,24))/4,2),linethick1,ColorFFffFF;
界: MA(CLOSE,27),linethick1,Color00FFFF;
DRAWTEXT(cross(指导线,界),界,''),Colorffffff;
DRAWTEXT(cross(界,指导线),界,''),Color00ffff;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
G:=95;
DRAWTEXT(cross(J,D),L*0.999,''),Color00ffff,linethick4;
DRAWTEXT(cross(J,D),L,''),Color00ffff;
DRAWTEXT(cross(J,G),H*1.005,''),Colorffff00,linethick4;
DRAWTEXT(cross(J,G),H,''),Colorffff00;
[/code]

{资金博弈 }
jgV:=(BIGORDER(1,3)-BIGORDER(2,3))*vol/CAPITAL;
dhV:=(BIGORDER(1,2)-BIGORDER(2,2)-BIGORDER(1,3)+BIGORDER(2,3))*vol/CAPITAL;
zhV:=(BIGORDER(1,1)-BIGORDER(2,1)-BIGORDER(1,2)+BIGORDER(2,2))*vol/CAPITAL;
shV:=(BIGORDER(2,1)-BIGORDER(1,1))*vol/CAPITAL;
A1:=MIN((COUNT(ORDER(2),0)),60);
超级资金:EMA(jgV,A1)*A1,COLORMAGENTA;
大户资金:EMA(dhV,A1)*A1,color3399FF ;
中户资金:EMA(zhV,A1)*A1,colorcyan;
小股民资金:EMA(shV,A1)*A1,colorgreen;
0,color333333;
 

{超级资金 }
A1:=MIN((COUNT(ORDER(2),0)),60);
超户:(BIGORDER(1,3)-BIGORDER(2,3))*vol/CAPITAL,COLOR3D ;
累计:EMA(超户,A1)*A1,COLORMAGENTA;
均值:EMA(累计,10),colorwhite;
{大户资金 }
A1:=MIN((COUNT(ORDER(2),0)),60);
大户:(BIGORDER(1,2)-BIGORDER(2,2)-BIGORDER(1,3)+BIGORDER(2,3))*vol/CAPITAL,COLOR3D ;
累计:EMA(大户,A1)*A1,color3399FF;
均值:EMA(累计,10),colorwhite;
{中户资金 }
A1:=MIN((COUNT(ORDER(2),0)),60);
中户:(BIGORDER(1,1)-BIGORDER(2,1)-BIGORDER(1,2)+BIGORDER(2,2))*vol/CAPITAL,COLOR3D ;
累计:EMA(中户,A1)*A1,colorcyan;
均值:EMA(累计,10),colorwhite;
{小股民资金 }
A1:=MIN((COUNT(ORDER(2),0)),60);
小股民:(BIGORDER(2,1)-BIGORDER(1,1))*vol/capital,COLOR3D ;
累计:EMA(小股民,A1)*A1,colorgreen;
均值:EMA(累计,10),colorwhite;
{大单比率 }
input:P1(5,0,100),P2(30,0,100);
A1:=MIN((COUNT(ORDER(2),0)),60);
大单比率:(BIGORDER(1,2) - BIGORDER(2,2))*vol/CAPITAL,color3d;
均值1:EMA(大单比率,P1),coloryellow;
均值2:EMA(大单比率,P2),colormagenta;
 
{筹码聚散}
聚散程度:10*(ORDER(2)-ORDER(1))/CAPITAL, COLOR3D;
聚散方向:ema( 聚散程度,10),linethick2 ;
{资金流变}
input:n1(5,0,100);
a:=((BIGORDER(1,2) - BIGORDER(2,2)) *AMOUNT/100000000)  ;
STICKLINE(a>0,0,a,6,0 ),COLORred;
STICKLINE(a<0,0,a,6,0 ),COLORgreen;
当日资金净流:a,precis4,linethick0;
资金累净流:SUM(a,n1),precis4,coloryellow;
 
{成本均线}
input:p1(5,0,100), p2(13,0,100),p3(34,0,100);
cb1:ema(AMOUNT,P1)/EMA(VOL,P1)/100;
cb2:ema(amount,P2)/ema(vol,P2)/100;
cb3:ema(amount,P3)/ema(vol,P3)/100;
∞:DMA(C,V/CAPITAL);
 
{按部就班}
现价:C;
顶部: cost(95) ,colorffff33;
卖出: cost(75) ,colorgreen;
买入: cost(30) ,colorred;
底部: cost(5) ,coloryellow;

{龙腾四海}(1。取值范围0-100。2海面以上为空头控盘区域,不得介入3天际以上为多头快速拉抬区,经常为主升浪阶段4海面到天际之间多头控盘区,正常的股价拉升及调整区域5当“龙腾四海”由上穿海面时为买入信号,回穿海面再次上穿为加仓信号,配合操盘线买点使用更佳6当“龙腾四海”由下穿天际为卖出信号,如“龙腾四海”为100,则通常第二天必然出现近棋新高,考虑第二天出货8该指标不适用天领涨股及主力完全控盘无量上涨的股票,因为这类票常会在80左右反复震荡,但股价却不断走高,它比较适用天二线股,跟涨的股票。)
input:n(8,0,100);
坐标线:0;20;50;80;100;
100-100*(HHV(HIGH,5*N)-CLOSE)/(HHV(HIGH,5*N)-LLV(LOW,5*N)),colorwhite;
海面:20,COLORGREEN;
海天分界线:50,COLORYELLOW;
天际:80,COLORRED;
{趋势顶底}
80,COLOR996699;
20,COLORGREEN;
10,COLORCC6633,LINETHICK2;
90,COLOR9966FF,LINETHICK2;
A:=MA(-100*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34)),19);
B:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
D:=EMA(-100*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34)),4);
长期线:A+100,COLOR9900FF;
短期线:B+100,COLOR888888;
中期线:D+100,COLORYELLOW,LINETHICK2;
见顶:=((REF(中期线,1)>85 AND  REF(短期线,1)>85 AND REF(长期线,1)>65) AND CROSS(长期线,短期线));
顶部区域:(中期线<REF(中期线,1) AND REF(中期线,1)>80) AND (REF(短期线,1)>95 OR REF(短期线,2)>95 ) AND 长期线>60 AND 短期线<83.5
AND 短期线<中期线 AND 短期线<长期线+4,COLORGREEN;
顶部:=FILTER(顶部区域,4);
STICKLINE( {见顶 OR} 顶部,99,103,20,1 ),COLORRED,LINETHICK2;
底部区域:(长期线<12 AND 中期线<8 AND (短期线<7.2 OR REF(短期线,1)<5) AND (中期线>REF(中期线,1) OR 短期线>REF(短期线,1)))
OR (长期线<8 AND 中期线<7 AND 短期线<15 AND 短期线>REF(短期线,1)) OR (长期线<10 AND 中期线<7 AND 短期线<1) ,COLORGREEN;
STICKLINE( 底部区域,-4,0,22,0 ),COLORGREEN;
低位金叉:50*(长期线<15 AND REF(长期线,1)<15 AND 中期线<18 AND 短期线>REF(短期线,1) AND CROSS(短期线,长期线) AND 短期线>中期线 
AND (REF(短期线,1)<5 OR REF(短期线,2)<5 )  AND (中期线>=长期线 OR REF( 短期线,1)<1 )),COLORRED;
STICKLINE( 低位金叉,0,5,11,0 ),COLORRED;
{冰火两重天}
input:p1(16,0,100);
能量:=SQRT(VOL)*(((C-(H+L)/2))/((H+L)/2));
平滑能量:=EMA(能量,P1);
能量惯性:EMA(平滑能量,P1) ;
STICKLINE(能量惯性>=0,(能量惯性-能量惯性*0.05),(能量惯性-能量惯性*0.15),3,0), COLOR0000CC;
STICKLINE(能量惯性>=0,(能量惯性-能量惯性*0.2),(能量惯性-能量惯性*0.35),3,0), COLOR0066FF;
STICKLINE(能量惯性>=0,(能量惯性-能量惯性*0.4),(能量惯性-能量惯性*0.55),3,0),COLOR0099FF;
STICKLINE(能量惯性>=0,(能量惯性-能量惯性*0.6),(能量惯性-能量惯性*0.75),3,0), COLOR00CCFF;
STICKLINE(能量惯性>=0,(能量惯性-能量惯性*0.8),(能量惯性-能量惯性*0.95),3,0), COLOR00FFFF;
STICKLINE(能量惯性<0,(能量惯性-能量惯性*0.05),(能量惯性-能量惯性*0.15),3,0), COLORFF3300;
STICKLINE(能量惯性<0,(能量惯性-能量惯性*0.2),(能量惯性-能量惯性*0.35),3,0), COLORFF6600;
STICKLINE(能量惯性<0,(能量惯性-能量惯性*0.4),(能量惯性-能量惯性*0.55),3,0), COLORFF9900;
STICKLINE(能量惯性<0,(能量惯性-能量惯性*0.6),(能量惯性-能量惯性*0.75),3,0), COLORFFCC00;
STICKLINE(能量惯性<0,(能量惯性-能量惯性*0.8),(能量惯性-能量惯性*0.95),3,0), COLORFFFF00;
{波段无敌}
P1:=0;
P2:= IF (CLOSE>MA(CLOSE,5),P1+10,P1-10);
P3:= IF (CLOSE>MA(CLOSE,10),P2+10,P2-10);
P4:= IF (CLOSE>MA(CLOSE,10),P3+10,P3-10);
P5:= IF (MA(CLOSE,5)>MA(CLOSE,10),P4+10,P4-10);
P6:= IF (MA(CLOSE,10)>MA(CLOSE,20),P5+10,P5-10);
BD:P6;
STICKLINE(BD>=-50,-50,BD,3,0),COLORGREEN;
STICKLINE(BD>=-30,-30,BD,3,0),COLORFFFF00;
STICKLINE(BD>=0,0,BD,3,0),COLORYELLOW;
STICKLINE(BD<=50 AND BD>=30,30,BD,3,0),COLORRED;
{买卖频谱}
买线:EMA(C,3);
卖线:EMA(SLOPE(C,21)*20+C,55);
买卖差:=买线-卖线;
STICKLINE(买卖差>=0,(买线-买卖差*0.05),(买线-买卖差*0.15),5,0) ,COLOR00FFFF;
STICKLINE(买卖差>=0,(买线-买卖差*0.2),(买线-买卖差*0.35),5,0) ,COLOR00CCFF;
STICKLINE(买卖差>=0,(买线-买卖差*0.4),(买线-买卖差*0.55),5,0) ,COLOR0099FF;
STICKLINE(买卖差>=0,(买线-买卖差*0.6),(买线-买卖差*0.75),5,0) ,COLOR0066FF;
STICKLINE(买卖差>=0,(买线-买卖差*0.8),(买线-买卖差*0.95),5,0) ,COLOR0000CC;
STICKLINE(买卖差<0,(卖线+买卖差*0.05),(卖线+买卖差*0.15),5,0) ,COLOR006600;
STICKLINE(买卖差<0,(卖线+买卖差*0.2),(卖线+买卖差*0.35),5,0) ,COLOR009900;
STICKLINE(买卖差<0,(卖线+买卖差*0.4),(卖线+买卖差*0.55),5,0) ,COLOR00CC00;
STICKLINE(买卖差<0,(卖线+买卖差*0.6),(卖线+买卖差*0.75),5,0) ,COLOR00FF00;
STICKLINE(买卖差<0,(卖线+买卖差*0.8),(卖线+买卖差*0.95),5,0) ,COLOR66FF00;
{主力进出}
MAV:=(C*2+H+L)/4;
SK:= EMA(MAV,13) - EMA(MAV,34);
SD := EMA(SK,5);
中轴:0;
空方主力 : (-2*(SK-SD))*3.8,COLORGREEN;
多方主力 : (2*(SK-SD))*3.8,COLORRED;
{多空博弈}
VAR1:=(HHV(HIGH,21)-C)/(HHV(HIGH,21)-LLV(LOW,21))*100-10;
VAR2:=(C-LLV(LOW,21))/(HHV(HIGH,21)-LLV(LOW,21))*100;
VAR3:=SMA(VAR2,13,8);
高位:90;
低位:0;
多方: SMA(VAR3,13,8),COLORRED;
空方: SMA(VAR1,21,8),COLORGREEN;
中轴:45;
{筹码分析}
HSL:=EMA(VOL/CAPITAL,3);
ZDL:=HHV(HSL,240);
ZXL:=LLV(HSL,240);
XS:=MA(C,33);
锁定筹码:EMA((HSL-ZXL)/ZXL*XS,13);
浮动筹码:EMA((ZDL-HSL)/HSL*XS,13);
力量对比:锁定筹码-浮动筹码 ,COLORSTICK;
 
【本文仅仅提供源码】

免费【分时龙虎看盘】
受法华镇老师前不久发布的分时龙虎榜的启发,制作了这套【龙虎看盘】,共4件:【分时龙虎看盘】(横版)、【分时龙虎看盘】竖版、【龙虎看盘】(横版)、【龙虎看盘】竖版。
新增加了各户的净额、净量、净比例,还增加了各户持仓比例及增仓比例(增仓比例数据在饼图四周)。
原常规饼图中增加了四户中“净买入比例”,红色代表超大户的净买入、橘黄色代表大户的净买入、海蓝色代表中户的净买入、绿色代表散户的净买入。
【分时龙虎看盘】由于从日时数据引入,在引入公式时会误判提示“含未来函数”,其实所有公式与日时【龙虎看盘】完全一样,仅仅是在引入公式的后面加上“#day”而已,与同通常的“未来函数”有本质上的区别,尽可放心使用。
【龙虎看盘】(横版)由于引用了少数“引用公式”,所以在使用过程中非常迟钝,尽量少用。
将公式全部引入,在TOP 的“设”置中即可找到所需的【龙虎看盘】。
{WDLHKPH-【卫东-龙虎看盘】(横幅版)}
REFLINE:0;
TODAY:=DYNAINFO(7)=CLOSE and DYNAINFO(10)=AMOUNT and (ORDER(1)=0 and ORDER(2)=0);
sdn:=IF(TODAY,(1-"DDEDATA@BIGORDER"(1,1)),(1-bigorder(1,1)));
sdm:=IF(TODAY,(1-"DDEDATA@BIGORDER"(2,1)),(1-bigorder(2,1)));
zdn:=IF(TODAY,("DDEDATA@BIGORDER"(1,1)-"DDEDATA@BIGORDER"(1,2)),(bigorder(1,1)-bigorder(1,2)));
zdm:=IF(TODAY,("DDEDATA@BIGORDER"(2,1)-"DDEDATA@BIGORDER"(2,2)),(bigorder(2,1)-bigorder(2,2)));
ddn:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)-"DDEDATA@BIGORDER"(1,3)),(bigorder(1,2)-bigorder(1,3)));
ddm:=IF(TODAY,("DDEDATA@BIGORDER"(2,2)-"DDEDATA@BIGORDER"(2,3)),(bigorder(2,2)-bigorder(2,3)));
tdn:=IF(TODAY,"DDEDATA@BIGORDER"(1,3),bigorder(1,3));
tdm:=IF(TODAY,"DDEDATA@BIGORDER"(2,3),bigorder(2,3));
zln:=IF(TODAY,("DDEDATA@BIGORDER"(1,2)),BIGORDER(1,2));
zlm:=IF(TODAY,("DDEDATA@BIGORDER"(2,2)),BIGORDER(2,2));
{饼图}{13}
tdn,COLOR5454FF;
ddn,COLOR3F3FBF;
zdn,COLOR2A2A7F;
sdn,COLOR15153F;
(tdn-tdm)*2,COLOR0000FF;
(ddn-ddm)*2,color1e90ff;
(zdn-zdm)*2,colorff7f50;
(sdn-sdm)*2,COLOR00FF00;
sdm,COLOR3F3F15;
zdm,COLOR7F7F2A;
ddm,COLORBFBF3F;
tdm,COLORFFFF54;
{26}
DRAWTEXTABS(0,30,'买'+'                    卖'),COLOR00FFFF;
DRAWTEXTABS(0,0,'■'+'超大'+NUMTOSTRN((VOL/CAPITAL)*100*(tdn-tdm),2)+'%'),COLOR0000FF;{超净买}
DRAWTEXTABS(75,0,'■'+'大户'+NUMTOSTRN((VOL/CAPITAL)*100*(ddn-ddm),2)+'%'),color1e90ff;{大净买}
DRAWTEXTABS(0,130,'■'+'中户'+NUMTOSTRN((VOL/CAPITAL)*100*(zdn-zdm),2)+'%'),colorff7f50;{中净买}
DRAWTEXTABS(75,130,'■'+'散户'+NUMTOSTRN((VOL/CAPITAL)*100*(sdn-sdm),2)+'%'),COLOR00FF00;{散净买}
{常用数据}{32}
DRAWTEXTABS(160,0,datestr(REF((DATE),0))+' 星期'+REF(WEEKDAY,0)+' '+STKNAME),COLOR00FFFF;
DRAWTEXTABS(150,13,'最新:'+NUMTOSTRN(DYNAINFO(7),2)+' '+'今开:'+NUMTOSTRN(DYNAINFO(4),2)
+' '+'最高:'+NUMTOSTRN(DYNAINFO(5),2)+' '+'最低:'+NUMTOSTRN(DYNAINFO(6),2)
+' '+'涨跌:'+NUMTOSTRN(DYNAINFO(12),2)+' '+'涨幅:'+NUMTOSTRN(DYNAINFO(14)*100,2)+'%'
+' '+'振幅:'+NUMTOSTRN(DYNAINFO(13)*100,2)+'%'+' '+'换手率:'+NUMTOSTRN(DYNAINFO(37)*100,2)+'%'
+' '+'主动率:'+NUMTOSTRN((DYNAINFO(23)-DYNAINFO(22))/(DYNAINFO(22)+DYNAINFO(23))*100,2)+'%'
+' '+'DDX:'+NUMTOSTRN("WDDDX.DDX#day",3)),COLOR2222FF;
{各户买卖数据}{40}
DRAWTEXTABS(150,20,'────────────────────────────────────────────────────────'),COLORRED;
DRAWTEXTABS(150,40,'────────────────────────────────────────────────────────'),COLORRED;
DRAWTEXTABS(150,120,'────────────────────────────────────────────────────────'),COLORRED;
{44}
DRAWTEXTABS(195,31,'委      买      单'),COLOR00FFFF;
DRAWTEXTABS(150,50,'■'),COLOR0000FF;{主买}
DRAWTEXTABS(150,65,'■'),COLOR5454FF;{超买}
DRAWTEXTABS(150,80,'■'),COLOR3F3FBF;{大买}
DRAWTEXTABS(150,95,'■'),COLOR2A2A7F;{中买}
DRAWTEXTABS(150,110,'■'),COLOR15153F;{散买}
DRAWTEXTABS(165,50,'主力买 '+numtostrn((tdn+ddn)*amount/10000,0)+'万'),COLOR0000FF;
DRAWTEXTABS(165,65,'超大买 '+numtostrn(tdn*amount/10000,0)+'万'),COLOR5454FF;
DRAWTEXTABS(165,80,'大户买 '+numtostrn(ddn*amount/10000,0)+'万'),COLOR5454FF;
DRAWTEXTABS(165,95,'中户买 '+numtostrn(zdn*amount/10000,0)+'万'),COLOR5454FF;
DRAWTEXTABS(165,110,'散户买 '+numtostrn(sdn*amount/10000,0)+'万'),COLOR5454FF;
{56}
DRAWTEXTABS(252,50,numtostrn((tdn+ddn)*V,0)+'手'),COLOR0000FF;
DRAWTEXTABS(252,65,numtostrn(tdn*V,0)+'手'),COLOR5454FF;
DRAWTEXTABS(252,80,numtostrn(ddn*V,0)+'手'),COLOR5454FF;
DRAWTEXTABS(252,95,numtostrn(zdn*V,0)+'手'),COLOR5454FF;
DRAWTEXTABS(252,110,numtostrn(sdn*V,0)+'手'),COLOR5454FF;
DRAWTEXTABS(305,50,'占'+numtostrn((tdn+ddn)*100,1)+'%'),COLOR0000FF;
DRAWTEXTABS(305,65,'占'+numtostrn(tdn*100,1)+'%'),COLOR5454FF;
DRAWTEXTABS(305,80,'占'+numtostrn(ddn*100,1)+'%'),COLOR5454FF;
DRAWTEXTABS(305,95,'占'+numtostrn(zdn*100,1)+'%'),COLOR5454FF;
DRAWTEXTABS(305,110,'占'+numtostrn(sdn*100,1)+'%'),COLOR5454FF;
DRAWTEXTABS(346,26,'|'),COLORRED;
DRAWTEXTABS(346,34,'|'),COLORRED;
{69}
DRAWTEXTABS(395,31,'委      卖      单'),COLOR00FFFF;
DRAWTEXTABS(350,50,'■'),COLORFF0000;{主卖}
DRAWTEXTABS(350,65,'■'),COLORFFFF54;{超卖}
DRAWTEXTABS(350,80,'■'),COLORBFBF3F;{大卖}
DRAWTEXTABS(350,95,'■'),COLOR7F7F2A;{中卖}
DRAWTEXTABS(350,110,'■'),COLOR3F3F15;{散卖}
DRAWTEXTABS(365,50,'主力卖 '+numtostrn((tdm+ddm)*amount/10000,0)+'万'),COLORFF5500;
DRAWTEXTABS(365,65,'超大卖 '+numtostrn(tdm*amount/10000,0)+'万'),COLORFFFF80;
DRAWTEXTABS(365,80,'大户卖 '+numtostrn(ddm*amount/10000,0)+'万'),COLORFFFF80;
DRAWTEXTABS(365,95,'中户卖 '+numtostrn(zdm*amount/10000,0)+'万'),COLORFFFF80;
DRAWTEXTABS(365,110,'散户卖 '+numtostrn(sdm*amount/10000,0)+'万'),COLORFFFF80;
{81}
DRAWTEXTABS(452,50,numtostrn((tdm+ddm)*V,0)+'手'),COLORFF5500;
DRAWTEXTABS(452,65,numtostrn(tdm*V,0)+'手'),COLORFFFF80;
DRAWTEXTABS(452,80,numtostrn(ddm*V,0)+'手'),COLORFFFF80;
DRAWTEXTABS(452,95,numtostrn(zdm*V,0)+'手'),COLORFFFF80;
DRAWTEXTABS(452,110,numtostrn(sdm*V,0)+'手'),COLORFFFF80;
DRAWTEXTABS(505,50,'占'+numtostrn((tdm+ddm)*100,1)+'%'),COLORFF5500;
DRAWTEXTABS(505,65,'占'+numtostrn(tdm*100,1)+'%'),COLORFFFF80;
DRAWTEXTABS(505,80,'占'+numtostrn(ddm*100,1)+'%'),COLORFFFF80;
DRAWTEXTABS(505,95,'占'+numtostrn(zdm*100,1)+'%'),COLORFFFF80;
DRAWTEXTABS(505,110,'占'+numtostrn(sdm*100,1)+'%'),COLORFFFF80;
DRAWTEXTABS(546,26,'|'),COLORRED;
DRAWTEXTABS(546,34,'|'),COLORRED;
{94}
DRAWTEXTABS(635,31,'净      买      单'),COLOR00FFFF;
DRAWTEXTABS(550,50,'■'),COLOR00FFFF;{主买}
DRAWTEXTABS(550,65,'■'),COLOR0000FF;{超买}
DRAWTEXTABS(550,80,'■'),color1e90ff;{大买}
DRAWTEXTABS(550,95,'■'),colorff7f50;{中买}
DRAWTEXTABS(550,110,'■'),COLOR00FF00;{散买}
{101}
DRAWTEXTABS(565,50,'主净买 '+numtostrn(((tdn-tdm)+(ddn-ddm))*amount/10000,0)+'万'),COLOR00FFFF;
DRAWTEXTABS(565,65,'超净买 '+numtostrn((tdn-tdm)*amount/10000,0)+'万'),COLOR0000FF;
DRAWTEXTABS(565,80,'大净买 '+numtostrn((ddn-ddm)*amount/10000,0)+'万'),color1e90ff;
DRAWTEXTABS(565,95,'中净买 '+numtostrn((zdn-zdm)*amount/10000,0)+'万'),colorff7f50;
DRAWTEXTABS(565,110,'散净买 '+numtostrn((sdn-sdm)*amount/10000,0)+'万'),COLOR00FF00;
{107}
DRAWTEXTABS(652,50,numtostrn(((tdn-tdm)+(ddn-ddm))*V,0)+'手'),COLOR00FFFF;
DRAWTEXTABS(652,65,numtostrn((tdn-tdm)*V,0)+'手'),COLOR0000FF;
DRAWTEXTABS(652,80,numtostrn((ddn-ddm)*V,0)+'手'),color1e90ff;
DRAWTEXTABS(652,95,numtostrn((zdn-zdm)*V,0)+'手'),colorff7f50;
DRAWTEXTABS(652,110,numtostrn((sdn-sdm)*V,0)+'手'),COLOR00FF00;
{113}
DRAWTEXTABS(705,50,'净'+numtostrn(((tdn-tdm)+(ddn-ddm))*100,1)+'%'),COLOR00FFFF;
DRAWTEXTABS(705,65,'净'+numtostrn((tdn-tdm)*100,1)+'%'),COLOR0000FF;
DRAWTEXTABS(705,80,'净'+numtostrn((ddn-ddm)*100,1)+'%'),color1e90ff;
DRAWTEXTABS(705,95,'净'+numtostrn((zdn-zdm)*100,1)+'%'),colorff7f50;
DRAWTEXTABS(705,110,'净'+numtostrn((sdn-sdm)*100,1)+'%'),COLOR00FF00;
{119}
DRAWTEXTABS(755,50,'持仓 '+NUMTOSTRN(50+Sum((VOL/CAPITAL)*100*((tdn-tdm)+(ddn-ddm)),0),1)+'%'),COLOR00FFFF;
DRAWTEXTABS(755,65,'持仓 '+NUMTOSTRN(25+Sum((VOL/CAPITAL)*100*(tdn-tdm),0),1)+'%'),COLOR0000FF;
DRAWTEXTABS(755,80,'持仓 '+NUMTOSTRN(25+Sum((VOL/CAPITAL)*100*(zdn-zdm),0),1)+'%'),color1e90ff;
DRAWTEXTABS(755,95,'持仓 '+NUMTOSTRN(25+Sum((VOL/CAPITAL)*100*(zdn-zdm),0),1)+'%'),colorff7f50;
DRAWTEXTABS(755,110,'持仓 '+NUMTOSTRN(25+Sum((VOL/CAPITAL)*100*(sdn-sdm),0),1)+'%'),COLOR00FF00;
{125}
DRAWTEXTABS(150,130,'大盘动态:'+'指数:'+numtostrn(INDEXC,2)
+'  涨跌:'+numtostrn(INDEXC-REF(INDEXC,1),2)+'  涨幅:'+numtostrn((INDEXC-REF(INDEXC,1))/(REF(INDEXC,1))*100,2)+'%'
+'   最高:'+numtostrn(INDEXH,2)+'  最低:'+numtostrn(INDEXL,2)
+'   上涨:'+NUMTOSTRN(DYNAINFO(66),0)+'家'
+'  平盘:'+NUMTOSTRN(DYNAINFO(68),0)+'家'
+'  下跌:'+NUMTOSTRN(DYNAINFO(67),0)+'家'),COLOR1199FF;
 
 
 

新版“龙虎看盘”主图分笔指标
input:n(403,1,10000);
DRAWTEXTREL(30,5,STKLABEL),LINETHICK6,Colorffff00;
DRAWTEXTREL(150,5,STKNAME),LINETHICK5,Color00ffff;
DRAWTEXTREL(740,150,   '  别  '),LINETHICK4,Color00ffff;
DRAWTEXTREL(740,300,   '  外  '),LINETHICK4,Color00ffff;
DRAWTEXTREL(740,450,   '  传  '),LINETHICK4,Color00ffff;
DRAWTEXTREL(740,600,   '  源  '),LINETHICK4,Color00ffff;
DRAWTEXTREL(740,750,   '  码  '),LINETHICK4,ColorFF00FF;
DRAWTEXTREL(740,900,   '  精  '),LINETHICK4,Color00FF00;
DRAWTEXTREL(800,150,'    英  '),LINETHICK6,Color00ff00;
DRAWTEXTREL(800,400,'    股  '),LINETHICK6,Colorffffff;
DRAWTEXTREL(800,650,'    票  '),LINETHICK6,Color0000ff;
DRAWTEXTREL(800,900,'      '),LINETHICK6,Color00FFFF;
DRAWTEXTREL(20,500,'-------------------------------------------------------------------------------------------------'),LINETHICK1,Coloreeeeee;
a:=BUYVOL*c/100;
bz:=sum(a,0);
b:=c*SELLVOL/100;
sz:=sum(b,0);
z:=bz+sz;
cz:=bz-sz;
xb5:=if(a<=5  ,a,0);b5:=sum(xb5,0);
xs5:=if(b<=5  ,b,0);s5:=sum(xs5,0);
xb10:=if(a<=10 and a>=5 ,a,0);b10:=sum(xb10,0);
xs10:=if(b<=10 and b>=5,b,0);s10:=sum(xs10,0);
xb30:=if(a<=30 and a>=10 ,a,0);b30:=sum(xb30,0);
xs30:=if(b<=30 and b>=10 ,b,0);s30:=sum(xs30,0);
xb50:=if(a<=50 and a>=30 ,a,0);b50:=sum(xb50,0);
xs50:=if(b<=50 and b>=30 ,b,0);s50:=sum(xs50,0);
xb70:=if(a<=70 and a>=50 ,a,0);b70:=sum(xb70,0);
xs70:=if(b<=70 and b>=50 ,b,0);s70:=sum(xs70,0);
xb100:=if(a<=100 and a>=70,a,0);b100:=sum(xb100,0);
xs100:=if(b<=100 and b>=70,b,0);s100:=sum(xs100,0);
xb150:=if(a>=100 ,a,0);b150:=sum(xb150,0);
xs150:=if(b>=100 ,b,0);s150:=sum(xs150,0);
j5:=b5-s5;
j10:=b10-s10;
j30:=b30-s30;
j50:=b50-s50;
j70:=b70-s70;
j100:=b100-s100;
j150:=b150-s150;
IF BARSTATUS=2 and (z) THEN BEGIN DRAWTEXTREL(320,5,'   ■总成交金额(万元):'+NUMTOSTRN(DYNAINFO(10)/10000,2)),LINETHICK4,COLORccffcc;end;
IF BARSTATUS=2 and (bz) THEN BEGIN DRAWTEXTREL(30,550,'■■■■■买入:'+NUMTOSTRN(bz,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (sz) THEN BEGIN DRAWTEXTREL(250,550,'   ■■■■■卖出:'+NUMTOSTRN(sz,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b5) THEN BEGIN DRAWTEXTREL(30,600,' 5 万大单买入: ' +NUMTOSTRN(b5,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s5) THEN BEGIN DRAWTEXTREL(250,600,'    5 万大单卖出: '+NUMTOSTRN(s5,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b10) THEN BEGIN DRAWTEXTREL(30,650,' 10 万大单买入:'+NUMTOSTRN(b10,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s10) THEN BEGIN DRAWTEXTREL(250,650,'    10 万大单卖出:'+NUMTOSTRN(s10,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b30) THEN BEGIN DRAWTEXTREL(30,700,' 30 万大单买入:'+NUMTOSTRN(b30,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s30) THEN BEGIN DRAWTEXTREL(250,700,'    30 万大单卖出:'+NUMTOSTRN(s30,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b50) THEN BEGIN DRAWTEXTREL(30,750,' 50 万大单买入:'+NUMTOSTRN(b50,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s50) THEN BEGIN DRAWTEXTREL(250,750,'    50 万大单卖出:'+NUMTOSTRN(s50,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b70) THEN BEGIN DRAWTEXTREL(30,800,' 70 万大单买入:'+NUMTOSTRN(b70,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s70) THEN BEGIN DRAWTEXTREL(250,800,'    70 万大单卖出:'+NUMTOSTRN(s70,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b100) THEN BEGIN DRAWTEXTREL(30,850,'100 万大单买入:'+NUMTOSTRN(b100,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s100) THEN BEGIN DRAWTEXTREL(250,850,'   100 万大单卖出:'+NUMTOSTRN(s100,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b150) THEN BEGIN DRAWTEXTREL(30,900,'150 万大单买入:'+NUMTOSTRN(b150,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s150) THEN BEGIN DRAWTEXTREL(250,900,'   150 万大单卖出:'+NUMTOSTRN(s150,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (cz) THEN BEGIN DRAWTEXTREL(470,550,'        ■■■■总净买入:'+NUMTOSTRN(cz,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j5) THEN BEGIN DRAWTEXTREL(470,600,  '         5万大单净买入;  '+NUMTOSTRN(j5,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j10) THEN BEGIN DRAWTEXTREL(470,650, '         10万大单净买入; '+NUMTOSTRN(j10,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j30) THEN BEGIN DRAWTEXTREL(470,700, '         30万大净买入;   '+NUMTOSTRN(j30,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j50) THEN BEGIN DRAWTEXTREL(470,750, '         50万大单净买入; '+NUMTOSTRN(j50,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j70) THEN BEGIN DRAWTEXTREL(470,800, '         70万大单净买入; '+NUMTOSTRN(j70,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j100) THEN BEGIN DRAWTEXTREL(470,850,'        100万大单净买入; '+NUMTOSTRN(j100,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j150) THEN BEGIN DRAWTEXTREL(470,900,'        150万大单净买入; '+NUMTOSTRN(j150,2)),LINETHICK1,COLORccff00;end;
dd:=LN(FINANCE2(37)/(n*10))*ATAN(FINANCE2(37))*100;
主动买入:=SUM(BUYVOL,0);
主动卖出:=SUM(SELLVOL,0);
大单买:=if(BUYVOL>=dd,BUYVOL,0);
大单卖:=if(SELLVOL>dd,SELLVOL,0);
大单买入:=SUM(大单买,0);
大单卖出:=SUM(大单卖,0);
小单买入:=主动买入-大单买入;
小单卖出:=主动卖出-大单卖出;
大买金:=sum(if(BUYVOL>=dd,BUYVOL,0)*c,0);
大单买均价:=大买金/大单买入;
大卖金:=sum(if(SELLVOL>dd,SELLVOL,0)*c,0);
大单卖均价:=大卖金/大单卖出;
成交笔数:=sum(if(BUYVOL>0,1,0),0)+sum(if(SELLVOL>0,1,0),0);
大单净量:=大单买入-大单卖出;
DRAWTEXTABS(30,130,'☆ 散户跟风系数:'      +FLOOR(小单买入-小单卖出)/DYNAINFO(8)*100+' %'),COLORred,LINETHICK3;
DRAWTEXTABS(30,100,'■ 大单净量:'),Color00FFFF,LINETHICK2;
DRAWTEXTABS(115,100,' '+大单净量),Color00FFFF,LINETHICK2;
DRAWTEXTABS(200,100,'  占'+FLOOR(大单净量/(主动买入+主动卖出)*100)+' %'),Color00FFFF,LINETHICK2;
DRAWTEXTABS(30,40,'■ 大单买入: '+大单买入),Color8000FF,LINETHICK2;
DRAWTEXTABS(200,40,'  占'+FLOOR(大单买入/(主动买入+主动卖出)*100)+'%'),Color8000FF,LINETHICK2;
DRAWTEXTABS(300,40,'大单买均价:     '+大单买均价),Color8000FF,LINETHICK2;
DRAWTEXTABS(30,70,'■ 大单卖出: '+大单卖出),Color00FF00,LINETHICK2;
DRAWTEXTABS(200,70,'  占'+FLOOR(大单卖出/(主动买入+主动卖出)*100)+' %'),Color00FF00,LINETHICK2;
DRAWTEXTABS(300,55,'大单卖均价:     '+大单卖均价),Color00FF00,LINETHICK2;
DRAWTEXTABS(30,55,'■ 小单买入: '+小单买入),Color2F73FF,LINETHICK2;
DRAWTEXTABS(200,55,'  占'+FLOOR(小单买入/(主动买入+主动卖出)*100)+' %'),Color2F73FF,LINETHICK2;
DRAWTEXTABS(30,85,'■ 小单卖出: '+小单卖出),ColorB4B043,LINETHICK2;
DRAWTEXTABS(200,85,'  占'+FLOOR(小单卖出/(主动买入+主动卖出)*100)+' %'),ColorA8A800,LINETHICK2;
DRAWTEXTABS(300,80,'总成交笔数(深): '+DYNAINFO(52)),ColorFFFFFF,LINETHICK2;
DRAWTEXTABS(300,95,'每笔成交手(深): '+DYNAINFO(53)),LINETHICK2;
DRAWTEXTABS(30,115,'∑ 总成交手数: '+DYNAINFO(8)),ColorFFFFFF,LINETHICK2;
DRAWTEXTABS(300,115,'总成交笔数(沪): '+成交笔数*3),Color00FFFF,LINETHICK2;
DRAWTEXTABS(300,130,'每笔成交手(沪): '+INTPART((主动买入+主动卖出)/成交笔数/3)),LINETHICK2;
DRAWTEXTREL(30,470,' ☆ 机构评级:'+Extrastring('评级')),Color00FF00,LINETHICK2;
总:=DYNAINFO(8);
STICKLINE((总 AND DISPSTATUS=2),0,总,60,1),COLORFFFFFF;
STICKLINE((大单买入+大单卖出+小单买入+小单卖出 AND DISPSTATUS=2),0,总,60,0),Color8000FF;
STICKLINE((大单卖出+小单买入+小单卖出 AND DISPSTATUS=2),0,大单卖出+小单买入+小单卖出,60,0),Color2F73FF;
STICKLINE((小单卖出+大单卖出 AND BARSTATUS=2),0,小单卖出+大单卖出,60,0),Color00FF00;
STICKLINE((小单卖出 AND BARSTATUS=2),0,小单卖出,60,0),ColorB4B043;
人均大约持股:=FINANCE2(36)/extradata('散户线')*10000;
本日人均增减数:=人均大约持股-ref(人均大约持股,1);
DRAWTEXTREL(40,80,'■ 人均大约持股: '+FINANCE2(36)/extradata('散户线')*10000),COLORred,LINETHICK2;
DRAWTEXTREL(390,80,'■ 本日人均增减数: '+(本日人均增减数-ref(本日人均增减数,1))),COLORred,LINETHICK2;
[ 本帖最后由 vipadmin 于 2007-10-21 18:26 编辑
 
解盘公式---龙虎看盘
input:n(15,1,100);
fsbs:=BARSCOUNT(CLOSE);
DRAWTEXTREL(50,0,'龙虎看盘'),LINETHICK6,Coloryellow;
DRAWTEXTREL(200,0,'   '+STKLABEL+'   '+STKNAME+'   '+date),LINETHICK6,ColorFFFF80;
yy:=DATE;
yy1:=WEEKDAY;
IF BARSTATUS=2 and (yy1=5) THEN BEGIN DRAWTEXTREL(800,0,'星期五'),LINETHICK6,COLORffef40;end;
IF BARSTATUS=2 and (yy1=4) THEN BEGIN DRAWTEXTREL(800,0,'星期四'),LINETHICK6,COLORffef40;end;
IF BARSTATUS=2 and (yy1=3) THEN BEGIN DRAWTEXTREL(800,0,'星期三'),LINETHICK6,COLORffef40;end;
IF BARSTATUS=2 and (yy1=2) THEN BEGIN DRAWTEXTREL(800,0,'星期二'),LINETHICK6,COLORffef40;end;
IF BARSTATUS=2 and (yy1=1) THEN BEGIN DRAWTEXTREL(800,0,'星期一'),LINETHICK6,COLORffef40;end;
IF BARSTATUS=2 and (yy1=6) THEN BEGIN DRAWTEXTREL(800,0,'星期六'),LINETHICK6,COLORffef40;end;
IF BARSTATUS=2 and (yy1=0) THEN BEGIN DRAWTEXTREL(800,0,'星期日'),LINETHICK6,COLORffef40;end;
XS1:=FINANCE(7)*N/1000;
XS:=IF(XS1<100,100,XS1);
dbv:=if(v>=xs and BUYVOL,v,0);{大单主买}
dsv:=if(v>=xs and SELLVOL,v,0);{大单主卖}
sbv:=if(v<xs and BUYVOL,v,0);{小单买}
ssv:=if(v<xs and SELLVOL,v,0);{小单卖}
{求和}
db:=sum(dbv,0);
ds:=sum(dsv,0);
sb:=sum(sbv,0);
ss:=sum(ssv,0);
总:=DYNAINFO( 8);
IF BARSTATUS=2 and (总) THEN BEGIN DRAWTEXTREL(200,200,'■■■总成交手:'+NUMTOSTRN(总,2)),LINETHICK2,COLORccffcc;end;
IF BARSTATUS=2 and (db) THEN BEGIN DRAWTEXTREL(200,350,'■大单买入:'+NUMTOSTRN(db,2)),LINETHICK2,color5050FF;end;
IF BARSTATUS=2 and (db/总*100) THEN BEGIN DRAWTEXTREL(400,350,'占:'+NUMTOSTRN(db/总*100,2)),LINETHICK2,COLORYELLOW;end;
IF BARSTATUS=2 and (ds) THEN BEGIN DRAWTEXTREL(600,350,'■大单卖出:'+NUMTOSTRN(ds,2)),LINETHICK2,color00FF00;end;
IF BARSTATUS=2 and (ds/总*100) THEN BEGIN DRAWTEXTREL(800,350,'占:'+NUMTOSTRN(ds/总*100,2)),LINETHICK2,COLORYELLOW;end;
IF BARSTATUS=2 and (-(db-ds)) THEN BEGIN DRAWTEXTREL(200,500,'□■大单买卖净量:'+NUMTOSTRN(-(db-ds),2)),LINETHICK2,COLORccffcc;end;
IF BARSTATUS=2 and (-(db-ds)/总*100) THEN BEGIN DRAWTEXTREL(450,500,'占:'+NUMTOSTRN(-(db-ds)/总*100,2)),LINETHICK2,COLORccffcc;end;
IF BARSTATUS=2 and (sb) THEN BEGIN DRAWTEXTREL(200,650,'□小单买入'+NUMTOSTRN(sb,2)),LINETHICK2,COLORFF00FF;end;
IF BARSTATUS=2 and (sb/总*100) THEN BEGIN DRAWTEXTREL(400,650,'占:'+NUMTOSTRN(sb/总*100,2)),LINETHICK2,COLORYELLOW;end;
IF BARSTATUS=2 and (ss) THEN BEGIN DRAWTEXTREL(600,650,'□小单卖出'+NUMTOSTRN(ss,2)),LINETHICK2,COLOR008000;end;
IF BARSTATUS=2 and (ss/总*100) THEN BEGIN DRAWTEXTREL(800,650,'占:'+NUMTOSTRN(ss/总*100,2)),LINETHICK2,COLORYELLOW;end;
IF BARSTATUS=2 and (fsbs) THEN BEGIN DRAWTEXTREL(200,800,'■■■■成交总笔数:'+NUMTOSTRN(fsbs,2)),LINETHICK2,COLORffff54;end;
散户跟风系数:=sb/(db*10+ds)*100;
ht:=if(c>o,1,-1);
IF BARSTATUS=2 and (散户跟风系数*ht) THEN BEGIN DRAWTEXTREL(600,800,'□■散户跟风系数:'+NUMTOSTRN(散户跟风系数*ht,2)),LINETHICK2,COLORffff54;end;
STICKLINE((总 AND DISPSTATUS=2),0,总,50,1),COLORFFFFFF;
STICKLINE((db+ds+sb+ss AND DISPSTATUS=2),0,总,45,0),COLOR008000;
STICKLINE((db+ds+sb AND DISPSTATUS=2),0,db+ds+sb,45,0),colorFF00FF;
STICKLINE((db+ds AND BARSTATUS=2),0,db+ds,45,0),color00FF00;
STICKLINE((db AND BARSTATUS=2),0,db,45,0),color5050FF;

    本站是提供个人知识管理的网络存储空间,所有内容均由用户发布,不代表本站观点。请注意甄别内容中的联系方式、诱导购买等信息,谨防诈骗。如发现有害或侵权内容,请点击一键举报。
    转藏 分享 献花(0

    0条评论

    发表

    请遵守用户 评论公约