Maple 2024 Questions and Posts

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

Hello,

non-expert Maple user here.  Any help would be appreciated, I am trying to perform the following process:

1) Represent State Space matrices calculated by hand (ex: A, B, C, D) as a Maple object.

2) Find a solution to the State Space system of equations based on given initial conditions, or represent the same in any other form such as a plot or table.  I am right now trying without much success to use the ResponsePlot and Simulate functions for this.

I have completed (1) using the DynamicSystems > StateSpace object of the form

sys:= StateSpace(A,B,C,D)    // where A, B, C, D are the numeric matrices of the typical S-S set.

using a simple constant '1' as an algebraic input test, I use the ResponsePlot as follows:

ResponsePlot(sys, 1) 

Maple gives me the error: 

Error, (in DynamicSystems:-Simulate) for a continuous system, the second argument (input) must be an algebraic expression or a list of algebraic expressions; received Vector(7, [0,1,2,3,4,5,6])
NULL;

I am sure I'm missing something simple.  Can someone please assist in showing me what I'm doing wrong?  I tried using a vector [0,1,2,3,4] instead of an algebraic function, but it still returned an error.  I am open to other ways too, but the next best way seems to be to convert from StateSpace into individual differential equations and then solve them all manually with dsolve.  It seems like there has got to be a simpler way than that.  Does anyone know of a simple way to implement this process?

i did try but i don't know the result is not come out? also i am not sure to put equation in eq1 in pde or linear part?

restart

with(PDEtools)

with(LinearAlgebra)

NULL

with(SolveTools)

undeclare(prime)

`There is no more prime differentiation variable; all derivatives will be displayed as indexed functions`

(1)

declare(u(x, y, t))

u(x, y, t)*`will now be displayed as`*u

(2)

declare(f(x, y, t))

f(x, y, t)*`will now be displayed as`*f

(3)

pde := diff(u(x, y, t), t, y)+diff(u(x, y, t), `$`(x, 3), y)-3*(diff(u(x, y, t), x))*(diff(u(x, y, t), x, y))-3*(diff(u(x, y, t), `$`(x, 2)))*(diff(u(x, y, t), y))+alpha*(diff(u(x, y, t), x, y))+beta*(diff(u(x, y, t), `$`(x, 2)))

diff(diff(u(x, y, t), t), y)+diff(diff(diff(diff(u(x, y, t), x), x), x), y)-3*(diff(u(x, y, t), x))*(diff(diff(u(x, y, t), x), y))-3*(diff(diff(u(x, y, t), x), x))*(diff(u(x, y, t), y))+alpha*(diff(diff(u(x, y, t), x), y))+beta*(diff(diff(u(x, y, t), x), x))

(4)

pde_nonlinear, pde_linear := selectremove(proc (term) options operator, arrow; has((eval(term, u(x, y, t) = a*u(x, y, t)))/a, a) end proc, pde)

-3*(diff(u(x, y, t), x))*(diff(diff(u(x, y, t), x), y))-3*(diff(diff(u(x, y, t), x), x))*(diff(u(x, y, t), y)), diff(diff(u(x, y, t), t), y)+diff(diff(diff(diff(u(x, y, t), x), x), x), y)+alpha*(diff(diff(u(x, y, t), x), y))+beta*(diff(diff(u(x, y, t), x), x))

(5)

eq := u(x, y, t) = -2*(diff(ln(f(x, y, t)), x))

u(x, y, t) = -2*(diff(f(x, y, t), x))/f(x, y, t)

(6)

eq1 := -(1/2)*numer(normal(eval(pde_linear, eq)))

f(x, y, t)^4*(diff(diff(diff(f(x, y, t), x), x), x))*beta+f(x, y, t)^4*(diff(diff(diff(f(x, y, t), x), x), y))*alpha-f(x, y, t)^3*(diff(f(x, y, t), y))*(diff(diff(f(x, y, t), x), x))*alpha-2*f(x, y, t)^3*(diff(diff(f(x, y, t), x), y))*(diff(f(x, y, t), x))*alpha-3*f(x, y, t)^3*(diff(f(x, y, t), x))*(diff(diff(f(x, y, t), x), x))*beta+2*f(x, y, t)^2*(diff(f(x, y, t), y))*(diff(f(x, y, t), x))^2*alpha+2*f(x, y, t)^2*(diff(f(x, y, t), x))^3*beta+(diff(diff(diff(f(x, y, t), t), x), y))*f(x, y, t)^4+(diff(diff(diff(diff(diff(f(x, y, t), x), x), x), x), y))*f(x, y, t)^4-(diff(diff(f(x, y, t), t), x))*(diff(f(x, y, t), y))*f(x, y, t)^3-(diff(diff(diff(diff(f(x, y, t), x), x), x), x))*(diff(f(x, y, t), y))*f(x, y, t)^3-(diff(diff(f(x, y, t), x), y))*(diff(f(x, y, t), t))*f(x, y, t)^3-4*(diff(diff(diff(f(x, y, t), x), x), x))*(diff(diff(f(x, y, t), x), y))*f(x, y, t)^3-(diff(f(x, y, t), x))*(diff(diff(f(x, y, t), t), y))*f(x, y, t)^3-4*(diff(diff(diff(diff(f(x, y, t), x), x), x), y))*(diff(f(x, y, t), x))*f(x, y, t)^3-6*(diff(diff(f(x, y, t), x), x))*(diff(diff(diff(f(x, y, t), x), x), y))*f(x, y, t)^3+2*(diff(f(x, y, t), x))*(diff(f(x, y, t), t))*(diff(f(x, y, t), y))*f(x, y, t)^2+8*(diff(diff(diff(f(x, y, t), x), x), x))*(diff(f(x, y, t), x))*(diff(f(x, y, t), y))*f(x, y, t)^2+6*(diff(diff(f(x, y, t), x), x))^2*(diff(f(x, y, t), y))*f(x, y, t)^2+24*(diff(diff(f(x, y, t), x), x))*(diff(f(x, y, t), x))*(diff(diff(f(x, y, t), x), y))*f(x, y, t)^2+12*(diff(diff(diff(f(x, y, t), x), x), y))*(diff(f(x, y, t), x))^2*f(x, y, t)^2-36*(diff(diff(f(x, y, t), x), x))*(diff(f(x, y, t), x))^2*(diff(f(x, y, t), y))*f(x, y, t)-24*(diff(f(x, y, t), x))^3*(diff(diff(f(x, y, t), x), y))*f(x, y, t)+24*(diff(f(x, y, t), x))^4*(diff(f(x, y, t), y))

(7)

NULL

T := f(x, y, t) = h*a[10]+m^2+n^2+a[9]

T1 := m = t*a[3]+x*a[1]+y*a[2]+a[4]

T2 := n = t*a[7]+x*a[5]+y*a[6]+a[8]

T3 := h = a[10]*exp(t*p[3]+x*p[1]+y*p[2])

L2 := expand(subs({T1, T2, T3}, T))

f(x, y, t) = a[10]^2*exp(p[3]*t)*exp(p[1]*x)*exp(p[2]*y)+t^2*a[3]^2+2*t*x*a[1]*a[3]+2*t*y*a[2]*a[3]+x^2*a[1]^2+2*x*y*a[1]*a[2]+y^2*a[2]^2+2*t*a[3]*a[4]+2*x*a[1]*a[4]+2*y*a[2]*a[4]+a[4]^2+t^2*a[7]^2+2*t*x*a[5]*a[7]+2*t*y*a[6]*a[7]+x^2*a[5]^2+2*x*y*a[5]*a[6]+y^2*a[6]^2+2*t*a[7]*a[8]+2*x*a[5]*a[8]+2*y*a[6]*a[8]+a[8]^2+a[9]

(8)

eq9a := eval(eq1, L2)

indets(%)

{alpha, beta, t, x, y, a[1], a[2], a[3], a[4], a[5], a[6], a[7], a[8], a[9], a[10], p[1], p[2], p[3], exp(p[1]*x), exp(p[2]*y), exp(p[3]*t)}

(9)

p2b := subs({exp(p[1]*x) = eX, exp(p[2]*y) = eY, exp(p[3]*t) = eT}, eq9a); indets(%)

{alpha, beta, eT, eX, eY, t, x, y, a[1], a[2], a[3], a[4], a[5], a[6], a[7], a[8], a[9], a[10], p[1], p[2], p[3]}

(10)

p2c := numer(normal(p2b))

eqns := {coeffs(collect(p2c, {eT, eX, eY}, distributed), {eT, eX, eY})}; nops(%)

5

(11)

solve(eqns, {a[1], a[2], a[3], a[4], a[5], a[6], a[7], a[8], a[9], a[10], p[1], p[2], p[3]})

 

NULL

Download parameters.mw

Can I define the creation and annihilation operator commutation relations with an explicit momentum dependence?

The goal is to implement an expression of a discrete scalar plane-wave solution to the Klein-Gordon equation that makes use of the creation and annihilation operators in the Physics package.

We don't bother solving the Klein-Gordon equation explicitly. Instead, we just take a solution from literature. This approach is sufficient to show the difficulty in defining the the creation and annihilation operators in this way.

how_to_define_creation_and_annihilation_operators_with_a_momentum_dependence.mw

restart

Setup

   

NULL``

Goal

   

NULL``

Define Creation and Annihilation Operators for Quantum Field phi

   

NULL

Static Textbook Solution

   

NULL

Commutator Definition Attempt 1 FAIL

   

NULL``

Commutator Definition Attempt 2 FAIL

   

NULL``

Commutator Definition Attempt 3 FAIL

   

NULLNULL

Commutator Definition Attempt 4 FAIL

   

NULL``

Commutator Definition Attempt 5 FAIL

   

So, is defining the creation and annihilation operators with a momentum dependence even possible, using the physics MAPLE package?

Download how_to_define_creation_and_annihilation_operators_with_a_momentum_dependence.mw

Whenever I have local proc inside a proc, and use local variables from the outer proc inside it, Mint tells me that the variables are not used.

This can't be right. Why does it say that? Here is MWE. I have this foo.mpl file

foo := proc()

local C1;
local y,x;

    proc()
        C1:= `tools/genglobal`(_C); 
        sol:=y(x)=  C1; 
    end proc();

end proc;

We see clearly that C1 is used, also x and y are used. There can be more code using these inside the inner proc. But this is what mint says

"C:\Program Files\Maple 2024\bin.X86_64_WINDOWS\mint.exe" foo.mpl

    |\^/|      Maple 2024 Diagnostic Program
._|\|   |/|_.  Copyright (c) Maplesoft, a division of Waterloo Maple Inc. 2024
 \  MINT   /   All rights reserved. Maple is a trademark of
 <____ ____>   Waterloo Maple Inc.
      |
Procedure foo() on lines 1 to 11
  These local variables were never used:  C1, x, y

Any idea why it says these are not used?

Also, I noticed it did not warn me that variable sol is global inside the proc. i.e. I was expecting something like this 

          These names were used as global names but were not declared: sol

Which is typical message mint gives when using a name inside a proc which was not declared,

Maple 2024.2 on Windows

I have a square matrix of data points. Each point is between 0 to 0.2. I wish to plot it and set the axes to values from 0 to 1. I want the 3D plot to be plotted with a constrained scaling. The two options I have are plots:-matrixplot and plots:-surfdata. 

* matrixplot can constrain the data, but it isn't obvious how to change the axes so that it shows from 0 to 1 in both directions. 

* In surfaceplot, it is easy to adjust the axes values, but scaling=constrained does nothing. 

(I assume someone else might also appreciate the answer. So, instead of me continuing to struggle, I post here and hope someone can answer without the use of many brain cells.) 

Example attached.

restart; N := 20; M := LinearAlgebra:-RandomMatrix(N, generator = rand(0 .. .2))

 

Scaling can be easily controlled, but labels are bad

plots:-matrixplot(N*M, labels = ["x", "y", "V"], scaling = constrained, axis = [tickmarks = [seq(0 .. 1, numelems = 10)]], size = [600, 600])

 

Axes are shown nicely, but scaling cannot be constrained.

plots:-surfdata(M, 0 .. 1, 0 .. 1, labels = ["x", "y", "V"], scaling = constrained, size = [600, 600])

 
 

NULL

Download Scaled_matrix_plot_with_axes.mw

If I understand right, in the following calling an exception should be raised since the return value of the matching coercion procedure is of course not of type “set”: 

restart;
foo := (x::coerce(set, (y::rtable) -> convert(y, list))) -> x:
foo(<0>);
 = 
                              [0]

Did I miss something?

I want to remove the Lambert function (LambertW) from my equation, but I don't know how. I tried using the explicit option, but it didn't work. How can I express the equation without LambertW?

restart

with(PDEtools)

with(LinearAlgebra)

NULL

with(SolveTools)

undeclare(prime)

`There is no more prime differentiation variable; all derivatives will be displayed as indexed functions`

(1)

declare(u(x, y, z, t))

u(x, y, z, t)*`will now be displayed as`*u

(2)

declare(f(x, y, z, t))

f(x, y, z, t)*`will now be displayed as`*f

(3)

pde := diff(diff(u(x, y, z, t), t)+6*u(x, y, z, t)*(diff(u(x, y, z, t), x))+diff(u(x, y, z, t), `$`(x, 3)), x)-lambda*(diff(u(x, y, z, t), `$`(y, 2)))+diff(alpha*(diff(u(x, y, z, t), x))+beta*(diff(u(x, y, z, t), y))+gamma*(diff(u(x, y, z, t), z)), x)

diff(diff(u(x, y, z, t), t), x)+6*(diff(u(x, y, z, t), x))^2+6*u(x, y, z, t)*(diff(diff(u(x, y, z, t), x), x))+diff(diff(diff(diff(u(x, y, z, t), x), x), x), x)-lambda*(diff(diff(u(x, y, z, t), y), y))+alpha*(diff(diff(u(x, y, z, t), x), x))+beta*(diff(diff(u(x, y, z, t), x), y))+gamma*(diff(diff(u(x, y, z, t), x), z))

(4)

pde_nonlinear, pde_linear := selectremove(proc (term) options operator, arrow; not has((eval(term, u(x, y, t) = a*u(x, y, t)))/a, a) end proc, expand(pde))

0, diff(diff(u(x, y, z, t), t), x)+6*(diff(u(x, y, z, t), x))^2+6*u(x, y, z, t)*(diff(diff(u(x, y, z, t), x), x))+diff(diff(diff(diff(u(x, y, z, t), x), x), x), x)-lambda*(diff(diff(u(x, y, z, t), y), y))+alpha*(diff(diff(u(x, y, z, t), x), x))+beta*(diff(diff(u(x, y, z, t), x), y))+gamma*(diff(diff(u(x, y, z, t), x), z))

(5)

thetai := t*w[i]+x*k[i]+y*l[i]+z*r[i]+eta[i]; eval(pde_linear, u(x, y, z, t) = exp(thetai)); eq15 := isolate(%, w[i])

t*w[i]+x*k[i]+y*l[i]+z*r[i]+eta[i]

 

w[i]*k[i]*exp(t*w[i]+x*k[i]+y*l[i]+z*r[i]+eta[i])+12*k[i]^2*(exp(t*w[i]+x*k[i]+y*l[i]+z*r[i]+eta[i]))^2+k[i]^4*exp(t*w[i]+x*k[i]+y*l[i]+z*r[i]+eta[i])-lambda*l[i]^2*exp(t*w[i]+x*k[i]+y*l[i]+z*r[i]+eta[i])+alpha*k[i]^2*exp(t*w[i]+x*k[i]+y*l[i]+z*r[i]+eta[i])+beta*k[i]*l[i]*exp(t*w[i]+x*k[i]+y*l[i]+z*r[i]+eta[i])+gamma*k[i]*r[i]*exp(t*w[i]+x*k[i]+y*l[i]+z*r[i]+eta[i])

 

w[i] = -(t*k[i]^4+gamma*t*k[i]*r[i]+alpha*t*k[i]^2+beta*t*k[i]*l[i]-lambda*t*l[i]^2+LambertW(12*t*k[i]*exp(-(t*k[i]^4+alpha*t*k[i]^2+beta*t*k[i]*l[i]+gamma*t*k[i]*r[i]-lambda*t*l[i]^2-x*k[i]^2-y*k[i]*l[i]-z*k[i]*r[i]-eta[i]*k[i])/k[i]))*k[i])/(t*k[i])

(6)

sol := solve(eq15, w[i], explicit)

-(t*k[i]^4+gamma*t*k[i]*r[i]+alpha*t*k[i]^2+beta*t*k[i]*l[i]-lambda*t*l[i]^2+LambertW(12*t*k[i]*exp(-(t*k[i]^4+alpha*t*k[i]^2+beta*t*k[i]*l[i]+gamma*t*k[i]*r[i]-lambda*t*l[i]^2-x*k[i]^2-y*k[i]*l[i]-z*k[i]*r[i]-eta[i]*k[i])/k[i]))*k[i])/(t*k[i])

(7)
 

NULL

Download remove.mw

How i can add lebel inside graph  like this picture for some graph , in somecoding i have but i can't how it work i want add to  my code but i can't do the same as paper did

label.mw

Hi! A basic issue.

Why view=[-2 ..1, -2 ..5]  is not useful here? According to the output, only the green line meets the view settings. I want to extend the left side of these three lines appropriately (show the intersection)

with(plots)

l := 2*x+y+1 = 0; l1 := 4*x+2*y+2 = 0; l2 := 4*x+2*y-2 = 0; l3 := 4*x-2*y+6 = 0

2*x+y+1 = 0

 

4*x+2*y+2 = 0

 

4*x+2*y-2 = 0

 

4*x-2*y+6 = 0

(1)

 

display({implicitplot(l, color = black, legend = l, thickness = 5, view = [-2 .. 1, -2 .. 5])}, {implicitplot(l1, color = red, legend = l1, view = [-2 .. 1, -2 .. 5])}, {implicitplot(l2, color = blue, legend = l2, view = [-2 .. 1, -2 .. 5])}, {implicitplot(l3, color = green, legend = l3, view = [-2 .. 1, -2 .. 5])})

 
 

NULL

Download The_intersection_parallelism_and_coincidence_of_two_straight_lines.mw

Hi,

I'm trying to use the Explore command to examine the effect of two parameters (mu and sigma) on the density function curve. The visualization isn't very optimal, especially with the mu parameter, and it's difficult to add options (range, color, gridlines, etc.). Any suggestions to optimize this idea? Thanks for your insights!

Q_Explore.mw

when we have ode equation we say what is type of equation then  i want solve by this method say the name of method and if possible i want to solve this equation by the method step by step too, maple can do that? also can we plot the solution or any geometricall presentation , also i have error in writing exact form of equation

restart

"with(Student[ODEs]): "

with(DETools)

ode1 := diff(y(x), x)+2*x*y(x) = x

diff(y(x), x)+2*x*y(x) = x

(1)

Type(ode1)

{linear, separable}

(2)

W := dsolve(ode1)

y(x) = 1/2+exp(-x^2)*c__1

(3)

odetest(W, ode1)

0

(4)

ODESteps(ode1)

"[[,,"Let's solve"],[,,(&DifferentialD;)/(&DifferentialD;x) y(x)+2 x y(x)=x],["&bullet;",,"Highest derivative means the order of the ODE is" 1],[,,(&DifferentialD;)/(&DifferentialD;x) y(x)],["&bullet;",,"Separate variables"],[,,((&DifferentialD;)/(&DifferentialD;x) y(x))/(2 y(x)-1)=-x],["&bullet;",,"Integrate both sides with respect to" x],[,,&int;((&DifferentialD;)/(&DifferentialD;x) y(x))/(2 y(x)-1) &DifferentialD;x=&int;-x &DifferentialD;x+`c__1`],["&bullet;",,"Evaluate integral"],[,,(ln(2 y(x)-1))/2=-(x^2)/2+`c__1`],["&bullet;",,"Solve for" y(x)],[,,y(x)=((e)^(-x^2+2 `c__1`))/2+1/2]]"

(5)

ode2 := (sin(x)*tan(x)+1)*dx-cos(x)*sec(y(x))^2*dy = 0

(sin(x)*tan(x)+1)*dx-cos(x)*sec(y(x))^2*dy = 0

(6)

Type(ode2)

Error, (in Student:-ODEs:-Type) could not determine the solving variable. Please specify it as an extra argument in the form: y(x)

 
 

NULL

Download ode-example.mw

i want try all number to my parameter for check the shape of plot there is any way for doing that?

restart

with(plots)

M := 4*b^2*beta*((a*y-2*alpha*t+x)*b^2+a*(-2*beta*t+a*(a*y-2*alpha*t+x)))/(-b^6*beta*y^2+(-4*t*y*beta^2+(-2*a^2*y^2+(4*(alpha*t-(1/2)*x))*y*a-4*(alpha*t-(1/2)*x)^2)*beta+3*a)*b^4+(-4*t^2*beta^3+4*a*t*(a*y-2*alpha*t+x)*beta^2-a^2*(a*y-2*alpha*t+x)^2*beta+6*a^3)*b^2+3*a^5)

alpha = 1; beta := 1; a := -1; b := -2; t := 0

alpha = 1

 

1

 

-1

 

-2

 

0

(1)

plots:-contourplot(M, x = -100 .. 100, y = -100 .. 100, title = contour, grid = [100, 100], colorbar = false)

 
 

NULL

Download control-trajectory.mw

THis IC for Abel ode is not valid and should result in no solution. But instead of returning NULL, dsolve throws internal error called Error, (in dsolve) invalid limiting point

restart;

interface(version);

`Standard Worksheet Interface, Maple 2024.2, Windows 10, October 29 2024 Build ID 1872373`

Physics:-Version();

`The "Physics Updates" version in the MapleCloud is 1844 and is the same as the version installed in this computer, created 2025, January 25, 22:5 hours Pacific Time.`

ode:=diff(y(x),x)-x^a*y(x)^3+3*y(x)^2-x^(-a)*y(x)-x^(-2*a)+a*x^(-a-1) = 0;

diff(y(x), x)-x^a*y(x)^3+3*y(x)^2-x^(-a)*y(x)-x^(-2*a)+a*x^(-a-1) = 0

DEtools:-odeadvisor(ode);
sol:=dsolve([ode,y(1)=1])

[_Abel]

Error, (in dsolve) invalid limiting point

tracelast;

 dsolve called with arguments: [diff(y(x), x)-x^a*y(x)^3+3*y(x)^2-x^(-a)*y(x)-x^(-2*a)+a*x^(-a-1) = 0, y(1) = 1], arbitraryconstants = subscripted, atomizenames = true, build = false, numeric = false, type = none
 #(dsolve,80): error

 \`dsolve/IC\` called with arguments: [diff(y(x), x)-x^a*y(x)^3+3*y(x)^2-x^(-a)*y(x)-x^(-2*a)+a*x^(-a-1) = 0, y(1) = 1], {y(x)}, skipimplicit = false, skippparticularsolforlinearODEs = true, solution = {}, usesolutions = particular and general
 #(\`dsolve/IC\`,64): draft := procname(_passed,':-usesolutions = "general"');

 \`dsolve/IC\` called with arguments: [diff(y(x), x)-x^a*y(x)^3+3*y(x)^2-x^(-a)*y(x)-x^(-2*a)+a*x^(-a-1) = 0, y(1) = 1], {y(x)}, skipimplicit = false, skippparticularsolforlinearODEs = true, solution = {}, usesolutions = general
 #(\`dsolve/IC\`,277): zz := map(op,{\`dsolve/IC/_C\`({ANS[i]},funcs,x,ics)});

 \`dsolve/IC/_C\` called with arguments: {y(x) = -exp(2*x^(-a+1)/(a-1))/(_C[1]-2*2^(2*(a+1)/(a-1))*(1/(-a+1))^((a+1)/(a-1))*(2^(-(5*a-3)/(a-1))*(1/(-a+1))^(-(a+1)/(a-1))*x^(2*a)*(-a+1)^2*(x^(-a+1)/(-a+1))^(1/(a-1))*(-4*x^(-a+1)*a^2/(-a+1)+8*a*x^(-a+1)/(-a+1)-4*x^(-a+1)/(-a+1)+2*a-2)*WhittakerM(-(a+1)/(a-1)+1/(a-1), -1/(a-1)+1/2, 4*x^(-a+1)/(-a+1))*exp(-2*x^(-a+1)/(-a+1))/((a+1)*(-3+a))-2^(-(3*a-1)/(a-1))*(1/(-a+1))^(-(a+1)/(a-1))*x^(2*a)*WhittakerM(-(a+1)/(a-1)+1/(a-1)+1, -1/(a-1)+1/2, 4*x^(-a+1)/(-a+1))*(-a+1)^2*(x^(-a+1)/(-a+1))^(1/(a-1))*exp(-2*x^(-a+1)/(-a+1))/((a+1)*(-3+a)))/(-a+1))^(1/2)+x^(-a)}, {y(x)}, x, [y(1) = 1]
 #(\`dsolve/IC/_C\`,1): ans := \`dsolve/IC/_C/do\`(solns,depvars,t,inits,'evaluated_ans', "default",':-giveup = giveup');

 \`dsolve/IC/_C/do\` called with arguments: {y(x) = -exp(2*x^(-a+1)/(a-1))/(_C[1]-2*2^(2*(a+1)/(a-1))*(1/(-a+1))^((a+1)/(a-1))*(2^(-(5*a-3)/(a-1))*(1/(-a+1))^(-(a+1)/(a-1))*x^(2*a)*(-a+1)^2*(x^(-a+1)/(-a+1))^(1/(a-1))*(-4*x^(-a+1)*a^2/(-a+1)+8*a*x^(-a+1)/(-a+1)-4*x^(-a+1)/(-a+1)+2*a-2)*WhittakerM(-(a+1)/(a-1)+1/(a-1), -1/(a-1)+1/2, 4*x^(-a+1)/(-a+1))*exp(-2*x^(-a+1)/(-a+1))/((a+1)*(-3+a))-2^(-(3*a-1)/(a-1))*(1/(-a+1))^(-(a+1)/(a-1))*x^(2*a)*WhittakerM(-(a+1)/(a-1)+1/(a-1)+1, -1/(a-1)+1/2, 4*x^(-a+1)/(-a+1))*(-a+1)^2*(x^(-a+1)/(-a+1))^(1/(a-1))*exp(-2*x^(-a+1)/(-a+1))/((a+1)*(-3+a)))/(-a+1))^(1/2)+x^(-a)}, {y(x)}, x, [y(1) = 1], evaluated_ans, default, giveup = giveup, usecansolve = false
 #(\`dsolve/IC/_C/do\`,133): Solns := map((u, S) -> map(limit,S,op(u)),csol,Solns);

 limit called with arguments: y(x) = -exp(2*x^(-a+1)/(a-1))/(_C[1]-2*2^(2*(a+1)/(a-1))*(1/(-a+1))^((a+1)/(a-1))*(2^(-(5*a-3)/(a-1))*(1/(-a+1))^(-(a+1)/(a-1))*x^(2*a)*(-a+1)^2*(x^(-a+1)/(-a+1))^(1/(a-1))*(-4*x^(-a+1)*a^2/(-a+1)+8*a*x^(-a+1)/(-a+1)-4*x^(-a+1)/(-a+1)+2*a-2)*WhittakerM(-(a+1)/(a-1)+1/(a-1), -1/(a-1)+1/2, 4*x^(-a+1)/(-a+1))*exp(-2*x^(-a+1)/(-a+1))/((a+1)*(-3+a))-2^(-(3*a-1)/(a-1))*(1/(-a+1))^(-(a+1)/(a-1))*x^(2*a)*WhittakerM(-(a+1)/(a-1)+1/(a-1)+1, -1/(a-1)+1/2, 4*x^(-a+1)/(-a+1))*(-a+1)^2*(x^(-a+1)/(-a+1))^(1/(a-1))*exp(-2*x^(-a+1)/(-a+1))/((a+1)*(-3+a)))/(-a+1))^(1/2)+x^(-a), _C[1] = exp((4*I)*Im(1/(a-1)))*infinity, parametric = false
 #(limit,2): return map(thisproc,_passed)

 limit called with arguments: y(x), _C[1] = exp((4*I)*Im(1/(a-1)))*infinity, parametric = false
 #(limit,33): error "invalid limiting point"

Error, (in dsolve) invalid limiting point

 locals defined as: ddir = ddir, dexpr = y(x), fexpr = fexpr, r = r, x = _C[1], fL = fL, L = exp((4*I)*Im(1/(a-1)))*infinity, efloat = efloat, lfloat = lfloat, ind_dexpr = ind_dexpr, ind_L = ind_L, lexpr = lexpr, t = t, limr = limr, liml = liml, pt = (_C[1] = exp((4*I)*Im(1/(a-1)))*infinity), inertfunctions = {}, limitX = limitX, parameters = parameters, Y = Y, limc = limc, cexpr = cexpr, texpr = texpr, bexpr = bexpr, limt = limt, limb = limb, param = param, c = c, N = N, Z = Z, P = P, o = o, e = e, uneval = uneval, i = i, A = A, cond = cond, ll = ll, rr = rr

 


 

Download internal_error_instead_of_no_solution.mw

Is there an equivalent of currentdir() which instead of returning current working directory, returns the directory of the file being read. So assume I have an ".mm" or ".mpl" file saved in some location and there is another file with a location fixed relative to this file, but not fixed in absolute location on the computer and not fixed relative with current working directory. One natural thing is to have a line in the first file that takes its current location (not current working location of the user!) and then use the fixed relative path info, and then gives the location of the second file to the user. Using currendir won't help here because current working directory is not necessarily the same as the location of the file you are reading, the first file. One may say the user is reading the first file so he knows already its location, right? Well, if the user is also the writer of the file, sure, not a problem, he can manually edit the lines of the file and put that location inside the file instead of using currentdir etc. However, if the user is not the writer and also does not know how to edit or whatever else reason, then the file should be able to inform Maple of its own location, so that's why something like currentdir() but not for the working directory, instead for currently being read file's directory is helpful. I checked FileTools package quickly and couldn't notice anything like what I want. Anyone have any clue on name of such command if exists or any other trick that does what I want (except expecting the user to do something ^_^ so all from the writer's side please ^_^).

i try find some part of solution of this kind of pde but i can't get results my openion is maybe this pde is wronge when i defined 

pde.mw

First 8 9 10 11 12 13 14 Last Page 10 of 43