Příklad 7

>	restart:with(student):with(plots):with(VectorCalculus):

Warning, the name changecoords has been redefined

Warning, the assigned names <,> and <|> now have a global binding

Warning, these protected names have been redefined and unprotected: *, +, ., Vector, diff, int, limit, series

Vypočtěte délku oblouku cykloidy. Při určování délky křivky  jde o výpočet integrálu

>	Int(1,s=gamma..``);

Parametrické rovnice cykloidy jsou

>	par:=x=r*(t-sin(t)),y=r*(1-cos(t)),t=0..2*Pi;

>	plot([1*(t-sin(t)),1*(1-cos(t)),t=0..2*Pi],scaling=constrained);

# Vykreslení grafu pro pevně zvolené r=1 .

Opět užijeme příkazu pro matematický zápis křivkového integrálu I. druhu a to

>	i:=Lineint(1,par);

Spočteme výslednou hodnotu

>

value(i);

Doplňme ještě podmínku na r   a spočteme výsledek

>	assume(r>0);

>

value(i);

Následující příkazem podmínku na r  opět zrušíme

>

r:='r';

Výpočet pomocí PathInt .

>	PathInt(1,[x,y] = Path(<r*(t-sin(t)),r*(1-cos(t))>, t=0..2*Pi));

>

>

>

>