dkby（多空博弈）指標的新建(1,當“多方”線(xiàn)向上與“空方線(xiàn)金叉時(shí)為買(mǎi)點(diǎn)2，當多方線(xiàn)向下與空方線(xiàn)死叉時(shí)為賣(mài)點(diǎn)）
{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;
長(cháng)rsv55:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100;
長(cháng)k55:=SMA(長(cháng)rsv55,3,1),colorwhite,linethick2;
多方a:SMA(長(cháng)k55,3,1),colorffffff,linethick3;
空方a:SMA(長(cháng)k55,3,1)*(-1)+100,colorffff00,linethick3;
{多空博弈用法：
1。當“多方”線(xiàn)向上與“空方”線(xiàn)“金叉”時(shí)為買(mǎi)點(diǎn)。
2。當“多方”線(xiàn)向下與“空方”線(xiàn)“死叉”時(shí)為賣(mài)點(diǎn)。
3。當“多方a”線(xiàn)向上與“空方a”線(xiàn)“金叉”時(shí)為買(mǎi)點(diǎn)。
4。當“多方a”線(xiàn)向下與“空方a”線(xiàn)“死叉”時(shí)為賣(mài)點(diǎn)。}
CLJC（主力出進(jìn)）指標的新建
V2:=EMA(V1,13)-EMA(V1,34);
V3:=EMA(V2,5);
V4:=2*(V2-V3)*5.5;
主力開(kāi)始出: IF(V4<=0,V4,0),colorgreen,LINETHICK2;
主力開(kāi)始進(jìn): 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.55188.com/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;
中長(cháng)期:100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20)),colormagenta;
長(cháng)期:100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30)),colorred,LINETHICK2;
強市線(xiàn):80,POINTDOT;
弱市線(xiàn):20,POINTDOT;
分水嶺:50,POINTDOT;
個(gè)股資金線(xiàn):MA(C,1)/MA(REF(C,18),18)*100,LINETHICK2,COLORddFFFF;
資金生命線(xiàn):MA(FORCAST(個(gè)股資金線(xiàn),20),6),COLORMAGENTA,LINETHICK2
操盤(pán)線(xiàn)
買(mǎi)線(xiàn):=EMA(C,2);
賣(mài)線(xiàn):=EMA(SLOPE(C,21)*20+C,42);
BU:=cross(買(mǎi)線(xiàn),賣(mài)線(xiàn));
SEL:=cross(賣(mài)線(xiàn),買(mǎi)線(xiàn));
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(買(mǎi)線(xiàn)>=賣(mài)線(xiàn),low,high,1,0),colorred;
stickline(買(mǎi)線(xiàn)>=賣(mài)線(xiàn),close,open,4.5,0),color0000aa;
stickline(買(mǎi)線(xiàn)>=賣(mài)線(xiàn),close,open,4,0),color0000cc;
stickline(買(mǎi)線(xiàn)>=賣(mài)線(xiàn),close,open,3,0),color0000cc;
stickline(買(mǎi)線(xiàn)>=賣(mài)線(xiàn),close,open,2,0),color0000ee;
stickline(買(mǎi)線(xiàn)<賣(mài)線(xiàn),close,open,4.5,0),coloraaaa00;
stickline(買(mǎi)線(xiàn)<賣(mài)線(xiàn),close,open,4,0),colorbbbb00;
stickline(買(mǎi)線(xiàn)<賣(mài)線(xiàn),close,open,3,0),colorcccc00;
stickline(買(mǎi)線(xiàn)<賣(mài)線(xiàn),close,open,2,0),coloreeee00;
stickline(買(mǎi)線(xiàn)<賣(mài)線(xiàn),low,high,1,0),colorffff00;
stickline(cross(買(mǎi)線(xiàn),賣(mài)線(xiàn)) or cross(賣(mài)線(xiàn),買(mǎi)線(xiàn)),open,close,3,0),color00ffff;
指導線(xiàn): EMA((EMA(CLOSE,4)+EMA(CLOSE,6)+EMA(CLOSE,12)+EMA(CLOSE,24))/4,2),linethick1,ColorFFffFF;
界: MA(CLOSE,27),linethick1,Color00FFFF;
DRAWTEXT(cross(指導線(xiàn),界),界,''),Colorffffff;
DRAWTEXT(cross(界,指導線(xiàn)),界,''),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;
大戶(hù)資金:EMA(dhV,A1)*A1,color3399FF ;
中戶(hù)資金:EMA(zhV,A1)*A1,colorcyan;
小股民資金:EMA(shV,A1)*A1,colorgreen;
0,color333333;
{超級資金 }
A1:=MIN((COUNT(ORDER(2),0)),60);
超戶(hù):(BIGORDER(1,3)-BIGORDER(2,3))*vol/CAPITAL,COLOR3D ;
累計:EMA(超戶(hù),A1)*A1,COLORMAGENTA;
均值:EMA(累計,10),colorwhite;
{大戶(hù)資金 }
A1:=MIN((COUNT(ORDER(2),0)),60);
大戶(hù):(BIGORDER(1,2)-BIGORDER(2,2)-BIGORDER(1,3)+BIGORDER(2,3))*vol/CAPITAL,COLOR3D ;
累計:EMA(大戶(hù),A1)*A1,color3399FF;
均值:EMA(累計,10),colorwhite;
{中戶(hù)資金 }
A1:=MIN((COUNT(ORDER(2),0)),60);
中戶(hù):(BIGORDER(1,1)-BIGORDER(2,1)-BIGORDER(1,2)+BIGORDER(2,2))*vol/CAPITAL,COLOR3D ;
累計:EMA(中戶(hù),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;
{成本均線(xiàn)}
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);
{按部就班}
現價(jià):C;
頂部: cost(95) ,colorffff33;
賣(mài)出: cost(75) ,colorgreen;
買(mǎi)入: cost(30) ,colorred;
底部: cost(5) ,coloryellow;
{龍騰四海}（1。取值范圍0-100。2海面以上為空頭控盤(pán)區域，不得介入3天際以上為多頭快速拉抬區，經(jīng)常為主升浪階段4海面到天際之間多頭控盤(pán)區，正常的股價(jià)拉升及調整區域5當“龍騰四海”由上穿海面時(shí)為買(mǎi)入信號，回穿海面再次上穿為加倉信號，配合操盤(pán)線(xiàn)買(mǎi)點(diǎn)使用更佳6當“龍騰四海”由下穿天際為賣(mài)出信號，如“龍騰四海”為100，則通常第二天必然出現近棋新高，考慮第二天出貨8該指標不適用天領(lǐng)漲股及主力完全控盤(pán)無(wú)量上漲的股票，因為這類(lèi)票常會(huì )在80左右反復震蕩，但股價(jià)卻不斷走高，它比較適用天二線(xiàn)股，跟漲的股票。)
input:n(8,0,100);
坐標線(xiàn):0;20;50;80;100;
100-100*(HHV(HIGH,5*N)-CLOSE)/(HHV(HIGH,5*N)-LLV(LOW,5*N)),colorwhite;
海面:20,COLORGREEN;
海天分界線(xiàn):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);
長(cháng)期線(xiàn):A+100,COLOR9900FF;
短期線(xiàn):B+100,COLOR888888;
中期線(xiàn):D+100,COLORYELLOW,LINETHICK2;
見(jiàn)頂:=((REF(中期線(xiàn),1)>85 AND REF(短期線(xiàn),1)>85 AND REF(長(cháng)期線(xiàn),1)>65) AND CROSS(長(cháng)期線(xiàn),短期線(xiàn)));
頂部區域:(中期線(xiàn)<REF(中期線(xiàn),1) AND REF(中期線(xiàn),1)>80) AND (REF(短期線(xiàn),1)>95 OR REF(短期線(xiàn),2)>95 ) AND 長(cháng)期線(xiàn)>60 AND 短期線(xiàn)<83.5
AND 短期線(xiàn)<中期線(xiàn) AND 短期線(xiàn)<長(cháng)期線(xiàn)+4,COLORGREEN;
頂部:=FILTER(頂部區域,4);
STICKLINE( {見(jiàn)頂 OR} 頂部,99,103,20,1 ),COLORRED,LINETHICK2;
底部區域:(長(cháng)期線(xiàn)<12 AND 中期線(xiàn)<8 AND (短期線(xiàn)<7.2 OR REF(短期線(xiàn),1)<5) AND (中期線(xiàn)>REF(中期線(xiàn),1) OR 短期線(xiàn)>REF(短期線(xiàn),1)))
OR (長(cháng)期線(xiàn)<8 AND 中期線(xiàn)<7 AND 短期線(xiàn)<15 AND 短期線(xiàn)>REF(短期線(xiàn),1)) OR (長(cháng)期線(xiàn)<10 AND 中期線(xiàn)<7 AND 短期線(xiàn)<1) ,COLORGREEN;
STICKLINE( 底部區域,-4,0,22,0 ),COLORGREEN;
低位金叉:50*(長(cháng)期線(xiàn)<15 AND REF(長(cháng)期線(xiàn),1)<15 AND 中期線(xiàn)<18 AND 短期線(xiàn)>REF(短期線(xiàn),1) AND CROSS(短期線(xiàn),長(cháng)期線(xiàn)) AND 短期線(xiàn)>中期線(xiàn)
AND (REF(短期線(xiàn),1)<5 OR REF(短期線(xiàn),2)<5 ) AND (中期線(xiàn)>=長(cháng)期線(xiàn) OR REF( 短期線(xiàn),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;
{波段無(wú)敵}
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;
{買(mǎi)賣(mài)頻譜}
買(mǎi)線(xiàn):EMA(C,3);
賣(mài)線(xiàn):EMA(SLOPE(C,21)*20+C,55);
買(mǎi)賣(mài)差:=買(mǎi)線(xiàn)-賣(mài)線(xiàn);
STICKLINE(買(mǎi)賣(mài)差>=0,(買(mǎi)線(xiàn)-買(mǎi)賣(mài)差*0.05),(買(mǎi)線(xiàn)-買(mǎi)賣(mài)差*0.15),5,0) ,COLOR00FFFF;
STICKLINE(買(mǎi)賣(mài)差>=0,(買(mǎi)線(xiàn)-買(mǎi)賣(mài)差*0.2),(買(mǎi)線(xiàn)-買(mǎi)賣(mài)差*0.35),5,0) ,COLOR00CCFF;
STICKLINE(買(mǎi)賣(mài)差>=0,(買(mǎi)線(xiàn)-買(mǎi)賣(mài)差*0.4),(買(mǎi)線(xiàn)-買(mǎi)賣(mài)差*0.55),5,0) ,COLOR0099FF;
STICKLINE(買(mǎi)賣(mài)差>=0,(買(mǎi)線(xiàn)-買(mǎi)賣(mài)差*0.6),(買(mǎi)線(xiàn)-買(mǎi)賣(mài)差*0.75),5,0) ,COLOR0066FF;
STICKLINE(買(mǎi)賣(mài)差>=0,(買(mǎi)線(xiàn)-買(mǎi)賣(mài)差*0.8),(買(mǎi)線(xiàn)-買(mǎi)賣(mài)差*0.95),5,0) ,COLOR0000CC;
STICKLINE(買(mǎi)賣(mài)差<0,(賣(mài)線(xiàn)+買(mǎi)賣(mài)差*0.05),(賣(mài)線(xiàn)+買(mǎi)賣(mài)差*0.15),5,0) ,COLOR006600;
STICKLINE(買(mǎi)賣(mài)差<0,(賣(mài)線(xiàn)+買(mǎi)賣(mài)差*0.2),(賣(mài)線(xiàn)+買(mǎi)賣(mài)差*0.35),5,0) ,COLOR009900;
STICKLINE(買(mǎi)賣(mài)差<0,(賣(mài)線(xiàn)+買(mǎi)賣(mài)差*0.4),(賣(mài)線(xiàn)+買(mǎi)賣(mài)差*0.55),5,0) ,COLOR00CC00;
STICKLINE(買(mǎi)賣(mài)差<0,(賣(mài)線(xiàn)+買(mǎi)賣(mài)差*0.6),(賣(mài)線(xiàn)+買(mǎi)賣(mài)差*0.75),5,0) ,COLOR00FF00;
STICKLINE(買(mǎi)賣(mài)差<0,(賣(mài)線(xiàn)+買(mǎi)賣(mài)差*0.8),(賣(mài)線(xiàn)+買(mǎi)賣(mài)差*0.95),5,0) ,COLOR66FF00;
{主力進(jìn)出}
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);
浮動(dòng)籌碼:EMA((ZDL-HSL)/HSL*XS,13);
力量對比:鎖定籌碼-浮動(dòng)籌碼 ,COLORSTICK;
【本文僅僅提供源碼】
免費【分時(shí)龍虎看盤(pán)】
受法華鎮老師前不久發(fā)布的分時(shí)龍虎榜的啟發(fā)，制作了這套【龍虎看盤(pán)】，共4件：【分時(shí)龍虎看盤(pán)】（橫版）、【分時(shí)龍虎看盤(pán)】豎版、【龍虎看盤(pán)】（橫版）、【龍虎看盤(pán)】豎版。
新增加了各戶(hù)的凈額、凈量、凈比例，還增加了各戶(hù)持倉比例及增倉比例（增倉比例數據在餅圖四周）。
原常規餅圖中增加了四戶(hù)中“凈買(mǎi)入比例”，紅色代表超大戶(hù)的凈買(mǎi)入、橘黃色代表大戶(hù)的凈買(mǎi)入、海藍色代表中戶(hù)的凈買(mǎi)入、綠色代表散戶(hù)的凈買(mǎi)入。
【分時(shí)龍虎看盤(pán)】由于從日時(shí)數據引入，在引入公式時(shí)會(huì )誤判提示“含未來(lái)函數”，其實(shí)所有公式與日時(shí)【龍虎看盤(pán)】完全一樣，僅僅是在引入公式的后面加上“#day”而已，與同通常的“未來(lái)函數”有本質(zhì)上的區別，盡可放心使用。
【龍虎看盤(pán)】（橫版）由于引用了少數“引用公式”，所以在使用過(guò)程中非常遲鈍，盡量少用。
將公式全部引入，在TOP 的“設”置中即可找到所需的【龍虎看盤(pán)】。
{WDLHKPH-【衛東-龍虎看盤(pán)】(橫幅版)}
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,'買(mǎi)'+' 賣(mài)'),COLOR00FFFF;
DRAWTEXTABS(0,0,'■'+'超大'+NUMTOSTRN((VOL/CAPITAL)*100*(tdn-tdm),2)+'%'),COLOR0000FF;{超凈買(mǎi)}
DRAWTEXTABS(75,0,'■'+'大戶(hù)'+NUMTOSTRN((VOL/CAPITAL)*100*(ddn-ddm),2)+'%'),color1e90ff;{大凈買(mǎi)}
DRAWTEXTABS(0,130,'■'+'中戶(hù)'+NUMTOSTRN((VOL/CAPITAL)*100*(zdn-zdm),2)+'%'),colorff7f50;{中凈買(mǎi)}
DRAWTEXTABS(75,130,'■'+'散戶(hù)'+NUMTOSTRN((VOL/CAPITAL)*100*(sdn-sdm),2)+'%'),COLOR00FF00;{散凈買(mǎi)}
{常用數據}{32}
DRAWTEXTABS(160,0,datestr(REF((DATE),0))+' 星期'+REF(WEEKDAY,0)+' '+STKNAME),COLOR00FFFF;
DRAWTEXTABS(150,13,'最新:'+NUMTOSTRN(DYNAINFO(7),2)+' '+'今開(kāi):'+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)+'%'
+' '+'主動(dòng)率:'+NUMTOSTRN((DYNAINFO(23)-DYNAINFO(22))/(DYNAINFO(22)+DYNAINFO(23))*100,2)+'%'
+' '+'DDX:'+NUMTOSTRN("WDDDX.DDX#day",3)),COLOR2222FF;
{各戶(hù)買(mǎi)賣(mài)數據}{40}
DRAWTEXTABS(150,20,'────────────────────────────────────────────────────────'),COLORRED;
DRAWTEXTABS(150,40,'────────────────────────────────────────────────────────'),COLORRED;
DRAWTEXTABS(150,120,'────────────────────────────────────────────────────────'),COLORRED;
{44}
DRAWTEXTABS(195,31,'委 買(mǎi) 單'),COLOR00FFFF;
DRAWTEXTABS(150,50,'■'),COLOR0000FF;{主買(mǎi)}
DRAWTEXTABS(150,65,'■'),COLOR5454FF;{超買(mǎi)}
DRAWTEXTABS(150,80,'■'),COLOR3F3FBF;{大買(mǎi)}
DRAWTEXTABS(150,95,'■'),COLOR2A2A7F;{中買(mǎi)}
DRAWTEXTABS(150,110,'■'),COLOR15153F;{散買(mǎi)}
DRAWTEXTABS(165,50,'主力買(mǎi) '+numtostrn((tdn+ddn)*amount/10000,0)+'萬(wàn)'),COLOR0000FF;
DRAWTEXTABS(165,65,'超大買(mǎi) '+numtostrn(tdn*amount/10000,0)+'萬(wàn)'),COLOR5454FF;
DRAWTEXTABS(165,80,'大戶(hù)買(mǎi) '+numtostrn(ddn*amount/10000,0)+'萬(wàn)'),COLOR5454FF;
DRAWTEXTABS(165,95,'中戶(hù)買(mǎi) '+numtostrn(zdn*amount/10000,0)+'萬(wàn)'),COLOR5454FF;
DRAWTEXTABS(165,110,'散戶(hù)買(mǎi) '+numtostrn(sdn*amount/10000,0)+'萬(wàn)'),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,'委 賣(mài) 單'),COLOR00FFFF;
DRAWTEXTABS(350,50,'■'),COLORFF0000;{主賣(mài)}
DRAWTEXTABS(350,65,'■'),COLORFFFF54;{超賣(mài)}
DRAWTEXTABS(350,80,'■'),COLORBFBF3F;{大賣(mài)}
DRAWTEXTABS(350,95,'■'),COLOR7F7F2A;{中賣(mài)}
DRAWTEXTABS(350,110,'■'),COLOR3F3F15;{散賣(mài)}
DRAWTEXTABS(365,50,'主力賣(mài) '+numtostrn((tdm+ddm)*amount/10000,0)+'萬(wàn)'),COLORFF5500;
DRAWTEXTABS(365,65,'超大賣(mài) '+numtostrn(tdm*amount/10000,0)+'萬(wàn)'),COLORFFFF80;
DRAWTEXTABS(365,80,'大戶(hù)賣(mài) '+numtostrn(ddm*amount/10000,0)+'萬(wàn)'),COLORFFFF80;
DRAWTEXTABS(365,95,'中戶(hù)賣(mài) '+numtostrn(zdm*amount/10000,0)+'萬(wàn)'),COLORFFFF80;
DRAWTEXTABS(365,110,'散戶(hù)賣(mài) '+numtostrn(sdm*amount/10000,0)+'萬(wàn)'),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,'凈 買(mǎi) 單'),COLOR00FFFF;
DRAWTEXTABS(550,50,'■'),COLOR00FFFF;{主買(mǎi)}
DRAWTEXTABS(550,65,'■'),COLOR0000FF;{超買(mǎi)}
DRAWTEXTABS(550,80,'■'),color1e90ff;{大買(mǎi)}
DRAWTEXTABS(550,95,'■'),colorff7f50;{中買(mǎi)}
DRAWTEXTABS(550,110,'■'),COLOR00FF00;{散買(mǎi)}
{101}
DRAWTEXTABS(565,50,'主凈買(mǎi) '+numtostrn(((tdn-tdm)+(ddn-ddm))*amount/10000,0)+'萬(wàn)'),COLOR00FFFF;
DRAWTEXTABS(565,65,'超凈買(mǎi) '+numtostrn((tdn-tdm)*amount/10000,0)+'萬(wàn)'),COLOR0000FF;
DRAWTEXTABS(565,80,'大凈買(mǎi) '+numtostrn((ddn-ddm)*amount/10000,0)+'萬(wàn)'),color1e90ff;
DRAWTEXTABS(565,95,'中凈買(mǎi) '+numtostrn((zdn-zdm)*amount/10000,0)+'萬(wàn)'),colorff7f50;
DRAWTEXTABS(565,110,'散凈買(mǎi) '+numtostrn((sdn-sdm)*amount/10000,0)+'萬(wàn)'),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,'大盤(pán)動(dòng)態(tài)：'+'指數:'+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)+'家'
+' 平盤(pán):'+NUMTOSTRN(DYNAINFO(68),0)+'家'
+' 下跌:'+NUMTOSTRN(DYNAINFO(67),0)+'家'),COLOR1199FF;
新版“龍虎看盤(pán)”主圖分筆指標
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,' ■總成交金額（萬(wàn)元）：'+NUMTOSTRN(DYNAINFO(10)/10000,2)),LINETHICK4,COLORccffcc;end;
IF BARSTATUS=2 and (bz) THEN BEGIN DRAWTEXTREL(30,550,'■■■■■買(mǎi)入:'+NUMTOSTRN(bz,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (sz) THEN BEGIN DRAWTEXTREL(250,550,' ■■■■■賣(mài)出:'+NUMTOSTRN(sz,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b5) THEN BEGIN DRAWTEXTREL(30,600,' 5 萬(wàn)大單買(mǎi)入: ' +NUMTOSTRN(b5,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s5) THEN BEGIN DRAWTEXTREL(250,600,' 5 萬(wàn)大單賣(mài)出: '+NUMTOSTRN(s5,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b10) THEN BEGIN DRAWTEXTREL(30,650,' 10 萬(wàn)大單買(mǎi)入:'+NUMTOSTRN(b10,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s10) THEN BEGIN DRAWTEXTREL(250,650,' 10 萬(wàn)大單賣(mài)出:'+NUMTOSTRN(s10,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b30) THEN BEGIN DRAWTEXTREL(30,700,' 30 萬(wàn)大單買(mǎi)入:'+NUMTOSTRN(b30,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s30) THEN BEGIN DRAWTEXTREL(250,700,' 30 萬(wàn)大單賣(mài)出:'+NUMTOSTRN(s30,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b50) THEN BEGIN DRAWTEXTREL(30,750,' 50 萬(wàn)大單買(mǎi)入:'+NUMTOSTRN(b50,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s50) THEN BEGIN DRAWTEXTREL(250,750,' 50 萬(wàn)大單賣(mài)出:'+NUMTOSTRN(s50,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b70) THEN BEGIN DRAWTEXTREL(30,800,' 70 萬(wàn)大單買(mǎi)入:'+NUMTOSTRN(b70,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s70) THEN BEGIN DRAWTEXTREL(250,800,' 70 萬(wàn)大單賣(mài)出:'+NUMTOSTRN(s70,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b100) THEN BEGIN DRAWTEXTREL(30,850,'100 萬(wàn)大單買(mǎi)入:'+NUMTOSTRN(b100,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s100) THEN BEGIN DRAWTEXTREL(250,850,' 100 萬(wàn)大單賣(mài)出:'+NUMTOSTRN(s100,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (b150) THEN BEGIN DRAWTEXTREL(30,900,'150 萬(wàn)大單買(mǎi)入:'+NUMTOSTRN(b150,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s150) THEN BEGIN DRAWTEXTREL(250,900,' 150 萬(wàn)大單賣(mài)出:'+NUMTOSTRN(s150,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (cz) THEN BEGIN DRAWTEXTREL(470,550,' ■■■■總凈買(mǎi)入:'+NUMTOSTRN(cz,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j5) THEN BEGIN DRAWTEXTREL(470,600, ' 5萬(wàn)大單凈買(mǎi)入; '+NUMTOSTRN(j5,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j10) THEN BEGIN DRAWTEXTREL(470,650, ' 10萬(wàn)大單凈買(mǎi)入; '+NUMTOSTRN(j10,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j30) THEN BEGIN DRAWTEXTREL(470,700, ' 30萬(wàn)大凈買(mǎi)入; '+NUMTOSTRN(j30,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j50) THEN BEGIN DRAWTEXTREL(470,750, ' 50萬(wàn)大單凈買(mǎi)入; '+NUMTOSTRN(j50,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j70) THEN BEGIN DRAWTEXTREL(470,800, ' 70萬(wàn)大單凈買(mǎi)入; '+NUMTOSTRN(j70,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j100) THEN BEGIN DRAWTEXTREL(470,850,' 100萬(wàn)大單凈買(mǎi)入; '+NUMTOSTRN(j100,2)),LINETHICK1,COLORccff00;end;
IF BARSTATUS=2 and (j150) THEN BEGIN DRAWTEXTREL(470,900,' 150萬(wàn)大單凈買(mǎi)入; '+NUMTOSTRN(j150,2)),LINETHICK1,COLORccff00;end;
dd:=LN(FINANCE2(37)/(n*10))*ATAN(FINANCE2(37))*100;
主動(dòng)買(mǎi)入:=SUM(BUYVOL,0);
主動(dòng)賣(mài)出:=SUM(SELLVOL,0);
大單買(mǎi):=if(BUYVOL>=dd,BUYVOL,0);
大單賣(mài):=if(SELLVOL>dd,SELLVOL,0);
大單買(mǎi)入:=SUM(大單買(mǎi),0);
大單賣(mài)出:=SUM(大單賣(mài),0);
小單買(mǎi)入:=主動(dòng)買(mǎi)入-大單買(mǎi)入;
小單賣(mài)出:=主動(dòng)賣(mài)出-大單賣(mài)出;
大買(mǎi)金:=sum(if(BUYVOL>=dd,BUYVOL,0)*c,0);
大單買(mǎi)均價(jià):=大買(mǎi)金/大單買(mǎi)入;
大賣(mài)金:=sum(if(SELLVOL>dd,SELLVOL,0)*c,0);
大單賣(mài)均價(jià):=大賣(mài)金/大單賣(mài)出;
成交筆數:=sum(if(BUYVOL>0,1,0),0)+sum(if(SELLVOL>0,1,0),0);
大單凈量:=大單買(mǎi)入-大單賣(mài)出;
DRAWTEXTABS(30,130,'☆ 散戶(hù)跟風(fēng)系數:' +FLOOR(小單買(mǎi)入-小單賣(mài)出)/DYNAINFO(8)*100+' %'),COLORred,LINETHICK3;
DRAWTEXTABS(30,100,'■ 大單凈量:'),Color00FFFF,LINETHICK2;
DRAWTEXTABS(115,100,' '+大單凈量),Color00FFFF,LINETHICK2;
DRAWTEXTABS(200,100,' 占'+FLOOR(大單凈量/(主動(dòng)買(mǎi)入+主動(dòng)賣(mài)出)*100)+' %'),Color00FFFF,LINETHICK2;
DRAWTEXTABS(30,40,'■ 大單買(mǎi)入: '+大單買(mǎi)入),Color8000FF,LINETHICK2;
DRAWTEXTABS(200,40,' 占'+FLOOR(大單買(mǎi)入/(主動(dòng)買(mǎi)入+主動(dòng)賣(mài)出)*100)+'%'),Color8000FF,LINETHICK2;
DRAWTEXTABS(300,40,'大單買(mǎi)均價(jià): '+大單買(mǎi)均價(jià)),Color8000FF,LINETHICK2;
DRAWTEXTABS(30,70,'■ 大單賣(mài)出: '+大單賣(mài)出),Color00FF00,LINETHICK2;
DRAWTEXTABS(200,70,' 占'+FLOOR(大單賣(mài)出/(主動(dòng)買(mǎi)入+主動(dòng)賣(mài)出)*100)+' %'),Color00FF00,LINETHICK2;
DRAWTEXTABS(300,55,'大單賣(mài)均價(jià): '+大單賣(mài)均價(jià)),Color00FF00,LINETHICK2;
DRAWTEXTABS(30,55,'■ 小單買(mǎi)入: '+小單買(mǎi)入),Color2F73FF,LINETHICK2;
DRAWTEXTABS(200,55,' 占'+FLOOR(小單買(mǎi)入/(主動(dòng)買(mǎi)入+主動(dòng)賣(mài)出)*100)+' %'),Color2F73FF,LINETHICK2;
DRAWTEXTABS(30,85,'■ 小單賣(mài)出: '+小單賣(mài)出),ColorB4B043,LINETHICK2;
DRAWTEXTABS(200,85,' 占'+FLOOR(小單賣(mài)出/(主動(dòng)買(mǎi)入+主動(dòng)賣(mài)出)*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((主動(dòng)買(mǎi)入+主動(dòng)賣(mài)出)/成交筆數/3)),LINETHICK2;
DRAWTEXTREL(30,470,' ☆ 機構評級:'+Extrastring('評級')),Color00FF00,LINETHICK2;
總:=DYNAINFO(8);
STICKLINE((總 AND DISPSTATUS=2),0,總,60,1),COLORFFFFFF;
STICKLINE((大單買(mǎi)入+大單賣(mài)出+小單買(mǎi)入+小單賣(mài)出 AND DISPSTATUS=2),0,總,60,0),Color8000FF;
STICKLINE((大單賣(mài)出+小單買(mǎi)入+小單賣(mài)出 AND DISPSTATUS=2),0,大單賣(mài)出+小單買(mǎi)入+小單賣(mài)出,60,0),Color2F73FF;
STICKLINE((小單賣(mài)出+大單賣(mài)出 AND BARSTATUS=2),0,小單賣(mài)出+大單賣(mài)出,60,0),Color00FF00;
STICKLINE((小單賣(mài)出 AND BARSTATUS=2),0,小單賣(mài)出,60,0),ColorB4B043;
人均大約持股:=FINANCE2(36)/extradata('散戶(hù)線(xiàn)')*10000;
本日人均增減數:=人均大約持股-ref(人均大約持股,1);
DRAWTEXTREL(40,80,'■ 人均大約持股: '+FINANCE2(36)/extradata('散戶(hù)線(xiàn)')*10000),COLORred,LINETHICK2;
DRAWTEXTREL(390,80,'■ 本日人均增減數: '+(本日人均增減數-ref(本日人均增減數,1))),COLORred,LINETHICK2;
[ 本帖最后由 vipadmin 于 2007-10-21 18:26 編輯
解盤(pán)公式---龍虎看盤(pán)
input:n(15,1,100);
fsbs:=BARSCOUNT(CLOSE);
DRAWTEXTREL(50,0,'龍虎看盤(pán)'),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);{大單主買(mǎi)}
dsv:=if(v>=xs and SELLVOL,v,0);{大單主賣(mài)}
sbv:=if(v<xs and BUYVOL,v,0);{小單買(mǎi)}
ssv:=if(v<xs and SELLVOL,v,0);{小單賣(mài)}
{求和}
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,'■大單買(mǎi)入：'+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,'■大單賣(mài)出：'+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,'□■大單買(mǎi)賣(mài)凈量：'+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,'□小單買(mǎi)入'+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,'□小單賣(mài)出'+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;
散戶(hù)跟風(fēng)系數:=sb/(db*10+ds)*100;
ht:=if(c>o,1,-1);
IF BARSTATUS=2 and (散戶(hù)跟風(fēng)系數*ht) THEN BEGIN DRAWTEXTREL(600,800,'□■散戶(hù)跟風(fēng)系數：'+NUMTOSTRN(散戶(hù)跟風(fēng)系數*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;
