FO:=OPEN; 
FH:=HIGH; 
FL:=LOW; 
FC:=CLOSE; 
<%  
vo=ffl.vardata("fo")  
vh=ffl.vardata("fh")  
vl=ffl.vardata("fl")  
vc=ffl.vardata("fc")  
last=ubound(vc)  
vc(0)=(vh(0)+vl(0)+2*vc(0))/4  
for i=1 to last  
  vo(i)=(vo(i-1)+vc(i-1))/2  
  if vo(i)>vh(i) then vh(i)=vo(i) else vh(i)=vh(i) 
  if vo(i)<vl(i) then vl(i)=vo(i) else vl(i)=vl(i)  
  vc(i)=(2*vc(i)+vh(i)+vl(i))/4  
next  
ffl.vardata("fo")=vo  
ffl.vardata("fh")=vh  
ffl.vardata("fl")=vl  
ffl.vardata("fc")=vc  
%> 
KK:=IF(FC>=FO AND (FC>=REF(FC,1) OR REF(FC,1)>=REF(FO,1)),1,IF(FC<FO AND (FC<REF(FO,1) OR REF(FC,1)<REF(FO,1)),-1,0));
  明:=(FO+FC)/2; 
转:=IF(KK=1,MIN(FC,FO),IF(KK=-1,MAX(FC,FO),IF(REF(KK,1)=1,MIN(FC,FO),IF(REF(KK,1)=-1,MAX(FC,FO),(FC+FO)/2)))); 
STICKLINE(FC>FO,FH,FL,0.4,0),colorFF;
  STICKLINE(FO>FC,FH,FL,0.4,0),colorFFFF00; 
STICKLINE(KK=1 AND FC>=FO,FO,FC,8,0),colorFF; 
STICKLINE(KK=1 AND FC<FO,FO,FC,8,0),colorFF; 
STICKLINE(KK=-1 AND FC>=FO,FO,FC,8,0),colorFF0000; 
STICKLINE(KK=-1 AND FC<FO,FO,FC,8,0),colorFF0000; 
STICKLINE(KK=0 AND FC>=FO,FO,FC,8,0),colorFF; 
STICKLINE(KK=0 AND FC<FO,FO,FC,8,0),colorFF; 
VAR6:=(2*CLOSE+HIGH+LOW)/4; 
VAR7:=LLV(LOW,21); 
VAR8:=HHV(HIGH,21); 
VAR9:=EMA((VAR6-VAR7)/(VAR8-VAR7)*100,13); 
VARA:=EMA(0.667*REF(VAR9,1)+0.333*VAR9,2); 
A1:=EMA(HHV(FH,2),2); 
A2:=EMA(LLV(FL,2),2); 
A3:=IF(VAR9>=VARA,A2,A1); 
PARTLINE(VAR9>=VARA,A3),LINETHICK3,colorFF00FF; 
PARTLINE(VAR9<VARA,A3),LINETHICK3,colorFF00;