screw.mws

screw - Šroubové plochy

Calling Sequence

screw(k(u),v0, axis, phi)

revolve(k(u), v0, axis)

revolve(k(u),v0)

Parameters

k(u) -     tvořící křivka šroubové plochy, je zadána vektorovou funkcí k(u)=[x(u), y(u), z(u)].

v0         redukovaná výška závitu, parametr šroubového pohybu. Posunutí, které přísluší otočení o úhel 1rad. Zadáte-li v0=0, získáte rotační pohyb.

axis      osa šroubového pohybu, zvolte jednu ze souřadnicových os x, y, nebo z. Pokud tento parametr nedoplníte, bude osou šroubového pohybu souřadnicová osa z.

phi       jméno parametru rotačního pohybu, pokud jej vynecháte bude automaticky dosazeno písmeno phi.

Description

Examples

Nejprve je třeba nastavit cestu, kde máte uloženou knihovnu "diffgeometry", např

>    restart;

>    libname:=libname,"D:/Sarka/Maple/diffgeometry/libsarka";

libname :=

>    with(diffgeometry):

Šroubovým pohybem kružnice, nebo její části vzniknou tzv. cyklické šroubové plochy.

Zadáme tvořící kružnici k  v souřadnicové rovině (y,z)

>    k:=[0,cos(t),sin(t)];

k := [0, cos(t), sin(t)]

Souřadnicovou osu zvolíme z, parametr pohybu bude alpha

>    cop:=screw(k,0.5,z,alpha);

cop := [sin(alpha)*cos(t), cos(alpha)*cos(t), sin(t)+.5*alpha]

>    plot3d(cop,alpha=-Pi..2*Pi,t=-Pi..Pi,scaling=constrained,transparency=0.5);

[Maple Plot]

Helikoid (schodová plocha)  vznikne šroubovým pohybem přímky kolmé k ose :

>    k:=[0,t,0]:helikoid:=screw(k,4);

>    plot3d(helikoid,alpha=-Pi..2*Pi,t=0..1);

Proměnná alpha je parametr šroubového pohybu. Osou šroubového pohybu je souřadnicová osa z.

helikoid := [sin(alpha)*t, cos(alpha)*t, 4*alpha]

[Maple Plot]

>