在线检测未来函数

把江门股神老师的主图改成通达信的

来源:Internet,编辑:股旁网,2012-06-12

编写条件:

编写方法:

 网友求助:

请老师把江门股神老师的主图改成通达信的。 谢谢。
源码:

a:=DYNAINFO(7);
a+a*0.1,DOTLINE,colorAA7700;

a+a*0,DOTLINE,colorAA7700;
a+a*-0.1,DOTLINE,colorAA7700;

DRAWTEXTABS(0,0,BKNAME ),colorAAAAAA;
DRAWTEXTABS(0,15,'流通盘:'+CAPITAL/100+'万股,利润增长:'+FINANCE2(10)+'%。每股收益:'+FINANCE2(3)+'元;市盈率:'+DYNAINFO(39)+'。' ),coloraaaaaa;
DRAWTEXTABS(0,30,'每股净资产:'+FINANCE2(4)+'元;每股公积金:'+FINANCE2(7)+'元;主营收入同比:'+FINANCE2(11)+'%。'),coloraaaaaa;
DRAWTEXTABS(0,45,'切勿在下跌势中建仓!'),color00eeee;

ma5:=ma(c,5);
ma13:=ma(c,9.98);
stickline(c<o,c,o,7,1),coloreeee00;
stickline(c>=ma13 and c>=o,c,o,7,0),color0000ff;

S1:=NUMTOSTRN(ref(c,1)*1.1,2);
S2:=NUMTOSTRN(c,2);
涨停:=STRCMP(s1,s2)=0;
涨幅:=(c-ref(c,1))/ref(c,1)*100;

drawtext(涨停,l,'涨停'),colorffffff;

stickline(c<ma13 ,c,o,9,0),color000000;
stickline(c<ma13 ,h,l,1,0),color000000;

stickline(c>=o and c<ma13 and BARSTATUS=2 ,o,c,7,0),color000077;
stickline(c>=o and c<ma13 and BARSTATUS=2 ,h,l,1,0),color000077;

stickline(o>c and c<ma13 and BARSTATUS=2 ,o,c,7,1),color777700;
stickline(o>c and c<ma13 and BARSTATUS=2 ,h,l,1,1),color777700;


zlx:ma13,colorffaa00,LAYER1;
TT:zlx>ref(zlx,1),linethick0;
PARTLINE(ma13,tt,rgb(255,0,0)),LAYER0;
ma13,colorffffff,LAYER0,DOTLINE;

b:cross(c,ma13),linethick0;
t:last(c>ma13),linethick0;
pl:c-ma13,linethick0;
stickline(b,c,o,2,0),color00ffff;
STICKLINE(A<B,A,B,5,0),COLORBLUE;
{作者:江门股神也}

 
解答如下:
A:=DYNAINFO(7);
A+A*0.1,DOTLINE,COLORAA7700;
A+A*0,DOTLINE,COLORAA7700;
A+A*-0.1,DOTLINE,COLORAA7700;
MA5:=MA(C,5);
MA13:=MA(C,9.98);
STICKLINE(C<O,C,O,3,1),COLOREEEE00;
STICKLINE(C>=MA13 AND C>=O,C,O,3,0),COLOR0000FF;
涨停:=(C-REF(C,1))/REF(C,1)*100>9.5 AND C=H;
DRAWTEXT(涨停,L,'涨停'),COLORFFFFFF;
STICKLINE(C<MA13 ,C,O,9,0),COLOR000000;
STICKLINE(C<MA13 ,H,L,1,0),COLOR000000;
STICKLINE(C>=O AND C<MA13 AND ISLASTBAR=2 ,O,C,3,0),COLOR000077;
STICKLINE(C>=O AND C<MA13 AND ISLASTBAR=2 ,H,L,1,0),COLOR000077;
STICKLINE(O>C AND C<MA13 AND ISLASTBAR=2 ,O,C,3,1),COLOR777700;
STICKLINE(O>C AND C<MA13 AND ISLASTBAR=2 ,H,L,1,1),COLOR777700;
ZLX:MA13,COLORFFAA00;
TT:=ZLX>REF(ZLX,1),LINETHICK0;
MA13,COLORFFFFFF,DOTLINE;
B:=CROSS(C,MA13),LINETHICK0;
IF(TT,MA13,DRAWNULL),COLORRED,DOTLINE;
PL:=C-MA13,LINETHICK0;
STICKLINE(B,C,O,1.5,0),COLOR00FFFF;
 

相关文章