控盘

阅读作者：公式网时间 2009-12-07 08:10:33 大智慧公式

C/C++ www.gszb.com 股票公式指标网提供 Code复制内容到剪贴板

回报理想，大家对我昨日发的主图感兴趣，再次奉献
{控盘}
{N 26 5 300
P 1 0.1 10
M 26 5 300
Q 2 0.1 10 }
input:n(26),p(1),m(26),q(2);
DRAWTEXTABS(10,10,'所属板块：'+BKNAME),COLORYELLOW;
DRAWTEXTREL(10,185,STKLABEL+' '+STKNAME),LINETHICK4,ColorFFFF80;
var1:=CLOSE>REF(CLOSE,1) AND CLOSE>REF(CLOSE,2);
var2:=REF(var1,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
var3:=REF(var2,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
var4:=REF(var3,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
var5:=REF(var4,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
var6:=REF(var5,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
var7:=REF(var6,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
var8:=REF(var7,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
var9:=REF(var8,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
varA:=REF(var9,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
varB:=REF(varA,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
varC:=REF(varB,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
STICKLINE(var1 OR var2 OR var3 OR var4 OR var5 OR var6 OR var7 OR
var8 OR var9 OR varA OR varB OR varC,CLOSE,open,3,0),COLORRED;{红1}
varD:=CLOSE
varE:=REF(varD,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
varF:=REF(varE,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
var10:=REF(varF,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
var11:=REF(var10,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
var12:=REF(var11,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
var13:=REF(var12,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
var14:=REF(var13,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
var15:=REF(var14,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
var16:=REF(var15,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
var17:=REF(var16,1) AND CLOSE<=REF(CLOSE,1) AND CLOSE>=REF(CLOSE,2);
var18:=REF(var17,1) AND CLOSE>=REF(CLOSE,1) AND CLOSE<=REF(CLOSE,2);
STICKLINE(varD OR varE OR varF OR var10 OR var11 OR var12 OR var13 OR
var14 OR var15 OR var16 OR var17 OR var18,CLOSE,open,3,0),COLORgreen;{绿色}
var19:=REF(varD OR varE OR varF OR var10 OR var11 OR var12 OR var13 OR
var14 OR var15 OR var16 OR var17 OR var18,1) AND var1;
STICKLINE(var19,open,close,5,0),COLORYELLOW;{黄色}
var1A:=REF(var1 OR var2 OR var3 OR var4 OR var5 OR var6 OR var7 OR
var8 OR var9 OR varA OR varB OR varC,1) AND varD;
STICKLINE(var1A,REF(CLOSE,1),REF(CLOSE,2),6,2),Color00FF00;
{STICKLINE(var19,REF(CLOSE,1),REF(CLOSE,2),8,0),COLOR00FFFF;}
STICKLINE(var1A,REF(CLOSE,1),REF(CLOSE,2),8,0),COLORFF00FF;{紫红色}
红色持股:0,linethick0,COLORRED;
晶红卖出:var1A,linethick0,COLORFF50FF;
绿色持币:0,linethick0,COLOR00d900;
黄色买入:var19,linethick0,COLOR00ffff;
DRAWICON(var19,open*0.95,7),ALIGN1;
{DRAWICON(var19,REF(CLOSE,1),7),ALIGN1;}
DRAWICON(var1A,REF(CLOSE,1)*1.05,8),ALIGN1;
MA5:ma(c,5),COLORWHITE;
DD5:=MA5
PARTLINE(MA5,DD5),color00FF00;
x:=(3*c+l+o+h)/6;
多空线:(20*x+19*ref(x,1)+18*ref(x,2)+17*ref(x,3)+16*ref(x,4)+15*ref(x,5)+14*ref(x,6)
+13*ref(x,7)+12*ref(x,8)+11*ref(x,9)+10*ref(x,10)+9*ref(x,11)+8*ref(x,12)
+7*ref(x,13)+6*ref(x,14)+5*ref(x,15)+4*ref(x,16)+3*ref(x,17)+2*ref(x,18)+
ref(x,20))/210,colorff00ff,linethick1;
{用法：黄托底买进，绿压顶买出。}
DD:=多空线
PARTLINE(多空线,DD),colorblue,linethick3;
A:=(MA5>多空线);
PARTLINE(多空线,A),COLORYELLOW,POINTDOT;
A1:=(MA5<多空线);
PARTLINE(多空线,A1),COLORWHITE;
v1:=CLOSE*VOL;
v2:=EMA(v1,13)/EMA(VOL,13);
CYS:=(EMA((CLOSE-v2)/v2,1)*100);
AA:=CYS;
MIDD:=MA(CYS,20);
CC:=MIDD+0.85*STD(CYS,10);
tM6:=AA>CC;
PARTLINE(MA5,tM6),colorred,linethick2;
MID : MA(CLOSE,N),COLORYELLOW;
UPPER: MID + P*STD(CLOSE,N),POINTDOT,COLORBLUE;
UPPER1: MID + Q*STD(CLOSE,M),LINETHICK2,COLORBLUE;
LOWER: MID - P*STD(CLOSE,N),POINTDOT,colorgreen;
LOWER1: MID - Q*STD(CLOSE,M),LINETHICK2,colorgreen;
{附加段}
流通盘:=FINANCE2(37)/10000;
市盈率:=DYNAINFO(39);
市净率:= DYNAINFO(58);
每股收益:=FINANCE2(3);
每股净资产:=FINANCE2(4);
净资产收益率:=FINANCE2(5);
F:=COST(5 );J:=COST(95 );
M:=COST(15 );X:=COST(85 );
量能饱和度:IF((AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100),COLORRED,LINETHICK0;
DRAWTEXTABS(190,25,'市盈率:'+市盈率+' '),LINETHICK1,COLORF00FF0;
{DRAWTEXTABS(270,25,'市净率:'+市净率+' '),LINETHICK1,COLORF00FF0;}
DRAWTEXTABS(280,25,'每股净资产:'+每股净资产+' '),LINETHICK1,COLORF00FF0;
{DRAWTEXTABS(450,25,'净资产收益率:'+净资产收益率+' '),LINETHICK1,COLORF00FF0;}
DRAWTEXTABS(10,25,'每股收益:'+每股收益+'元 '),LINETHICK1,COLORF00FF0;
DRAWTEXTABS(110,25,'流通盘:'+流通盘+' '),LINETHICK1,COLORF00FF0;
DRAWTEXTABS(10,40,'今日量能饱和度:'+NUMTOSTRN(量能饱和度,0)+'%'),LINETHICK1,COLORRED;
{DRAWTEXTABS(4000,25,'业绩:'+NUMTOSTRN(FINANCE2(3),2)),LINETHICK1,COLORF00FF0;}
DRAWTEXTABS(400,25,'公积金:'+NUMTOSTRN(FINANCE2(7),2)),LINETHICK1,COLORF00FF0;
DRAWTEXTABS(150,40,'用法：黄托底买进，绿压顶买出。'),COLORYELLOW;{BL控盘};