a0e112fd-4790-4513-9f49-0a830a098cd8 11 4 5 false false 0 decimal

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

V 20 :

a 50 :

b 100 :

r a 2^b 2^+ 2 / (12 /^:

ω V r / : 0.253

1 x 1 y T PPlot T x vectorize T y vectorize augment eval 11 line :

t x 5050 ω t * π 2 / + sin * - : t y 100 ω t * sin * : 21 sys

T 08 0.01 range :

dy dx / dy dt / dt dx / * ≡

Point P

t.P 3 :

x.P y.P 21 mat t.P x t.P y 21 mat :

y dy dx / x x.P - (* y.P + ≡

Derivatives

t x' t x t diff :

t y' t y t diff :

t x'' t x' t diff :

t y'' t y' t diff :

Tangent

m t.P y' t.P x' / :

x tg m x x.P - (* y.P + :

t x.tg t.P x' t * x.P + : t y.tg t.P y' t * y.P + : 21 sys

Curvature

t c t x' t y'' * t y' t x'' * - t x' 2^t y' 2^+ (3^sqrt / :

The curvature have sign.

Center of Osculating Circle

x.C y.C 21 mat x.P y.P 21 mat 1 t.P c t.P x' t.P y' 21 mat norme * / t.P y' - t.P x' 21 mat * + : 107.2946 24.4413 21 mat

t x.O t cos t.P c abs / x.C + : t y.O t sin t.P c abs / y.C + : 21 sys

Osculating circle

x 0 > ( x 8 < ( & x c not defined if t x t y T PPlot x tg t x.O t y.O T PPlot x.C y.C x.P y.P 2 2 mat x.P y.P o 10 red augment x.C y.C o 10 green augment 6 1 sys