- 金币:
-
- 奖励:
-
- 热心:
-
- 注册时间:
- 2006-11-8
|
|
原帖由 lymanqun 于 2008-7-28 12:15 发表 
引入了，仍然看不到源码（解密后了),奇怪。。。。。i
=========
老大刚才不会发，现在从新发，你是不是要这个？
分时增仓{分时指标}
机构昨增仓:"机构数据.机构净入#day",linethick0;
三日增率:"机构数据.机构三日增仓率#day",coloryellow,linethick0;
五日增率:"机构数据.机构五日增仓率#day",colorgreen,linethick0;
十日增率:"机构数据.机构十日增仓率#day",colorwhite,linethick0;
五十万:="大买卖额3.五十万以上#tick";
一百万:="大买卖额3.一百万以上#tick";
a:=五十万>ref(五十万,1);
b:=一百万>ref(一百万,1);
百万斜率:count(b,239),coloryellow;
五十万斜率:count(a,60),colorgreen;
二十万以下:"大买卖额3.二十万以下#tick"+"大买卖额3.五万以下#tick",colorgreen;
二十至五十:"大买卖额3.二十至五十#tick",coloryellow;
五十万以上:"大买卖额3.五十万以上#tick",colorred,linethick2;
百万以上:"大买卖额3.一百万以上#tick",colorwhite,linethick2;
上述分时增仓所用的日线指标——
大买卖额3
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)));
xb5:=SUM(if(买1>0 and AMOUNT<=50000 ,买1*C,0),0);
xs5:=SUM(if(卖1>0 and AMOUNT<=50000 ,卖1*C,0),0);
五万以下:(xb5-xs5)/10*1.3;
xb20:=SUM(IF(买1>0 and AMOUNT<=200000 and AMOUNT>50000,买1*C,0),0);
xs20:=SUM(IF(卖1>0 and AMOUNT<=200000 and AMOUNT>50000,卖1*C,0),0);
二十万以下:(xb20-xs20)/10*1.3;
xb50:=SUM(IF(买1>0 and AMOUNT<=500000 and AMOUNT>200000,买1*C,0),0);
xs50:=SUM(IF(卖1>0 and AMOUNT<=500000 and AMOUNT>200000,卖1*C,0),0);
二十至五十:(xb50-xs50)/10*1.3;
db5:=SUM(IF(买1>0 and AMOUNT>500000 and AMOUNT<=1000000,买1*C,0),0);
ds5:=SUM(IF(卖1>0 and AMOUNT>500000 and AMOUNT<=1000000,卖1*C,0),0);
五十万以上:(db5-ds5)/10*0.55;
db6:=SUM(IF(买1>0 and AMOUNT>1000000,买1*C,0),0);
ds6:=SUM(IF(卖1>0 and AMOUNT>1000000,卖1*C,0),0);
一百万以上:(db6-ds6)/10*0.55;
涨速:(五十万以上-ref(五十万以上,1))/abs(五十万以上)*100;
总资金:五万以下+二十万以下+二十至五十+ 五十万以上+一百万以上;
机构数据
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; |
|
|
[复制链接]
发表于 2008-7-28 13:21
楼主
: :*19*: