通达信心理副图指标

源码

N:=13;M:=3;P:=89;
PSY:COUNT(CLOSE>REF(CLOSE,1),N)/N*100,COLOR00FFFF;
PA:MA(PSY,M),COLOR0000FF;
PAP:MA(PSY,P),COLOR0000FF,LINETHICK2;
DRAWBAND(PSY,RGB(200,50,55),PA,RGB(0,100,50));
遵:IF(PSY>=PA,PSY,DRAWNULL),COLORRED; 
守:IF(PA>=PSY,PA,DRAWNULL),COLORFF9900;
纪:IF(PSY>=PA,PA,DRAWNULL),COLOR00FFFF;
律:IF(PA>=PSY,PSY,DRAWNULL),COLOR00FF00;
TJ1:=FILTER(CROSS(PSY,PA) AND PA
TJ2:=FILTER(CROSS(PA,PAP),5);
DRAWICON(TJ1,PA,25);
DRAWICON(TJ2,PAP,23);
SL1:=CROSS(PA,PSY) AND PA>70;
SL2:=CROSS(80,PA);
SL:=SL1 OR SL2;
DRAWICON(SL,PA,19);
V1:=(C+H+L)/3;
MA3:=MA(V1,2);
MA5:=MA(V1,5);
N1:=BARSLAST(CROSS(MA3,MA5));
N2:=BARSLAST(CROSS(MA5,MA3));
N:=IF(N1
STICKLINE(N>0,20,23,3,0),COLOR0000FF;
STICKLINE(N<0,20,23,3,0),COLOR00FF00;