cm1:ema(cost(90),20),color000000,POINTDOT,LINETHICK3;
cm2:ema(cost(50),20),color000000,POINTDOT,LINETHICK3;
cm3:ema(cost(10),20),color000000,POINTDOT,LINETHICK3;
cm4:ema(cost(70),20),color000000,POINTDOT,LINETHICK2;
cm5:ema(cost(30),20),color000000,POINTDOT,LINETHICK2;
hb:=cost(99.9);
lb:=cost(0.1);
b3:=(hb-lb)/50;
b31:=hb-b3;
b32:=hb-2*b3;
b33:=hb-3*b3;
b34:=hb-4*b3;
b35:=hb-5*b3;
b36:=hb-6*b3;
b37:=hb-7*b3;
b38:=hb-8*b3;
b39:=hb-9*b3;
b310:=hb-10*b3;
b311:=hb-11*b3;
b312:=hb-12*b3;
b313:=hb-13*b3;
b314:=hb-14*b3;
b315:=hb-15*b3;
b316:=hb-16*b3;
b317:=hb-17*b3;
b318:=hb-18*b3;
b319:=hb-19*b3;
b320:=hb-20*b3;
b321:=hb-21*b3;
b322:=hb-22*b3;
b323:=hb-23*b3;
b324:=hb-24*b3;
b325:=hb-25*b3;
b326:=hb-26*b3;
b327:=hb-27*b3;
b328:=hb-28*b3;
b329:=hb-29*b3;
b330:=hb-30*b3;
b331:=hb-31*b3;
b332:=hb-32*b3;
b333:=hb-33*b3;
b334:=hb-34*b3;
b335:=hb-35*b3;
b336:=hb-36*b3;
b337:=hb-37*b3;
b338:=hb-38*b3;
b339:=hb-39*b3;
b340:=hb-40*b3;
b341:=hb-41*b3;
b342:=hb-42*b3;
b343:=hb-43*b3;
b344:=hb-44*b3;
b345:=hb-45*b3;
b346:=hb-46*b3;
b347:=hb-47*b3;
b348:=hb-48*b3;
b349:=hb-49*b3;
a1:=winner(hb)*100-winner(b31)*100;
a2:=winner(b31)*100-winner(b32)*100;
a3:=winner(b32)*100-winner(b33)*100;
a4:=winner(b33)*100-winner(b34)*100;
a5:=winner(b34)*100-winner(b35)*100;
a6:=winner(b35)*100-winner(b36)*100;
a7:=winner(b36)*100-winner(b37)*100;
a8:=winner(b37)*100-winner(b38)*100;
a9:=winner(b38)*100-winner(b39)*100;
a10:=winner(b39)*100-winner(b310)*100;
a11:=winner(b310)*100-winner(b311)*100;
a12:=winner(b311)*100-winner(b312)*100;
a13:=winner(b312)*100-winner(b313)*100;
a14:=winner(b313)*100-winner(b314)*100;
a15:=winner(b314)*100-winner(b315)*100;
a16:=winner(b315)*100-winner(b316)*100;
a17:=winner(b316)*100-winner(b317)*100;
a18:=winner(b317)*100-winner(b318)*100;
a19:=winner(b318)*100-winner(b319)*100;
a20:=winner(b319)*100-winner(b320)*100;
a21:=winner(b320)*100-winner(b321)*100;
a22:=winner(b321)*100-winner(b322)*100;
a23:=winner(b322)*100-winner(b323)*100;
a24:=winner(b323)*100-winner(b324)*100;
a25:=winner(b324)*100-winner(b325)*100;
a26:=winner(b325)*100-winner(b326)*100;
a27:=winner(b326)*100-winner(b327)*100;
a28:=winner(b327)*100-winner(b328)*100;
a29:=winner(b328)*100-winner(b329)*100;
a30:=winner(b329)*100-winner(b330)*100;
a31:=winner(b330)*100-winner(b331)*100;
a32:=winner(b331)*100-winner(b332)*100;
a33:=winner(b332)*100-winner(b333)*100;
a34:=winner(b333)*100-winner(b334)*100;
a35:=winner(b334)*100-winner(b335)*100;
a36:=winner(b335)*100-winner(b336)*100;
a37:=winner(b336)*100-winner(b337)*100;
a38:=winner(b337)*100-winner(b338)*100;
a39:=winner(b338)*100-winner(b339)*100;
a40:=winner(b339)*100-winner(b340)*100;
a41:=winner(b340)*100-winner(b341)*100;
a42:=winner(b341)*100-winner(b342)*100;
a43:=winner(b342)*100-winner(b343)*100;
a44:=winner(b343)*100-winner(b344)*100;
a45:=winner(b344)*100-winner(b345)*100;
a46:=winner(b345)*100-winner(b346)*100;
a47:=winner(b346)*100-winner(b347)*100;
a48:=winner(b347)*100-winner(b348)*100;
a49:=winner(b348)*100-winner(b349)*100;
a50:=winner(b349)*100-winner(lb)*100;
STICKLINE( DISPSTATUS=2,hb ,b31,a1*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b31 ,b32 ,a2*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b32 ,b33 ,a3*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b33 ,b34 ,a4*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b34 ,b35 ,a5*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b35 ,b36 ,a6*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b36 ,b37 ,a7*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b37 ,b38 ,a8*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b38 ,b39 ,a9*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b39 ,b310 ,a10*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b310 ,b311 ,a11*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b311 ,b312 ,a12*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b312 ,b313 ,a13*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b313 ,b314 ,a14*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b314 ,b315 ,a15*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b315 ,b316 ,a16*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b316 ,b317 ,a17*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b317 ,b318 ,a18*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b318 ,b319 ,a19*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b319 ,b320 ,a20*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b320 ,b321 ,a21*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b321 ,b322 ,a22*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b322 ,b323 ,a23*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b323 ,b324 ,a24*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b324 ,b325 ,a25*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b325 ,b326 ,a26*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b326 ,b327 ,a27*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b327 ,b328 ,a28*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b328 ,b329 ,a29*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b329 ,b330 ,a30*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b330 ,b331 ,a31*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b331 ,b332 ,a32*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b332 ,b333 ,a33*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b333 ,b334 ,a34*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b334 ,b335 ,a35*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b335 ,b336 ,a36*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b336 ,b337 ,a37*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b337 ,b338 ,a38*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b338 ,b339 ,a39*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b339 ,b340 ,a40*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b340 ,b341 ,a41*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b341 ,b342 ,a42*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b342 ,b343 ,a43*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b343 ,b344 ,a44*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b344 ,b345 ,a45*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b345 ,b346 ,a46*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b346 ,b347 ,a47*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b347 ,b348 ,a48*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b348 ,b349 ,a49*50 ,0 ),LAYER7,colorcccccc;
STICKLINE( DISPSTATUS=2,b349 ,lb ,a50*50 ,0 ),LAYER7,colorcccccc;
max1:=max(a1,a2,a3,a4,a5,a6,a7,a8,a9,a10);
max2:=max(a11,a12,a13,a14,a15,a16,a17,a18,a19,a20);
max3:=max(a21,a22,a23,a24,a25,a26,a27,a28,a29,a30);
max4:=max(a31,a32,a33,a34,a35,a36,a37,a38,a39,a40);
max5:=max(a41,a42,a43,a44,a45,a46,a47,a48,a49,a50);
max6:=max(max1,max2,max3,max4,max5);
fff:=if(max6=a1,hb,if(max6=a2,b31,if(max6=a3,b32,if(max6=a4,b33,if(max6=a5,b34,if(max6=a6,b35,if(max6=a7,b36,if(max6=a8,b37,if(max6=a9,b38,if(max6=a10,b39,
if(max6=a11,b310,if(max6=a12,b311,if(max6=a13,b312,if(max6=a14,b313,if(max6=a15,b314,if(max6=a16,b315,if(max6=a17,b316,if(max6=a18,b317,if(max6=a19,b318,if(max6=a20,b319,
if(max6=a21,b320,if(max6=a22,b321,if(max6=a23,b322,if(max6=a24,b323,if(max6=a25,b324,if(max6=a26,b325,if(max6=a27,b326,if(max6=a28,b327,if(max6=a29,b328,if(max6=a30,b329,
if(max6=a31,b330,if(max6=a32,b331,if(max6=a33,b332,if(max6=a34,b333,if(max6=a35,b334,if(max6=a36,b335,if(max6=a37,b336,if(max6=a38,b337,if(max6=a39,b338,if(max6=a40,b339,
if(max6=a41,b340,if(max6=a42,b341,if(max6=a43,b342,if(max6=a44,b343,if(max6=a45,b344,if(max6=a46,b345,if(max6=a47,b346,if(max6=a48,b347,if(max6=a49,b348,if(max6=a50,b349,lb))))))))))))))))))))))))))))))))))))))))))))))))));
fff2:=if(max6=a1,b31,if(max6=a2,b32,if(max6=a3,b33,if(max6=a4,b34,if(max6=a5,b35,if(max6=a6,b36,if(max6=a7,b37,if(max6=a8,b38,if(max6=a9,b39,if(max6=a10,b310,
if(max6=a11,b311,if(max6=a12,b312,if(max6=a13,b313,if(max6=a14,b314,if(max6=a15,b315,if(max6=a16,b316,if(max6=a17,b317,if(max6=a18,b318,if(max6=a19,b319,if(max6=a20,b320,
if(max6=a21,b321,if(max6=a22,b322,if(max6=a23,b323,if(max6=a24,b324,if(max6=a25,b325,if(max6=a26,b326,if(max6=a27,b327,if(max6=a28,b328,if(max6=a29,b329,if(max6=a30,b330,
if(max6=a31,b331,if(max6=a32,b332,if(max6=a33,b333,if(max6=a34,b334,if(max6=a35,b335,if(max6=a36,b336,if(max6=a37,b337,if(max6=a38,b338,if(max6=a39,b339,if(max6=a40,b340,
if(max6=a41,b341,if(max6=a42,b342,if(max6=a43,b343,if(max6=a44,b344,if(max6=a45,b345,if(max6=a46,b346,if(max6=a47,b347,if(max6=a48,b348,if(max6=a49,b349,if(max6=a50,lb,lb))))))))))))))))))))))))))))))))))))))))))))))))));
FILLRGN(fff,fff2),colorwhite,LAYER7;
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;;
