- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2004-8-9
|
|
楼主 |
发表于 2008-8-12 00:28
|
显示全部楼层
出下分笔公式是用来自己下载分笔数据自己刷用的。
-------------------------------------------------------------------
{大盘持筹公式}
第一步:建立"大盘持筹"公式
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;
第二步:建立自定义数据 "大买额" "大卖额"
使用依然的数据 不要选指标关联 空着建立一个即可
第三步:建立"买卖额"公式 超级简单用来读取大买额大卖额数据
大买额:SELFDATA('大买额' );
大卖额:SELFDATA('大卖额' );
第四步:最后一步了 举例上证指数的大盘持筹 就是建立2个自定义数据:"上证大买额""上证大卖额" 选无关联序列值-指标选买卖额-选大买额（大卖额）- 周期用日线-选全部A部
导入老大的数据后，要刷新"上证大买额""上证大卖额" 自定义数据。（注：若是导入老大数据的不用刷新 "大买额" "大卖额" ）
）
其他的大盘持筹 请看第一步的公式一对号入座建立自定义数据
若自己下载分笔数据自己算则把第二步改变一下。建立方法：
第二步:
1、建立 "欧买卖额"公式 注:用来自己计算大买额大买额用 {分笔计算大买卖额}
door:=50000;
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);
大买额:sum(主动买单,0)*c;
大卖额:sum(主动卖单,0)*c;
2、建立自定义数据 "大买额" "大卖额" ，选相关联序列值，选指标"欧买卖额"公式-选大买额(大卖额）-周期选分笔。
3、先刷新"大买额" "大卖额" 自定义数据后，再刷新"上证大买额""上证大卖额" 自定义数据。
---------------------------------------------------------------------------------------------------------------------------------------------------------
{L2分时主力公式}
BY:=TRANSACTVOL(1,0);
BS:=TRANSACTVOL(2,0);
主买:SUM(TRANSACTVOL(1,0),0),LINETHICK0;
主卖:SUM(TRANSACTVOL(2,0),0),LINETHICK0;
主买卖差:主买-主卖,LINETHICK0;
主买比率:主买/主卖,linethick0;
大买占大单比:(TRANSACTVOL(1,2)/(TRANSACTVOL(1,2)+TRANSACTVOL(2,2)))*100;
大买占总成交:TRANSACTVOL(1,2)/TRANSACTVOL(0,0)*100,COLORyellow;
主买卖差线:主买卖差*6,LINETHICK3;
STICKLINE(BY>BS,0,BY*35,5,0.5),COLORRED;
STICKLINE(BY>BS,0,BS*35,5,0.5),COLORGREEN;
STICKLINE(BY<BS,0,BY*35,5,0.5),COLORRED;
STICKLINE(BY<BS,0,BS*35,5,0.5),COLORGREEN;
DRAWICON(CROSS(主买,主卖),主买*2,7);
---------------------------------------------------------------------------------------------------
{精解主力公式}
当天增减:SELFDATA('精解分笔' ),LINETHICK0,COLORyellow;
主力仓量:sum(当天增减,0),LINETHICK4,COLORgreen;
三天前仓:=ref(主力仓量,3);
五天前仓:=ref(主力仓量,5);
十天前仓:=ref(主力仓量,10);
廿天前仓:=ref(主力仓量,20);
三天增减:主力仓量-三天前仓,LINETHICK0,color003399;
五天增减:主力仓量-五天前仓,LINETHICK0,color0055ff;
十天增减:主力仓量-十天前仓,LINETHICK0,color00aaff;
廿天增减:主力仓量-廿天前仓,LINETHICK0,colorblue;
STICKLINE(当天增减>0,当天增减,0,6,0),COLOR0000ff;
STICKLINE(当天增减<0,当天增减,0,6,0),color00ff00;
ma5:MA(主力仓量,5),colorred;
ma10:MA(主力仓量,10),COLORGRAY;
ma20:MA(主力仓量,20),COLORBLUE,linethick2;
ma30:MA(主力仓量,30),colorgreen;
ma50:MA(主力仓量,50),CIRCLEDOT,COLORMAGENTA;
主力增减:当天增减/CAPITAL;
drawtext(ma(主力仓量,50)>ref(ma(主力仓量,50),1),ma(主力仓量,50),'o'),COLORBLACK;
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;
当天增减比率:当天增减/CAPITAL*100;
三天增减比率:三天增减/CAPITAL*100;
五天增减比率:五天增减/CAPITAL*100;
十天增减比率:十天增减/CAPITAL*100;
廿天增减比率:廿天增减/CAPITAL*100;
仓量斜率3:ma(主力仓量-ref(主力仓量,1),3)/CAPITAL*100,linethick0;
仓量斜率5:ma(主力仓量-ref(主力仓量,1),5)/CAPITAL*100*100,linethick0;
仓量斜率10:ma(主力仓量-ref(主力仓量,1),10)/CAPITAL,linethick0;
仓量斜率20:ma(主力仓量-ref(主力仓量,1),20)/CAPITAL*100,linethick0;
-------------------------------------------------------------------------------------------
{20w分析公式}
大买:=SELFDATA('20w大单买入量');
大卖:=SELFDATA('20w大单卖出量');
当天增减:(大买-大卖),LINETHICK0,COLORyellow;
主力仓量:sum(大买-大卖,0),LINETHICK4,COLORgreen;
三天前仓:=ref(主力仓量,3);
五天前仓:=ref(主力仓量,5);
十天前仓:=ref(主力仓量,10);
廿天前仓:=ref(主力仓量,20);
三天增减:主力仓量-三天前仓,LINETHICK0,color003399;
五天增减:主力仓量-五天前仓,LINETHICK0,color0055ff;
十天增减:主力仓量-十天前仓,LINETHICK0,color00aaff;
廿天增减:主力仓量-廿天前仓,LINETHICK0,colorblue;
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;
主力增减:当天增减/CAPITAL;
drawtext(ma(主力仓量,50)>ref(ma(主力仓量,50),1),ma(主力仓量,50),'o'),COLORBLACK;
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;
当天增减比率:当天增减/CAPITAL*100;
三天增减比率:三天增减/CAPITAL*100;
五天增减比率:五天增减/CAPITAL*100;
十天增减比率:十天增减/CAPITAL*100;
廿天增减比率:廿天增减/CAPITAL*100;
仓量斜率3:ma(主力仓量-ref(主力仓量,1),3)/CAPITAL*100,linethick0;
仓量斜率5:ma(主力仓量-ref(主力仓量,1),5)/CAPITAL*100*100,linethick0;
仓量斜率10:ma(主力仓量-ref(主力仓量,1),10)/CAPITAL,linethick0;
仓量斜率20:ma(主力仓量-ref(主力仓量,1),20)/CAPITAL*100,linethick0;
-------------------------------------------------------------------------------------------
{机构增仓公式}
jgr:=BIGORDER(1,3);{机构委买，>100万元，委买特大单比例}
jgc:=BIGORDER(2,3);{机构委卖，>100万元，委卖特大单比例}
wdr:=order(1);
wdc:=order(2);
委买:=wdr/(wdr+wdc)*v;
委卖:=wdc/(wdr+wdc)*v;
机构委买量:=jgr*委买;
机构委卖量:=jgc*委卖;
机构净入:SELFDATA('机构增仓') ,linethick0;{自定义数据名字是什么，这里就写什么}
主力仓量:sum(机构净入,0),colorgreen,LINETHICK3;
三天前仓:=ref(主力仓量,3);
五天前仓:=ref(主力仓量,5);
十天前仓:=ref(主力仓量,10);
廿天前仓:=ref(主力仓量,20);
三天增减:主力仓量-三天前仓,LINETHICK0,coloryellow;
五天增减:主力仓量-五天前仓,LINETHICK0,color0055ff;
十天增减:主力仓量-十天前仓,LINETHICK0,color00aaff;
廿天增减:主力仓量-廿天前仓,LINETHICK0,color00ffff;
机构当日增仓率:机构净入/FINANCE2(37);
机构三日增仓率:三天增减/FINANCE2(37);
机构五日增仓率:五天增减/FINANCE2(37);
机构十日增仓率:十天增减/FINANCE2(37);
机构廿日增仓率:廿天增减/FINANCE2(37);
机构总持仓率:主力仓量/FINANCE2(37);
仓量斜率3:ma(主力仓量-ref(主力仓量,1),3)/CAPITAL*100,linethick0;
仓量斜率5:ma(主力仓量-ref(主力仓量,1),5)/CAPITAL*100,linethick0;
仓量斜率10:ma(主力仓量-ref(主力仓量,1),10)/CAPITAL*100,linethick0;
仓量斜率20:ma(主力仓量-ref(主力仓量,1),20)/CAPITAL*100,linethick0;
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;
主力增减:机构净入/FINANCE2(37);
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;
PARTLINE(ma50>ma30 and (ma50<ref(ma50,1) or ma30<ref(ma30,1)),ma50),colorff0000;
-----------------------------------------------------------------------------------------------------------------
{欧奈评述公式}
input:short(45,10,1000),long(90,10,1000),m(20,5,1000);
VAR1:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR2:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));
DRAWICON(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.998),8);
DRAWICON(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.013),9);
DRAWTEXT(CROSS(VAR2,MA(VAR3,6)),(LOW * 0.984),'B '),color4440FF;
DRAWTEXT(CROSS(MA(VAR3,6),VAR1),(HIGH * 1.035),'S '),colorFFFF34;
年:MA(CLOSE,26),COLORGREEN;
STICKLINE(C>=年 AND C>=O,C,O,7,0),COLORRED;
STICKLINE(C>=年 AND C>=O,H,L,0,0),COLORRED;
STICKLINE(C>=年 AND C<O,C,O,7,1),COLORRED;
STICKLINE(C>=年 AND C<O,O,H,0,0),COLORRED;
STICKLINE(C>=年 AND C<O,C,L,0,0),COLORRED;
STICKLINE(C<年 AND C>O,C,O,7,1),COLORffff00;
STICKLINE(C<年 AND C<=O,C,O,7,1),COLORffff00;
STICKLINE(C<年 AND C<=O,H,L,0,1),COLORffff00;
STICKLINE(C<年 AND C>O,C,H,0,1),COLORffff00;
STICKLINE(C<年 AND C>O,O,L,0,1),COLORffff00;
流通盘大小:=FINANCE2(37)/10000;
销售毛利率:=FINANCE2(12);
主营收入同比:=FINANCE2(11);
净利润同比增长:=FINANCE2(10);
当日换手率:=sum(100*v/capital,1);
三日换手率:=sum(100*v/capital,3);
五日换手率:=sum(100*v/capital,5);
市盈率 := dynainfo(39);
现价 := dynainfo(7);
EMA13 := EMA(CLOSE,13);
EMA17:= EMA(CLOSE,17);
diff13:= (现价/EMA13 - 1)*100;
diff17:= (现价/EMA17 - 1)*100;
欧奈尔排名:=selfdata('欧奈尔排名');
seq:=extdata(3); {当日排名}
ma1:=ref(seq,1); {N1日平均排名}
ma2:=ref(seq,2);
ma3:=ref(seq,3);
ma4:=ref(seq,4);
ma5:=ref(seq,5);
欧奈尔排名1:=ref(欧奈尔排名,0);
欧奈尔排名2:=ref(欧奈尔排名,1);
欧奈尔排名3:=ref(欧奈尔排名,2);
欧奈尔排名4:=ref(欧奈尔排名,3);
欧奈尔排名5:=ref(欧奈尔排名,4);
机构净入:SELFDATA('机构增仓'),LINETHICK0;
主力仓量:sum(机构净入,0),colorgreen,LINETHICK0;
三天前仓:=ref(主力仓量,3);
五天前仓:=ref(主力仓量,5);
十天前仓:=ref(主力仓量,10);
廿天前仓:=ref(主力仓量,20);
三天增减:主力仓量-三天前仓,LINETHICK0,coloryellow;
五天增减:主力仓量-五天前仓,LINETHICK0,color0055ff;
十天增减:主力仓量-十天前仓,LINETHICK0,color00aaff;
廿天增减:主力仓量-廿天前仓,LINETHICK0,color00ffff;
机构当日增仓率:机构净入/FINANCE2(37),LINETHICK0;
机构三日增仓率:三天增减/FINANCE2(37),LINETHICK0;
机构五日增仓率:五天增减/FINANCE2(37),LINETHICK0;
机构十日增仓率:十天增减/FINANCE2(37),LINETHICK0;
机构廿日增仓率:廿天增减/FINANCE2(37),LINETHICK0;
机构总持仓率:主力仓量/FINANCE2(37),LINETHICK0;
DRAWTEXTABS(10,10,'所属板块：'+BKNAME),COLORffffff;
DRAWTEXTABS(150,25,'市盈率：'+市盈率+' '),LINETHICK1,colorwhite;
DRAWTEXTABS(250,25,'机构日增仓率：'+机构当日增仓率+' '),LINETHICK1,colorwhite;
DRAWTEXTABS(390,25,'机构三日增仓率：'+机构三日增仓率+' '),LINETHICK1,colorwhite;
DRAWTEXTABS(540,25,'机构五日增仓率：'+机构五日增仓率+' '),LINETHICK1,colorwhite;
DRAWTEXTABS(680,25,'机构十日增仓率：'+机构十日增仓率+' '),LINETHICK1,colorwhite;
DRAWTEXTABS(10,25,'流通盘大小：'+流通盘大小+'亿 '),LINETHICK1,colorwhite;
DRAWTEXTABS(10,40,'销售毛利率：'+销售毛利率+'% '),LINETHICK1,colorwhite;
DRAWTEXTABS(150,40,'主营收入同比：'+主营收入同比+' '),LINETHICK1,colorwhite;
DRAWTEXTABS(290,40,'机构总持仓率：'+机构总持仓率+' '),LINETHICK1,colorwhite;
DRAWTEXTABS(10,55,'净利润同比增长：'+净利润同比增长+'% '),LINETHICK1,colorwhite;
DRAWTEXTABS(10,70,'当日换手： '+NUMTOSTRN(当日换手率,2)+'%'),colorwhite,LINETHICK1;
DRAWTEXTABS(150,70,'三日换手： '+NUMTOSTRN(三日换手率,2)+'%'),colorwhite,LINETHICK1;
DRAWTEXTABS(300,70,'五日换手： '+NUMTOSTRN(五日换手率,2)+'%'),colorwhite,LINETHICK1;
DRAWTEXTABS(10,100,'最近5天奈尔排名：'+欧奈尔排名1+','+欧奈尔排名2+','+欧奈尔排名3+','+欧奈尔排名4+','+欧奈尔排名5),LINETHICK1,colorwhite;
DRAWTEXTABS(10,85,'最近5天仓量斜率排名：'+ma1+','+ma2+','+ma3+','+ma4+','+ma5),LINETHICK1,colorwhite;
drawtextabs(10,115,'现价 EMA13 EMA17: '+现价+','+EMA13+', '+EMA17+','+diff13+', '+diff17),coloryellow,linethick1;
{布林带}
MID : MA(CLOSE,26),colorgreen,POINTDOT;
UPPER: MID + 2*STD(CLOSE,26),colorgreen,POINTDOT;
LOWER: MID - 2*STD(CLOSE,26),colorgreen,POINTDOT;
------------------------------------------------------------------------------------------
{精解分笔公式}
委卖价1:=askprice(1);
委买价1:=bidprice(1);
委买量1:=bidvol(1);
委卖量1:=askvol(1);
委卖价2:=askprice(2);
委买价2:=bidprice(2);
委买量2:=bidvol(2);
委卖量2:=askvol(2);
委卖价3:=askprice(3);
委买价3:=bidprice(3);
委买量3:=bidvol(3);
委卖量3:=askvol(3);
BS:=intpart(2000/c+0.5);
NS:=IF(STRFIND(STKNAME,'N',1),0,1);
涨停:=if(NS>0 and c=dynainfo(54) and 委卖量1=0,1,0);
跌停:=if(NS>0 and c=dynainfo(55) and 委买量1=0,1,0);
非停板:=if(涨停>0 or 跌停>0,0,1);
涨停买:=if(涨停>0,vol,0);
跌停卖:=if(跌停>0,vol,0);
开盘买:=if(BARSTATUS=1 and DYNAINFO(4)>=DYNAINFO(3),vol,0);
开盘卖:=if(BARSTATUS=1 and DYNAINFO(4)<DYNAINFO(3),vol,0);
买上0a:=if(CLOSE=ref(委买价1,1) and 委买价1=ref(委买价1,1) and ref(委买量1,1)>委买量1 and BUYVOL<=(ref(委买量1,1)-委买量1),BUYVOL,0);
明买0a:=if(CLOSE=ref(委买价1,1) and 委买价1=ref(委买价1,1) and ref(委买量1,1)>委买量1 and BUYVOL>(ref(委买量1,1)-委买量1),ref(委买量1,1)-委买量1,0);
隐买0a:=IF(明买0a>0,BUYVOL-明买0a,0);
买上0b:=if(CLOSE>=ref(委买价1,1) and CLOSE<REF(委卖价1,1) and 委买价1>ref(委买价1,1) and BUYVOL<=ref(委买量1,1),BUYVOL,0);
明买0b:=if(CLOSE>=ref(委买价1,1) and CLOSE<REF(委卖价1,1) and 委买价1>ref(委买价1,1) and BUYVOL>ref(委买量1,1),ref(委买量1,1),0);
隐买0b:=IF(明买0b>0,BUYVOL-明买0b,0);
买上1a:=IF(CLOSE=REF(委卖价1,1) and 委卖价1=ref(委卖价1,1) and ref(委卖量1,1)>委卖量1 and BUYVOL<=(ref(委卖量1,1)-委卖量1),BUYVOL,0);
明买1a:=if(CLOSE=ref(委卖价1,1) and 委卖价1=ref(委卖价1,1) and ref(委卖量1,1)>委卖量1 and BUYVOL>(ref(委卖量1,1)-委卖量1),ref(委卖量1,1)-委卖量1,0);
隐买1a:=IF(明买1a>0,BUYVOL-明买1a,0);
买上1b:=IF(CLOSE>=REF(委卖价1,1) and CLOSE<REF(委卖价2,1) and 委卖价1>ref(委卖价1,1) and BUYVOL<=ref(委卖量1,1),BUYVOL,0);
明买1b:=if(CLOSE>=REF(委卖价1,1) and CLOSE<REF(委卖价2,1) and 委卖价1>ref(委卖价1,1) and BUYVOL>ref(委卖量1,1),ref(委卖量1,1),0);
隐买1b:=IF(明买1b>0,BUYVOL-明买1b,0);
买上2a:=IF(CLOSE=REF(委卖价2,1) and 委卖价1=ref(委卖价2,1) and REF(委卖量2,1)>委卖量1 and BUYVOL<=(REF(委卖量1,1)+REF(委卖量2,1)-委卖量1),BUYVOL,0);
明买2a:=IF(CLOSE=REF(委卖价2,1) and 委卖价1=ref(委卖价2,1) and REF(委卖量2,1)>委卖量1 and BUYVOL>(REF(委卖量1,1)+REF(委卖量2,1)-委卖量1),REF(委卖量1,1)+REF(委卖量2,1)-委卖量1,0);
隐买2a:=IF(明买2a>0,BUYVOL-明买2a,0);
买上2b:=IF(CLOSE>=REF(委卖价2,1) AND CLOSE<REF(委卖价3,1) and 委卖价1>ref(委卖价2,1) and BUYVOL<=(REF(委卖量1,1)+REF(委卖量2,1)),BUYVOL,0);
明买2b:=IF(CLOSE>=REF(委卖价2,1) AND CLOSE<REF(委卖价3,1) and 委卖价1>ref(委卖价2,1) and BUYVOL>(REF(委卖量1,1)+REF(委卖量2,1)),REF(委卖量1,1)+REF(委卖量2,1),0);
隐买2b:=IF(明买2b>0,BUYVOL-明买2b,0);
买上3a:=IF(CLOSE=REF(委卖价3,1) and 委卖价1=ref(委卖价3,1) and REF(委卖量3,1)>委卖量1 and BUYVOL<=(REF(委卖量1,1)+REF(委卖量2,1)+REF(委卖量3,1)-委卖量1),BUYVOL,0);
明买3a:=IF(CLOSE=REF(委卖价3,1) and 委卖价1=ref(委卖价3,1) and REF(委卖量3,1)>委卖量1 and BUYVOL>(REF(委卖量1,1)+REF(委卖量2,1)+REF(委卖量3,1)-委卖量1),REF(委卖量1,1)+REF(委卖量2,1)+REF(委卖量3,1)-委卖量1,0);
隐买3a:=IF(明买3a>0,BUYVOL-明买3a,0);
买上3b:=IF(CLOSE=REF(委卖价3,1) and 委卖价1>ref(委卖价3,1) and BUYVOL<=(REF(委卖量1,1)+REF(委卖量2,1)+REF(委卖量3,1)),BUYVOL,0);
明买3b:=IF(CLOSE=REF(委卖价3,1) and 委卖价1>ref(委卖价3,1) and BUYVOL>(REF(委卖量1,1)+REF(委卖量2,1)+REF(委卖量3,1)),REF(委卖量1,1)+REF(委卖量2,1)+REF(委卖量3,1),0);
隐买3b:=IF(明买3b>0,BUYVOL-明买3b,0);
买上4a:=IF(REF(委卖价3,1)>0 AND CLOSE>REF(委卖价3,1) and BUYVOL>(REF(委卖量1,1)+REF(委卖量2,1)+REF(委卖量3,1)),BUYVOL,0);
买上:=买上0a+买上0b+买上1a+买上1b+买上2a+买上2b+买上3a+买上3b+买上4a;
主买:=if(非停板>0,if(买上>0,买上,明买0a+明买0b+明买1a+明买1b+明买2a+明买2b+明买3a+明买3b),0);
隐买:=if(非停板>0,隐买0a+隐买0b+隐买1a+隐买1b+隐买2a+隐买2b+隐买3a+隐买3b,0);
卖下0a:=if(CLOSE=ref(委卖价1,1) and 委卖价1=ref(委卖价1,1) and ref(委卖量1,1)>委卖量1 and SELLVOL<=ref(委卖量1,1)-委卖量1,SELLVOL,0);
明卖0a:=if(CLOSE=ref(委卖价1,1) and 委卖价1=ref(委卖价1,1) and ref(委卖量1,1)>委卖量1 and SELLVOL>ref(委卖量1,1)-委卖量1,ref(委卖量1,1)-委卖量1,0);
隐卖0a:=IF(明卖0a>0,SELLVOL-明卖0a,0);
卖下0b:=if(CLOSE<=ref(委卖价1,1) and CLOSE>ref(委买价1,1) and 委卖价1<ref(委卖价1,1) and SELLVOl<=ref(委卖量1,1),SELLVOl,0);
明卖0b:=if(CLOSE<=ref(委卖价1,1) and CLOSE>ref(委买价1,1) and 委卖价1<ref(委卖价1,1) and SELLVOl>ref(委卖量1,1),ref(委卖量1,1),0);
隐卖0b:=IF(明卖0b>0,SELLVOL-明卖0b,0);
卖下1a:=if(CLOSE=ref(委买价1,1) and 委买价1=ref(委买价1,1) and ref(委买量1,1)>委买量1 and SELLVOl<=ref(委买量1,1)-委买量1,SELLVOl,0);
明卖1a:=if(CLOSE=ref(委买价1,1) and 委买价1=ref(委买价1,1) and ref(委买量1,1)>委买量1 and SELLVOl>ref(委买量1,1)-委买量1,ref(委买量1,1)-委买量1,0);
隐卖1a:=IF(明卖1a>0,SELLVOL-明卖1a,0);
卖下1b:=if(CLOSE<=ref(委买价1,1) and CLOSE>REF(委买价2,1) and 委买价1<ref(委买价1,1) and SELLVOl<=ref(委买量1,1),SELLVOl,0);
明卖1b:=if(CLOSE<=ref(委买价1,1) and CLOSE>REF(委买价2,1) and 委买价1<ref(委买价1,1) and SELLVOl>ref(委买量1,1),ref(委买量1,1),0);
隐卖1b:=IF(明卖1b>0,SELLVOL-明卖1b,0);
卖下2a:=if(CLOSE=ref(委买价2,1) and 委买价1=ref(委买价2,1) and ref(委买量2,1)>委买量1 and SELLVOl<=(ref(委买量1,1)+REF(委买量2,1)-委买量1),SELLVOl,0);
明卖2a:=if(CLOSE=ref(委买价2,1) and 委买价1=ref(委买价2,1) and ref(委买量2,1)>委买量1 and SELLVOl>(ref(委买量1,1)+REF(委买量2,1)-委买量1),ref(委买量1,1)+REF(委买量2,1)-委买量1,0);
隐卖2a:=IF(明卖2a>0,SELLVOL-明卖2a,0);
卖下2b:=if(CLOSE<=ref(委买价2,1) and CLOSE>REF(委买价3,1) and 委买价1<ref(委买价2,1) and SELLVOl<=(ref(委买量1,1)+REF(委买量2,1)),SELLVOl,0);
明卖2b:=if(CLOSE<=ref(委买价2,1) and CLOSE>REF(委买价3,1) and 委买价1<ref(委买价2,1) and SELLVOl>(ref(委买量1,1)+REF(委买量2,1)),ref(委买量1,1)+REF(委买量2,1),0);
隐卖2b:=IF(明卖2b>0,SELLVOL-明卖2b,0);
卖下3a:=if(CLOSE=ref(委买价3,1) and 委买价1=ref(委买价3,1) and ref(委买量3,1)>委买量1 and SELLVOl<=(ref(委买量1,1)+REF(委买量2,1)+REF(委买量3,1)-委买量1),SELLVOl,0);
明卖3a:=if(CLOSE=ref(委买价3,1) and 委买价1=ref(委买价3,1) and ref(委买量3,1)>委买量1 and SELLVOl>(ref(委买量1,1)+REF(委买量2,1)+REF(委买量3,1)-委买量1),ref(委买量1,1)+REF(委买量2,1)+REF(委买量3,1)-委买量1,0);
隐卖3a:=IF(明卖3a>0,SELLVOL-明卖3a,0);
卖下3b:=if(CLOSE=ref(委买价3,1) and 委买价1<ref(委买价3,1) and SELLVOl<=(ref(委买量1,1)+REF(委买量2,1)+REF(委买量3,1)),SELLVOl,0);
明卖3b:=if(CLOSE=ref(委买价3,1) and 委买价1<ref(委买价3,1) and SELLVOl>(ref(委买量1,1)+REF(委买量2,1)+REF(委买量3,1)),ref(委买量1,1)+REF(委买量2,1)+REF(委买量3,1),0);
隐卖3b:=IF(明卖3b>0,SELLVOL-明卖3b,0);
卖下4a:=IF(REF(委买价3,1)>0 and CLOSE<REF(委买价3,1) and SELLVOL>(REF(委买量1,1)+REF(委买量2,1)+REF(委买量3,1)),SELLVOL,0);
卖下:=卖下0a+卖下0b+卖下1a+卖下1b+卖下2a+卖下2b+卖下3a+卖下3b+卖下4a;
主卖:=if(非停板>0,if(卖下>0,卖下,明卖0a+明卖0b+明卖1a+明卖1b+明卖2a+明卖2b+明卖3a+明卖3b),0);
隐卖:=if(非停板>0,隐卖0a+隐卖0b+隐卖1a+隐卖1b+隐卖2a+隐卖2b+隐卖3a+隐卖3b,0);
大开盘买:=if(开盘买>=BS,开盘买,0);
大涨停买:=if(涨停买>=BS,涨停买,0);
大买单:=if(主买>=BS,主买,0);
大隐买:=if(隐买>=BS,隐买,0);
大开盘卖:=if(开盘卖>=BS,开盘卖,0);
大跌停卖:=if(跌停卖>=BS,跌停卖,0);
大卖单:=if(主卖>=BS,主卖,0);
大隐卖:=if(隐卖>=BS,隐卖,0);
主动买单:=大开盘买+大涨停买+大买单+大隐买;
主动卖单:=大开盘卖+大跌停卖+大卖单+大隐卖;
大买量:sum(主动买单,0);
大卖量:sum(主动卖单,0);
买卖差:大买量-大卖量;
买差比:(买卖差/capital)*100;
{计算其中的“买卖差”就是精解分笔}
-----------------------------------------------------------
{20万大单分笔公式}
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>=200000 ,买1,0);
主动卖单:=if(卖1>0 and AMOUNT>=200000 ,卖1,0);
主动买单1:=if(买1>0 and AMOUNT<200000 ,买1,0);
主动卖单1:=if(卖1>0 and AMOUNT<200000 ,卖1,0);
大买量:sum(主动买单,0);
大卖量:sum(主动卖单,0);
小买量:sum(主动买单1,0);
小卖量:sum(主动卖单1,0);
总量:大买量+大卖量+小买量+小卖量,linethick0;
买卖差:大买量-大卖量;
买差比:(买卖差/总量)*100;
买差比2:(买卖差/capital)*100;
------------------------------------------------------------
下载分时增仓公式——（加上了欧奈尔排名显示）
所需的欧奈尔排名日线公式（必须一起引入才可显示）
奈尔排名
{N1:短周期，N2:长周期，M:上榜的最低位次}
input:N1(3,1,100),N2(20,5,100); {,M(1,1,100);}
m:=5;
seq:selfdata('欧奈尔排名'),colorblack,linethick0; {当日排名}
ma1:ma(seq,N1){,colorred,linethick0}; {N1日平均排名}
ma2:ma(seq,N2){,colorblue,linethick0}; {N2日平均排名}
h1:=llv(seq,N1){,colorgreen,linethick0}; {N1日最高排名}
h2:=llv(seq,N2){,colorbrown,linethick0}; {N2日最高排名}
{倒数化排名}
rseq:1/seq,colorblack;
rma1:ma(rseq,N1),colorred;
rma2:ma(rseq,N2),colorblue;
rh1:hhv(rseq,N1),pointdot,colorgreen;
rh2:hhv(rseq,N2),pointdot,colorred;
{保持排名上升速度明日是否有可能进入前M名}
tom:(2*seq-ref(seq,1)),colorbrown,linethick0; {简单预测明日排名}
aft:(3*seq-2*ref(seq,1)),colorbrown,linethick0; {简单预测第三日排名}
gold1:tom<m,linethick0;
gold2:aft<m,linethick0;
{对预测第二天，第三天预计上榜的日期作醒目显示}
STICKLINE(gold2 and not(gold1),0,rseq,8,0),colorgreen,layer7;
STICKLINE(gold1,0,rseq,8,0),colorred,layer7;
{涨势跟踪－－如果上榜后，保持主力持仓净增则可认为是良性调整，}
{否则，如果后面的累计净卖出吞掉了上榜当天的净买入，则认为是假突破}
f:=not(gold1) and not(gold2);
pre:=BARSLAST(gold1 or gold2); {前面的上榜日}
pregold1:(ref(gold1,pre)=1),linethick0; {前面的上榜日是gold1日还是gold2日}
netbuy:=stkindi(STKLABEL, '主力K线1.净买'); {净买}
netsum:=sum(netbuy,pre); {累计净买}
prebuy:=ref(netbuy,pre); {上榜日净买}
STICKLINE(f and pregold1 and prebuy+netsum>0, 0, rseq,8,1), colorred,layer7;
STICKLINE(f and not(pregold1) and prebuy+netsum>0, 0, rseq,8,1), colorgreen,layer7;
good:(gold1 or gold2 or prebuy+netsum>0),linethick0; {上榜，或者良性整理状态};
-----------------------------------------------------------------------------------------------------------
大买卖量分笔公式（主动买卖公式）
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));
J: SUM(Var5,0);
大单买量:SUM(IF(AMOUNT>=50000,Var5,0),0);
小单买量:SUM(IF(AMOUNT<50000,Var5,0),0);
T: SUM(Var6,0);
大单卖量:SUM(IF(AMOUNT>=50000,Var6,0),0);
小单卖量:SUM(IF(AMOUNT<50000,Var6,0),0);
小单买卖和:大单买量+大单卖量;
大单买卖和:小单买量+小单卖量;
Var2;
P: Var1;
Var3;
VOL, VOLSTICK;
U: EMA(J-T,3);
Var7:=BARSLAST(CLOSE>REF(CLOSE,1));
Var8:=BARSLAST(CLOSE<REF(CLOSE,1));
Var9:=SUM(IF(REF(CLOSE,Var7)<=CLOSE,VOL,0),0);
VarA:=SUM(IF(REF(CLOSE,Var8)>=CLOSE,VOL,0),0);
U1: EMA(Var9-VarA,3);
_______________________________________________________
欧奈尔排名公式
input:N1(5,1,100),N2(20,5,100); {,M(1,1,100);}
m:=5;
seq:selfdata('欧奈尔排名'),colorwhite,linethick0; {当日排名}
ma1:=ma(seq,N1){,coloryellow,linethick0}; {N1日平均排名}
ma2:=ma(seq,N2){,colormagenta,linethick0}; {N2日平均排名}
h1:=llv(seq,N1){,colorgreen,linethick0}; {N1日最高排名}
h2:=llv(seq,N2){,colorred,linethick0}; {N2日最高排名}
{倒数化排名}
rseq:1/seq,colorwhite;
rma1:ma(rseq,N1),coloryellow;
rma2:ma(rseq,N2),colormagenta;
rh1:hhv(rseq,N1),pointdot,colorgreen;
rh2:hhv(rseq,N2),pointdot,colorred;
{保持排名上升速度明日是否有可能进入前M名}
tom:(2*seq-ref(seq,1)),colorgray,linethick0; {简单预测明日排名}
aft:(3*seq-2*ref(seq,1)),colorgray,linethick0; {简单预测第三日排名}
gold1:tom<m,linethick0;
gold2:aft<m,linethick0;
{对预测第二天，第三天预计上榜的日期作醒目显示}
STICKLINE(gold2 and not(gold1),0,rseq,8,0),colorgreen;
STICKLINE(gold1,0,rseq,8,0),colorred;
_________________________________________________
[ 本帖最后由 linroot 于 2008-7-29 16:38 编辑 ]
附件
2008-7-28 03:41
下载次数: 42 分时增仓.rar (2.97 KB)
2008-7-28 03:41
下载次数: 40 精解分时.rar (2.83 KB)
2008-7-28 03:41
下载次数: 34 资金流3文字改动.rar (2.53 KB)
2008-7-28 14:41
下载次数: 25 大买卖额3.FNC.FNC (3.13 KB) |
|
|
发表于 2008-8-12 10:49
