SG Fórum - Maple - #436

SG Fórum - Maple - #436

Fórum / Felhasználói programok

xDJCx 2010. ápr. 19. 23:16 | válasz | #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&#245
;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);

Válasz 'petinho26' üzenetére (#434)