参考：
VARK1:=EMA(HHV(HIGH,500),21);
VARK2:=EMA(HHV(HIGH,250),21);
VARK3:=EMA(HHV(HIGH,90),21);
VARK4:=EMA(LLV(LOW,500),21);
VARK5:=EMA(LLV(LOW,250),21);
VARK:=EMA(LLV(LOW,90),21);
VARK7:=EMA((VARK4*0.96+VARK5*0.96+VARK*0.96+VARK1*0.558+VARK2*0.558+VARK3*0.558)/6,21);
VARK8:=EMA((VARK4*1.25+VARK5*1.23+VARK*1.2+VARK1*0.55+VARK2*0.55+VARK3*0.65)/6,21);
VARK9:=EMA((VARK4*1.3+VARK5*1.3+VARK*1.3+VARK1*0.68+VARK2*0.68+VARK3*0.68)/6,21);
VARKA:=EMA((VARK7*3+VARK8*2+VARK9)/6*1.738,21);
VARKB:=REF(LOW,1);
VARKC:=SMA(ABS(LOW-VARKB),3,1)/SMA(MAX(LOW-VARKB,0),3,1)*100;
VARKD:=EMA(IF(CLOSE*1.35<=VARKA,VARKC*10,VARKC/10),3);
VARKE:=LLV(LOW,30);
VARKF:=HHV(VARKD,30);
VARK10:=IF(MA(CLOSE,58),1,0);
VARKD1:=EMA(IF(CLOSE*1.35>=VARKA,VARKC*10,VARKC/10),3);
VARKF1:=LLV(VARKD,30);
火焰山: EMA(IF(LOW<=VARKE,(VARKD+VARKF*2)/2,0),3)/618*VARK10;
火焰山1: EMA(IF(H>=HHV(H,30),(VARKD1+VARKF1*2)/2,0),3)/618*VARK10*30;
STICKLINE(火焰山1>0,0,火焰山1*1.2,4,0),COLORGREEN;
STICKLINE(火焰山1>0,0,火焰山1*0.8,4,0),COLORGREEN;
STICKLINE(火焰山1>0,0,火焰山1*0.6,4,0),COLORGREEN;
STICKLINE(火焰山1>0,0,火焰山1*0.4,4,0),COLORGREEN;
STICKLINE(火焰山1>0,0,火焰山1*0.2,4,0),COLORGREEN;
今量:= 火焰山;
STICKLINE(火焰山>0,0,今量*1.2,4,0),COLORFF0000;
STICKLINE(火焰山>0,0,今量*0.8,4,0),COLORFF6600;
STICKLINE(火焰山>0,0,今量*0.6,4,0),COLORFF9900;
STICKLINE(火焰山>0,0,今量*0.4,4,0),COLORFFCC00;
STICKLINE(火焰山>0,0,今量*0.2,4,0),COLORFFFF00;
80,COLOR996699;
20,COLORGREEN;
底:10,COLORCC6633,LINETHICK2;
90,COLOR9966FF,LINETHICK2;
50,COLORRED;
A:=MA(-100*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34)),19);
B:=-100*(HHV(HIGH,14)-CLOSE)/(HHV(HIGH,14)-LLV(LOW,14));
D:=EMA(-100*(HHV(HIGH,34)-CLOSE)/(HHV(HIGH,34)-LLV(LOW,34)),4);
