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);

I am trying to get the equation of a line. I have a buch of points and need the equation of a line going through those points. I am making computer program that can finde the y value of any point on the line with the equation I'm trying to get and an X value.

So, I have some points,..

I can get the graph,..but not the equation for that graph...

Is this posable,...?? I can't seem to find out how...

Thank you!

(I put in the points Im using just as are ference)

Hi all,

I don't find an easy way to do what follows.

I've a list of names, with assumptions on them, eg:

assume(a,real);
assume(b,real):

parameters:=[a,b]

then I try do to something like

i:=0;
for what in parameters do
temp:=i;

assign(cat('crlb_', what), temp);
i:=i+1;
end do

because I want to create variables which keep a trace of the parameters they describe in the last part of their name.

ifplease how can i factorise in powers of (x-x_n), the expression  y(t):=(1/3h²)[(-x+x_n+h)(-x+x_n+3h)]y_n+(1/3h²)[(-x_n+x)(-x+x_n+4h)]y_n+1 -(1/3h)[(-x_n+x)(-x+x_n+3h)]_fn+2?

i was trying to familiarize with maple 13 but encountered this. pls how may i go out from here?

> with(Student[NumericalAnalysis]);
> DE1 := d*y(t)/dt = y(t)-t^2+1;
                           d y(t)           2   
        ...

I need to differentiate a postion vector with respect to time and extract the theta dots in the following http://img543.imageshack.us/img543/3079/positionvector.jpg

Many Thanks

How I can, with the help of maple, perform the following demonstration using rsolve?

From Equation : Y(t)=1 +A t + B t² + D t³

recursively determine t, by equation:

How can I plot this piecewise function:

for j from n-1 by -1 to 0 do

... does some processing that's not really relevant to the question:

s[j] := evalf(a[j]+b[j]*(t-x[j])+c[j]*(t-x[j])^2+d[j]*(t-x[j])^3)

end do;

S := t-> piecewise(

x[0] <= t and t <= x[1], s[0],

x[1] <= t and t <= x[2], s[1],

x[2] <= t and t <= x[3], s[2]);

My friends all...

Hi I would like to know how to traverse all terms in a polynomial. I've constructed formal polynomials out of abstract objects. They are all linear, without any cross terms. So I could have something like this:

f = 2a + 3b - c +8z

Ultimately I want to construct a table with the frequency of each element showing up in a random set of polynomials.

Thanks!

I Have a proc that creates some very long lists.
I would like to be able to store each of these lists with the same name in different indexed files.

What I would like to do looks something like...

fd:=["file1.m", "file2.m", ..., "filen.m"]

for i from 1 to n
do
proc(user defined variables)
save variable1,vaiable2, ...,variablem, fd[i]
end do:

This however doesn't work.

I would then like to be able then to run proceedures on these variables from each file.

hi everybody!

I have a question. Why my first loop works but the second one doesn't work?

first:

for m from 1 by 1 to 4 do

alpha := m+n:

od;

second:

for m from 1 by 1 to 4 do

for n from 1 by 1 to 4 do

alpha := m+n

od;

od;

what is my mistake?

Hello!

I'm writting a simple program to obtain chi-squared for my model. I've written it for a costant value of "n" and it correctly works and results chi-squared, but when I want to write a loop for "n" then the program doesn't work at all.

I don't recieve any error message. can you help me?

I am trying to solve the the differential equation. for this I have written the following program. But it is showing the error.

restart

with(plots)

eq := diff(x(t), `$`(t, 2))+326.1*(diff(x(t), `$`(t, 1)))+3190*(diff(x(t), `$`(t, 1)))^2-37500*sqrt(x(t)*(0.165e-2-x(t)))+2.825

BCs := [x(0), x(0.2e-1)-0.15e-2]

sol := dsolve({BCs, eq}, {x(t)}, type = numeric)

Maple is saying:

Error, (in dsolve/numeric/process_input) system...

Hi!

I'm sure there is a simple solution to my problem, but because I'm fairly new to using Maple, I can't figure out why my graph won't work. All I'm trying to do is graph a function along with its first and second derivatives within the same graph. The original function is f(x)= (2+sinx)^x²/(x²+1).

I defined the function as f and then found the first derivative by using df:=D(f...

EulerSystem:=proc(f,g,n,h,tinit,xinit,yinit,t,s,y);
local i;
t[0]:=tinit;x[0]:=xinit; y[0]:=yinit; 
for i from 1 to n do 
t[i]:= evalf(tinit+h);
x[i]:= evalf(xinit+h*f(tinit,xinit,yinit));
y[i]:=evalf(yinit+h*g(tinit,xinit,yinit));  od;  end;

When i tried to execute maple dispayed "unable to parse" but i can't find out where the syntax error is.  "local" was the word with the red dotted line box around...