ecd5023c-8bf1-44e5-9981-87ce90a142b5 14 4 5 decimal

&[DATE] &[TIME] - &[FILENAME]

1. Implicit forLoop matrix

m 5 :

d 2 :

P 02 matrix : i 1 m 1 + (range φ 360 ° * i m / * d * : P P φ sin φ cos 12 mat stack : 21 line for 21 line

Ω i 1 m 1 + (range φ i el 360 ° * i m / * d * : U i el φ i el sin φ i el cos 12 mat : 21 line for v U 1 el : j 2 U rows range v v U j el stack : for v 41 line :

Shadow in context by P=mat(0,2) ... Independant construct not shadowing context

Ω 1 2 1 2 submatrix Ω 2 3 1 2 submatrix Ω 3 4 1 2 submatrix Ω 4 5 1 2 submatrix Ω 5 6 1 2 submatrix 5 1 sys $Ω 0.5878 0.809 - 0.9511 - 0.309 0.9511 0.309 0.5878 - 0.809 - 4.8984 1016 -^* - 1 0.5878 0.809 - 62 mat$ $Common geometry 36 ≡ Triangle ≡ 5 Star ≡ 7 Hugly star ≡ 8 Losange ≡ 10 Pantagon ≡ 12 Octogon ≡ 14 Heptagon ≡ 16 Hexagon ≡ 18 Nonagon ≡ 20 Decagon ≡ 22 Hendecagon ≡ 24 Dodecagon ≡ 121 line$

How it works:

The command 'matrix(0,2)' is a virtual creation, i.e: it creates a vector of 2 cols at the kernel level, awaiting each row/col being filled with calculated values, in this case: each sin(φ) cos(φ) as they are calculated on the descending "for loop" and stacked in P at each step. matrix(0,2) is a user function name that creates mat(0,2) at the kernel level. From there,and down, it creates "shadow in context" wrt the dual converters sys2mat(mat2sys(ifft(Y))), thus blinds the Fourier-Dirac suite. Disable module 'P' to activate Fourier-Dirac Geometry.

2. Fourier-Dirac Geometry ... disable 'P' above

Fourier "ifft" from padded created vector [Numeric] v ifft N v length : s 1 N sqrt / : 12 mat n 0 N range I n 1 + el s (v k 1 + el e i 2 π * n * N / (* k * -^* (k 0 N 1 - sum eval * : for I 31 line :

Fourier  CENTER padding Y n 2 pad * 1 - (: i pad n range Y i el 1 : for i pad 1 + (n range Y i el 0 : for Y 41 line :

U Y ifft mat2sys sys2mat : a U Re mat2sys sys2mat : b U Im mat2sys sys2mat : 31 line

pad 4 :

Y rows 7

Y transpose 000100017 mat

a b augment

pad 2 triangle ≡ 3 penta star ≡ 4 epta star ≡ # 9 bulleye star ≡ 51 mat ≡

OFF-CENTER padding Y n 2 pad * 1 - (: i 1 n range Y i el 1 : for i 2 n 1 - (range Y i el 0 : for Y 41 line :

CENTER padding Y n 2 pad * 1 - (: i pad n range Y i el 1 : for i 2 n 1 - (range Y i el 0 : for Y 41 line :

U Y ifft mat2sys sys2mat : a U Re mat2sys sys2mat : b U Im mat2sys sys2mat : 31 line

Y transpose 000000117 mat

Draw odd polygon

a b augment

=============================================