桃花岛武{桃花岛武功第三式升级版}
DRAWGBKlast(c, strip(RGB(00,255,255) ,RGB(00,00,28),2));
m1:=wma(c,5);
m2:=wma(c,25);
ma2:=wma((h+if(c>o,c,o))/2,3);
ma3:=wma((l+if(c>o,o,c))/2,3);
RSV:=(c-LLV(LOW,5))/(HHV(HIGH,5)-LLV(LOW,5))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
B:=EMA((0.667*REF(j,1)+0.333*j),2);
ma4:=if(j>b,ma3,ma2);
ref(ma4,1);
ma22:=wma((h+if(c>o,c,o))/2,25);
ma33:=wma((l+if(c>o,o,c))/2,25);

ma44:=if(m1>m2,ma33,ma22);

PARTLINE( ma33,m1>m2),colorffff00,CIRCLEDOT;
PARTLINE( ma22,m1<m2),colorff00ff,CIRCLEDOT;

bbi:(ema(c,25)+2*ema(c,8))/3;
hjx:=bbi;
PARTLINE(bbi,bbi>ref(bbi,1),rgb(255,0,0) ,bbi<ref(bbi,1),rgb(0,255,0));
g1:=hhv(hjx,5);
g2:=hhv(hjx,10);
g3:=hhv(hjx,20);
g4:=hhv(hjx,30);
g5:=hhv(hjx,40);
g6:=hhv(hjx,50);
g7:=hhv(hjx,60);
g8:=hhv(hjx,60);
g9:=hhv(hjx,80);
g10:=hhv(hjx,100);
g11:=hhv(hjx,120);
hjx0:(g1+g2+g3+g4+g5+g6+g7+g8+g9+g10+g11)/11, LINETHICK0;
hjx1:(g1+g2+g3+g4+g5+g6+g7)/7, LINETHICK0;
hjx2:(g1+g2+g3+g4+g5+g6)/6, LINETHICK0;
hjx3:(g1+g2+g3+g4)/4, LINETHICK0;
gg1:=llv(hjx,5);
gg2:=llv(hjx,10);
gg3:=llv(hjx,20);
gg4:=llv(hjx,30);
gg5:=llv(hjx,40);
gg6:=llv(hjx,50);
gg7:=llv(hjx,60);
gg8:=llv(hjx,60);
gg9:=llv(hjx,80);
gg10:=llv(hjx,100);
gg11:=llv(hjx,120);
hjx0a:(gg1+gg2+gg3+gg4+gg5+gg6+gg7+gg8+gg9+gg10+gg11)/11, LINETHICK0;
hjx1a:(gg1+gg2+gg3+gg4+gg5+gg6+gg7)/7, LINETHICK0;
hjx2a:(gg1+gg2+gg3+gg4+gg5+gg6)/6, LINETHICK0;
hjx3a:(gg1+gg2+gg3+gg4)/4, LINETHICK0;
FILLRGN( hjx0a,hjx1a),Color430000,LAYER7;
FILLRGN( hjx1a,hjx2a),Color7F0000,LAYER7;
FILLRGN( hjx2a,hjx3a),ColorAF0000,LAYER7;

FILLRGN( hjx0,hjx1),Colorffffff,LAYER7;
FILLRGN( hjx1,hjx2),Coloreeeeee,LAYER7;
FILLRGN( hjx2,hjx3),Colordddddd,LAYER7;
cz:=(abs(c-hjx)+abs(ref(c,1)-ref(hjx,1))+abs(ref(c,2)-ref(hjx,2))
+abs(ref(c,3)-ref(hjx,3))+abs(ref(c,4)-ref(hjx,4))+abs(ref(c,5)-ref(hjx,5))
+abs(ref(c,6)-ref(hjx,6))+abs(ref(c,7)-ref(hjx,7))+abs(ref(c,8)-ref(hjx,8))
+abs(ref(c,9)-ref(hjx,9))+abs(ref(c,10)-ref(hjx,10))+abs(ref(c,11)-ref(hjx,11))
+abs(ref(c,12)-ref(hjx,12))+abs(ref(c,13)-ref(hjx,13))+abs(ref(c,14)-ref(hjx,14))
+abs(ref(c,15)-ref(hjx,15))+abs(ref(c,16)-ref(hjx,16))+abs(ref(c,17)-ref(hjx,17))
+abs(ref(c,18)-ref(hjx,18))+abs(ref(c,19)-ref(hjx,19))+abs(ref(c,20)-ref(hjx,20)))/21;
下c:=hjx-2*cz;
上c:=hjx+2*cz;

下b:=hjx-1.5*cz;
上b:=hjx+1.5*cz;
下a:=hjx-cz;
上A:=hjx+cz;

ga:REF(hhv(上A,55),BARSLAST(CROSS(hjx2,hjx))),colorccaacc;
gb:REF(llv(下a,55),BARSLAST(CROSS(hjx,hjx2))),color006633;
gaa:REF(hhv(上c,55),BARSLAST(CROSS(hjx2,hjx))),colorccaacc;
gbb:REF(llv(下c,55),BARSLAST(CROSS(hjx,hjx2))),color006633;

FILLRGN(ga,gaa ),color006699,LAYER6;
FILLRGN(gb,gbb ),color003333,LAYER6;{}
ga2:REF(hhv(上a,25),BARSLAST(CROSS(ref(hjx,1),hjx))),colorccaacc;
gb2:REF(llv(下a,25),BARSLAST(CROSS(hjx,ref(hjx,1)))),color009933;
gaa2:REF(hhv(上c,25),BARSLAST(CROSS(ref(hjx,1),hjx))),colorccaacc;
gbb2:REF(llv(下c,25),BARSLAST(CROSS(hjx,ref(hjx,1)))),color009933;
FILLRGN(ga2,gaa2 ),color0099cc,LAYER6;
FILLRGN(gb2,gbb2 ),color006633,LAYER6;{}

AaaC:=C;
AaaH:=H;
AaaL:=L;
AaaO:=O;

STICKLINE(AaaC>=AaaO,AaaH,AaaC,1,0),color0000cc;
STICKLINE(AaaC>=AaaO,AaaH,AaaC,0,0),color6633ff;
STICKLINE(AaaC>=AaaO,AaaO,AaaL,1,0),color0000cc;
STICKLINE(AaaC>=AaaO,AaaO,AaaL,0,0),color6633ff;

STICKLINE(AaaC>AaaO,AaaC,AaaO,8,0),COLOR0000cc;
STICKLINE(AaaC>AaaO,AaaC,AaaO,7,0),COLOR3300cc;
STICKLINE(AaaC>AaaO,AaaC,AaaO,6,0),COLOR0033cc;
STICKLINE(AaaC>AaaO,AaaC,AaaO,5,0),COLOR3333cc;
STICKLINE(AaaC>AaaO,AaaC,AaaO,4,0),COLOR0000ff;
STICKLINE(AaaC>AaaO,AaaC,AaaO,3,0),COLOR3300ff;
STICKLINE(AaaC>AaaO,AaaC,AaaO,2,0),COLOR6600ff;
STICKLINE(AaaC>AaaO,AaaC,AaaO,1,0),COLOR6633ff;

STICKLINE(AaaC<=AaaO,AaaH,AaaC,1,0),color888800;
STICKLINE(AaaC<=AaaO,AaaH,AaaC,0,0),colorffff00;
STICKLINE(AaaC<=AaaO,AaaO,AaaL,1,0),color888800;
STICKLINE(AaaC<=AaaO,AaaO,AaaL,0,0),colorffff00;

STICKLINE(AaaC<=AaaO,AaaC,AaaO,8,0),COLOR888800;
STICKLINE(AaaC<=AaaO,AaaC,AaaO,7,0),COLOR999900;
STICKLINE(AaaC<=AaaO,AaaC,AaaO,6,0),COLORaaaa00;
STICKLINE(AaaC<=aaAO,AaaC,AaaO,5,0),COLORbbbb00;
STICKLINE(AaaC<=AaaO,AaaC,AaaO,4,0),COLORcccc00;
STICKLINE(AaaC<=AaaO,AaaC,AaaO,3,0),COLORdddd00;
STICKLINE(AaaC<=AaaO,AaaC,AaaO,2,0),COLOReeee00;
STICKLINE(AaaC<=AaaO,AaaC,AaaO,1,0),COLORffff00;;