true 4 decimal true

Ковёр Серпинского

V1 011 i + i 051 mat ←

x T1 a x 2 V1 4 el * + x V1 4 el + augment ← a x 2 V1 4 el * + V1 2 el + a augment ← a x 2 V1 3 el * + a augment ← a x V1 4 el + 2 V1 2 el * + a augment ← a x 2 V1 2 el * + a augment ← a x V1 2 el + a augment ← 13 / x a augment * 71 line ←

n Sp x.0 V1 ← ii 1 ← ii n ≤ ii ii 1 + ← x ii el x.0 ← вых x.0 ← y ii el x ii el T1 ← x.0 y ii el ← вых вых y ii el augment ← 51 line for вых 31 line ←

n 3 ←

S n Sp eval ←

rows S rows eval ←

cols S cols eval ←

rows 5

cols 576

x G k 0 ← jj 1 ← jj cols ≤ jj jj 1 + ← ii 1 ← ii rows ≤ ii ii 1 + ← temp S ii jj el ← вых rows jj 1 - (* ii + k + 1 el temp Re ← вых rows jj 1 - (* ii + k + 2 el temp Im ← 31 line for jj 8 mod 0 ≡ temp S 1 jj 7 - el ← вых rows jj 1 - (* rows + k + 1 + 1 el temp Re ← вых rows jj 1 - (* rows + k + 1 + 2 el temp Im ← k k 1 + ← 41 line k k ← if 21 line for вых 31 line ←

x G