A Maple egy fejlett matematikai problémamegoldó és programozói szoftver.
-
xDJCx #436
Az ingás feladatra egy megoldás (Maple 13-ban):
INGA:=proc(theta0)
description "Inga mozgása, bemenet: theta0 kezdeti szög fokban.";
local thetao,x,y,t,ingaabra,theta,abrak,T;
use plots in
thetao:=2*Pi/360*theta0;
T:=10;
theta:=t->thetao*cos(2*Pi*t/T);
x:=t->evalf(sin(theta(t))): y:=t->-evalf(cos(theta(t))):# koordináták idõfüggvénye
ingaabra:=t->plot([[[x(t),y(t)]],[[0,0],[x(t),y(t)]]],style=[point,line],symbol=solidcircle,symbolsize=15,color=[red,black],title=typeset("szög = ",evalf[3](theta(t)/(2*Pi)*360))):
abrak:=seq(ingaabra(r/5),r=0..T*5):
display(abrak,insequence=true,axes=boxed,scaling=constrained,gridlines=true,axes=normal);
end use:
end proc;
# próba: pl. 20 fokos maximális kilengésre
INGA(20);