一直在理想论坛学习感谢理想的精神感谢理想的人祝理想论坛越办越火，主图借鉴理想各位老师的，来自理想回馈理想。短线可根据买卖提示当然指标只是参考决策还在人脑主图一目了然把源码发给大家共同学习
DRAWTEXTABS(10,5,'所属板块：'+BKNAME),COLORFF50FF,linethick1;
总股本:=finance2(35)/1000000*100;
流通盘大小:=FINANCE2(37)/1000000*100;
DRAWTEXTABS(350,25,'流通盘大小：'+NUMTOSTRN(流通盘大小,2)+'亿'),LINETHICK1,COLORGREEN;  
DRAWTEXTABS(350,45,'总股本大小：'+NUMTOSTRN(总股本,2)+'亿'),LINETHICK1,COLORGREEN;  
每股收益:=FINANCE2(3);
每股市盈率:=DYNAINFO(39);
主营收入同比:=FINANCE2(11);  
净利润同比增长:=FINANCE2(10);
DRAWTEXTABS(190,25,'每股收益:'+NUMTOSTRN(每股收益,2)+'元'),COLORred;
DRAWTEXTABS(190,45,'每股市盈率:'+NUMTOSTRN(每股市盈率,1)+'倍'),COLORRED;
DRAWTEXTABS(190,65,'历史最高：'+HHV(HIGH,0)+'元'),Colorred;
DRAWTEXTABS(10,25,'主营收入同比增长：'+NUMTOSTRN(主营收入同比,2)+'%'),LINETHICK1,ColorYELLOW;
DRAWTEXTABS(10,45,'净利润同比增长：'+NUMTOSTRN(净利润同比增长,2)+'%'),LINETHICK1,COLORyellow;
DRAWTEXTABS(10,65,'历史最低：'+LLV(LOW,0)+'元'),COLORyellow;
MA5:MA(CLOSE,5),COLORFFFFFF,LAYER0;
MA10:MA(CLOSE,10),COLOR00FFFF,LAYER0;
MA20:MA(C,20),COLORFF00FF,LAYER0;
MA30:MA(C,30),COLOR00FF00,LAYER0;
FILLRGN(MA(CLOSE,20),MA(CLOSE,30),MA(CLOSE,20)>MA(CLOSE,30),RGB(255,255,0));
FILLRGN(MA(CLOSE,10),MA(CLOSE,20),MA(CLOSE,10)>MA(CLOSE,20),RGB(255,0,0));
STICKLINE(C>=O,C,O,8,0),COLOR0000AA;
STICKLINE(C>=O,C,O,6,0),COLOR0000bb ;
STICKLINE(C>=O,C,O,4,0),COLOR0000cc ;
STICKLINE(C>=O,C,O,2,0),COLOR0000ee;
STICKLINE(C>=O,H,L,0,0),COLOR0000ff;
STICKLINE(C<=O,C,O,8,0),Color7B7b00;
STICKLINE(C<=O,C,O,6,0),Color909000;
STICKLINE(C<=O,C,O,4,0),ColorA8a800;
STICKLINE(C<=O,C,O,2,0),COLORcece00;
STICKLINE(C<=O,H,L,0,0),COLORffff00;
QWX1:=(HHVALL(HIGH)-LLVALL(LOW))/64;
QWX2:=LLVALL(LOW)+QWX1;
{MACD}
DIF:=(EMA(CLOSE,12)-EMA(CLOSE,26));
DEA:=EMA(DIF,9);
MCD:=(DIF-DEA)*2+QWX2;
A1:=BARSLAST(REF(CROSS(DIF,DEA),1));
底背离:=REF(CLOSE,A1+1)>CLOSE AND DIF>REF(DIF,A1+1) AND CROSS(DIF,DEA);
DRAWICON(底背离,qwx2*0.99,15) ;
DRAWTEXT(底背离,qwx2*1,'花开'),COLOR00FFFF,ALIGN1;
低位金叉:=CROSS(DIF,DEA) AND DIF<-0.1;
DRAWICON(低位金叉,qwx2*0.99,15) ;
DRAWTEXT(低位金叉,qwx2*1,'花开'),COLOR00FFFF,ALIGN1;
工作线:=EMA(C,2);
短线:=EMA(SLOPE(C,9)*20+C,37);
买:=CROSS(工作线,短线);
卖:=CROSS(短线,工作线);
DRAWICON(        卖,H*1.03,12),ALIGN1;
DRAWTEXT(买,L*0.99,'B'),LINETHICK4,ALIGN1,COLORyellow;
FILLRGN(MCD,QWX2,MCD>QWX2,RGB(255,0,0)),PRECIS2;
FILLRGN(QWX2,MCD,QWX2>=MCD,RGB(0,255,250)),PRECIS2;

[ 本帖最后由 杨轮机长 于 2011-3-25 19:59 编辑 ]

相关标签： 无穷成本均线指标源码, 通达信均线指标源码, 均线指标公式源码

版权声明：该帖版权归原文作者所有，仅代表该作者观点，如有侵权，请点击此处查看处理方式。