- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2002-3-16
|
|
这是偶在创幻论坛搜到的楼主的东东!下面是楼主原话哦!
*****************************************************************************
龙虎看盘源码,监测主力瞒天过海的方法
龙虎看盘源码,监测主力瞒天过海的方法(分析家6.0)
网上查了一下,想法破解以下这是搜到的资料, 修改一下:分笔成交
总成交额:(万元) ***** 买入占:****% 卖出占:****%
买入: 卖出 : 净买入:******
5 万大单买入: 5 万大单卖入: 净买入:******
10 万大单买入: 10 万大单卖入: 净买入:******
30 万大单买入: 30 万大单卖入: 净买入:******
50 万大单买入: 50 万大单卖入: 净买入:******
70 万大单买入: 70 万大单卖入: 净买入:******
100 万大单买入: 100 万大单卖入: 净买入:******
{龙虎看盘(源码):
{DRAWTEXTREL(50,0,'龙虎看盘'),LINETHICK6,Coloryellow;}
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(10,5,'■总成金额(万元):'+NUMTOSTRN(z,2)),LINETHICK1,COLORccffcc;end;
IF BARSTATUS=2 and (bz/z) THEN BEGIN DRAWTEXTREL(400,5,'■■买入占:'+NUMTOSTRN(bz/z*100,2)),LINETHICK1,COLOrred;end;
IF BARSTATUS=2 and (sz/z) THEN BEGIN DRAWTEXTREL(700,5,'■■卖出占:'+NUMTOSTRN(sz/z*100,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (bz) THEN BEGIN DRAWTEXTREL(100,100,'■■■■■买入:'+NUMTOSTRN(bz,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (sz) THEN BEGIN DRAWTEXTREL(400,100,'■■■■■卖出:'+NUMTOSTRN(sz,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (cz) THEN BEGIN DRAWTEXTREL(700,100,'净买入:'+NUMTOSTRN(cz,2)),LINETHICK1,COLORccffcc;end;
IF BARSTATUS=2 and (b5) THEN BEGIN DRAWTEXTREL(100,200,'5 万大单买入:'+NUMTOSTRN(b5,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s5) THEN BEGIN DRAWTEXTREL(400,200,'5 万大单卖出:'+NUMTOSTRN(s5,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (j5) THEN BEGIN DRAWTEXTREL(700,200,'净买入'+NUMTOSTRN(j5,2)),LINETHICK1,COLORccffcc;end;
IF BARSTATUS=2 and (b10) THEN BEGIN DRAWTEXTREL(100,300,'10 万大单买入:'+NUMTOSTRN(b10,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s10) THEN BEGIN DRAWTEXTREL(400,300,'10 万大单卖出:'+NUMTOSTRN(s10,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (j10) THEN BEGIN DRAWTEXTREL(700,300,'净买入'+NUMTOSTRN(j10,2)),LINETHICK1,COLORccffcc;end;
IF BARSTATUS=2 and (b30) THEN BEGIN DRAWTEXTREL(100,400,'30 万大单买入:'+NUMTOSTRN(b30,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s30) THEN BEGIN DRAWTEXTREL(400,400,'30 万大单卖出:'+NUMTOSTRN(s30,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (j30) THEN BEGIN DRAWTEXTREL(700,400,'净买入'+NUMTOSTRN(j30,2)),LINETHICK1,COLORccffcc;end;
IF BARSTATUS=2 and (b50) THEN BEGIN DRAWTEXTREL(100,500,'50 万大单买入:'+NUMTOSTRN(b50,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s50) THEN BEGIN DRAWTEXTREL(400,500,'50 万大单卖出:'+NUMTOSTRN(s50,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (j50) THEN BEGIN DRAWTEXTREL(700,500,'净买入'+NUMTOSTRN(j50,2)),LINETHICK1,COLORccffcc;end;
IF BARSTATUS=2 and (b70) THEN BEGIN DRAWTEXTREL(100,600,'70 万大单买入:'+NUMTOSTRN(b70,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s70) THEN BEGIN DRAWTEXTREL(400,600,'70 万大单卖出:'+NUMTOSTRN(s70,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (j70) THEN BEGIN DRAWTEXTREL(700,600,'净买入'+NUMTOSTRN(j70,2)),LINETHICK1,COLORccffcc;end;
IF BARSTATUS=2 and (b100) THEN BEGIN DRAWTEXTREL(100,700,'100 万大单买入:'+NUMTOSTRN(b100,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s100) THEN BEGIN DRAWTEXTREL(400,700,'100 万大单卖出:'+NUMTOSTRN(s100,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (j100) THEN BEGIN DRAWTEXTREL(700,700,'净买入'+NUMTOSTRN(j100,2)),LINETHICK1,COLORccffcc;end;
IF BARSTATUS=2 and (b150) THEN BEGIN DRAWTEXTREL(100,800,'150 万大单买入:'+NUMTOSTRN(b150,2)),LINETHICK1,COLORred;end;
IF BARSTATUS=2 and (s150) THEN BEGIN DRAWTEXTREL(400,800,'150 万大单卖出:'+NUMTOSTRN(s150,2)),LINETHICK1,COLORgreen;end;
IF BARSTATUS=2 and (j150) THEN BEGIN DRAWTEXTREL(700,800,'净买入'+NUMTOSTRN(j150,2)),LINETHICK1,COLORccffcc;end;
改成分析家2005的,供分享:
{龙虎看盘(源码):
{DRAWTEXTREL(50,0,'龙虎看盘'),LINETHICK6,Coloryellow;}
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;-100,colorblack;
j10:=b10-s10;
j30:=b30-s30;
j50:=b50-s50;
j70:=b70-s70;
j100:=b100-s100;
j150:=b150-s150;
DRAWTEXT(DISPSTATUS=1,800,'■总成金额(万元):'+NUMTOSTRN(z,2)),ALIGN0,LINETHICK1,COLORccffcc;
DRAWTEXT(DISPSTATUS=1,800,' ■■买入占:'+NUMTOSTRN(bz/z*100,2)),LINETHICK1,COLOrred;
DRAWTEXT(DISPSTATUS=1,800,' ■■卖出占:'+NUMTOSTRN(sz/z*100,2)),LINETHICK1,COLORgreen;
DRAWTEXT(DISPSTATUS=1,700,'■■■■■买入:'+NUMTOSTRN(bz,2)),LINETHICK1,COLORred;
DRAWTEXT(DISPSTATUS=1,700,' ■■■■■卖出:'+NUMTOSTRN(sz,2)),LINETHICK1,COLORgreen;
DRAWTEXT(DISPSTATUS=1,700,' 净买入:'+NUMTOSTRN(cz,2)),LINETHICK1,COLORccffcc;
DRAWTEXT(DISPSTATUS=1,600,'5 万大单买入:'+NUMTOSTRN(b5,2)),LINETHICK1,COLORred;
DRAWTEXT(DISPSTATUS=1,600,' 5 万大单卖出:'+NUMTOSTRN(s5,2)),LINETHICK1,COLORgreen;
DRAWTEXT(DISPSTATUS=1,600,' 净买入'+NUMTOSTRN(j5,2)),LINETHICK1,COLORccffcc;
DRAWTEXT(DISPSTATUS=1,500,'10 万大单买入:'+NUMTOSTRN(b10,2)),LINETHICK1,COLORred;
DRAWTEXT(DISPSTATUS=1,500,' 10 万大单卖出:'+NUMTOSTRN(s10,2)),LINETHICK1,COLORgreen;
DRAWTEXT(DISPSTATUS=1,500,' 净买入'+NUMTOSTRN(j10,2)),LINETHICK1,COLORccffcc;
DRAWTEXT(DISPSTATUS=1,400,'30 万大单买入:'+NUMTOSTRN(b30,2)),LINETHICK1,COLORred;
DRAWTEXT(DISPSTATUS=1,400,' 30 万大单卖出:'+NUMTOSTRN(s30,2)),LINETHICK1,COLORgreen;
DRAWTEXT(DISPSTATUS=1,400,' 净买入'+NUMTOSTRN(j30,2)),LINETHICK1,COLORccffcc;
DRAWTEXT(DISPSTATUS=1,300,'50 万大单买入:'+NUMTOSTRN(b50,2)),LINETHICK1,COLORred;
DRAWTEXT(DISPSTATUS=1,300,' 50 万大单卖出:'+NUMTOSTRN(s50,2)),LINETHICK1,COLORgreen;
DRAWTEXT(DISPSTATUS=1,300,' 净买入'+NUMTOSTRN(j50,2)),LINETHICK1,COLORccffcc;
DRAWTEXT(DISPSTATUS=1,200,'70 万大单买入:'+NUMTOSTRN(b70,2)),LINETHICK1,COLORred;
DRAWTEXT(DISPSTATUS=1,200,' 70 万大单卖出:'+NUMTOSTRN(s70,2)),LINETHICK1,COLORgreen;
DRAWTEXT(DISPSTATUS=1,200,' 净买入'+NUMTOSTRN(j70,2)),LINETHICK1,COLORccffcc;
DRAWTEXT(DISPSTATUS=1,100,'100 万大单买入:'+NUMTOSTRN(b100,2)),LINETHICK1,COLORred;
DRAWTEXT(DISPSTATUS=1,100,' 100 万大单卖出:'+NUMTOSTRN(s100,2)),LINETHICK1,COLORgreen;
DRAWTEXT(DISPSTATUS=1,100,' 净买入'+NUMTOSTRN(j100,2)),LINETHICK1,COLORccffcc;
DRAWTEXT(DISPSTATUS=1,10,'150 万大单买入:'+NUMTOSTRN(b150,2)),LINETHICK1,COLORred;
DRAWTEXT(DISPSTATUS=1,10,' 150 万大单卖出:'+NUMTOSTRN(s150,2)),LINETHICK1,COLORgreen;
DRAWTEXT(DISPSTATUS=1,10,' 净买入'+NUMTOSTRN(j150,2)),LINETHICK1,COLORccffcc;
http://www.chcj.net/viewthread.p ... hlight=%2Blymanwang
------------------------------------------
本人整理的飞狐龙虎看盘(分笔)指标奉献给大家
{DRAWTEXTREL(50,0,'龙虎看盘'),LINETHICK6,Coloryellow;}
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;-100,colorblack;
j10:=b10-s10;
j30:=b30-s30;
j50:=b50-s50;
j70:=b70-s70;
j100:=b100-s100;
j150:=b150-s150;
DRAWTEXT(BARSTATUS=1,800,' ■总成金额(万元):'+NUMTOSTR(z,2)),ALIGN0,LINETHICK1,COLORccffcc;
DRAWTEXT(BARSTATUS=1,800,' ■■买入占:'+NUMTOSTR(bz/z*100,2)),LINETHICK1,COLOrred;
DRAWTEXT(BARSTATUS=1,800,' ■■卖出占:'+NUMTOSTR(sz/z*100,2)),LINETHICK1,COLORgreen;
DRAWTEXT(BARSTATUS=1,700,' ■■■■■买入:'+NUMTOSTR(bz,2)),LINETHICK1,COLORred;
DRAWTEXT(BARSTATUS=1,700,' ■■■■■卖出:'+NUMTOSTR(sz,2)),LINETHICK1,COLORgreen;
DRAWTEXT(BARSTATUS=1,700,' 净买入:'+NUMTOSTR(cz,2)),LINETHICK1,COLORccffcc;
DRAWTEXT(BARSTATUS=1,600,'5 万大单买入:'+NUMTOSTR(b5,2)),LINETHICK1,COLORred;
DRAWTEXT(BARSTATUS=1,600,' 5 万大单卖出:'+NUMTOSTR(s5,2)),LINETHICK1,COLORgreen;
DRAWTEXT(BARSTATUS=1,600,' 净买入'+NUMTOSTR(j5,2)),LINETHICK1,COLORccffcc;
DRAWTEXT(BARSTATUS=1,500,'10 万大单买入:'+NUMTOSTR(b10,2)),LINETHICK1,COLORred;
DRAWTEXT(BARSTATUS=1,500,' 10 万大单卖出:'+NUMTOSTR(s10,2)),LINETHICK1,COLORgreen;
DRAWTEXT(BARSTATUS=1,500,' 净买入'+NUMTOSTR(j10,2)),LINETHICK1,COLORccffcc;
DRAWTEXT(BARSTATUS=1,400,'30 万大单买入:'+NUMTOSTR(b30,2)),LINETHICK1,COLORred;
DRAWTEXT(BARSTATUS=1,400,' 30 万大单卖出:'+NUMTOSTR(s30,2)),LINETHICK1,COLORgreen;
DRAWTEXT(BARSTATUS=1,400,' 净买入'+NUMTOSTR(j30,2)),LINETHICK1,COLORccffcc;
DRAWTEXT(BARSTATUS=1,300,'50 万大单买入:'+NUMTOSTR(b50,2)),LINETHICK1,COLORred;
DRAWTEXT(BARSTATUS=1,300,' 50 万大单卖出:'+NUMTOSTR(s50,2)),LINETHICK1,COLORgreen;
DRAWTEXT(BARSTATUS=1,300,' 净买入'+NUMTOSTR(j50,2)),LINETHICK1,COLORccffcc;
DRAWTEXT(BARSTATUS=1,200,'70 万大单买入:'+NUMTOSTR(b70,2)),LINETHICK1,COLORred;
DRAWTEXT(BARSTATUS=1,200,' 70 万大单卖出:'+NUMTOSTR(s70,2)),LINETHICK1,COLORgreen;
DRAWTEXT(BARSTATUS=1,200,' 净买入'+NUMTOSTR(j70,2)),LINETHICK1,COLORccffcc;
DRAWTEXT(BARSTATUS=1,100,'100 万大单买入:'+NUMTOSTR(b100,2)),LINETHICK1,COLORred;
DRAWTEXT(BARSTATUS=1,100,' 100 万大单卖出:'+NUMTOSTR(s100,2)),LINETHICK1,COLORgreen;
DRAWTEXT(BARSTATUS=1,100,' 净买入'+NUMTOSTR(j100,2)),LINETHICK1,COLORccffcc;
DRAWTEXT(BARSTATUS=1,10,'150 万大单买入:'+NUMTOSTR(b150,2)),LINETHICK1,COLORred;
DRAWTEXT(BARSTATUS=1,10,' 150 万大单卖出:'+NUMTOSTR(s150,2)),LINETHICK1,COLORgreen;
DRAWTEXT(BARSTATUS=1,10,' 净买入'+NUMTOSTR(j150,2)),LINETHICK1,COLORccffcc;
[ 本帖最后由 ptst0578 于 2006-12-30 10:20 编辑 ] |
|
|