分笔数据经典公式原码123

来源:百度文库 编辑:神马文学网 时间:2024/04/20 11:22:04

分笔数据经典公式原码(31楼额好礼:))



成交统计
当前笔量:IF(BUYVOL,BUYVOL,SELLVOL),ColorCyan,Linethick0;
大卖单总和:SUM(IF(SELLVOL>=100,V,0),0),Colorred,Linethick1;
大买单总和:SUM(IF(BUYVOL>=100,V,0),0),ColorMagenta,Linethick1;
大买卖单之差:大买单总和-大卖单总和,ColorGreen,Linethick0;
StickLine(大买卖单之差<=0,0,大买卖单之差,6,1),Colorgreen;
StickLine(大买卖单之差>0,0,大买卖单之差,6,1),ColorYellow;
主动买入单:BUYVOL,Colorwhite,Linethick0;
主动卖出单:SELLVOL,ColorYellow,Linethick0;


成交统计2
Var1:=IF(BUYVOL<=REF(ASKVOL(1),1) AND CLOSE=REF(ASKPRICE(1),1),BUYVOL,0);
Var2:=IF(BUYVOL<=REF(ASKVOL(1),1)+REF(ASKVOL(2),1) AND CLOSE=REF(ASKPRICE(2),1),BUYVOL,0);
Var3:=IF(BUYVOL<=REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1) AND CLOSE=REF(ASKPRICE(3),1),BUYVOL,0);
Var4:=IF(CLOSE0 AND REF(ASKVOL(1),1)>0,BUYVOL,0);
Var5:=IF(BUYVOL>REF(ASKVOL(1),1) AND CLOSE>REF(ASKPRICE(1),1) AND CLOSEVar6:=IF(BUYVOL>REF(ASKVOL(1),1)+REF(ASKVOL(2),1) AND CLOSE>REF(ASKPRICE(2),1) AND CLOSEVar7:=IF(SELLVOL<=REF(BIDVOL(1),1) AND CLOSE=REF(BIDPRICE(1),1),SELLVOL,0);
Var8:=IF(SELLVOL<=REF(BIDVOL(1),1)+REF(BIDVOL(2),1) AND CLOSE=REF(BIDPRICE(2),1),SELLVOL,0);
Var9:=IF(SELLVOL<=REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1) AND CLOSE=REF(BIDPRICE(3),1),SELLVOL,0);
VarA:=IF(CLOSE>REF(BIDPRICE(1),1) AND REF(ASKVOL(1),1)>0 AND REF(BIDVOL(1),1)>0,SELLVOL,0);
VarB:=IF(SELLVOL>REF(BIDVOL(1),1) AND CLOSEREF(BIDPRICE(2),1),SELLVOL,0);
VarC:=IF(SELLVOL>REF(BIDVOL(1),1)+REF(BIDVOL(2),1) AND CLOSEREF(BIDPRICE(3),1),SELLVOL,0);
VarD:=IF(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)=0 AND REF(BIDVOL(1),1)>0,BUYVOL,0);
VarE:=IF(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1)=0 AND REF(ASKVOL(1),1)>0,SELLVOL,0);
主动买: SUM(Var1+Var2+Var3,0), , COLORRED;
对敲买: SUM(Var4+Var5+Var6,0), , COLORMAGENTA;
主动卖: SUM(Var7+Var8+Var9,0), ,COLORGREEN;
对敲卖: SUM(VarA+VarB+VarC,0), ,COLORCYAN;
涨跌停: SUM(VarD+VarE,0), , COLORWHITE;

[ Last edited by xiexl on 2005-6-6 at 21:18 ]

图片附件: [600016.gif] 600016.gif (2005-6-3 23:19, 21.97 K)

 引用 回复 《交易之星》认证会员持续跟踪的黑马股票池 xiexl
白银长老



UID 35481
精华 0
积分 3293
帖子 227
阅读权限 10
注册 2003-12-7
#2 发表于 2005-6-3 23:20  资料 文集 短消息  成交分析

Var1:=IF(BUYVOL<=REF(ASKVOL(1),1) AND CLOSE=REF(ASKPRICE(1),1),BUYVOL,0);
Var2:=IF(BUYVOL<=REF(ASKVOL(1),1)+REF(ASKVOL(2),1) AND CLOSE=REF(ASKPRICE(2),1),BUYVOL,0);
Var3:=IF(BUYVOL<=REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1) AND CLOSE=REF(ASKPRICE(3),1),BUYVOL,0);
Var4:=IF(CLOSE0 AND REF(ASKVOL(1),1)>0,BUYVOL,0);
Var5:=IF(BUYVOL>REF(ASKVOL(1),1) AND CLOSE>REF(ASKPRICE(1),1) AND CLOSEVar6:=IF(BUYVOL>REF(ASKVOL(1),1)+REF(ASKVOL(2),1) AND CLOSE>REF(ASKPRICE(2),1) AND CLOSEVar7:=IF(SELLVOL<=REF(BIDVOL(1),1) AND CLOSE=REF(BIDPRICE(1),1),SELLVOL,0);
Var8:=IF(SELLVOL<=REF(BIDVOL(1),1)+REF(BIDVOL(2),1) AND CLOSE=REF(BIDPRICE(2),1),SELLVOL,0);
Var9:=IF(SELLVOL<=REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1) AND CLOSE=REF(BIDPRICE(3),1),SELLVOL,0);
VarA:=IF(CLOSE>REF(BIDPRICE(1),1) AND REF(ASKVOL(1),1)>0 AND REF(BIDVOL(1),1)>0,SELLVOL,0);
VarB:=IF(SELLVOL>REF(BIDVOL(1),1) AND CLOSEREF(BIDPRICE(2),1),SELLVOL,0);
VarC:=IF(SELLVOL>REF(BIDVOL(1),1)+REF(BIDVOL(2),1) AND CLOSEREF(BIDPRICE(3),1),SELLVOL,0);
VarD:=IF(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)=0 AND REF(BIDVOL(1),1)>0,BUYVOL,0);
VarE:=IF(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1)=0 AND REF(ASKVOL(1),1)>0,SELLVOL,0);
VarF:=IF(ASKVOL(1)SELLVOL,REF(ASKVOL(1),1)-ASKVOL(1),0);
Var10:=IF(ASKVOL(3)Var11:=IF(REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1)=0 AND REF(ASKVOL(1),1)>0 AND REF(ASKVOL(1),1)-ASKVOL(1)Var12:=IF(ASKVOL(2)Var13:=IF(ASKVOL(3)Var14:=IF(BIDVOL(1)REF(BIDPRICE(1),1) AND REF(BIDVOL(1),1)-BIDVOL(1)<>BUYVOL,REF(BIDVOL(1),1)-BIDVOL(1),0);
Var15:=IF(BIDVOL(3)REF(BIDPRICE(3),1),REF(BIDVOL(3),1)-BIDVOL(3),0);
Var16:=IF(REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1)=0 AND REF(BIDVOL(1),1)>0 AND REF(BIDVOL(1),1)-BIDVOL(1)Var17:=IF(BIDVOL(2)REF(BIDPRICE(3),1),REF(BIDVOL(3),1)-BIDVOL(2),0);
Var18:=IF(BIDVOL(3)REF(BIDPRICE(2),1),REF(BIDVOL(2),1)-BIDVOL(3),0);
Var19:=IF(BUYVOL<=REF(ASKVOL(1),1)+REF(ASKVOL(2),1)+REF(ASKVOL(3),1) AND CLOSE>=REF(ASKPRICE(3),1),BUYVOL,0);
Var1A:=IF(SELLVOL<=REF(BIDVOL(1),1)+REF(BIDVOL(2),1)+REF(BIDVOL(3),1) AND CLOSE<=REF(BIDPRICE(3),1),SELLVOL,0);
买入: Var1+Var2+Var3, , COLORRED;
对敲买: Var4+Var5+Var6, , COLORMAGENTA;
卖出: Var7+Var8+Var9, , COLORGREEN;
对敲卖: VarA+VarB+VarC, , COLORCYAN;
撤卖: IF(VarF+Var10+Var11+Var12+Var13>BUYVOL,VarF+Var10+Var11+Var12+Var13-BUYVOL,0), , COLORYELLOW;
撤买: IF(Var14+Var15+Var16+Var17+Var18>SELLVOL,Var14+Var15+Var16+Var17+Var18-SELLVOL,0), , COLORWHITE;
涨跌停: VarD+VarE, , ;
DRAWTEXT(Var19>100 AND Var19<500,BUYVOL+50,‘扫盘‘), , COLORYELLOW;
DRAWTEXT(Var19>=500,BUYVOL-100,‘扫盘‘), , COLORYELLOW;
DRAWTEXT(Var1A>100 AND Var1A<500,SELLVOL+50,‘扫盘‘), , COLORWHITE;
DRAWTEXT(Var1A>=500,SELLVOL-100,‘扫盘‘), , COLORWHITE;

图片附件: [6000161.gif] 6000161.gif (2005-6-3 23:20, 26.2 K)

 引用 回复 免费试用:交易之星-操盘1号 文人骚客
青铜长老



UID 86903
精华 0
积分 2232
帖子 661
阅读权限 10
注册 2005-4-20
#3 发表于 2005-6-3 23:28  资料 文集 短消息  好的,非常感谢,这个很有用!  引用 回复 公开下载《交易之星》! xiongwei
白银长老




UID 78983
精华 0
积分 4417
帖子 941
阅读权限 10
注册 2005-1-30
#4 发表于 2005-6-3 23:28  资料 文集 短消息  谢谢楼主  引用 回复 《交易之星》认证会员持续跟踪的黑马股票池 xiexl
白银长老



UID 35481
精华 0
积分 3293
帖子 227
阅读权限 10
注册 2003-12-7
#5 发表于 2005-6-3 23:48  资料 文集 短消息  盘口分析
今日委买量:SUM((BIDVOL(1)+BIDVOL(2)+BIDVOL(3)),0),linethick1;
今日委卖量:SUM((ASKVOL(1)+ASKVOL(2)+ASKVOL(3)),0),linethick1;
A1:=SUM(BUYVOL,0)-SUM(SELLVOL,0);
今日买卖存量 :REF(A1,1)+A1,PRECISION0,linethick0;
drawicon(今日委买量>今日委卖量 and ref(今日委买量<今日委卖量,1),今日委卖量,4);
drawicon(今日委买量<今日委卖量 and ref(今日委买量>今日委卖量,1),今日委卖量,5);
t:=if(time<113000,TIME0,TIME0-5400);
w1:=sumbars(t-ref(t,1),60);
v1:=sum(v,w1)>400;//此处数据可以自行调整
获利盘:=winner(c)*100;
套牢盘:=100-获利盘;
进场筹码:SUM(BUYVOL,0),PRECISION0,colorred,linethick0;
出场筹码:SUM(SELLVOL,0),PRECISION0,colorgreen,linethick0;
筹码量差:=进场筹码-出场筹码;
stickline(筹码量差>0,150000,150000+(10*筹码量差),4,1),COLORRED;
stickline(筹码量差<=0,150000+(10*筹码量差),150000,4,1),COLORGREEN;
DRAWICON(V1,108000,6);
DRAWTEXT(V1 AND REF(sum(v,w1),1)<400,88888,‘大量‘),COLORCYAN;
TO1:=sum(进场筹码+出场筹码,1);
资金大单进量:=sum(IF(BUYVOL>=50,BUYVOL,0),0),linethick0; ;
资金大单出量:=sum(IF(SELLVOL>=50,SELLVOL,0),0),linethick0; ;
大单量差:资金大单进量-资金大单出量,colorcyan,linethick0;
VT1:=资金大单进量-REF(资金大单进量,1);
VT2:=资金大单出量-REF(资金大单出量,1);
DRAWICON(ABS(筹码量差)>(TO1*20/100) and 筹码量差<0 and VT2>100,120000,8);
DRAWICON(ABS(筹码量差)>(TO1*20/100) and 筹码量差>0 and VT1<100,120000,9);
DRAWICON(ABS(筹码量差)>(TO1*20/100) and 筹码量差>0 and VT1>100,128000,14),COLORWHITE;
DRAWICON(筹码量差>3000 and V1,128000,14),COLORWHITE;

WIN1:=cost(85);
WIN2:=cost(15);
XA:=SUM(CLOSE*VOL,0);
XB:=SUM(VOL,0);
分笔交易成本:=XA/XB;
股票卖出价预测:=(ma(c,60)*1.618/100+CLOSE),;
股票买进价预测:=C-ma(c,60)*1.618/100,;

Var11:=ma((v/(h-l)),4);
Var33:=abs(c-o);
Var44:=v/(h-l);

TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14),COLORRED;
HD := HIGH-REF(HIGH,1);
LD := REF(LOW,1)-LOW;
DMP:= SUM(IF(HD>0 AND HD>LD,HD,0),14);
DMM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);
PDI:= DMP*100/TR;
MDI:= DMM*100/TR;
ADX:= MA(ABS(MDI-PDI)/(MDI+PDI)*100,6);
ADXR:=(ADX+REF(ADX,6))/2;

EXPLAIN(V1,‘※瞬间大量出现※‘),COLORRED;
EXPLAINEX(1,‘【进场筹码】=‘,进场筹码,0,0),colorcc10ff;
EXPLAINEX(1,‘【出场筹码】=‘,出场筹码,0,0),colorff9999;
EXPLAINEX(1,‘【筹码量差】=‘,筹码量差,0,0),colorffaa11;
EXPLAINEX(1,‘占总筹码%=‘,ABS(筹码量差/(进场筹码+出场筹码)*100) ,0,0),colorffaa11;
EXPLAIN(1,‘===================================‘),colorwhite;
EXPLAINEX(1,‘【资金大单进量】=‘,资金大单进量,0,0),colorcc10ff;
EXPLAINEX(1,‘占总买量%=‘,(资金大单进量/进场筹码)*100 ,0,0),colorffdd00;
EXPLAINEX(1,‘【资金大单出量】=‘,资金大单出量,0,0),color33cc00;
EXPLAINEX(1,‘占总卖量%=‘,(资金大单出量/出场筹码)*100 ,0,0),colorffdd00;
EXPLAINEX(1,‘【大单量差】=‘,大单量差,0,0),color00FF99;
{EXPLAINEX(1,‘★大资金进场单★ =‘,大资金进量,0,0),color3300dd;}
{EXPLAINEX(1,‘占总买量%=‘,(大资金进量/进场筹码)*100 ,0,0),colorffdd33;}
{EXPLAINEX(1,‘★大资金出场单★ =‘,大资金出量,0,0),colorgreen;}
{EXPLAINEX(1,‘占总卖量%=‘,(大资金出量/出场筹码)*100 ,0,0),colorffdd22;}
EXPLAIN(1,‘===================================‘),colorwhite;
EXPLAINEX(1,‘【交易平均成本】=‘,分笔交易成本,0,0),coloryellow;
EXPLAINEX(1,‘【卖出成本】=‘,WIN1,0,0),colordd3366;
EXPLAINEX(1,‘【买进成本】=‘,WIN2,0,0),colorcc11ff;
EXPLAIN(1,‘===================================‘),colorwhite;
EXPLAINEX(1,‘【获利盘%】=‘,获利盘,0,0),color339999;
EXPLAINEX(1,‘【套牢盘%】=‘,套牢盘,0,0),color33ff99;
EXPLAIN(1,‘===================================‘),colorwhite;
EXPLAIN(Var44EXPLAIN(Var44ma(Var33,4),‘场内资金运作中‘),COLORRED;
EXPLAIN(Var44>var11 AND Var33EXPLAIN(Var44>var11 AND Var33>ma(Var33,4),‘场外资金介入(或出局)意愿强烈‘),COLORRED;
EXPLAIN(cross(pdi,mdi) and c>o,‘PDI线从下向上突破MDI线,显示市场主力做多‘),colormagenta;
EXPLAIN(cross(mdi,pdi) and cEXPLAIN(adx>ref(adx,1),‘ADX值持续高于前一日,行情将维持原趋势‘),colormagenta;
EXPLAIN(adxEXPLAIN(adxref(adx,3) and ref(adx,3)>ref(adx,4),‘ADX值从上升方向转为下降时,表明行情即将反转‘),colormagenta;
EXPLAIN(1,‘===================================‘),colorwhite;
EXPLAINEX(COST(50),‘市场平均成本:‘,COST(50),2,0),COLORYELLOW;
EXPLAINEX(COST(4),‘主力平均成本:‘,COST(8),2,0),COLORRED;
EXPLAINEX(COST(30),‘控盘平均成本:‘,COST(25),2,0),COLORRED;
EXPLAINEX(COST(75),‘拉升平均成本:‘,COST(75),2,0),COLORYELLOW;
EXPLAINEX(COST(95),‘头部区平均成本:‘,COST(95),2,0),COLORYELLOW;
EXPLAINEX(COST(0.05),‘底部区平均成本:‘,COST(5),2,0),COLORYELLOW;
EXPLAIN(1,‘===================================‘),colorwhite;

图片附件: [600502.gif] 600502.gif (2005-6-3 23:48, 22.43 K)