|
dkby（多空博弈）指標(biāo)的新建(1,當(dāng)“多方”線向上與“空方線金叉時(shí)為買點(diǎn)2,，當(dāng)多方線向下與空方線死叉時(shí)為賣點(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; 長(zhǎng)rsv55:=(CLOSE-LLV(LOW,55))/(HHV(HIGH,55)-LLV(LOW,55))*100; 長(zhǎng)k55:=SMA(長(zhǎng)rsv55,3,1),colorwhite,linethick2; 多方a:SMA(長(zhǎng)k55,3,1),colorffffff,linethick3; 空方a:SMA(長(zhǎng)k55,3,1)*(-1)+100,colorffff00,linethick3; {多空博弈用法： 1,。當(dāng)“多方”線向上與“空方”線“金叉”時(shí)為買點(diǎn)。 2,。當(dāng)“多方”線向下與“空方”線“死叉”時(shí)為賣點(diǎn),。 3。當(dāng)“多方a”線向上與“空方a”線“金叉”時(shí)為買點(diǎn),。 4,。當(dāng)“多方a”線向下與“空方a”線“死叉”時(shí)為賣點(diǎn)。} CLJC（主力出進(jìn)）指標(biāo)的新建 V2:=EMA(V1,13)-EMA(V1,34);
V3:=EMA(V2,5); V4:=2*(V2-V3)*5.5; 主力開始出: IF(V4<=0,V4,0),colorgreen,LINETHICK2; 主力開始進(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./viewthread.php?tid=3365078 多空對(duì)比指標(biāo),。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; 中長(zhǎng)期:100*(C-LLV(L,20))/(HHV(C,20)-LLV(L,20)),colormagenta; 長(zhǎng)期:100*(C-LLV(L,30))/(HHV(C,30)-LLV(L,30)),colorred,LINETHICK2; 強(qiáng)市線:80,POINTDOT; 弱市線:20,POINTDOT; 分水嶺:50,POINTDOT; 個(gè)股資金線:MA(C,1)/MA(REF(C,18),18)*100,LINETHICK2,COLORddFFFF; 資金生命線:MA(FORCAST(個(gè)股資金線,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; 指導(dǎo)線: EMA((EMA(CLOSE,4)+EMA(CLOSE,6)+EMA(CLOSE,12)+EMA(CLOSE,24))/4,2),linethick1,ColorFFffFF; 界: MA(CLOSE,27),linethick1,Color00FFFF; DRAWTEXT(cross(指導(dǎo)線,界),界,''),Colorffffff; DRAWTEXT(cross(界,指導(dǎo)線),界,''),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); 超級(jí)資金:EMA(jgV,A1)*A1,COLORMAGENTA; 大戶資金:EMA(dhV,A1)*A1,color3399FF ; 中戶資金:EMA(zhV,A1)*A1,colorcyan; 小股民資金:EMA(shV,A1)*A1,colorgreen; 0,color333333; {超級(jí)資金 } A1:=MIN((COUNT(ORDER(2),0)),60); 超戶:(BIGORDER(1,3)-BIGORDER(2,3))*vol/CAPITAL,COLOR3D ; 累計(jì):EMA(超戶,A1)*A1,COLORMAGENTA; 均值:EMA(累計(jì),10),colorwhite; {大戶資金 }
A1:=MIN((COUNT(ORDER(2),0)),60); 大戶:(BIGORDER(1,2)-BIGORDER(2,2)-BIGORDER(1,3)+BIGORDER(2,3))*vol/CAPITAL,COLOR3D ; 累計(jì):EMA(大戶,A1)*A1,color3399FF; 均值:EMA(累計(jì),10),colorwhite; {中戶資金 }
A1:=MIN((COUNT(ORDER(2),0)),60); 中戶:(BIGORDER(1,1)-BIGORDER(2,1)-BIGORDER(1,2)+BIGORDER(2,2))*vol/CAPITAL,COLOR3D ; 累計(jì):EMA(中戶,A1)*A1,colorcyan; 均值:EMA(累計(jì),10),colorwhite; {小股民資金 }
A1:=MIN((COUNT(ORDER(2),0)),60); 小股民:(BIGORDER(2,1)-BIGORDER(1,1))*vol/capital,COLOR3D ; 累計(jì):EMA(小股民,A1)*A1,colorgreen; 均值:EMA(累計(jì),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; 當(dāng)日資金凈流: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); {按部就班}
現(xiàn)價(jià):C; 頂部: cost(95) ,colorffff33; 賣出: cost(75) ,colorgreen; 買入: cost(30) ,colorred; 底部: cost(5) ,coloryellow; {龍騰四海}（1,。取值范圍0-100。2海面以上為空頭控盤區(qū)域,，不得介入3天際以上為多頭快速拉抬區(qū),，經(jīng)常為主升浪階段4海面到天際之間多頭控盤區(qū)，正常的股價(jià)拉升及調(diào)整區(qū)域5當(dāng)“龍騰四海”由上穿海面時(shí)為買入信號(hào),，回穿海面再次上穿為加倉(cāng)信號(hào),，配合操盤線買點(diǎn)使用更佳6當(dāng)“龍騰四海”由下穿天際為賣出信號(hào)，如“龍騰四海”為100,，則通常第二天必然出現(xiàn)近棋新高,，考慮第二天出貨8該指標(biāo)不適用天領(lǐng)漲股及主力完全控盤無量上漲的股票，因?yàn)檫@類票常會(huì)在80左右反復(fù)震蕩,，但股價(jià)卻不斷走高,，它比較適用天二線股,，跟漲的股票。) input:n(8,0,100); 坐標(biāo)線: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; {趨勢(shì)頂?shù)讅
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); 長(zhǎng)期線:A+100,COLOR9900FF; 短期線:B+100,COLOR888888; 中期線:D+100,COLORYELLOW,LINETHICK2; 見頂:=((REF(中期線,1)>85 AND REF(短期線,1)>85 AND REF(長(zhǎng)期線,1)>65) AND CROSS(長(zhǎng)期線,短期線)); 頂部區(qū)域:(中期線<REF(中期線,1) AND REF(中期線,1)>80) AND (REF(短期線,1)>95 OR REF(短期線,2)>95 ) AND 長(zhǎng)期線>60 AND 短期線<83.5 AND 短期線<中期線 AND 短期線<長(zhǎng)期線+4,COLORGREEN; 頂部:=FILTER(頂部區(qū)域,4); STICKLINE( {見頂 OR} 頂部,99,103,20,1 ),COLORRED,LINETHICK2; 底部區(qū)域:(長(zhǎng)期線<12 AND 中期線<8 AND (短期線<7.2 OR REF(短期線,1)<5) AND (中期線>REF(中期線,1) OR 短期線>REF(短期線,1))) OR (長(zhǎng)期線<8 AND 中期線<7 AND 短期線<15 AND 短期線>REF(短期線,1)) OR (長(zhǎng)期線<10 AND 中期線<7 AND 短期線<1) ,COLORGREEN; STICKLINE( 底部區(qū)域,-4,0,22,0 ),COLORGREEN; 低位金叉:50*(長(zhǎng)期線<15 AND REF(長(zhǎng)期線,1)<15 AND 中期線<18 AND 短期線>REF(短期線,1) AND CROSS(短期線,長(zhǎng)期線) AND 短期線>中期線 AND (REF(短期線,1)<5 OR REF(短期線,2)<5 ) AND (中期線>=長(zhǎng)期線 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; {主力進(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); 力量對(duì)比:鎖定籌碼-浮動(dòng)籌碼 ,COLORSTICK; 【本文僅僅提供源碼】
免費(fèi)【分時(shí)龍虎看盤】 受法華鎮(zhèn)老師前不久發(fā)布的分時(shí)龍虎榜的啟發(fā),，制作了這套【龍虎看盤】,，共4件：【分時(shí)龍虎看盤】（橫版）、【分時(shí)龍虎看盤】豎版,、【龍虎看盤】（橫版）,、【龍虎看盤】豎版。
新增加了各戶的凈額,、凈量,、凈比例，還增加了各戶持倉(cāng)比例及增倉(cāng)比例（增倉(cāng)比例數(shù)據(jù)在餅圖四周）,。 原常規(guī)餅圖中增加了四戶中“凈買入比例”,，紅色代表超大戶的凈買入、橘黃色代表大戶的凈買入,、海藍(lán)色代表中戶的凈買入,、綠色代表散戶的凈買入。 【分時(shí)龍虎看盤】由于從日時(shí)數(shù)據(jù)引入,，在引入公式時(shí)會(huì)誤判提示“含未來函數(shù)”,，其實(shí)所有公式與日時(shí)【龍虎看盤】完全一樣，僅僅是在引入公式的后面加上“#day”而已,，與同通常的“未來函數(shù)”有本質(zhì)上的區(qū)別,，盡可放心使用。 【龍虎看盤】（橫版）由于引用了少數(shù)“引用公式”,，所以在使用過程中非常遲鈍,，盡量少用。 將公式全部引入,，在TOP 的“設(shè)”置中即可找到所需的【龍虎看盤】,。
{WDLHKPH-【衛(wèi)東-龍虎看盤】(橫幅版)}
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;{散凈買} {常用數(shù)據(jù)}{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)+'%' +' '+'主動(dòng)率:'+NUMTOSTRN((DYNAINFO(23)-DYNAINFO(22))/(DYNAINFO(22)+DYNAINFO(23))*100,2)+'%' +' '+'DDX:'+NUMTOSTRN("WDDDX.DDX#day",3)),COLOR2222FF; {各戶買賣數(shù)據(jù)}{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,'持倉(cāng) '+NUMTOSTRN(50+Sum((VOL/CAPITAL)*100*((tdn-tdm)+(ddn-ddm)),0),1)+'%'),COLOR00FFFF; DRAWTEXTABS(755,65,'持倉(cāng) '+NUMTOSTRN(25+Sum((VOL/CAPITAL)*100*(tdn-tdm),0),1)+'%'),COLOR0000FF; DRAWTEXTABS(755,80,'持倉(cāng) '+NUMTOSTRN(25+Sum((VOL/CAPITAL)*100*(zdn-zdm),0),1)+'%'),color1e90ff; DRAWTEXTABS(755,95,'持倉(cāng) '+NUMTOSTRN(25+Sum((VOL/CAPITAL)*100*(zdn-zdm),0),1)+'%'),colorff7f50; DRAWTEXTABS(755,110,'持倉(cāng) '+NUMTOSTRN(25+Sum((VOL/CAPITAL)*100*(sdn-sdm),0),1)+'%'),COLOR00FF00; {125} DRAWTEXTABS(150,130,'大盤動(dòng)態(tài)：'+'指數(shù):'+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; 新版“龍虎看盤”主圖分筆指標(biāo) 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; 主動(dòng)買入:=SUM(BUYVOL,0); 主動(dòng)賣出:=SUM(SELLVOL,0); 大單買:=if(BUYVOL>=dd,BUYVOL,0); 大單賣:=if(SELLVOL>dd,SELLVOL,0); 大單買入:=SUM(大單買,0); 大單賣出:=SUM(大單賣,0); 小單買入:=主動(dòng)買入-大單買入; 小單賣出:=主動(dòng)賣出-大單賣出; 大買金:=sum(if(BUYVOL>=dd,BUYVOL,0)*c,0); 大單買均價(jià):=大買金/大單買入; 大賣金:=sum(if(SELLVOL>dd,SELLVOL,0)*c,0); 大單賣均價(jià):=大賣金/大單賣出; 成交筆數(shù):=sum(if(BUYVOL>0,1,0),0)+sum(if(SELLVOL>0,1,0),0); 大單凈量:=大單買入-大單賣出; DRAWTEXTABS(30,130,'☆ 散戶跟風(fēng)系數(shù):' +FLOOR(小單買入-小單賣出)/DYNAINFO(8)*100+' %'),COLORred,LINETHICK3; DRAWTEXTABS(30,100,'■ 大單凈量:'),Color00FFFF,LINETHICK2; DRAWTEXTABS(115,100,' '+大單凈量),Color00FFFF,LINETHICK2; DRAWTEXTABS(200,100,' 占'+FLOOR(大單凈量/(主動(dòng)買入+主動(dòng)賣出)*100)+' %'),Color00FFFF,LINETHICK2; DRAWTEXTABS(30,40,'■ 大單買入: '+大單買入),Color8000FF,LINETHICK2; DRAWTEXTABS(200,40,' 占'+FLOOR(大單買入/(主動(dòng)買入+主動(dòng)賣出)*100)+'%'),Color8000FF,LINETHICK2; DRAWTEXTABS(300,40,'大單買均價(jià): '+大單買均價(jià)),Color8000FF,LINETHICK2; DRAWTEXTABS(30,70,'■ 大單賣出: '+大單賣出),Color00FF00,LINETHICK2; DRAWTEXTABS(200,70,' 占'+FLOOR(大單賣出/(主動(dòng)買入+主動(dòng)賣出)*100)+' %'),Color00FF00,LINETHICK2; DRAWTEXTABS(300,55,'大單賣均價(jià): '+大單賣均價(jià)),Color00FF00,LINETHICK2; DRAWTEXTABS(30,55,'■ 小單買入: '+小單買入),Color2F73FF,LINETHICK2; DRAWTEXTABS(200,55,' 占'+FLOOR(小單買入/(主動(dòng)買入+主動(dòng)賣出)*100)+' %'),Color2F73FF,LINETHICK2; DRAWTEXTABS(30,85,'■ 小單賣出: '+小單賣出),ColorB4B043,LINETHICK2; DRAWTEXTABS(200,85,' 占'+FLOOR(小單賣出/(主動(dòng)買入+主動(dòng)賣出)*100)+' %'),ColorA8A800,LINETHICK2; DRAWTEXTABS(300,80,'總成交筆數(shù)(深): '+DYNAINFO(52)),ColorFFFFFF,LINETHICK2; DRAWTEXTABS(300,95,'每筆成交手(深): '+DYNAINFO(53)),LINETHICK2; DRAWTEXTABS(30,115,'∑ 總成交手?jǐn)?shù): '+DYNAINFO(8)),ColorFFFFFF,LINETHICK2; DRAWTEXTABS(300,115,'總成交筆數(shù)(滬): '+成交筆數(shù)*3),Color00FFFF,LINETHICK2; DRAWTEXTABS(300,130,'每筆成交手(滬): '+INTPART((主動(dòng)買入+主動(dòng)賣出)/成交筆數(shù)/3)),LINETHICK2; DRAWTEXTREL(30,470,' ☆ 機(jī)構(gòu)評(píng)級(jí):'+Extrastring('評(píng)級(jí)')),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; 本日人均增減數(shù):=人均大約持股-ref(人均大約持股,1); DRAWTEXTREL(40,80,'■ 人均大約持股: '+FINANCE2(36)/extradata('散戶線')*10000),COLORred,LINETHICK2; DRAWTEXTREL(390,80,'■ 本日人均增減數(shù): '+(本日人均增減數(shù)-ref(本日人均增減數(shù),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,'■■■■成交總筆數(shù)：'+NUMTOSTRN(fsbs,2)),LINETHICK2,COLORffff54;end; 散戶跟風(fēng)系數(shù):=sb/(db*10+ds)*100; ht:=if(c>o,1,-1); IF BARSTATUS=2 and (散戶跟風(fēng)系數(shù)*ht) THEN BEGIN DRAWTEXTREL(600,800,'□■散戶跟風(fēng)系數(shù)：'+NUMTOSTRN(散戶跟風(fēng)系數(shù)*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; |
|
|
