4f16bb1c-a04e-482e-a840-ab4e6800ed09 32 3 5 decimal

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

Mobius ribbon [strip width  => 1] u v f 1 v 2 / u 2 / cos * + (u cos * 1 v 2 / u 2 / cos * + (u sin * u 2 / (u 2 / sin * 31 mat :

x,y mesh = even, practical limit 30 x 30 ... 40 x 40 M u v f 02 π * 1 - 12020 CreateMesh :

angle Ω1 1000 angle cos angle sin - 0 angle sin angle cos 33 mat :

<= roll [roulis]

Матрица преобразования для поворота вокруг оси y angle Ω2 angle cos 0 angle sin 010 angle sin - 0 angle cos 33 mat :

<= pitch [azimuth]

Матрица преобразования для поворота вокруг оси z angle Ω3 angle cos angle sin - 0 angle sin angle cos 000133 mat :

<= yaw [horizon]

α 135 (° * :

β 135 ° * :

φ 270 ° * :

γ α Ω1 β Ω2 * φ Ω3 * eval : 1.2989 1016 -^* 0.7071 - 0.7071 0.7071 0.5000 0.5000 0.7071 - 0.5000 0.5000 33 mat

zoom 5 :

M γ * zoom *

M Unwrap V M 1 col : i 2 M cols range V V M i col stack eval : for V 31 line :

L H N xd U 0 : dx H L - N / : i 1 N 1 + (range U i el L dx - (dx i * + : for U 41 line :

N 30 : p 02 π * N xd : q 1 - 1 N xd : 31 line

CWD CurrentDirectory :

CWD C:\Program Files\SMath Studio\

X i 1 N range j 1 N range mx i j el 1 q j el 2 / (p i el 2 / cos * + (p i el cos * eval : for for mx 21 line :

1 v 2 / u 2 / cos * + (u cos * 1 v 2 / u 2 / cos * + (u sin * u 2 / (u 2 / sin * 31 mat

Y i 1 N range j 1 N range my i j el 1 q j el 2 / (p i el 2 / cos * + (p i el sin * eval : for for my 21 line :

Z i 1 N range j 1 N range mz i j el p i el 2 / (p j el 2 / sin * eval : for for mz 21 line :

zoom 10 :

t0 1 time :

xyz X Unwrap Y Unwrap Z Unwrap augment zoom * eval :

1 time t0 - 12 s *

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

xyz xyz 1 * :

t Mobius xyz 1 t 13 submatrix :

step1 1 N 2^range :

t Mobius