f3cd8c03-2fde-4cb7-8e25-34087fc620a5 69 4 5 decimal

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

i 030 range :

j 018 range :

radius 20 :

p π - i π * 15 / + :

q π - j π * 9 / + :

k 0 radius range u k 1 + el 1 radius k - 1 k + / + : for

i 1 u rows range R i el 5 u i el * 625 i - / + : r i el 1.5 u i el * 425 i - / + : 21 line for

The 3 vectors [u,R,r] ... The 3 matrices [X,Y,Z] do sanity check Mathcad 11.

i 131 range j 119 range mx i j el R t el p i el u t el / sin * r t el 1 q j el u t el / cos - (* p i el u t el / sin * - eval : my i j el r t el q j el u t el / sin * eval : mz i j el R t el 1 p i el u t el / cos - (* r t el 1 q j el u t el / cos - (* p i el u t el / cos * + eval : 31 line for for t X mx : t Y my : t Z mz : 31 sys 21 line

γ 0 0.7071 - 0.7071 0.7071 - 0.5 0.5 0.7071 - 0.5 - 0.5 - 33 mat :

N 21 :

step1 12 N * 10 + 1 - (range :

The transformation of a plate into a torus(Jean Giraud)

t N > ( t N 10 + ≤ ( & t N : 1 1 line t N 10 + > t 2 N * 10 + t - : t t : if if i 1 t X cols range i 1 ≡ L1 t X i col t Y i col t Z i col augment γ * 1 1 mat eval : L1 L1 t X i col t Y i col t Z i col augment γ * 1 1 mat stack eval : if for L1 mat2sys.1 3 1 line L1 mat2sys.1 eval