Hi,

I want to solve system of  PDE equations by maple and i dont know how can i write it codes that can solve them for me. Can anyone help me please??!!

Good day.

When I export an animated 3D (surface contour) plot to a gif format, the image is incomplete (please see attached file).

Can anyone suggest a way to reformulate the expressions so the animated plot can be exported to Powerpoint intact?

Thanks for reading!

MaplePrimes_Dec_5.mw 

Hi all !

I have a list of coupled ordinary differential equations 

L := [e1,e2,e3] = [diff(z(t), t, t)*m = 0, diff(x(t), t, t)*m - B*diff(y(t), t)*q = 0, diff(y(t), t, t)*m + B*diff(x(t), t)*q = 0] with unknown functions x(t),y(t),z(t).

I want to obtain the list of "normal forms" of the ode using the DEnormal function. The help page says that it is possible to use it with an operator list but none example is given. 

Thanks!

Kevin

Dear all, 

I am trying to use the Physics package to perform a simple computation about the expression of speed and acceleration in the local polar basis (Frenet). I am trying to get something like :

Define the position vector :

differentiate wrt t to get the velocity vector 

simplifying 

Similarly :

simplifying

Can anyone please help me ? Many thanks!

So I just noticed that if you want to animate something in real time, the best you can achieve is something close but not exact.

For example lets say we have a ball travelling 22 m/s over 1000 m and I want to animate that in real time. 

ball := proc(x, y) plots[pointplot]([[x, y]], color = blue, symbol = solidcircle, symbolsize = 40); end proc:
animate(ball, [22*t, 0], t = 0 .. 1000/22, frames = floor(1000/22));

frames has to be an integer value so determining how long it will take and adjusting the frames to 1 frame per second.  It requires a bit of manipulation to get it right.  Is there a better way?  I suppose boosting the frame rate and increasing the number of frames would work but then it becomes cumbersome and any large period of times would use a high number of frames and consume enormous amounts of memory. 

Hi

I found the Manipulate Equation command tool in Maple and was wondering whether it could help me rearrange my equations into giving me certain quotient? One can do it by hand, but at an exam, time saved makes a difference and one can make silly mistakes. The math rearangement is also rather trivial...

Download rearrangemanipulate.mw

Any thoughts would be greatly appreciated, thanks in advance..!

Dear all;

I have a data, I would like to save this data in a table with labeled columns and  each column contains the corresponding values.

cretae_tabl.mw

thank you for your help 

Hi

I am trying to evaluate the following, and have tried the following commands;

How do I evaluate such an expression, is there a way to get around the invalid product error in the "coded approach"? Obviously the latter doesn't work, Maple naturally needs information concerning the limits, how does one apply assumptions to this more "traditional notation"?

Any thoughts would be greatly appreaciated, thankyou in advance.

Download integratederivative.mw

In Maple, to take the exponent of a term of the form $x^a$, we can define 

    Exponent := proc(x::`^`) 

    local r; 

    r := op(2, x); 

    return(r);

    end proc:

This also works for a term of the form $Y[1,3]^{-1/3}$.

But this does not work for taking exponent of a term of the form $Y[1,3]$. How to define a function $f$ in Maple, such that $f(Y[1,3]^{a}) = a$ for any $a \in \mathbb{Q}$? Thank you very much.

I am trying to use type(sqrt(t)*Y[1, -3]*Y[2, -6], monomial) to check if an expression is a monomial. But it returns false which is not correct. How to check that an expression in Maple is a monomial? Thank you very much.

How I can change this to smooth curve

 The vertex connectivity of a graph  is the minimum number of vertices whose removal disconnects the  
  graph. With Maple, it's easy to get the connectivity of a graph, but  I can not  find a smallest vertex cut of 
the graph g by maple. 

 If a graph has some cut vertices, I see that the function ArticulationPoints seems to be able to solve.
 But for general smallest vertex cut, I don’t see a suitable function.  For example

with(GraphTheory):
G:=CompleteGraph(2,2,2,2);
DrawGraph(G);
VertexConnectivity(G)

6

This seems easy to do in Mathematica. See https://reference.wolfram.com/language/ref/FindVertexCut.html.

Plotting of a nonlinear differential equation?

I have not used Array much before. I made an array that has 3 elements, starting index is 0 and last index is 2.

I want each element in the array to be an empty list, so I can later add to it.  (since I do not know in advanced what size of list I need in each slot of the Array).

Array(0..2,[seq([],i=0..2)])

And this works in the code I am using. But the strange thing, each time I try to save the worksheet, I get Warning about saving Large calculation.

What large caclulation? The array is empty?

Even though the code is working, and I can add to each entry in the array lists OK and been using it OK, I think may be I am not doing something right.

How to correctly creat an Array from 0..N  and initialized each entry to empty list?

Maple 2021.2

Every time I open Maple it has the invitation to Login in the top right-hand corner.  I would like to sign in but have had quite a bit of trouble doing that.  I have a user name and password with Maplesoft web store and the same for MaplePrimes.  Should either of these work to log in?