CURRBARSCOUNT:=REFX1(BARPOS,9999)-BARPOS+1;HIG:=12;
AA2:=REF(H,HIG)=HHV(H,2*HIG+1);
QY:=BACKSET(AA2,HIG+1);
CC2:=FILTER(QY,HIG) AND H=HHV(H,HIG+1);//
DDD:=BARSLAST(CC2);
GDTS9:=IF(CC2,CURRBARSCOUNT,0);
DINGBUTS:=IF(DDD,REF(GDTS9,DDD),GDTS9);
GDCS1:=REFX1(DINGBUTS,10000);
DINGBUTS1:=REF(DINGBUTS,DDD+1);
GDCS2:=REFX1(DINGBUTS1,10000);
AA1:=REF(L,HIG)=LLV(L,2*HIG+1);
QY1:=BACKSET(AA1,HIG+1);
CC1:=FILTER(QY1,HIG) AND L=LLV(L,HIG+1);//
DD2:=BARSLAST(CC1);
DDTS:=IF(CC1,CURRBARSCOUNT,0);
DDTS1:=IF(DD2,REF(DDTS,DD2),DDTS);
DDCS1:=REFX1(DDTS1,10000);
DDTS2:=REF(DDTS1,DD2+1);
DDCS2:=REFX1(DDTS2,10000);
ZZ:=REF(H,GDCS2-1);//高2
RR:=REF(H,GDCS1-1);//高1
BB:=REF(L,DDCS2-1);//低2
GG:=REF(L,DDCS1-1);//低1FILLRGN(BACKSET(ISLASTBAR,GDCS2) AND NOT(BACKSET(ISLASTBAR,GDCS1)) OR (NOT(BACKSET(ISLASTBAR,GDCS2)) AND BACKSET(ISLASTBAR,GDCS1)),REFX1(ZZ,10000),REFX1(RR,10000),COLORMAGENTA);
FILLRGN(BACKSET(ISLASTBAR,DDCS2) AND NOT(BACKSET(ISLASTBAR,DDCS1)) OR (NOT(BACKSET(ISLASTBAR,DDCS2)) AND BACKSET(ISLASTBAR,DDCS1)),REFX1(GG,10000),REFX1(BB,10000),RGB(64,128,128));
FILLRGN(BACKSET(ISLASTBAR,GDCS1) AND NOT(BACKSET(ISLASTBAR,DDCS1)) OR (NOT(BACKSET(ISLASTBAR,GDCS1)) AND BACKSET(ISLASTBAR,DDCS1)),REFX1(GG,10000),REFX1(RR,10000),RGB(255,128,0));
DRAWKLINE1(H,O,L,C);
DRAWSL(ISLASTBAR,(MAX(ZZ,RR)-MIN(BB,GG))*0.618+MIN(BB,GG),0,9999,0,COLORYELLOW);
DRAWSL(ISLASTBAR,(MAX(ZZ,RR)-MIN(BB,GG))*0.618+MIN(BB,GG),0,-(MAX1(GDCS2,DDCS2,GDCS1,DDCS1)-1),0,COLORYELLOW);
DRAWSL(ISLASTBAR,(MAX(ZZ,RR)-MIN(BB,GG))*0.5+MIN(BB,GG),0,9999,0,COLORYELLOW);
DRAWSL(ISLASTBAR,(MAX(ZZ,RR)-MIN(BB,GG))*0.5+MIN(BB,GG),0,-(MAX1(GDCS2,DDCS2,GDCS1,DDCS1)-1),0,COLORYELLOW);
DRAWSL(ISLASTBAR,(MAX(ZZ,RR)-MIN(BB,GG))*0.382+MIN(BB,GG),0,9999,0,COLORYELLOW);
DRAWSL(ISLASTBAR,(MAX(ZZ,RR)-MIN(BB,GG))*0.382+MIN(BB,GG),0,-(MAX1(GDCS2,DDCS2,GDCS1,DDCS1)-1),0,COLORYELLOW);
DRAWSL(ISLASTBAR,(MAX(ZZ,RR)-MIN(BB,GG))*0.191+MIN(BB,GG),0,9999,0,COLORYELLOW);
DRAWSL(ISLASTBAR,(MAX(ZZ,RR)-MIN(BB,GG))*0.191+MIN(BB,GG),0,-(MAX1(GDCS2,DDCS2,GDCS1,DDCS1)-1),0,COLORYELLOW);
DRAWSL(ISLASTBAR,(MAX(ZZ,RR)-MIN(BB,GG))*0.809+MIN(BB,GG),0,9999,0,COLORYELLOW);
DRAWSL(ISLASTBAR,(MAX(ZZ,RR)-MIN(BB,GG))*0.809+MIN(BB,GG),0,-(MAX1(GDCS2,DDCS2,GDCS1,DDCS1)-1),0,COLORYELLOW);
