通达信分时心理副图指标
源码
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
TJ12:=CROSS(PSY,PA) AND PA
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
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
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;
