T:=100;
CU:CURRBARSCOUNT,NODRAW;
T1:=BARSLAST(H=HHV(H,T));
T2:=BARSLAST(L=LLV(L,T));
TH:=CONST(REF(H,T1));
TL:=CONST(REF(L,T2));
X1:=SQRT(TH/TL);
X2:=SQRT(X1);
CA:=TL*X2;
CB:=TL*X1;
CD:=TL*(X1+X2-1);
zbgs3:=CONST(T2)+1;
NOTEXT1:IF(CU<=zbgs3,CONST(CA),DRAWNULL),COLORRED,DOTLINE;
NOTEXT2:IF(CU<=zbgs3,CONST(CB),DRAWNULL),COLORRED,DOTLINE;
NOTEXT3:IF(CU<=zbgs3,CONST(CD),DRAWNULL),COLORRED,DOTLINE;
DRAWTEXT(CU=zbgs3,CA,VAR2STR(CA,2));
DRAWTEXT(CU=zbgs3,CB,VAR2STR(CB,2));
DRAWTEXT(CU=zbgs3,CD,VAR2STR(CD,2));
NOTEXTA:DRAWLINE(CU=zbgs3,L,CD,CD,-1),DOTLINE,COLORRED;
STICKLINE(CU=zbgs3,H,CONST(CD),0,-1),COLORRED;
{zbgs3.com}
CF:=TH/X2;
CG:=TH/X1;
CJ:=TH/(X2+X1-1);
T6:=CONST(T1)+1;
NOTEXT4:IF(CU<=T6,CONST(CF),DRAWNULL),COLORGREEN,DOTLINE;
NOTEXT5:IF(CU<=T6,CONST(CG),DRAWNULL),COLORGREEN,DOTLINE;
NOTEXT6:IF(CU<=T6,CONST(CJ),DRAWNULL),COLORGREEN,DOTLINE;
DRAWTEXT(CU=T6,CF,VAR2STR(CF,2));
DRAWTEXT(CU=T6,CG,VAR2STR(CG,2));
DRAWTEXT(CU=T6,CJ,VAR2STR(CJ,2));
NOTEXTB:DRAWLINE(CU=T6,H,CJ,CJ,-1)DOTLINE,LINETHICK1,COLORGREEN;
STICKLINE(CU=T6,H,CONST(CJ),0,-1),COLORGREEN;
