 |
T:=BARSSINCE(DATE>=930101);
LG:=LLV(L,T);
XN:=FLOOR(C/LG);
X:IF(C<=LG*2,LG*2,IF(C<=LG*4,LG*4,IF(C<=LG*8,LG*8,IF(C<=LG*16,LG*16,
IF(C<=LG*32,LG*32,LG*64))))),POINTDOT,COLORGREEN;
X12:IF(C<=LG*2,LG*1.125,IF(C<=LG*4,LG*2+LG*2*0.125,IF(C<=LG*8,LG*4+LG*4*0.125,
IF(C<=LG*16,LG*8+LG*8*0.125,IF(C<=LG*32,LG*16+LG*16*0.125,LG*32+LG*32*0.125)))))
,POINTDOT,COLORWHITE;
X25:IF(C<=LG*2,LG*1.25,IF(C<=LG*4,LG*2+LG*2*0.25,IF(C<=LG*8,LG*4+LG*4*0.25,
IF(C<=LG*16,LG*8+LG*8*0.25,IF(C<=LG*32,LG*16+LG*16*0.25,LG*32+LG*32*0.25)))))
,POINTDOT,COLORGREEN;
X33:IF(C<=LG*2,LG*(1+1/3),IF(C<=LG*4,LG*2+LG*2*1/3,IF(C<=LG*8,LG*4+LG*4*1/3,
IF(C<=LG*16,LG*8+LG*8*1/3,IF(C<=LG*32,LG*16+LG*16*1/3,LG*32+LG*32*1/3)))))
,POINTDOT,COLORMAGENTA;
X37:IF(C<=LG*2,LG*1.375,IF(C<=LG*4,LG*2+LG*2*0.375,IF(C<=LG*8,LG*4+LG*4*0.375,
IF(C<=LG*16,LG*8+LG*8*0.375,IF(C<=LG*32,LG*16+LG*16*0.375,LG*32+LG*32*0.375)))))
,POINTDOT,COLORYELLOW;
X50:IF(C<=LG*2,LG*1.5,IF(C<=LG*4,LG*2+LG*2*0.5,IF(C<=LG*8,LG*4+LG*4*0.5,
IF(C<=LG*16,LG*8+LG*8*0.5,IF(C<=LG*32,LG*16+LG*16*0.5,LG*32+LG*32*0.5)))))
,POINTDOT,COLORRED;
X62:IF(C<=LG*2,LG*1.625,IF(C<=LG*4,LG*2+LG*2*0.625,IF(C<=LG*8,LG*4+LG*4*0.625,
IF(C<=LG*16,LG*8+LG*8*0.625,IF(C<=LG*32,LG*16+LG*16*0.625,LG*32+LG*32*0.625)))))
,POINTDOT,COLORBLUE;
X66:IF(C<=LG*2,LG*(1+2/3),IF(C<=LG*4,LG*2+LG*2*2/3,IF(C<=LG*8,LG*4+LG*4*2/3,
IF(C<=LG*16,LG*8+LG*8*2/3,IF(C<=LG*32,LG*16+LG*16*2/3,LG*32+LG*32*2/3)))))
,POINTDOT,COLORYELLOW;
X75:IF(C<=LG*2,LG*1.75,IF(C<=LG*4,LG*2+LG*2*0.75,IF(C<=LG*8,LG*4+LG*4*0.75,
IF(C<=LG*16,LG*8+LG*8*0.75,IF(C<=LG*32,LG*16+LG*16*0.75,LG*32+LG*32*0.75)))))
,POINTDOT,COLORCYAN;
X87:IF(C<=LG*2,LG*1.875,IF(C<=LG*4,LG*2+LG*2*0.875,IF(C<=LG*8,LG*4+LG*4*0.875,
IF(C<=LG*16,LG*8+LG*8*0.875,IF(C<=LG*32,LG*16+LG*16*0.875,LG*32+LG*32*0.875))))),POINTDOT,COLORGRAY;