霸王力道K线

TD:=DATATYPE;
DRAWGBK(1,COLORRGB(0,0,0),COLORRGB(0,0,0),0),colorFF0000;
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));
DRAWICON(CROSS(FC,FO),OPEN*0.98,4);
DRAWICON(CROSS(FO,FC),OPEN*1.04,5);
DRAWTEXT(CROSS(FC,FO),OPEN*0.95,'买'),colorFFFFFF;
DRAWTEXT(CROSS(FO,FC),OPEN*1.065,'卖'),colorFFFF;
STICKLINE(FC>FO,FH,FL,0.4,0),colorFF;
STICKLINE(FO>FC,FH,FL,0.4,0),colorFF0000;
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;
CC:=CLOSE;
DIFF:=EMA(CC,26)-EMA(CC,52);
DEA:=EMA(DIFF,52);
MACD:=2*(DIFF-DEA);
DIF:=EMA(CC,26)-EMA(CC,52);
ESS:=EMA(CC,26);
EGG:=EMA(CC,52);
RDIF:=REF(DIF,1);
RSS:=REF(ESS,1);
RGG:=REF(EGG,1);
RDEA:=REF(DEA,1);
RMACD:=REF(MACD,1);
RZZZ:=RDEA+(52+1)/(2*(52-1))*RMACD;
XDIF:=((52-1)*(26+1)*RGG-(52+1)*(26-1)*RSS+(26+1)*(52+1)*RDIF)/(2*52-2*26);
XDEA:=((52-1)*(26+1)*RGG-(52+1)*(26-1)*RSS+(26+1)*(52+1)*RDEA)/(2*52-2*26);
XMACD:=((52-1)*(26+1)*RGG-(52+1)*(26-1)*RSS+(26+1)*(52+1)*RZZZ)/(2*52-2*26);
AA:=ISLASTBAR;
BB:=BACKSET(AA=1,1);
Y:=BARSLAST(BB=1);
X:=1;
TDIF:=DIF*X;
TSS:=ESS*X;
TGG:=EGG*X;
TDEA:=DEA*X;
TMACD:=MACD*X;
TZZZ:=TDEA+(52+1)/(2*(52-1))*TMACD;
霸王线:((52-1)*(26+1)*TGG-(52+1)*(26-1)*TSS+(26+1)*(52+1)*TDIF)/(2*52-2*26);
PARTLINE(霸王线>=REF(霸王线,1) ,霸王线),LINETHICK3,colorFF;
PARTLINE(霸王线<REF(霸王线,1) ,霸王线),LINETHICK3,colorFF00;