Maple 2024 Questions and Posts

These are Posts and Questions associated with the product, Maple 2024

it is apear by sign of taking derivative from equation and substitute in it the sign less zero is stable otherwise is unstable but i want to shown by graph like shown in graph

plot-stablity-1equation.mw

what is problem in here

restart;

with(plots):

with(LinearAlgebra):

with(DEtools):

diff(u(x), x) = f(u(x), v(x)), diff(v(x), x) = g(u(x), v(x)) for the two differential equations.

f := (u,v) -> u+cos(v);
g := (u,v) -> u*v-v+sin(v);

proc (u, v) options operator, arrow; u+cos(v) end proc

 

proc (u, v) options operator, arrow; v*u-v+sin(v) end proc

(1)

The equilibria:

equilibria := solve({f(u,v)=0, g(u,v)=0}, {u,v},explicit);

{u = 1, v = Pi}, {u = -cos(RootOf(sin(_Z)*_Z^2+sin(_Z)-2*_Z)), v = RootOf(sin(_Z)*_Z^2+sin(_Z)-2*_Z)}

(2)

allvalues(RootOf(sin(_Z)*_Z^2+sin(_Z)-2*_Z))

RootOf(sin(_Z)*_Z^2+sin(_Z)-2*_Z, 1.306542374), RootOf(sin(_Z)*_Z^2+sin(_Z)-2*_Z, -1.306542374), RootOf(sin(_Z)*_Z^2+sin(_Z)-2*_Z, -2.331122370), RootOf(sin(_Z)*_Z^2+sin(_Z)-2*_Z, 2.331122370), 0

(3)
 

NULL

Download remove.mw

when we do the linearization we do transfer the critical point to the orgin, i want see the plot of nonlinear system before the linearization and after linearization which is critical point is tranfered to orgin, also i try to find `conserved quantity` and make a good plot with the critical point shown in graph how i can do the linearization by maple, also  we  by hand when we solved we show that in new system when we give him variable we have to write for each new system  u=x-x[0] when is u is new system for linearization we need that or not? becuase result is not change when we take jacobian result is same !

 

Linearization.mw

i want plot a system of differential equation and do phaseportrait i did but when i want make it a little bit more clear and colorfull like rainbow when i find the C.Q i don't know how set the option for ploting?

e1.mw

i have a system but i don't know how i can plot chaotic or is need time for ploting or not ?

Has anyone else run into the following bug in the PolynomialTools package?

> PolynomialTools[PolynomialToPDE]([z*f], [z], [f]);

                            d
                           [-- f(z)]
                            dz

> PolynomialTools[PolynomialToPDE]([z[1]*f], [z[1]], [f]);

                           [f(z[1])]

I believe the first behavior is correct, but when I use subscripted variables, I get the second behavior for linear terms.  (Nonlinear terms appear to work correctly:


>  PolynomialTools[PolynomialToPDE]([z[1]^2*f], [z[1]], [f]);
                                2
                               d
                             [------ f(z[1])]
                                  2
                              dz[1]

I have observed this in Maple 2024.2 and previous versions.  Does anyone know if it's fixed in Maple 2025?  (I don't have access yet.)  Does anyone know a good workaround for polynomials with both linear and nonlinear terms?

Thanks!

----Josh

On my journey of discovery through the world of Maple, I would like to ask for help again:
How are the properties of variables and the indexing of sequences handled/determined? For this purpose, I chose an old problem from a challenging MO as an exercise and tried it in the attached file, which, of course, failed.

restart

a[i] := 2*cos(t/2^i)-1

2*cos(t/2^i)-1

(1)

b[n] := product(a[i], i = 1 .. n)

product(2*cos(t/2^i)-1, i = 1 .. n)

(2)

limit(b[n], n = infinity)

limit(product(2*cos(t/2^i)-1, i = 1 .. n), n = infinity)

(3)

simplify(limit(b[n], n = infinity))

limit(product(2*cos(t*2^(-i))-1, i = 1 .. n), n = infinity)

(4)

NULL

Download test.mw

Regarding to this equation i want to do the same as paper did, but i am not sure how i can determine the both  point in plot and how thus point show effect of system of equation and  how find jacobian in the two different point  i think he find it in general but i think we have to find it for each one  of equalibriom point  or we just find in general .
thus plot also are emazing did he use special code in matlab or mathematica? there is some app for plot thus kind of phase portrait but they not like this this is must have a special code for plotting in matlab or mathematica

restart

with(PDEtools)

undeclare(prime, quiet)

with(LinearAlgebra)

declare(u(x, t), quiet); declare(U(xi), quiet); declare(V(xi), quiet)

NULL

DU := V

V

(1)

DV := U^2*beta/(delta*k^2)+(alpha*w/(delta*k^3)+1/(delta*k^2)-w^2/(delta*k^4))*U

U^2*beta/(delta*k^2)+(alpha*w/(delta*k^3)+1/(delta*k^2)-w^2/(delta*k^4))*U

(2)

var := U, V

U, V

(3)

J := Student:-MultivariateCalculus:-Jacobian([DU, DV], [var], 'output' = 'matrix')

Matrix(%id = 36893490902008029780)

(4)

Eigenvalues(J, implicit, output = 'list')

[RootOf(_Z^2*delta*k^4-2*U*beta*k^2-alpha*k*w-k^2+w^2, index = 1), RootOf(_Z^2*delta*k^4-2*U*beta*k^2-alpha*k*w-k^2+w^2, index = 2)]

(5)

Eigenvalues(J)

Vector[column](%id = 36893490902007993756)

(6)

NULL

NULL

DU1 := V

V

(7)

V = solve(DU1, V)

V = 0

(8)

DV1 := U^2*F[2]+U*F[1]

U^2*F[2]+U*F[1]

(9)

U = solve(DV1, U)

U = (0, -F[1]/F[2])

(10)

so*we*have*three*equalibriom*point*(0, 0)

so*we*have*three*equalibriom*point*(0, 0)

(11)

J1 := Student:-MultivariateCalculus:-Jacobian([DU1, DV1], [var], 'output' = 'matrix')

Matrix(%id = 36893490902007256836)

(12)

Eigenvalues(J1, implicit, output = 'list')

[RootOf(-2*U*F[2]+_Z^2-F[1], index = 1), RootOf(-2*U*F[2]+_Z^2-F[1], index = 2)]

(13)

Eigenvalues(J1)

Vector[column](%id = 36893490901938203092)

(14)
 

NULL

Download bi-1.mw

The attached problem is from a 1988 MO. It can be solved using complete induction, paper, and pencil, and with some effort, yields a simple answer. It's quite challenging to do by hand, but with "derive", it only takes three lines and a fraction of a second. Mow test.mw

restart

"puzzle(n):=(∑)(cos(k*Pi/(2*n+1))^())^(4);"

Download test.mw

I can't do it with Maple because I'm doing something wrong again. Therefore, I'm asking for help.

i need a way for making my loop working fast, i need something for calculating such term fast without showing result but thus term make a lot of time for coming out ?

fasting.mw

Hi,

I’m trying to remove the parentheses (for the dᵢ values) to achieve optimal display. Ideas ? Thanks

S4_Droites_Implicite.mw

i want to do export  the table to latex there is command to do?

table.mw

in my iteration when i got answer the error is so big and the method is powerfull i don't know i did mistake or my exact function i have to change it, becuase error is so big , how i can make error be smaller i did any mistake ?
and how i can plot them together exact and approximate in one graph also 3D and 2D

Num-e1.mw

i got some issue regarding to solving numerical example, he got combine function of infinite term i don't know how when he give alpha a number ? and when didn't give number  to order of fractional laplace and stay alpha letter he got outcome i want apply laplace while is for general alpha betwen n-1<alpha<n when n is number of initial condition, i want to get same result as he did steps are not wrong but outcome have problem .

i have same problem in three example in one paper, is related to update maple to 2025, i saw talking about calculating inverse laplace at new version  any one  know how fix this?

Ex1.mw

EX2.mw

Ex3.mw

in thus example all of them are write in shape of matrix but all of them are linear differential equation which have critical point zero ,i want to plot thus example and decided the kind of critical point by eagenvalue and by eagenvector i can find the trajectory how i can plot by matrix of each example and show that that critical point is which type as mention in picture?

system-phase-examples.mw

1 2 3 4 5 6 7 Last Page 2 of 43