Archimedova serpentina

Spustit/zastavit animaci

Obrázek vymažete posunutím nákresny.

skrýt/zobrazit tečnu

skrýt/zobrazit kružnici

skrýt/zobrazit kouli

skrýt/zobrazit rovinu

r_s = 2.3 (slider from 1 to 5, step 0.1)
s = CurveCartesian((r_s * cos(t)), (r_s * sin(t)), (2 * t), t, 0, (2 * π))
S = Point(s)
t_1 = Tangent(S, s)
B = Point(t_1)
A = Point(t_1)
t = Segment(A, B)
e = false
a = OrthogonalPlane(S, t)
r_k = 5 (slider from 0 to 5, step 0.1)
d = true
c = Circle(S, r_k, t)
f = true
b = Sphere(S, r_k)
g = false