c991c745-16ff-4559-bff3-85c599c88376 2 4 5 false false 0 decimal

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

The spiral curved along a given 3d curve

r1 0.2 :

N 170 :

s 12 :

Δθ 0.01 : t 1 N range x t el 3 Δθ t * cos * 10 Δθ * t * cos Δθ t * cos * + : y t el 3 Δθ t * sin * 10 Δθ * t * cos Δθ t * sin * + : z t el 10 Δθ * t * sin : 31 line for B1 x y z augment eval : 31 line

Поворот на угол α вокруг оси OX α Ω1 1000 α cos α sin - 0 α sin α cos 33 mat :

Поворот на угол φ вокруг оси OY φ Ω2 φ cos 0 φ sin 010 φ sin - 0 φ cos 33 mat :

γ 0.8232 - 0.4194 - 0.3827 0.5677 0.4187 - 0.543 0.3 - 0.6643 033 mat :

k 1 N 1 - (range p1 k el B1 k row transpose : Δp k el B1 k 1 + row transpose p1 k el - eval : L k el Δp k el 1 el (2^Δp k el 2 el (2^+ Δp k el 3 el (2^+ sqrt eval : k naxis Δp k el L k el / (transpose eval : k dn k naxis 2 el (2^k naxis 3 el (2^+ sqrt eval : k αn k naxis 3 el k dn / acos eval : k βn k dn acos eval : k ψ k naxis 1 el sign k βn * - Ω2 k naxis 2 el sign k αn * Ω1 * eval : 81 line for i 1 s range x1 i el r1 2 π * s / i * cos * eval : y1 i el r1 2 π * s / i * sin * eval : z1 i el L sum N 1 - (s * / i * eval : 31 line for n k canal1 x1 y1 z1 augment k ψ * γ * n col p1 k el transpose γ * n col 1 el + eval : k 1 N 1 - (range k 1 ≡ s1 1 k canal1 2 k canal1 augment : s1 s1 1 k canal1 2 k canal1 augment stack : if 11 line for 41 line

τ 1 s1 rows (range :

B1 γ * 1 col B1 γ * 2 col augment t 1 ≡ sp s1 t row : sp sp s1 t row stack : if 2 1 sys