Hello,

I would like to create a function from an equation.
I have define 4 functions u[1](t), ..., u[4](t).
From these 4 functions, I would like to define 4 equations. I would like to obtain this result:
Equ[1]:=u[1](t)=L/2*cos(w*t+phi[1])
Equ[2]:=u[2](t)=L/2*cos(w*t+phi[2])
Equ[3]:=u[3](t)=L/2*cos(w*t+phi[3])
Equ[4]:=u[4](t)=L/2*cos(w*t+phi[4])

My code is the following:

for i to 4
do
u[i]:=unapply(L/2*cos(w*t+phi[i]),t);
Equ[i]:='u[i](t)'=u[i](t);
end do;

These lines are not working because the left member is not incremented (u[i](t) stays at each iteration u[i](t))

Generally, how can I transform a function to an equation ?
And, in this specific case, how can I obtain the four equations mentioned above ?

Thanks a lot for your help.

Hello,

I would like to plot a vertical line each time my function is null and is increasing.

Here an extract of my code:

v:=unapply(H*sin(w*t),t);
L:=0.080;
H:=0.020;
Vf:=0.3;
w:=10;
fsolve(v(t)=0,t=0.5..2);
zeros:=Roots(v(t),t=0.5..2);

vdot:=unapply(diff(v(t),t),t);
map(vdot,zeros);
LignesVerticales=implicitplot(x=To complete, colour=yellow,linestyle=3, thickness=2):

With Roots function, I could obtain the zero-crossings.

With the derative of the functions, I could obtain a vector which gives me when the derivative is positive or not.

I would like now to obtain the list of the zero-crossing values which are increasing but I have difficulties to obtain it. 

By list manipulation, it should be easy to do. 

May you help to plot obtain this list so that I can plot the desired vertical lines?

Thank you for your help

Hello,

I would like to obtain all the solutions of a equation.

Here an extract of my code:

v:=unapply(H*sin(w*t),t);
L:=0.080;
H:=0.020;
Vf:=0.3;
w:=10;
fsolve(v(t)=0,t=0.5..2);

How can I do to obtain all the solutions of the equation in the wanted interval ?

I'm not fixed to use fsolve function.

Thank you for your help

Hello,

I would like to plot coupled elliptic parametric curves.

I have a problem in the for loop in my code. The index i of the phi variable is not incremented.

Here my code:

for i to 4
do
u[i]:=t->L/2*cos(w*t);
v[i]:=t->H*sin(w*t+phi[i]);
end do;

The result looks like this :

u[1](t) -> - L cos(w t)
v[1](t) -> H sin(w t + phi[i])

u[2](t) -> - L cos(w t)
v[2](t) -> H sin(w t + phi[i])

u[3](t) -> - L cos(w t)
u[3](t) -> H sin(w t + phi[i])

u[4](t)  -> - L cos(w t)
u[4](t)  -> H sin(w t + phi[i])

And i would have prefered :

u[1](t) -> - L cos(w t)
v[1](t) -> H sin(w t + phi[1])

u[2](t) -> - L cos(w t)
v[2](t) -> H sin(w t + phi[2])

u[3](t) -> - L cos(w t)
v[3](t) -> H sin(w t + phi[3])

u[4](t)  -> - L cos(w t)
v[4](t)  -> H sin(w t + phi[4])

Do you have ideas how I can obtain iteration on my phi variable ?

Thank you for your help.

Hello,

I have a worksheet that makes 38 Mo. I find it a bit huge because my code is only composed by 20 code lines. I guess that Maple has saved a important volume of data which makes the file very heavy.

I would like to reduce the size of my worksheet so as to be able to send it to colleagues.

How can I remove all the data save in a file?

I find how to display only the inputs but the data in term of size seems to be still present.

Thanks a lot for your help