91a3158b-b28e-41db-9651-c2358646fb61 17 15 12 decimal

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

x y Φ3 x 2^y 2^+ (2^1 x 3^3 x * y 2^* - (* - : x y Φ6 x 2^y 2^+ (4^1 x 3^3 x * y 2^* - (2^* - : x C 1 x 2^- sqrt : plot first the Sixfolium 41 line

.. arguments ..
in place holder x C Re x C Re - Φ6 Φ3 41 sys

x C Re x C Re - Φ3 3 1 sys

y F x y Φ3 0 ≡ x solve maple :

y F_Z_Z_Z 1 -_Z + (* 2 y 2^* + (* 3 y 2^* + (* y 4^+ RootOf

y F x y Φ3 0 ≡ x solve allvalues maple :

The Maple advanced expansion is in term of solutions "RootOf". The command "allvalues" restricts to explicit solutions wrt 't'. "simplify" is not needed either. "RootOf" has a workaround, but a monkey business ... never attempted yet, in Smath.

x F 3 el x F 2 el 2 1 sys x F 1 el Re x F 1 el Im 2 1 sys

<== slow plots

junction 0.5625 - 0.5625 - f 1 el + 15 black 15 mat :

x f x y Φ3 0 ≡ y solve maple :

plot x f 1 el x f 2 el x f 3 el x f 4 el 41 sys :

plot x C Re x C Re - junction 4 1 sys

Solving for the junction ... value in the Trifolium domain x f 1 el x f 3 el - abs 0 ≡ x 0.563 - 0.562 - solve 0.5625 - f 1 el 21 mat 0.562500000000000 - 0.726184377413890 21 mat

Trifolium j 0.5625 - : u j 0 j 0.005 + (range : v j 1 j 0.005 + (range : i 1 v rows range V i el v i el f 1 el eval : for i 1 u rows range U i el u i el f 3 el eval : for red v V - augment : magenta u U - augment : blue v V augment : green u U augment : blue red green magenta stack 101 line :

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

θ 0 :

T Trifolium π 3 / - rot * :

Trifolium T 2 1 sys

T t Eol Trifolium θ π 30 / t * + rot * eval :

x re x C Re 1 - x ≤ (x 1 ≤ (& cases :

Hub 00.15 red 15 mat :

x im x C Re - 1 - x ≤ (x 1 ≤ (& cases :

step1 060 range :

Smath "Wind Mill" project

T t Eol x re x im Hub 4 1 sys