通达信牛熊心理指标公式

牛熊骨:=18;心理线:=15;
RSV:=(((CLOSE - LLV(LOW,(牛熊骨 + 3))) / (HHV(HIGH,(牛熊骨 + 3)) - LLV(LOW,19))) * 100);
FASTK:=(((SMA(RSV,8,1) - 50) * 1.4) + 50);
D:=SMA(FASTK,8,1);
SSS:=SMA(D,8,1);
{- }
IF(D<=REF(D,1),D,DRAWNULL),COLOR005C00,LINETHICK8;
IF(D<=REF(D,1),D+1.5,DRAWNULL),COLOR007D00,LINETHICK8;
IF((D <= REF(D,1)),D+3,DRAWNULL)COLOR00B400,LINETHICK8;
IF((D <= REF(D,1)),D+4.5,DRAWNULL),COLOR00DE00,LINETHICK8;
IF((D <= REF(D,1)),D+6,DRAWNULL),COLOR00FF00,LINETHICK8;
IF(SSS>= REF(SSS,1),SSS,DRAWNULL),COLOR000082,LINETHICK8;
IF(SSS>= REF(SSS,1),SSS+1.5,DRAWNULL),COLOR00009D,LINETHICK8;
IF(SSS>= REF(SSS,1),SSS+3,DRAWNULL),COLOR0000B4,LINETHICK8;
IF(SSS>= REF(SSS,1),SSS+4.5,DRAWNULL),COLOR0000D6,LINETHICK8;
IF(SSS>= REF(SSS,1),SSS+6,DRAWNULL),COLOR0000FF,LINETHICK8;
B:=SSS;
W:=crOSS(BacKSET(ISLASTBAR,5),0.5);
VAR19:=BArslAST(W);
DRAWLINE(W=1,B,ISLASTBAR AND B>REF(B,VAR19),B,1),COLOR0000FF,LINETHICK1;
DRAWLINE(W=1,B,ISLASTBAR AND B<REF(B,VAR19),B,1),COLOR00FF00,LINETHICK1;
(COUNT(CLOSE>REF(CLOSE,1),心理线)/心理线)*100,COLORFF00FF,LINETHICK3;
{DRAWTEXT((SYSPARAM(1) = BARPOS),0,'☆'),ALIGN5,COLORFFFF;};