北狼指标系列之五指标源码[通达信公式]

相关标签: 北狼 、 北狼公会 、 北狼公会论坛 、 北狼公会会长怎么了 、 胜利之日北狼服务器 、 御龙在天 北狼公会 、 北狼公会一共几个会长 、 北狼论坛 、 北狼公会会长 、

北狼指标系列之五指标源码：

VAR886:=IF((YEAR >= 2009) AND (MONTH >= 1),0,1);
OK:=EMA(O,60)*(VAR886);
CG:=EMA(C,60)*(VAR886);
PDU:=IF(OK>ref(OK,1) AND CG>ref(CG,1),1,0)*(VAR886);
Z1:=MA(C,13)*(VAR886);
ZX:=ref(Z1,13/2+1)*(VAR886);
LIFE:=(EMA(C,60)+EMA(C,90))/2*(VAR886);
VAR8:=(2*C+H+L)/4*(VAR886);
SNOOK:=EMA(VAR8,99)*0.91*(VAR886);
A1:=(C-ref(C,1))/ref(C,1)*100*(VAR886);
MA5:=BARSLAST(A1>3)*(VAR886);
MA20:=IF(MA5>0,1,0)*(VAR886);
STICKLINE(C>ZX AND C>=LIFE,O,C,3,0),COLORYELLOW;
STICKLINE(C>ZX AND C<=SNOOK,O,C,3,0),;
STICKLINE(C>ZX AND C>SNOOK AND C<LIFE,O,C,3,0),COLORYELLOW;
STICKLINE(C>ZX AND MA20=0,O,C,3,0),;
STICKLINE(C>ZX,O,C,1,0),;
DRAWTEXT(CROSS(C,ZX),L*0.99,'☆ ←…天地合买入'),COLORRED;
DRAWTEXT(CROSS(ZX,C),H*1.01,'★ ←…天地开卖出☆感谢北狼编写☆'),COLORLIBLUE;
BY20:=MA(C,5);{本文来源： }
天:MA(C,20),LINETHICK3,COLORLIBLUE;
地:IF(BY20>天,天,BY20) *(VAR886) ,LINETHICK3,COLORRED;
选股:=CROSS(C,ZX) AND C>ZX AND MA20=0 ,LINETHICK2; {内容来至程序化交易网 CXH99.COM}
{RB:=BARSCOUNT(C)=ISLASTBAR;
RD:=BARSLAST(RB);
K2:=HHV(H,50);
K1:=LLV(L,50);
T1:=C>ZX AND C>=LIFE;
T2:=C>ZX AND C>SNOOK AND C<LIFE;
T3:=C>ZX AND C<=SNOOK;
T4:=C<=ZX;
T5:=地>ref(地,1) AND 地!=天 ;
T6:=地>ref(地,1) AND 地=天 AND PDU!=1;
T7:=地>ref(地,1) AND 地=天 AND PDU=1;
T8:=C>ZX AND MA20=0 ;}
VAR88:=IF((YEAR >= 2009) AND (MONTH >= 1),0,1);
_10日涨跌%: (C-ref(CLOSE,10))/ref(CLOSE,10)*100,COLORYELLOW,NODRAW;
STICKLINE(C/ref(C,1)>=1.09,HHV(H,1)
*1.002,HHV(H,1)*1.018,3,0)*(VAR886),COLORYELLOW{涨停记号};
STICKLINE(C/ref(C,1)<=0.911,HHV(L,1)
*0.981,HHV(L,1)*0.97,3,0)*(VAR886),COLORBLUE,{跌停记号};
量比: VOL/MA(VOL,5),NODRAW;
每股收益:FINANCE(33),NODRAW;
市盈率:DYNAINFO(39),NODRAW;
QQ58182161:0,COLORLIGREEN,NODRAW;
{EEE:=T1+T2+T3+T4+T5+T6+T7+T8 ;
E:=(K2-K1)/(EEE+8) ;
DRAWTEXT(C>0 AND T1>0 AND ISLASTBAR,K2-E,'出洞了逮住它！'),COLOR0000FF;
DRAWTEXT(C>0 AND T2>0 AND ISLASTBAR,K2-E,'鼠玩猫守着它！，'),COLORFF7700;
DRAWTEXT(C>0 AND T3>0 AND ISLASTBAR,K2-E,'露尾巴动作快！，'),COLOR00FF00;
DRAWTEXT(C>0 AND T4>0 AND ISLASTBAR,K2-E,'没有了打个盹！，'),COLOR808080;
DRAWTEXT(C>0 AND T5>0 AND ISLASTBAR,K2-E*2,'发现鼠迹！'),COLOR00FF00;
DRAWTEXT(C>0 AND T6>0 AND ISLASTBAR,K2-E*2,'瞬间鼠影！'),COLORFF66FF;
DRAWTEXT(C>0 AND T7>0 AND ISLASTBAR,K2-E*2,'恶鼠难遁！'),COLOR0000FF;};

{本文来至CXH99.COM}

(责任编辑：程序化交易网整理)