INPUT:N1(5,1,300),N2(10,1,300),N3(30,1,300);
d:=BACKSET(BARSTATUS=2,BARSLAST(llv(l,0)=l)+1);
LS:=if(BARSTATUS=2,llv(l,250),9999);;
d1:=BACKSET(BARSTATUS=2,BARSLAST(llv(l,250)=l or BARSTATUS=1));
LD:=llVALL(LS);
qkg:=(l>ref(h,1))*d;;
gqk:=if(d=1 and qkg*ref(h,1)<LD,qkg,if(d1,qkg,0));
gqks:=sum(gqk,0);
g:=BACKSET(BARSTATUS=2,BARSLAST(hhv(h,0)=h)+1);
hS:=hhv(h,250);
g1:=BACKSET(BARSTATUS=2,BARSLAST(hS=h)+1);
HG:=HHVALL(g1*hS);
qkd:=(H<ref(L,1))*g;
dqk:=if(g=1 and qkd*ref(l,1)>HG,qkd,if(g1,qkd,0));
dqks:=sum(dqk,0);
qkZ:=l>ref(h,1) or h<ref(l,1);
QKS1:=SUM(QKZ,0);
qks:=gqks+dqks;
qklx:=if(h<ref(l,1),1,if(l>ref(h,1),2,0));
s:=HHVALL(qks)+1;
ds:s-qks,LINETHICK0;
ll:=L;
hh:=h;
t1:=BARSSINCE(dS=1)+1;
l1:=ref(l,T1);
h1:=ref(H,t1);
s1:=Any(H1>=ll,t1);
x1:=Any(l1<=hh,t1);
t2:=BARSSINCE(dS=2)+1;
l2:=ref(l,T2);
h2:=ref(H,t2);
s2:=Any(H2>=ll,t2);
x2:=Any(l2<=hh,t2);
t3:=BARSSINCE(dS=3)+1;
l3:=ref(l,T3);
h3:=ref(H,t3);
s3:=Any(H3>=ll,t3);
x3:=Any(l3<=hh,t3);
t4:=BARSSINCE(dS=4)+1;
l4:=ref(l,T4);
h4:=ref(H,t4);
s4:=Any(H4>=ll,t4);
x4:=Any(l4<=hh,t4);
t5:=BARSSINCE(dS=5)+1;
l5:=ref(l,T5);
h5:=ref(H,t5);
s5:=Any(H5>=ll,t5);
x5:=Any(l5<=hh,t5);
t6:=BARSSINCE(dS=6)+1;
l6:=ref(l,T6);
h6:=ref(H,t6);
s6:=Any(H6>=ll,t6);
x6:=Any(l6<=hh,t6);
t7:=BARSSINCE(dS=7)+1;
l7:=ref(l,T7);
h7:=ref(H,t7);
s7:=Any(H7>=ll,t7);
x7:=Any(l7<=hh,t7);
t8:=BARSSINCE(dS=8)+1;
l8:=ref(l,T8);
h8:=ref(H,t8);
s8:=Any(H8>=ll,t8);
x8:=Any(l8<=hh,t8);
t9:=BARSSINCE(dS=9)+1;
l9:=ref(l,T9);
h9:=ref(H,t9);
s9:=Any(H9>=ll,t9);
x9:=Any(l9<=hh,t9);
t10:=BARSSINCE(dS=10)+1;
l10:=ref(l,T10);
h10:=ref(H,t10);
s10:=Any(H10>=ll,t10);
x10:=Any(l10<=hh,t10);
t11:=BARSSINCE(dS=11)+1;
l11:=ref(l,T11);
h11:=ref(H,t11);
s11:=Any(H11>=ll,t11);
x11:=Any(l11<=hh,t11);
t12:=BARSSINCE(dS=12)+1;
l12:=ref(l,T12);
h12:=ref(H,t12);
s12:=Any(H12>=ll,t12);
x12:=Any(l12<=hh,t12);
t13:=BARSSINCE(dS=13)+1;
l13:=ref(l,T13);
h13:=ref(H,t13);
s13:=Any(H13>=ll,t13);
x13:=Any(l13<=hh,t13);
t14:=BARSSINCE(dS=14)+1;
l14:=ref(l,T14);
h14:=ref(H,t14);
s14:=Any(H14>=ll,t14);
x14:=Any(l14<=hh,t14);
t15:=BARSSINCE(dS=15)+1;
l15:=ref(l,T15);
h15:=ref(H,t15);
s15:=Any(H15>=ll,t15);
x15:=Any(l15<=hh,t15);
t16:=BARSSINCE(dS=16)+1;
l16:=ref(l,T16);
h16:=ref(H,t16);
s16:=Any(H16>=ll,t16);
x16:=Any(l16<=hh,t16);
t17:=BARSSINCE(dS=17)+1;
l17:=ref(l,T17);
h17:=ref(H,t17);
s17:=Any(H17>=ll,t17);
x17:=Any(l17<=hh,t17);
t18:=BARSSINCE(dS=18)+1;
l18:=ref(l,T18);
h18:=ref(H,t18);
s18:=Any(H18>=ll,t18);
x18:=Any(l18<=hh,t18);
t19:=BARSSINCE(dS=19)+1;
l19:=ref(l,T19);
h19:=ref(H,t19);
s19:=Any(H19>=ll,t19);
x19:=Any(l19<=hh,t19);
t20:=BARSSINCE(dS=20)+1;
l20:=ref(l,T20);
h20:=ref(H,t20);
s20:=Any(H20>=ll,t20);
x20:=Any(l20<=hh,t20);
t21:=BARSSINCE(dS=21)+1;
l21:=ref(l,T21);
h21:=ref(H,t21);
s21:=Any(H21>=ll,t21);
x21:=Any(l21<=hh,t21);
t22:=BARSSINCE(dS=22)+1;
l22:=ref(l,T22);
h22:=ref(H,t22);
s22:=Any(H22>=ll,t22);
x22:=Any(l22<=hh,t22);
t23:=BARSSINCE(dS=23)+1;
l23:=ref(l,T23);
h23:=ref(H,t23);
s23:=Any(H23>=ll,t23);
x23:=Any(l23<=hh,t23);
t24:=BARSSINCE(dS=24)+1;
l24:=ref(l,T24);
h24:=ref(H,t24);
s24:=Any(H24>=ll,t24);
x24:=Any(l24<=hh,t24);
t25:=BARSSINCE(dS=25)+1;
l25:=ref(l,T25);
h25:=ref(H,t25);
s25:=Any(H25>=ll,t25);
x25:=Any(l25<=hh,t25);
t26:=BARSSINCE(dS=26)+1;
l26:=ref(l,T26);
h26:=ref(H,t26);
s26:=Any(H26>=ll,t26);
x26:=Any(l26<=hh,t26);
t27:=BARSSINCE(dS=27)+1;
l27:=ref(l,T27);
h27:=ref(H,t27);
s27:=Any(H27>=ll,t27);
x27:=Any(l27<=hh,t27);
t28:=BARSSINCE(dS=28)+1;
l28:=ref(l,T28);
h28:=ref(H,t28);
s28:=Any(H28>=ll,t28);
x28:=Any(l28<=hh,t28);
t29:=BARSSINCE(dS=29)+1;
l29:=ref(l,T29);
h29:=ref(H,t29);
s29:=Any(H29>=ll,t29);
x29:=Any(l29<=hh,t29);
t30:=BARSSINCE(dS=30)+1;
l30:=ref(l,T30);
h30:=ref(H,t30);
s30:=Any(H30>=ll,t30);
x30:=Any(l30<=hh,t30);
t31:=BARSSINCE(dS=31)+1;
l31:=ref(l,T31);
h31:=ref(H,t31);
s31:=Any(H31>=ll,t31);
x31:=Any(l31<=hh,t31);
t32:=BARSSINCE(dS=32)+1;
l32:=ref(l,T32);
h32:=ref(H,t32);
s32:=Any(H32>=ll,t32);
x32:=Any(l32<=hh,t32);
t33:=BARSSINCE(dS=33)+1;
l33:=ref(l,T33);
h33:=ref(H,t33);
s33:=Any(H33>=ll,t33);
x33:=Any(l33<=hh,t33);
t34:=BARSSINCE(dS=34)+1;
l34:=ref(l,T34);
h34:=ref(H,t34);
s34:=Any(H34>=ll,t34);
x34:=Any(l34<=hh,t34);
t35:=BARSSINCE(dS=35)+1;
l35:=ref(l,T35);
h35:=ref(H,t35);
s35:=Any(H35>=ll,t35);
x35:=Any(l35<=hh,t35);
t36:=BARSSINCE(dS=36)+1;
l36:=ref(l,T36);
h36:=ref(H,t36);
s36:=Any(H36>=ll,t36);
x36:=Any(l36<=hh,t36);
t37:=BARSSINCE(dS=37)+1;
l37:=ref(l,T37);
h37:=ref(H,t37);
s37:=Any(H37>=ll,t37);
x37:=Any(l37<=hh,t37);
t38:=BARSSINCE(dS=38)+1;
l38:=ref(l,T38);
h38:=ref(H,t38);
s38:=Any(H38>=ll,t38);
x38:=Any(l38<=hh,t38);
t39:=BARSSINCE(dS=39)+1;
l39:=ref(l,T39);
h39:=ref(H,t39);
s39:=Any(H39>=ll,t39);
x39:=Any(l39<=hh,t39);
t40:=BARSSINCE(dS=40)+1;
l40:=ref(l,T40);
h40:=ref(H,t40);
s40:=Any(H40>=ll,t40);
x40:=Any(l40<=hh,t40);
t41:=BARSSINCE(dS=41)+1;
l41:=ref(l,T41);
h41:=ref(H,t41);
s41:=Any(H41>=ll,t41);
x41:=Any(l41<=hh,t41);
t42:=BARSSINCE(dS=42)+1;
l42:=ref(l,T42);
h42:=ref(H,t42);
s42:=Any(H42>=ll,t42);
x42:=Any(l42<=hh,t42);
t43:=BARSSINCE(dS=43)+1;
l43:=ref(l,T43);
h43:=ref(H,t43);
s43:=Any(H43>=ll,t43);
x43:=Any(l43<=hh,t43);
t44:=BARSSINCE(dS=44)+1;
l44:=ref(l,T44);
h44:=ref(H,t44);
s44:=Any(H44>=ll,t44);
x44:=Any(l44<=hh,t44);
t45:=BARSSINCE(dS=45)+1;
l45:=ref(l,T45);
h45:=ref(H,t45);
s45:=Any(H45>=ll,t45);
x45:=Any(l45<=hh,t45);
t46:=BARSSINCE(dS=46)+1;
l46:=ref(l,T46);
h46:=ref(H,t46);
s46:=Any(H46>=ll,t46);
x46:=Any(l46<=hh,t46);
t47:=BARSSINCE(dS=47)+1;
l47:=ref(l,T47);
h47:=ref(H,t47);
s47:=Any(H47>=ll,t47);
x47:=Any(l47<=hh,t47);
t48:=BARSSINCE(dS=48)+1;
l48:=ref(l,T48);
h48:=ref(H,t48);
s48:=Any(H48>=ll,t48);
x48:=Any(l48<=hh,t48);
t49:=BARSSINCE(dS=49)+1;
l49:=ref(l,T49);
h49:=ref(H,t49);
s49:=Any(H49>=ll,t49);
x49:=Any(l49<=hh,t49);
t50:=BARSSINCE(dS=50)+1;
l50:=ref(l,T50);
h50:=ref(H,t50);
s50:=Any(H50>=ll,t50);
x50:=Any(l50<=hh,t50);
t51:=BARSSINCE(dS=51)+1;
l51:=ref(l,T51);
h51:=ref(H,t51);
s51:=Any(H51>=ll,t51);
x51:=Any(l51<=hh,t51);
t52:=BARSSINCE(dS=52)+1;
l52:=ref(l,T52);
h52:=ref(H,t52);
s52:=Any(H52>=ll,t52);
x52:=Any(l52<=hh,t52);
t53:=BARSSINCE(dS=53)+1;
l53:=ref(l,T53);
h53:=ref(H,t53);
s53:=Any(H53>=ll,t53);
x53:=Any(l53<=hh,t53);
t54:=BARSSINCE(dS=54)+1;
l54:=ref(l,T54);
h54:=ref(H,t54);
s54:=Any(H54>=ll,t54);
x54:=Any(l54<=hh,t54);
t55:=BARSSINCE(dS=55)+1;
l55:=ref(l,T55);
h55:=ref(H,t55);
s55:=Any(H55>=ll,t55);
x55:=Any(l55<=hh,t55);
t56:=BARSSINCE(dS=56)+1;
l56:=ref(l,T56);
h56:=ref(H,t56);
s56:=Any(H56>=ll,t56);
x56:=Any(l56<=hh,t56);
t57:=BARSSINCE(dS=57)+1;
l57:=ref(l,T57);
h57:=ref(H,t57);
s57:=Any(H57>=ll,t57);
x57:=Any(l57<=hh,t57);
t58:=BARSSINCE(dS=58)+1;
l58:=ref(l,T58);
h58:=ref(H,t58);
s58:=Any(H58>=ll,t58);
x58:=Any(l58<=hh,t58);
t59:=BARSSINCE(dS=59)+1;
l59:=ref(l,T59);
h59:=ref(H,t59);
s59:=Any(H59>=ll,t59);
x59:=Any(l59<=hh,t59);
t60:=BARSSINCE(dS=60)+1;
l60:=ref(l,T60);
h60:=ref(H,t60);
s60:=Any(H60>=ll,t60);
x60:=Any(l60<=hh,t60);
t61:=BARSSINCE(qkS=0)+1;
l61:=ref(l,T61);
h61:=ref(H,t61);
s61:=Any(H61>=ll,t61);
x61:=Any(l61<=hh,t61);
w1:=BARSTATUS=2 and x1=0 or s1=0;
ww1:=if(w1*t1,w1*t1,9999);
w2:=BARSTATUS=2 and x2=0 or s2=0;
ww2:=if(w2*t2,w2*t2,9999);
w3:=BARSTATUS=2 and x3=0 or s3=0;
ww3:=if(w3*t3,w3*t3,9999);
w4:=BARSTATUS=2 and x4=0 or s4=0;
ww4:=if(w4*t4,w4*t4,9999);
w5:=BARSTATUS=2 and x5=0 or s5=0;
ww5:=if(w5*t5,w5*t5,9999);
w6:=BARSTATUS=2 and x6=0 or s6=0;
ww6:=if(w6*t6,w6*t6,9999);
w7:=BARSTATUS=2 and x7=0 or s7=0;
ww7:=if(w7*t7,w7*t7,9999);
w8:=BARSTATUS=2 and x8=0 or s8=0;
ww8:=if(w8*t8,w8*t8,9999);
w9:=BARSTATUS=2 and x9=0 or s9=0;
ww9:=if(w9*t9,w9*t9,9999);
w10:=BARSTATUS=2 and x10=0 or s10=0;
ww10:=if(w10*t10,w10*t10,9999);
w11:=BARSTATUS=2 and x11=0 or s11=0;
ww11:=if(w11*t11,w11*t11,9999);
w12:=BARSTATUS=2 and x12=0 or s12=0;
ww12:=if(w12*t12,w12*t12,9999);
w13:=BARSTATUS=2 and x13=0 or s13=0;
ww13:=if(w13*t13,w13*t13,9999);
w14:=BARSTATUS=2 and x14=0 or s14=0;
ww14:=if(w14*t14,w14*t14,9999);
w15:=BARSTATUS=2 and x15=0 or s15=0;
ww15:=if(w15*t15,w15*t15,9999);
w16:=BARSTATUS=2 and x16=0 or s16=0;
ww16:=if(w16*t16,w16*t16,9999);
w17:=BARSTATUS=2 and x17=0 or s17=0;
ww17:=if(w17*t17,w17*t17,9999);
w18:=BARSTATUS=2 and x18=0 or s18=0;
ww18:=if(w18*t18,w18*t18,9999);
w19:=BARSTATUS=2 and x19=0 or s19=0;
ww19:=if(w19*t19,w19*t19,9999);
w20:=BARSTATUS=2 and x20=0 or s20=0;
ww20:=if(w20*t20,w20*t20,9999);
w21:=BARSTATUS=2 and x21=0 or s21=0;
ww21:=if(w21*t21,w21*t21,9999);
w22:=BARSTATUS=2 and x22=0 or s22=0;
ww22:=if(w22*t22,w22*t22,9999);
w23:=BARSTATUS=2 and x23=0 or s23=0;
ww23:=if(w23*t23,w23*t23,9999);
w24:=BARSTATUS=2 and x24=0 or s24=0;
ww24:=if(w24*t24,w24*t24,9999);
w25:=BARSTATUS=2 and x25=0 or s25=0;
ww25:=if(w25*t25,w25*t25,9999);
w26:=BARSTATUS=2 and x26=0 or s26=0;
ww26:=if(w26*t26,w26*t26,9999);
w27:=BARSTATUS=2 and x27=0 or s27=0;
ww27:=if(w27*t27,w27*t27,9999);
w28:=BARSTATUS=2 and x28=0 or s28=0;
ww28:=if(w28*t28,w28*t28,9999);
w29:=BARSTATUS=2 and x29=0 or s29=0;
ww29:=if(w29*t29,w29*t29,9999);
w30:=BARSTATUS=2 and x30=0 or s30=0;
ww30:=if(w30*t30,w30*t30,9999);
w31:=BARSTATUS=2 and x31=0 or s31=0;
ww31:=if(w31*t31,w31*t31,9999);
w32:=BARSTATUS=2 and x32=0 or s32=0;
ww32:=if(w32*t32,w32*t32,9999);
w33:=BARSTATUS=2 and x33=0 or s33=0;
ww33:=if(w33*t33,w33*t33,9999);
w34:=BARSTATUS=2 and x34=0 or s34=0;
ww34:=if(w34*t34,w34*t34,9999);
w35:=BARSTATUS=2 and x35=0 or s35=0;
ww35:=if(w35*t35,w35*t35,9999);
w36:=BARSTATUS=2 and x36=0 or s36=0;
ww36:=if(w36*t36,w36*t36,9999);
w37:=BARSTATUS=32 and x37=0 or s37=0;
ww37:=if(w37*t37,w37*t37,9999);
w38:=BARSTATUS=2 and x38=0 or s38=0;
ww38:=if(w38*t38,w38*t38,9999);
w39:=BARSTATUS=2 and x39=0 or s39=0;
ww39:=if(w39*t39,w39*t39,9999);
w40:=BARSTATUS=2 and x40=0 or s40=0;
ww40:=if(w40*t40,w40*t40,9999);
w41:=BARSTATUS=2 and x41=0 or s41=0;
ww41:=if(w41*t41,w41*t41,9999);
w42:=BARSTATUS=2 and x42=0 or s42=0;
ww42:=if(w42*t42,w42*t42,9999);
w43:=BARSTATUS=2 and x43=0 or s43=0;
ww43:=if(w43*t43,w43*t43,9999);
w44:=BARSTATUS=2 and x44=0 or s44=0;
ww44:=if(w44*t44,w44*t44,9999);
w45:=BARSTATUS=2 and x45=0 or s45=0;
ww45:=if(w45*t45,w45*t45,9999);
w46:=BARSTATUS=2 and x46=0 or s46=0;
ww46:=if(w46*t46,w46*t46,9999);
w47:=BARSTATUS=2 and x47=0 or s47=0;
ww47:=if(w47*t47,w47*t47,9999);
w48:=BARSTATUS=2 and x48=0 or s48=0;
ww48:=if(w48*t48,w48*t48,9999);
w49:=BARSTATUS=2 and x49=0 or s49=0;
ww49:=if(w49*t49,w49*t49,9999);
w50:=BARSTATUS=2 and x50=0 or s50=0;
ww50:=if(w50*t50,w50*t50,9999);
w51:=BARSTATUS=2 and x51=0 or s51=0;
ww51:=if(w51*t51,w51*t51,9999);
w52:=BARSTATUS=2 and x52=0 or s52=0;
ww52:=if(w52*t52,w52*t52,9999);
w53:=BARSTATUS=2 and x53=0 or s53=0;
ww53:=if(w53*t53,w53*t53,9999);
w54:=BARSTATUS=2 and x54=0 or s54=0;
ww54:=if(w54*t54,w54*t54,9999);
w55:=BARSTATUS=2 and x55=0 or s55=0;
ww55:=if(w55*t55,w55*t55,9999);
w56:=BARSTATUS=2 and x56=0 or s56=0;
ww56:=if(w56*t56,w56*t56,9999);
w57:=BARSTATUS=2 and x57=0 or s57=0;
ww57:=if(w57*t57,w57*t57,9999);
w58:=BARSTATUS=2 and x58=0 or s58=0;
ww58:=if(w58*t58,w58*t58,9999);
w59:=BARSTATUS=2 and x59=0 or s59=0;
ww59:=if(w59*t59,w59*t59,9999);
w60:=BARSTATUS=2 and x60=0 or s60=0;
ww60:=if(w60*t60,w60*t60,9999);
w61:=BARSTATUS=2 and x61=0 or s61=0;
ww61:=if(w61*t61,w61*t61,9999);
min1:=min(ww1,ww2,ww3,ww4,ww5,ww6,ww7,ww8,ww9,ww10,ww11,ww12,ww13,ww14,ww15,ww16);
min2:=min(ww17,ww18,ww19,ww20,ww21,ww22,ww23,ww24,ww25,ww26,ww27,ww28,ww29,ww30,ww31,ww32);
min3:=min(ww33,ww34,ww35,ww36,ww37,ww38,ww39,ww40,ww41,ww42,ww43,ww44,ww45,ww46,ww47,ww48);
min4:=min(ww49,ww50,ww51,ww52,ww53,ww54,ww55,ww56,ww57,ww58,ww59,ww60,ww61,min1,min2,min3);
min5a:=if(min4>=9999,0,min4);
min5:=if(BARSTATUS=2,min4,0);
w:=BACKSET(BARSTATUS=2,min5);
tx:=BARSSINCE(w);
qklx1:=ref(qklx,tx);
qkh:=ref(H,tx+1);
qkl:=ref(l,tx+1);
qkhl:=if(qklx1=2,qkh,if(qklx1=1,qkl,0));
wl:=LLv(L,tx+1);
wh:=hhv(h,tx+1);
wl1:=LLVALL(wl);
wh1:=hhVALL(wh);
whl:=if(qklx1=2,wl1,if(qklx1=1,wh1,0));
DRAWTEXT(tx=0 and qklx=1,qkl,''+NUMTOSTRN(wh1,2)+'-'+NUMTOSTRN(qkl,2)),VALIGN2,colorwhite;
DRAWTEXT(tx=0 and qklx=2,qkh,''+NUMTOSTRN(qkh,2)+'-'+NUMTOSTRN(wl1,2)),VALIGN0,colorwhite;
STICKLINE(w,qkhl,whl,13,0),COLORGRAY,LAYER0;
ma5:ma(c,n1),COLORWHITE,LAYER0;
ma10:ma(c,n2),COLORYELLOW,LAYER0;
ma30:ma(c,n3),COLORMAGENTA,LAYER0;