把＂分时提款机＂＂改成大智慧,同时在发出买入信号时做选股_股票知识

分时提款机：

N:=13;M:=3;P:=34;

PSY:COUNT(CLOSE>REF(CLOSE,1),N)/N*100,COLOR00FFFF;

PA:MA(PSY,M),COLOR0000FF;

PAP:MA(PSY,P),COLOR00FFFF,LINETHICK1;

DRAWBAND(PSY,RGB(200,0,0),PA,RGB(0,100,50));

TJ11:=CROSS(PSY,PA) AND PA<16;

TJ12:=CROSS(PSY,PA) AND PA<10;

TJ1:=TJ11 OR TJ12;

TJ10:=FILTER(TJ1,8);

TJ2:=LONGCROSS(PA,PAP,21);

DRAWICON(TJ10,PA,25);

DRAWICON(TJ2,PAP,23);

SL1:=CROSS(PA,PSY) AND PA>70;

SL2:=CROSS(80,PA);

SL:=FILTER(SL1 OR SL2,5);

DRAWICON(SL,PA,19);

V1:=(C+H+L)/3;

MA3:=MA(V1,5);

MA5:=MA(V1,13);

N1:=BARSLAST(CROSS(MA3,MA5));

N2:=BARSLAST(CROSS(MA5,MA3));

N8:=IF(N1<N2,N1+1,0-N2-1);

STICKLINE(N8>0,0,2,3,0),COLOR0000FF;

STICKLINE(N8<0,0,2,3,0),COLOR00FF00;

JJ:=DYNAINFO(11);
TJ4:=FILTER((C-JJ)/JJ<-0.02 AND PA<16,13);
STICKLINE(TJ4,20,0,6,0),COLOR00FFFF;
TJ5:=FILTER((C-JJ)/JJ<-0.04 AND PA<16,13);
STICKLINE(TJ5,20,0,6,0),COLOR0000FF;
TJ6:=FILTER((C-JJ)/JJ>0.02 AND PA>60,13);
STICKLINE(TJ6,80,60,6,0),COLORFF0000;
TJ7:=FILTER((C-JJ)/JJ>0.05 AND PA>60,13);
STICKLINE(TJ7,80,60,6,0),COLOR00FF00;
DRAWTEXT(TJ4 OR TJ5 ,20,'买'),COLORFF00FF;
DRAWTEXT(TJ6 OR TJ7 ,60,'卖'),COLOR00FF00;

 

解答如下：

{分时提款机：}

N:=13;M:=3;P:=34;

PSY:COUNT(CLOSE>REF(CLOSE,1),N)/N*100,COLOR00FFFF;

PA:MA(PSY,M),COLOR0000FF;

PAP:MA(PSY,P),COLOR00FFFF,LINETHICK1;

FILLRGN(PSY,PA,PSY<PA,RGB(200,0,0),PSY>PA,RGB(0,100,50));

TJ11:=CROSS(PSY,PA) AND PA<16;

TJ12:=CROSS(PSY,PA) AND PA<10;

TJ1:=TJ11 OR TJ12;

TJ10:=FILTER(TJ1,8);

TJ2:=LONGCROSS(PA,PAP,21);

DRAWICON(TJ10,PA,25);

DRAWICON(TJ2,PAP,23);

SL1:=CROSS(PA,PSY) AND PA>70;

SL2:=CROSS(80,PA);

SL:=FILTER(SL1 OR SL2,5);

DRAWICON(SL,PA,19);

V1:=(C+H+L)/3;

MA3:=MA(V1,5);

MA5:=MA(V1,13);

N1:=BARSLAST(CROSS(MA3,MA5));

N2:=BARSLAST(CROSS(MA5,MA3));

N8:=IF(N1<N2,N1+1,0-N2-1);

STICKLINE(N8>0,0,2,8,0),COLOR0000FF;

STICKLINE(N8<0,0,2,8,0),COLOR00FF00;

JJ:=DYNAINFO(11);

TJ4:=FILTER((C-JJ)/JJ<-0.02 AND PA<16,13);

STICKLINE(TJ4,20,0,6,0),COLOR00FFFF;

TJ5:=FILTER((C-JJ)/JJ<-0.04 AND PA<16,13);

STICKLINE(TJ5,20,0,6,0),COLOR0000FF;

TJ6:=FILTER((C-JJ)/JJ>0.02 AND PA>60,13);

STICKLINE(TJ6,80,60,6,0),COLORFF0000;

TJ7:=FILTER((C-JJ)/JJ>0.05 AND PA>60,13);

STICKLINE(TJ7,80,60,6,0),COLOR00FF00;

DRAWTEXT(TJ4 OR TJ5 ,20,'买'),COLORFF00FF;

DRAWTEXT(TJ6 OR TJ7 ,60,'卖'),COLOR00FF00;

=================

N:=13;M:=3;

PSY:COUNT(CLOSE>REF(CLOSE,1),N)/N*100;

PA:=MA(PSY,M);

JJ:=DYNAINFO(11);

TJ4:=FILTER((C-JJ)/JJ<-0.02 AND PA<16,13);

TJ5:=FILTER((C-JJ)/JJ<-0.04 AND PA<16,13);

买:TJ4 OR TJ5 ;