- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2006-12-9
|
|
原帖由 linroot 于 2008-7-20 12:43 发表 
用老大每天的大买量和大卖量就可以刷出大盘的数据吗？我是个新手:*27*:
可以:
(以前有朋友说的方法)
看见很多兄弟对大盘持筹甚是迷惑 想起当初自己建的时候 百问无门 特整理详细过程 不知道有没有出
错的地方 请高手有看到错误多多指点
第一步:建立"大盘持筹"公式
ss:=STKLABEL;
if STRCMP(ss,'000001')=0 then{上证指数}
begin
大买:=SELFDATA('上证大买额');
大卖:=SELFDATA('上证大卖额');
end
else if STRCMP(ss,'AA01')=0 then{非权重股}
begin
大买:=SELFDATA('非权大买额');
大卖:=SELFDATA('非权大卖额');
end
else if STRCMP(ss,'399300')=0 then{沪深300}
begin
大买:=SELFDATA('沪深300大买量');
大卖:=SELFDATA('沪深300大卖量');
end
else if STRCMP(ss,'399001')=0 then{深成40}
begin
大买:=SELFDATA('深成40大买量');
大卖:=SELFDATA('深成40大卖量');
end
else if STRCMP(ss,'000016')=0 then{上证50}
begin
大买:=SELFDATA('上证50大买量');
大卖:=SELFDATA('上证50大卖量');
end
else if STRCMP(ss,'399004')=0 then{深证100}
begin
大买:=SELFDATA('深证100大买量');
大卖:=SELFDATA('深证100大卖量');
end
else if STRCMP(ss,'399903')=0 then{中证100}
begin
大买:=SELFDATA('中证100大买量');
大卖:=SELFDATA('中证100大卖量');
end
else {个股}
begin
大买:=SELFDATA('大买量');{单位：手(百股)}
大卖:=SELFDATA('大卖量');
end
当天增减:(大买-大卖),LINETHICK0,COLOR0000ff;
主力仓量:sum(当天增减,0),COLORWHITE,linethick3;
三天前仓:=ref(主力仓量,3);
五天前仓:=ref(主力仓量,5);
十天前仓:=ref(主力仓量,10);
廿天前仓:=ref(主力仓量,20);
三天增减:主力仓量-三天前仓,linethick0,color003399;
五天增减:主力仓量-五天前仓,linethick0,color0055ff;
十天增减:主力仓量-十天前仓,linethick0,color00aaff;
廿天增减:主力仓量-廿天前仓,linethick0,colorblue;
当天增减比率:当天增减/FINANCE2(37),linethick0;
三天增减比率:三天增减/FINANCE2(37),linethick0;
五天增减比率:五天增减/FINANCE2(37),linethick0;
十天增减比率:十天增减/FINANCE2(37),linethick0;
廿天增减比率:廿天增减/FINANCE2(37),colorblue,linethick0;
总持仓率:主力仓量/FINANCE2(37),linethick0;
仓量斜率三:EMA(主力仓量-ref(主力仓量,1),3)/CAPITAL*100,linethick0;
仓量斜率五:EMA(主力仓量-ref(主力仓量,1),5)/CAPITAL*100,linethick0;
仓量斜率十:EMA(主力仓量-ref(主力仓量,1),10)/CAPITAL*100,linethick0;
仓量斜率廿:EMA(主力仓量-ref(主力仓量,1),20)/CAPITAL*100,linethick0;
FILLRGN(廿天增减,0,廿天增减>0,rgb(255,255,00),廿天增减<0,rgb(00,255,255));
{廿天增减,COLORWHITE;}
FILLRGN(十天增减,0,十天增减>0,rgb(255,170,00),十天增减<0,rgb(00,170,255));
{十天图:十天增减,COLORWHITE;}
FILLRGN(五天增减,0,五天增减>0,rgb(255,85,00),五天增减<0,rgb(00,85,255));
{五天图:五天增减,COLORWHITE;}
FILLRGN(三天增减,0,三天增减>0,rgb(153,51,00),三天增减<0,rgb(00,51,153));
{三天图:三天增减,COLORWHITE;}
STICKLINE(当天增减>0,当天增减,0,6,0),COLOR0000ff;
STICKLINE(当天增减<0,当天增减,0,6,0),color00ff00;
ma5:MA(主力仓量,5),colorred;
ma10:MA(主力仓量,10),COLORGRAY;
ma20:MA(主力仓量,20),COLORBLUE,linethick4;
ma30:MA(主力仓量,30),colorgreen;
ma50:MA(主力仓量,50),CIRCLEDOT,COLORMAGENTA;
drawtext(ma(主力仓量,50)>ref(ma(主力仓量,50),1),ma(主力仓量,50),'o'),COLORgray;
{PARTLINE(ma50,ma50<ma30 and ma50>ref(ma50,1) and ma30>ref(ma30,1),rgb(255,0,0),
ma50<ma30,rgb(255,255,0),
ma50>ma30 and ma50>ref(ma50,1) and ma30>ref(ma30,1),rgb(255,0,255),
1,rgb(0,0,255)),CIRCLEDOT;
}
PARTLINE(ma50<ma30 and ma50>ref(ma50,1) and ma30>ref(ma30,1),ma50),color0000ff,CIRCLEDOT;
PARTLINE(ma50<ma30 and (ma50<ref(ma50,1) or ma30<ref(ma30,1)),ma50),color00ffff,CIRCLEDOT;
PARTLINE(ma50>ma30 and ma50>ref(ma50,1) and ma30>ref(ma30,1),ma50),colorff00ff,CIRCLEDOT;
第二步:建立 "欧买卖额"公式 注:用来自己计算大买额大买额用 如果不想自己计算 直接用依然兄的数据
可以省略这一步
{分笔计算大买卖额}
door:=50000;
{big:=170000;}
Var1:=AMOUNT/ VOL/100;
Var2:=REF(ASKPRICE(1),1);
Var3:=REF(BIDPRICE(1),1);
Var4:=(Var2-Var3)*0.35;
Var5:=IF(Var1>=Var2-Var4,VOL,IF(Var1<Var2-Var4 AND Var1>Var3+Var4,BUYVOL,0));
Var6:=IF(Var1<=Var3+Var4,VOL,IF(Var1<Var2-Var4 AND Var1>Var3+Var4,SELLVOL,0));
买1:=if(BARSTATUS=1 and DYNAINFO(4)>=DYNAINFO(3),vol,if(c=DYNAINFO(55),0,if(c=DYNAINFO(54),vol,var5)));
卖1:=if(BARSTATUS=1 and DYNAINFO(4)<DYNAINFO(3),vol,if(c=DYNAINFO(54),0,if(c=DYNAINFO(55),vol,var6)));
主动买单:=if(买1>0 and AMOUNT>=door ,买1,0);
主动卖单:=if(卖1>0 and AMOUNT>=door,卖1,0);
主动买单1:=if(买1>0 and AMOUNT<door,买1,0);
主动卖单1:=if(卖1>0 and AMOUNT<door,卖1,0);
主动买单2:=if(买1>0 and AMOUNT>=big ,买1,0);
主动卖单2:=if(卖1>0 and AMOUNT>=big,卖1,0);
大买额:sum(主动买单,0)*c;
大卖额:sum(主动卖单,0)*c;
{超大买额:sum(主动买单2,0)*c;{注:觉得5万大买额不过瘾的兄弟可以尝试使用 17万大买额}
超大卖额:sum(主动卖单2,0)*c;}
第三步:建立自定义数据 "大买额" "大卖额" 用来计算大买卖额
如图1 如果直接使用依然的数据 不要选指标关联 空着建立一个即可
第四步:建立"买卖额"公式 超级简单用来读取大买额大卖额数据 注:这个公式不知道是不是可以合并到
第一步或者第二步的公式里 请教高人
大买额:SELFDATA('大买额' );
大卖额:SELFDATA('大卖额' );
第五步:最后一步了 举例上证指数的大盘持筹 就是建立2个自定义数据:"上证大买额""上证大卖额" 要看
其他的大盘持筹 请看第一步的公式一对号入座建立自定义数据 |
|
|
[复制链接]
发表于 2008-7-20 12:53
楼主
: 