963ba148-0c8c-4a80-ab02-8d6111ccf450 4 15 12 decimal

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

Part 1 subdivide X-integer

]]>

Subdivide a range in 'n' intervals ... demo n pivot interval j 1 n 1 + (range h j el pivot - pivot j * + n / : for h 21 line :

S 1010 interval (:

negS 1 - (S S rows 2 range 11 range el * :

θ rot θ cos θ sin - θ sin θ cos 22 mat :

idx 1 New rows range : A 0 idx * 10 - New augment : 21 sys

New negS S stack :

plot1 A A π - 2 / rot * A - A π - 2 / rot * - stack :

fence plot1 plot1 : plot075 0.75 plot1 * : plot05 0.5 plot1 * : plot025 0.25 plot1 * : 41 sys :

i 1 A rows range Fx 2 i * 1 - el A 1 col i el : Fy 2 i * 1 - el A 2 col i el : 21 line for

field fence radial radial - radial π - 2 / rot * radial π - 2 / rot * - 51 sys :

radial Fx Fy augment :

field 1 1 sys