[通达信]通达信火焰山源码公式

我是一个兵

通达信火焰山源码公式：
VAR21:=MA(C,21);
VAR22:=REF(VAR21,8);
VAR23:=(C-VAR21)/VAR21*1000;
VAR24:=(VAR21- VAR22)/VAR22*1000;
AGR:(VAR23-VAR24),COLORRED,LINETHICK2;
MAGR:EMA(AGR,3),COLORSTICK;
100;
0;
-100;
VAR1:=EMA(HHV(HIGH,500),21);
VAR2:=EMA(HHV(HIGH,250),21);
VAR3:=EMA(HHV(HIGH,90),21);
VAR4:=EMA(LLV(LOW,500),21);
VAR5:=EMA(LLV(LOW,250),21);
VAR6:=EMA(LLV(LOW,90),21);
VAR7:=EMA((VAR4*0.96+VAR5*0.96+VAR6*0.96+VAR1*0.558+VAR2*0.558+VAR3*0.558)/6,21);
VAR8:=EMA((VAR4*1.25+VAR5*1.23+VAR6*1.2+VAR1*0.55+VAR2*0.55+VAR3*0.65)/6,21);
VAR9:=EMA((VAR4*1.3+VAR5*1.3+VAR6*1.3+VAR1*0.68+VAR2*0.68+VAR3*0.68)/6,21);
VAR10:=IF(DATE>=1340722,0,1);
VARA:=EMA((VAR7*3+VAR8*2+VAR9)/6*1.738,21);
VARB:=REF(LOW,1);
VARC:=SMA(ABS(LOW-VARB),3,1)/SMA(MAX(LOW-VARB,0),3,1)*100;
VARD:=EMA(IF(CLOSE*1.35<=VARA,VARC*10,VARC*VAR10/10),3);
VARE:=LLV(LOW,30)*VAR10;
VARF:=HHV(VARD,30);
VAR11:=IF(MA(CLOSE,58),1,0);
火焰山:=EMA(IF(LOW<=VARE,(VARD+VARF*2)/2,0),3)/618*VAR11,COLOR00FF00,LINETHICK2;
火焰:=STICKLINE(火焰山>0 ,0 ,火焰山 ,4 ,1);
今量:=火焰山*VAR10;
STICKLINE(火焰山>0,0 ,今量*1.2,8,0 ),COLOR00EEFF;
STICKLINE(火焰山>0,0 ,今量*0.8,8,0 ),COLOR00BBFF;
STICKLINE(火焰山>0,0 ,今量*0.6,8,0 ),COLOR0099FF;
STICKLINE(火焰山>0,0 ,今量*0.4,8,0 ),COLOR0066FF;
STICKLINE(火焰山>0,0 ,今量*0.2,8,0 ),COLOR0000FF;