Hello

I tried to modelise the move of a pendulum. I have this equation:

eq := (1/2)*m*((l+r)^2+(1/5)*r^2)*(diff(theta(t), t))^2-m*g*(l+r)*(cos(theta(t))+cos(angleInitial)) = 0;

I tried this programme:

pend := proc (a0, l, r, m,nbpoints)
local eq, sol, valeurstheta, x, y, plotseq, g;
g := 9.81;
eq := (1/2)*m*((l+r)^2+(1/5)*r^2)*(diff(theta(t), t))^2-m*g*(l+r)*(cos(theta(t))+cos(angleInitial)) = 0;
sol := dsolve({theta(0...

Hello,

I want to solve the differential equation and put the solution in a list to be able to animate the pendulum.

tipe6 := proc (longueur, thetaInitial, rayonBoule, nombrePoints)

local eq, sol, valeurstheta, x, y, plotseq;

eq := ((1/2)*longueur^2+(1/5)*rayonBoule^2)*(diff(theta(t), t))^2+g*l*(cos(theta(t))-cos(thetaInitial)) = 0;

sol := dsolve({theta(0) = thetaInitial, (D(theta))(0) = 0, eq}, theta(t), numeric);

Hello,

I would like to create a model of a sinngle pendulum with Maple 13

I began but I cannot manage to animate it

Here is what i have already written:

pendulum:=proc(l,initialAngle,initialSpeed)

local eq,sol,angledata,x,y,plotseq

eq:=diff(θ(t),t,t) + 9.81/l sin(θ(t)) = 0;

sol:=dsolve({eq,θ(0)=initialAngle,D(θ)(0)=initialSpeed},θ(t),numeric);