通达信能量潮拐点指标公式源码

CY:=BArslAST(CURRBARSCOUNT=100);
DD:=CONST(IF(ISLASTBAR=1,LLV(L,CY),0));
SAT:=IF((AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100);
AA10:MA(CLOSE,0),COLOR0000FF;
AA12:MA(CLOSE,0),COLOR0000FF;
BB10:=((ATAN((AA10 - REF(AA10,1))) * 3.1416) * 10);
BB12:=((ATAN((AA12 - REF(AA12,1))) * 3.1416) * 10);
MA13:=MA(CLOSE,13);
X1:=(C+L+H)/3;BB13:=ATAN(EMA(X1,13)-REF(EMA(X1,13),1))*3.1416*10;
EMA8:=EMA(C,8);
DRAWTEXT(FILTER(BB13>1 AND EMA(X1,13)>REF(EMA(X1,8),1),10),EMA8,'能量潮拐点'),COLOR007FFF;
DRAWBAND(IF(CURRBARSCOUNT<=100,DD+macd*1.5,DRAWNULL),RGB(230,12,12),DD,RGB(10,30,230));
DRAWBAND(IF(CURRBARSCOUNT<=100,DD+MacD*1.5,DRAWNULL),RGB(230,30,12),DD,RGB(10,200,30));
IF(CURRBARSCOUNT<100,DD+MACD*1.5,DRAWNULL),coloryellow;