N1:=9;
N2:=26;
N3:=26;
N4:=52;
gspt0:=(HHV(H,N1)+LLV(L,N1))/2;
gspt1:=(HHV(H,N2)+LLV(L,N2))/2;
gspt2:=(gspt0+gspt1)/2;
gspt3:=REF(gspt2,N2);
gspt4:=(HHV(H,N4)+LLV(L,N4))/2;
gspt5:=REF(gspt4,N2);
CHIKOU:=REF(C,-N3);
gspt0,COLORRED,LINETHICK2;
gspt1,COLORBLUE,LINETHICK2;
CHIKOU,COLORMAGENTA;
STICKLINE1(gspt3>=gspt5,gspt3,gspt5,3,0),COLORGREEN;
STICKLINE1(gspt3< gspt5,gspt5,gspt3,3,0),COLORRED;
DRAWICON(CROSS(gspt0,gspt1),L,4),VALIGN0;
DRAWICON(CROSS(gspt1,gspt0),H,5),VALIGN2;
DRAWICON(CROSS(C,MAX(gspt3,gspt5)),L,1),VALIGN0;
DRAWICON(CROSS(MIN(gspt3,gspt5),C),H,2),VALIGN2;
COND_STRONG_BULL:=gspt0>gspt1 AND C>MAX(gspt3,gspt5) AND CHIKOU>REF(H,N3);
COND_BULL:=gspt0>gspt1 OR C>MAX(gspt3,gspt5);
COND_STRONG_BEAR:=gspt0< gspt1 AND C< MIN(gspt3,gspt5) AND CHIKOU< REF(L,N3);
COND_BEAR:=gspt0< gspt1 OR C< MIN(gspt3,gspt5);
STICKLINE1(COND_STRONG_BULL,C,O,3,0),COLORRED;
STICKLINE1(COND_BULL AND NOT(COND_STRONG_BULL),C,O,3,0),COLORLIGHTRED;
STICKLINE1(COND_STRONG_BEAR,C,O,3,0),COLORGREEN;
STICKLINE1(COND_BEAR AND NOT(COND_STRONG_BEAR),C,O,3,0),COLORGREEN;
STICKLINE1(COND_STRONG_BULL OR COND_BULL,H,L,0,0),COLORRED;
STICKLINE1(COND_STRONG_BEAR OR COND_BEAR,H,L,0,0),COLORGREEN;
DRAWICON(COND_STRONG_BULL,L,5),VALIGN0;
DRAWICON(COND_STRONG_BEAR,H,6),VALIGN2;
UP_CLOUD:=MAX(gspt3,gspt5);
DN_CLOUD:=MIN(gspt3,gspt5);
CLOUD_WIDTH:=(UP_CLOUD-DN_CLOUD)/DN_CLOUD*100;
DRAWICON(C>UP_CLOUD AND CLOUD_WIDTH>5,L,13),VALIGN0;
DRAWICON(C< DN_CLOUD AND CLOUD_WIDTH>5,H,14),VALIGN2;
DRAWICON(CROSS(gspt0,gspt1) AND REF(gspt0< gspt1,1) AND C< MIN(gspt3,gspt5),L,7),VALIGN0;
DRAWICON(CROSS(gspt1,gspt0) AND REF(gspt0>gspt1,1) AND C>MAX(gspt3,gspt5),H,8),VALIGN2;