北狼指標系列之五指標源碼[通達信公式]

相關標簽: 北狼 、 北狼公會 、 北狼公會論壇 、 北狼公會會長怎么了 、 勝利之日北狼服務器 、 御龍在天 北狼公會 、 北狼公會一共幾個會長 、 北狼論壇 、 北狼公會會長 、

北狼指標系列之五指標源碼：

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}

(責任編輯：程序化交易網整理)