d76f1d3c-9b16-4752-be7f-43e764285c33 9 15 12 decimal

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

square 1 - 1 - 1 - 11111 - 1 - 1 - 52 mat :

fence 1 - 1 - 1 - 11111 - 000000001 - 0.5 - 0.5 - 11 0.5 0.5 1 - 000000001 - 0011001 - 000000001 - 0.5 0.5 11 0.5 - 0.5 - 1 - 000000001 - 11111 - 1 - 1 - 00000000516 mat :

square 0.5 square * 2 1 sys

fence 15 range 78 range el 11 - 0.5 1 - 01 - 0.5 - 1 - 1 - 1 - 52 mat

data char size clr plot k 1 data rows range r3 k el char : r4 k el size : r5 k el clr : 13 mat for data r3 r4 r5 augment 21 line :

fence1 1 - 1 - 1 - 0.5 - 1 - 01 - 0.5 1 - 152 mat :

fence2 1 - 1 0.5 - 101 0.5 11152 mat :

fence3 111 0.5 101 0.5 - 11 - 52 mat :

fence4 11 - 0.5 1 - 01 - 0.5 - 1 - 1 - 1 - 52 mat :

size 15 :

clr black :

f1 fence1 . size clr plot : f2 fence2 . size clr plot : f3 fence3 . size clr plot : f4 fence4 . size clr plot : 41 sys

i 15 range Fx 2 i * 1 - el fence 1 col i el : Fy 2 i * 1 - el fence 2 col i el : 21 line for

square f1 f2 f3 f4 5 1 sys

Fxy Fx Fy augment : 1 - 1 - 001 - 0.5 - 001 - 0001 - 0.5 001 - 192 mat

square f1 f2 f3 f4 Fxy 6 1 sys

Fxy_half 0.5 Fxy * :

square fence1 fence2 fence3 fence4 Fxy 6 1 sys

Fxy_half 0.5 - 0.5 - 00 0.5 - 0.25 - 00 0.5 - 000 0.5 - 0.25 00 0.5 - 0.5 92 mat

square fence1 fence2 fence3 fence4 Fxy 61 sys

half Fxy_half o 8 green plot :

square f1 f2 f3 f4 Fxy half 7 1 sys

size 8 :

clr black :

f1_0.5 fence1 * o size clr plot : f2_0.5 fence2 * o size clr plot : f3_0.5 fence3 * o size clr plot : f4_0.5 fence4 * o size clr plot : 41 sys

plot square f1 f2 f3 f4 0.5 square * f1_f2_f3_f4_Fxy 111 sys :

plot

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 :

Part 1 subdivide X-integer pivot range

]]>

S 1010 interval (:

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

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

New negS S stack :

θ π - 2 / :

θ 1.5708 -

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

New 11 mat 10 - 9 - 8 - 7 - 6 - 5 - 4 - 3 - 2 - 1 - 0012345678910221 mat 11 mat

A A - A π - 2 / rot * A π - 2 / rot * - 4 1 sys

x y axes x y / - :

plot A A - A π - 2 / rot * A π - 2 / rot * - 0.5 A * 0.5 A * - 0.5 A * π - 2 / rot * 0.5 A * π - 2 / rot * - axes 91 sys :

plot

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

radial Fx Fy augment :

plot A A - A π - 2 / rot * A π - 2 / rot * - 0.5 A * 0.5 A * - 0.5 A * π - 2 / rot * 0.5 A * π - 2 / rot * - axes radial radial π - 2 / rot * radial - radial π - 2 / rot * - 131 sys :

plot