B365 = 17
B364 = 17
B363 = 17
B362 = 17
B361 = 17
B360 = 17
B359 = 17
B358 = 17
B357 = 16
B356 = 16
B355 = 16
B354 = 16
B353 = 16
B352 = 16
B351 = 16
B350 = 16
B349 = 16
B348 = 16
B347 = 16
B346 = 16
B345 = 16
B344 = 16
B343 = 16
B342 = 16
B341 = 16
B340 = 16
B339 = 16
B338 = 16
B337 = 15
B336 = 15
B335 = 15
B334 = 15
B333 = 15
B332 = 15
B331 = 15
B330 = 15
B329 = 15
B328 = 15
B327 = 15
B326 = 15
B325 = 15
B324 = 15
B323 = 15
B322 = 15
B321 = 15
B320 = 15
B319 = 15
B318 = 15
B317 = 14
B316 = 14
B315 = 14
B314 = 14
B313 = 14
B312 = 14
B311 = 14
B310 = 14
B309 = 14
B308 = 14
B307 = 14
B306 = 14
B305 = 14
B304 = 14
B303 = 14
B302 = 14
B301 = 14
B300 = 14
B299 = 14
B298 = 14
B297 = 13
B296 = 13
B295 = 13
B294 = 13
B293 = 13
B292 = 13
B291 = 13
B290 = 13
B289 = 13
B288 = 13
B287 = 13
B286 = 13
B285 = 13
B284 = 13
B283 = 13
B282 = 13
B281 = 13
B280 = 13
B279 = 13
B278 = 13
B277 = 12
B276 = 12
B275 = 12
B274 = 12
B273 = 12
B272 = 12
B271 = 12
B270 = 12
B269 = 12
B268 = 12
B267 = 12
B266 = 12
B265 = 12
B264 = 12
B263 = 12
B262 = 12
B261 = 12
B260 = 12
B259 = 12
B258 = 12
B257 = 11
B256 = 11
B255 = 11
B254 = 11
B253 = 11
B252 = 11
B251 = 11
B250 = 11
B249 = 11
B248 = 11
B247 = 11
B246 = 11
B245 = 11
B244 = 11
B243 = 11
B242 = 11
B241 = 11
B240 = 11
B239 = 11
B238 = 11
B237 = 10
B236 = 10
B235 = 10
B234 = 10
B233 = 10
B232 = 10
B231 = 10
B230 = 10
B229 = 10
B228 = 10
B227 = 10
B226 = 10
B225 = 10
B224 = 10
B223 = 10
B222 = 10
B221 = 10
B220 = 10
B219 = 10
B218 = 10
B217 = 9
B216 = 9
B215 = 9
B214 = 9
B213 = 9
B212 = 9
B211 = 9
B210 = 9
B209 = 9
B208 = 9
B207 = 9
B206 = 9
B205 = 9
B204 = 9
B203 = 9
B202 = 9
B201 = 9
B200 = 9
B199 = 9
B198 = 9
B197 = 8
B196 = 8
B195 = 8
B194 = 8
B193 = 8
B192 = 8
B191 = 8
B190 = 8
B189 = 8
B188 = 8
B187 = 8
B186 = 8
B185 = 8
B184 = 8
B183 = 8
B182 = 8
B181 = 8
B180 = 8
B179 = 8
B178 = 8
B177 = 7
B176 = 7
B175 = 7
B174 = 7
B173 = 7
B172 = 7
B171 = 7
B170 = 7
B169 = 7
B168 = 7
B167 = 7
B166 = 7
B165 = 7
B164 = 7
B163 = 7
B162 = 7
B161 = 7
B160 = 7
B159 = 7
B158 = 7
B157 = 6
B156 = 6
B155 = 6
B154 = 6
B153 = 6
B152 = 6
B151 = 6
B150 = 6
B149 = 6
B148 = 6
B147 = 6
B146 = 6
B145 = 6
B144 = 6
B143 = 6
B142 = 6
B141 = 6
B140 = 6
B139 = 6
B138 = 6
B137 = 5
B136 = 5
B135 = 5
B134 = 5
B133 = 5
B132 = 5
B131 = 5
B130 = 5
B129 = 5
B128 = 5
B127 = 5
B126 = 5
B125 = 5
B124 = 5
B123 = 5
B122 = 5
B121 = 5
B120 = 5
B119 = 5
B118 = 5
B117 = 4
B116 = 4
B115 = 4
B114 = 4
B113 = 4
B112 = 4
B111 = 4
B110 = 4
B109 = 4
B108 = 4
B107 = 4
B106 = 4
B105 = 4
B104 = 4
B103 = 4
B102 = 4
B101 = 4
B100 = 4
B99 = 4
B98 = 4
B97 = 3
B96 = 3
B95 = 3
B94 = 3
B93 = 3
B92 = 3
B91 = 3
B90 = 3
B89 = 3
B88 = 3
B87 = 3
B86 = 3
B85 = 3
B84 = 3
B83 = 3
B82 = 3
B81 = 3
B80 = 3
B79 = 3
B78 = 3
B77 = 2
B76 = 2
B75 = 2
B74 = 2
B73 = 2
B72 = 2
B71 = 2
B70 = 2
B69 = 2
B68 = 2
B67 = 2
B66 = 2
B65 = 2
B64 = 2
B63 = 2
B62 = 2
B61 = 2
B60 = 2
B59 = 2
B58 = 2
B57 = 1
B56 = 1
B55 = 1
B54 = 1
B53 = 1
B52 = 1
B51 = 1
B50 = 1
B49 = 1
B48 = 1
B47 = 1
B46 = 1
B45 = 1
B44 = 1
B43 = 1
B42 = 1
B41 = 1
B40 = 1
B39 = 1
B38 = 1
B37 = 0
B36 = 0
B35 = 0
B34 = 0
B33 = 0
B32 = 0
B31 = 0
B30 = 0
B29 = 0
B28 = 0
B27 = 0
B26 = 0
B25 = 0
B24 = 0
B23 = 0
B22 = 0
B21 = 0
B20 = 0
B19 = 0
B18 = 0
B17 = 18
B16 = 18
B15 = 18
B14 = 18
B13 = 18
B12 = 17
B11 = 17
B10 = 17
B9 = 17
B8 = 17
B7 = 17
B6 = 17
B5 = 17
B4 = 17
B3 = 17
B2 = 17
B1 = 17
lmhaab: B1:B365
n4 = 19
dn4: 2.0 * 3.141592653589793 / n4
jj = 2454981 (slider from 584283 to 2800000, step 1)
jj0cl = 584283
jjcl: jj - jj0cl
ijh = Mod(jjcl, 365.0)
A365 = 7
A364 = 6
A363 = 5
A362 = 4
A361 = 3
A360 = 2
A359 = 1
A358 = 0
A357 = 19
A356 = 18
A355 = 17
A354 = 16
A353 = 15
A352 = 14
A351 = 13
A350 = 12
A349 = 11
A348 = 10
A347 = 9
A346 = 8
A345 = 7
A344 = 6
A343 = 5
A342 = 4
A341 = 3
A340 = 2
A339 = 1
A338 = 0
A337 = 19
A336 = 18
A335 = 17
A334 = 16
A333 = 15
A332 = 14
A331 = 13
A330 = 12
A329 = 11
A328 = 10
A327 = 9
A326 = 8
A325 = 7
A324 = 6
A323 = 5
A322 = 4
A321 = 3
A320 = 2
A319 = 1
A318 = 0
A317 = 19
A316 = 18
A315 = 17
A314 = 16
A313 = 15
A312 = 14
A311 = 13
A310 = 12
A309 = 11
A308 = 10
A307 = 9
A306 = 8
A305 = 7
A304 = 6
A303 = 5
A302 = 4
A301 = 3
A300 = 2
A299 = 1
A298 = 0
A297 = 19
A296 = 18
A295 = 17
A294 = 16
A293 = 15
A292 = 14
A291 = 13
A290 = 12
A289 = 11
A288 = 10
A287 = 9
A286 = 8
A285 = 7
A284 = 6
A283 = 5
A282 = 4
A281 = 3
A280 = 2
A279 = 1
A278 = 0
A277 = 19
A276 = 18
A275 = 17
A274 = 16
A273 = 15
A272 = 14
A271 = 13
A270 = 12
A269 = 11
A268 = 10
A267 = 9
A266 = 8
A265 = 7
A264 = 6
A263 = 5
A262 = 4
A261 = 3
A260 = 2
A259 = 1
A258 = 0
A257 = 19
A256 = 18
A255 = 17
A254 = 16
A253 = 15
A252 = 14
A251 = 13
A250 = 12
A249 = 11
A248 = 10
A247 = 9
A246 = 8
A245 = 7
A244 = 6
A243 = 5
A242 = 4
A241 = 3
A240 = 2
A239 = 1
A238 = 0
A237 = 19
A236 = 18
A235 = 17
A234 = 16
A233 = 15
A232 = 14
A231 = 13
A230 = 12
A229 = 11
A228 = 10
A227 = 9
A226 = 8
A225 = 7
A224 = 6
A223 = 5
A222 = 4
A221 = 3
A220 = 2
A219 = 1
A218 = 0
A217 = 19
A216 = 18
A215 = 17
A214 = 16
A213 = 15
A212 = 14
A211 = 13
A210 = 12
A209 = 11
A208 = 10
A207 = 9
A206 = 8
A205 = 7
A204 = 6
A203 = 5
A202 = 4
A201 = 3
A200 = 2
A199 = 1
A198 = 0
A197 = 19
A196 = 18
A195 = 17
A194 = 16
A193 = 15
A192 = 14
A191 = 13
A190 = 12
A189 = 11
A188 = 10
A187 = 9
A186 = 8
A185 = 7
A184 = 6
A183 = 5
A182 = 4
A181 = 3
A180 = 2
A179 = 1
A178 = 0
A177 = 19
A176 = 18
A175 = 17
A174 = 16
A173 = 15
A172 = 14
A171 = 13
A170 = 12
A169 = 11
A168 = 10
A167 = 9
A166 = 8
A165 = 7
A164 = 6
A163 = 5
A162 = 4
A161 = 3
A160 = 2
A159 = 1
A158 = 0
A157 = 19
A156 = 18
A155 = 17
A154 = 16
A153 = 15
A152 = 14
A151 = 13
A150 = 12
A149 = 11
A148 = 10
A147 = 9
A146 = 8
A145 = 7
A144 = 6
A143 = 5
A142 = 4
A141 = 3
A140 = 2
A139 = 1
A138 = 0
A137 = 19
A136 = 18
A135 = 17
A134 = 16
A133 = 15
A132 = 14
A131 = 13
A130 = 12
A129 = 11
A128 = 10
A127 = 9
A126 = 8
A125 = 7
A124 = 6
A123 = 5
A122 = 4
A121 = 3
A120 = 2
A119 = 1
A118 = 0
A117 = 19
A116 = 18
A115 = 17
A114 = 16
A113 = 15
A112 = 14
A111 = 13
A110 = 12
A109 = 11
A108 = 10
A107 = 9
A106 = 8
A105 = 7
A104 = 6
A103 = 5
A102 = 4
A101 = 3
A100 = 2
A99 = 1
A98 = 0
A97 = 19
A96 = 18
A95 = 17
A94 = 16
A93 = 15
A92 = 14
A91 = 13
A90 = 12
A89 = 11
A88 = 10
A87 = 9
A86 = 8
A85 = 7
A84 = 6
A83 = 5
A82 = 4
A81 = 3
A80 = 2
A79 = 1
A78 = 0
A77 = 19
A76 = 18
A75 = 17
A74 = 16
A73 = 15
A72 = 14
A71 = 13
A70 = 12
A69 = 11
A68 = 10
A67 = 9
A66 = 8
A65 = 7
A64 = 6
A63 = 5
A62 = 4
A61 = 3
A60 = 2
A59 = 1
A58 = 0
A57 = 19
A56 = 18
A55 = 17
A54 = 16
A53 = 15
A52 = 14
A51 = 13
A50 = 12
A49 = 11
A48 = 10
A47 = 9
A46 = 8
A45 = 7
A44 = 6
A43 = 5
A42 = 4
A41 = 3
A40 = 2
A39 = 1
A38 = 0
A37 = 19
A36 = 18
A35 = 17
A34 = 16
A33 = 15
A32 = 14
A31 = 13
A30 = 12
A29 = 11
A28 = 10
A27 = 9
A26 = 8
A25 = 7
A24 = 6
A23 = 5
A22 = 4
A21 = 3
A20 = 2
A19 = 1
A18 = 0
A17 = 4
A16 = 3
A15 = 2
A14 = 1
A13 = 0
A12 = 19
A11 = 18
A10 = 17
A9 = 16
A8 = 15
A7 = 14
A6 = 13
A5 = 12
A4 = 11
A3 = 10
A2 = 9
A1 = 8
ljhaab: A1:A365
n3 = 20
dn3: 2.0 * 3.141592653589793 / n3
ci4 = 2709
ci3 = 2465
c3 = 2655
c2 = 1980
ci2 = 1702
n1 = 13
dn1: 2.0 * 3.141592653589793 / n1
c1 = 1175
xc1: -(c1) / 2.0
d1: sqrt(2.0) * c1 / 2.0
da1: -(jjcl) * dn1
xg1: d1 * cos(5.0 * 3.141592653589793 / 4.0 + da1) + xc1
yg1: d1 * sin(5.0 * 3.141592653589793 / 4.0 + da1)
xd1: d1 * cos(-(3.141592653589793) / 4.0 + da1) + xc1
yd1: d1 * sin(-(3.141592653589793) / 4.0 + da1)
n2 = 20
d2: sqrt(2.0) * c2 / 2.0
dn2: 2.0 * 3.141592653589793 / n2
da2: -(jjcl) * dn2
xc2: -(ci2) / 2.0
xg2: d2 * cos(5.0 * 3.141592653589793 / 4.0 + da2) + xc2
yg2: d2 * sin(5.0 * 3.141592653589793 / 4.0 + da2)
yd2: d2 * sin(-(3.141592653589793) / 4.0 + da2)
xd2: d2 * cos(-(3.141592653589793) / 4.0 + da2) + xc2
cl1 = Mod(jjcl, 20.0)
cl2 = Mod(floor(jjcl / 20.0), 18.0)
cl3 = Mod(floor(jjcl / 360.0), 20.0)
cl4 = Mod(floor(jjcl / 7200.0), 20.0)
cl5: floor(jjcl / 144000.0)
texte1: "C.L. =" + cl5 + "." + cl4 + "." + cl3 + "." + cl2 + "." + cl1
d3: sqrt(2.0) * c3 / 2.0
xc3: (c2 - ci2 - ci3) / 2.0
da3: -(Element[ljhaab, ijh + 1.0]) * dn3
xg3: d3 * cos(5.0 * 3.141592653589793 / 4.0 + da3) + xc3
yg3: d3 * sin(5.0 * 3.141592653589793 / 4.0 + da3)
xd3: d3 * cos(-(3.141592653589793) / 4.0 + da3) + xc3
yd3: d3 * sin(-(3.141592653589793) / 4.0 + da3)
c4 = 3080
d4: sqrt(2.0) * c4 / 2.0
xc4: (c2 - ci2 + c3 - ci3 - ci4) / 2.0
da4: -(Element[lmhaab, ijh + 1.0]) * dn4
xg4: d4 * cos(5.0 * 3.141592653589793 / 4.0 + da4) + xc4
yg4: d4 * sin(5.0 * 3.141592653589793 / 4.0 + da4)
xd4: d4 * cos(-(3.141592653589793) / 4.0 + da4) + xc4
yd4: d4 * sin(-(3.141592653589793) / 4.0 + da4)
A = (-89.51214058445501, -35.1277714580466)
B = (417.04512240028333, -38.140612309146235)
C = (417.04512240028333, 37.18040896834457)
D = (-88.00572015890519, 35.67398854279475)
poly1, cdra, cdrb, cdrc, cdrd = Polygon(A, B, C, D)
z: floor(jj + 0.5)
alp: floor((z - 1867216.25) / 36524.25)
a: z + 1.0 + alp - floor(alp / 4.0)
b: a + 1524.0
c: floor((b - 122.1) / 365.25)
d: floor(365.25 * c)
e: floor((b - d) / 30.6001)
f: jj + 0.5 - z
hdec: 24.0 * f
hr: floor(hdec)
jdec: b - d - floor(30.6001 * e) + f
jj0 = 2387407
jjs = Mod(floor(jj - 0.5) + 0.5 + 1.5, 7.0)
jri: floor(jdec)
mn: floor((hdec - hr) * 60.0)
mr: e - If[e < 13.5, 1.0, 13.0]
yr: c - 4715.0 - If[mr > 2.5, 1.0, 0.0]
zjour: floor(jj) + If[hdec < 12.0, 0.5, -0.5] + 1.5
zmod7 = Mod(zjour, 7.0)
texte5: "JJ : " + jj
texte2: "" + (If[zmod7 ≟ 0.0, "Dimanche", If[jjs ≟ 1.0, "Lundi", If[jjs ≟ 2.0, "Mardi", If[jjs ≟ 3.0, "Mercredi", If[jjs ≟ 4.0, "Jeudi", If[jjs ≟ 5.0, "Vendredi", "Samedi"]]]]]]) + " " + jri + "/" + mr + "/" + yr