软件名称：[B]霸占大牛股主图及选股公式源码[/B]
软件类型：国产软件
运行环境：Win9X/Win2000/WinXP/Win2003/
软件语言：简体中文
授权方式：免费版
软件大小：11.0 KB
官方主页：Home Page
更新时间：2011-04-01 14:17:20
软件简介:

霸占大牛股主图

{K线主图}
{p1:0,0,100,1}
DRAWTEXTREL(15,0,'K线'),COLORYELLOW;

总股本:=FINANCE2(35) ;
流通股:=FINANCE2(37);
限shouA股:=FINANCE2(41);
每股收益:=FINANCE2(3);
市盈率:=DYNAINFO(39);
每股公积金:=FINANCE2(7);
所属板块:=BKNAME;
DRAWTEXTABS(12,14, '所属板块： '+所属板块),Color464646{,COLORYELLOW};
DRAWTEXTABS(12,27,'每股收益： '+NUMTOSTRN(每股收益,3)+'元   利润增长：'+FINANCE2(10)+'%   市盈率：'+NUMTOSTRN(市盈率,1)+'倍 '+' 每股公积金：'+NUMTOSTRN(每股公积金,2)+'元'),Color464646{,COLORYELLOW};
DRAWTEXTABS(12,40,'总 股 本： '+NUMTOSTRN(总股本,2)+'万股'+'  流通A股：'+NUMTOSTRN(流通股,2)+'万股'+'  限shouA股：'+NUMTOSTRN(限shouA股,2)+'万股'),Color464646{,COLORYELLOW};

MA5:MA(CLOSE,5),COLORYELLOW,LAYER0;
MA10:MA(CLOSE,10),COLORRED,LAYER0;
MA20:MA(CLOSE,20),COLORMAGENTA,LAYER0;
MA30:MA(CLOSE,30),COLORFF9E3E,LAYER0;
MA60:MA(CLOSE,60),COLORGREEN,LAYER0;
MA120:MA(CLOSE,120),Color808040,LAYER0;

STICKLINE(CLOSE>=OPEN and OPEN<>0,HIGH,LOW,1,0),Color0022FF;

STICKLINE(CLOSE>=OPEN and OPEN<>0,CLOSE,OPEN,7.5,0),color000033;
STICKLINE(CLOSE>=OPEN and OPEN<>0,CLOSE,OPEN,6,0),color000066;
STICKLINE(CLOSE>=OPEN and OPEN<>0,CLOSE,OPEN,5,0),color000088;
STICKLINE(CLOSE>=OPEN and OPEN<>0,CLOSE,OPEN,4,0),color0000BB;
STICKLINE(CLOSE>=OPEN and OPEN<>0,CLOSE,OPEN,2.5,0),Color0000EE;
STICKLINE(CLOSE>=OPEN and OPEN<>0,CLOSE,OPEN,1,0),Color0022FF;

STICKLINE(CLOSE<OPEN and OPEN<>0,HIGH,LOW,1,0),Color00FF00;

STICKLINE(CLOSE<OPEN and OPEN<>0,CLOSE,OPEN,7.5,0),Color003300;
STICKLINE(CLOSE<OPEN and OPEN<>0,CLOSE,OPEN,6,0),Color006600;
STICKLINE(CLOSE<OPEN and OPEN<>0,CLOSE,OPEN,5,0),Color008800;
STICKLINE(CLOSE<OPEN and OPEN<>0,CLOSE,OPEN,4,0),Color00BB00;
STICKLINE(CLOSE<OPEN and OPEN<>0,CLOSE,OPEN,2.5,0),Color00EE00;
STICKLINE(CLOSE<OPEN and OPEN<>0,CLOSE,OPEN,1,0),Color00FF00;

{买卖点}
{均价:=(HIGH+4*LOW+OPEN+CLOSE)/7;
均价差:= EMA(均价,13) - EMA(均价,34);
移动均价:= EMA(均价差,5);
差:=(均价差-移动均价)*5;
A:=IF(差>=1000 ,1000 ,IF(差<=均价,均价,差) );}
买线:EMA(C,2),pointdot,color0000DD;
卖线:EMA(SLOPE(C,21)*20+C,42),pointdot,color00DD00;
BU:=cross(买线,卖线);
SEL:=cross(卖线,买线);
drawtext(bu,LOW-0.5,'买'),coloryellow,LINETHICK3;
drawtext(sel,HIGH+0.5,'卖'),colorgreen,linethick3;
DRAWicon(BU,l-0.2,7),LINETHICK5;
DRAWicon(SEL,h+0.2,8),LINETHICK5;
{十字光标提示}
c1:=INTPART(cyc(5)*100*0.96)/100;
p2:=intpart(ref(cyc(5),1)*100)/100;
p3:=intpart(ref(cyc(5),1)*0.96*100)/100;
vv:=intpart(min(capital*0.05,ref(ma(vol,34),1))/100);
p40:=intpart(maxcyc*100)/100;
p41:=intpart(ref(MAXCYC,1)*100)/100;
p4:=p1=0 and c>p2 or (ref(vol/100,1)<vv and c>intpart(p2*0.98*100)/100 and vol>min(capital*0.05,ref(ma(vol,34),1)));
p5:=p1=1 and c<min(p3,p41);
p1:=if(p4=1,1,if(p5=1,0,ref(p1,1)));

DRAWFLAGTEXT(p1=0 and (c1*0.98-c)/c>0.1,c,'<*t=0092F7*><*c=FFFFFF*><*p=95*>'+datestr(date)+'\n'+'<*t=E7FFFF*><*c=111100*><*p=95*>'+'持币');
DRAWFLAGTEXT(p1=0 and (c1*0.98-c)/c<=0.1 and ref(vol/100,1)<vv,c,'<*t=0092F7*><*c=FFFFFF*><*p=95*>'+datestr(date)+'\n'+'<*t=E7FFFF*><*c=111100*><*p=95*>'+'明日收盘价超过'+str(c1)+'元；'+'\n'+'<*t=E7FFFF*><*c=111100*><*p=95*>'+'或收盘价超过'+str(intpart(c1*0.98*100)/100)+'元；'+'\n'+'<*t=E7FFFF*><*c=111100*><*p=95*>'+'并且成交量大于'+str(vv)+'<*c=0000FF*>'+'买入');
DRAWFLAGTEXT(p1=0 and (c1*0.98-c)/c<=0.1 and ref(vol/100,1)>=vv,c,'<*t=0092F7*><*c=FFFFFF*><*p=95*>'+datestr(date)+'\n'+'<*t=E7FFFF*><*c=111100*><*p=95*>'+'明日收盘价超过'+str(c1)+'<*c=0000FF*><*p=99*>'+'买入');
DRAWFLAGTEXT(p1=1 and (c-min(c1,p40))/min(c1,p40)>0.1 ,c,'<*t=0092F7*><*c=FFFFFF*><*p=95*>'+datestr(date)+'\n'+'<*t=E7FFFF*><*c=111100*><*p=95*>'+'持股');
DRAWFLAGTEXT(p1=1 and (c-min(c1,p40))/min(c1,p40)<=0.1 ,c,'<*t=0092F7*><*c=FFFFFF*><*p=95*>'+datestr(date)+'\n'+'<*t=E7FFFF*><*c=111100*><*p=95*>'+'明日收盘价跌破'+str(min(c1,p40))+'卖出');
DRAWTEXTABS(45,0,' QQ:512764231制作'),COLOR0000FF;

.

做了下霸占选股，也是简单几行

M6:=EMA(C,55);
M7:=MA(C,75);
M8:=EMA(M7,3);
M9:=EMA(M8,3);
霸占:CROSS(M6,M9);
 

[url=http://www.70822.com/soft/sort013/sort03/down-32265.html]霸占大牛股主图及选股公式源码[/url]