MaplePrimes Questions

I have currently a Maple session running with only one open worksheet.

The worksheet only contains an input line with the name "a" and an output line with the name "a".

The fan of my laptop is running full throttle and the task manager displays 10% CPU usage and a very high power usage (3 mserver.exe running, the process with the cpu load is javaw.exe. Suspending this process shuts down the fan).

After about an hour I decided to ask. While typing this post (in Firefox, probably unrelated) the CPU usage went down and the fan went quite. The total system CPU usage is now down to 2%.

Has anybody seen the same? What could have cause it? It's not the first time I observe this. Anything that I could check before restarting Maple? All on Windows 10 after system restart.

Update:

The thread that consumes cpu is called ucrtbase.dll!configthreadlocate

Starting Maplesim in parallel almost immediately turns off the fan while the displayed cpu load is still high but now variing.

I was not expecting to see step-by-step for this ode, but why does it give internal error instead of saying not supported? 

Am I doing something wrong in the call? Unfortunately, this Maple internal error can't be trapped at user level. Which means the whole program terminates also.

interface(version);

`Standard Worksheet Interface, Maple 2024.1, Windows 10, June 25 2024 Build ID 1835466`

Physics:-Version();

`The "Physics Updates" version in the MapleCloud is 1820 and is the same as the version installed in this computer, created 2024, September 28, 18:14 hours Pacific Time.`

libname;

"C:\Users\Owner\maple\toolbox\2024\Physics Updates\lib", "C:\Program Files\Maple 2024\lib"

ode:=3*diff(y(x),x$2)+x*diff(y(x),x)-4*y(x)=0;

3*(diff(diff(y(x), x), x))+x*(diff(y(x), x))-4*y(x) = 0

Student:-ODEs:-ODESteps(ode,y(x))

Error, (in anonymous procedure called from Student:-ODEs:-ODESteps) too many levels of recursion

try
   Student:-ODEs:-ODESteps(ode,y(x));
catch:
  print("cought the error ");
end try;

Error, (in anonymous procedure called from Student:-ODEs:-ODESteps) too many levels of recursion

 


 

Download too_many_Levels_odesteps_oct_14_2024.mw

 

How can I solve this function faster? solve the solution is more accurate, but the solution speed is too slow, the use of fsolve to solve the speed is faster, but the solution is not accurate, what is the solution fast and accurate?question11.mw

Hi everyone! I solve this NLP and I wanna get the solution in terms of the desired parameters h1, h2, Could you tell me how to correct the code? 
 

solve({v1^2 = 2*g*(h-h1), (1/2)*g*t^2 = h2, v1*t+(1/2)*g*t^2 = h1}, h, parametric = full, parameters = {h1, h2})

piecewise(g*t^2-2*h2 = 0, piecewise(g*t^2+2*t*v1-2*h1 = 0, [{h = (1/2)*(g^2*t^2+2*g*t*v1+v1^2)/g}], g*t^2+2*t*v1-2*h1 <> 0, []), g*t^2+2*t*v1-2*h1 = 0, piecewise(g*t^2-2*h2 = 0, [{h = (1/2)*(g^2*t^2+2*g*t*v1+v1^2)/g}], g*t^2-2*h2 <> 0, []), And(g*t^2-2*h2 <> 0, g*t^2+2*t*v1-2*h1 <> 0), [])

(1)

NULL


 

Download Expression_of_NLP_with_desired_parameters.mw

I can't understand why Maple interprets 1 .05  as 1 * 5 = 5 , and 2 .05  as 2 * 5 = 10 . Note the space between 1 and .05
In a different calculation I accidentally inserted a space between 1 and .05, and received a strange answer, and finally narrowed it down to a space.
But now I wonder why it is it is interpreting this way. Also I see that 2  0.05 produces an error. But  2 .05 is treated as 10. There is an implied multiplication? But the multiplication should be 2 * .05 , which is 1 and not 10.

Good day, all.

I would like to explore the structure of the discrete modified form of the logistic equation.

In particular, I wish to plot the logistic-map to investigate the bifurcations of the system.

Is there a routine available in Maple that I can use?

I would like to consider the standard logistic equation with the inclusion of a shape parameter, m, introduced as a power law.

That is:

f(x) = a*x*(1-x^m)

where a > 0 denotes the growth rate, and m > 0  is a shape parameter. I wish to fix the value of a and take m to be the bifurcation parameter (so the logistic map would show m versus x for any given a).

Please note: The standard logistic equation (in discrete form) is given by f(x) = a*x*(1-x)

I would be grateful for any advice and support you can provide and I thank you for taking the time to read this.

i found thus condition which if we substitute in equation must be equal to zero, i don't know  how i can get zero

test_pde1.mw

RandC := proc(k := getSystemTimeMS())
    local r,b,g,kk;
    kk := k+ parse(convert(Time(), string)[6..18]);
    kk := (randomize(round(k*time[real]() + getSystemTimeMS() + time[real]())));    
    (randomize(round(k*time[real]() + getSystemTimeMS() + time[real]())));    
    r := rand(0..1.0)();
    kk := k+ parse(convert(Time(), string)[6..18]);
    (randomize(round(k*time[real]() + getSystemTimeMS() + time[real]())));    
    kk := (randomize(round(kk*r + k + time[real]() + getSystemTimeMS())));    
    g := rand(0..1.0)();
    kk := k+ parse(convert(Time(), string)[6..18]);
    (randomize(round(k*time[real]() + getSystemTimeMS() + time[real]())));    
    kk := (randomize(round(kk*g + k*r*time[real]() + getSystemTimeMS())));
    b := rand(0..1.0)();
    [RGB(r,g,b)];
end proc:

Been trying to generate random colors but nothing works because obviously maple decides to cache the results if the arguments are the same. If I call RandC with an argument that changes it will give me different values. If not it will sometimes give me different values but usually there will be long strings of the same value.

Hence when I generate a sequence of random colors I will almost always get a sequence of the same color or a sequence that containst the same color many times. I'd like to be able to use RandC without having to provide arguments.

(all the junk in the function was trying to get it to randomize properly as I didnt' realize maple was caching. Also Value(Time()) does not return the ms and seems to do nothing which contradicts the help and hence the parse)

This seems like a dangerous thing for maple to do. Silently caching results that depend on random generation will result in non-random results. It could skew many results.

each time i use this i did not have any problem but this equation not seperate any one know what is problem?

restart

with(SolveTools)

undeclare(prime)

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

(1)

with(PDEtools)

P := U(xi)^3*mu*C[2]*h[9]+(2*I)*(diff(U(xi), xi))*a*k*mu+4*(diff(U(xi), xi))*k*mu^3*C[2]*h[7]-4*(diff(diff(diff(U(xi), xi), xi), xi))*k^3*mu*C[2]*h[7]-U(xi)^3*mu*C[2]*h[8]+I*(diff(diff(diff(diff(U(xi), xi), xi), xi), xi))*k^4*C[2]*h[7]+I*(diff(U(xi), xi))*U(xi)^2*k*C[2]*h[9]-(6*I)*(diff(diff(U(xi), xi), xi))*k^2*mu^2*C[2]*h[7]+I*U(xi)*mu^4*C[2]*h[7]-I*(diff(U(xi), xi))*v-U(xi)*w+b*U(xi)^3-U(xi)*a*mu^2+(diff(diff(U(xi), xi), xi))*a*k^2+I*(diff(U(xi), xi))*U(xi)^2*k*C[2]*h[8]+C[1](-U(xi)^3*mu^2*h[2]+(2*I)*(diff(U(xi), xi))*U(xi)^2*k*mu*h[4]-(2*I)*(diff(U(xi), xi))*U(xi)^2*k*mu*h[5]+(diff(U(xi), xi))^2*U(xi)*k^2*h[2]-U(xi)^3*mu^2*h[5]+U(xi)^2*(diff(diff(U(xi), xi), xi))*k^2*h[5]-(4*(diff(U(xi), xi))*I)*k*mu^3*h[1]+4*(diff(diff(diff(U(xi), xi), xi), xi))*k^3*mu*h[1]*I+(2*I)*(diff(U(xi), xi))*U(xi)^2*k*mu*h[2]+h[6]*U(xi)^5-U(xi)^3*mu^2*h[4]+U(xi)^2*(diff(diff(U(xi), xi), xi))*k^2*h[4]+U(xi)*mu^4*h[1]-6*(diff(diff(U(xi), xi), xi))*k^2*mu^2*h[1]+(diff(diff(diff(diff(U(xi), xi), xi), xi), xi))*k^4*h[1]+h[3](k^2*(diff(U(xi), xi))^2+2*(0+I)*(diff(U(xi), xi))*k*mu*U(xi)-mu^2*U(xi)^2)*U(xi)) = 0

U(xi)^3*mu*C[2]*h[9]+I*(diff(U(xi), xi))*U(xi)^2*k*C[2]*h[8]+4*(diff(U(xi), xi))*k*mu^3*C[2]*h[7]-4*(diff(diff(diff(U(xi), xi), xi), xi))*k^3*mu*C[2]*h[7]-U(xi)^3*mu*C[2]*h[8]+I*(diff(U(xi), xi))*U(xi)^2*k*C[2]*h[9]-(6*I)*(diff(diff(U(xi), xi), xi))*k^2*mu^2*C[2]*h[7]+I*U(xi)*mu^4*C[2]*h[7]-I*(diff(U(xi), xi))*v+(2*I)*(diff(U(xi), xi))*a*k*mu-U(xi)*w+b*U(xi)^3-U(xi)*a*mu^2+(diff(diff(U(xi), xi), xi))*a*k^2+I*(diff(diff(diff(diff(U(xi), xi), xi), xi), xi))*k^4*C[2]*h[7]+C[1](-U(xi)^3*mu^2*h[2]+(2*I)*(diff(U(xi), xi))*U(xi)^2*k*mu*h[4]-(4*I)*(diff(U(xi), xi))*k*mu^3*h[1]+(diff(U(xi), xi))^2*U(xi)*k^2*h[2]-U(xi)^3*mu^2*h[5]+U(xi)^2*(diff(diff(U(xi), xi), xi))*k^2*h[5]+(4*I)*(diff(diff(diff(U(xi), xi), xi), xi))*k^3*mu*h[1]-(2*I)*(diff(U(xi), xi))*U(xi)^2*k*mu*h[5]+(2*I)*(diff(U(xi), xi))*U(xi)^2*k*mu*h[2]+h[6]*U(xi)^5-U(xi)^3*mu^2*h[4]+U(xi)^2*(diff(diff(U(xi), xi), xi))*k^2*h[4]+U(xi)*mu^4*h[1]-6*(diff(diff(U(xi), xi), xi))*k^2*mu^2*h[1]+(diff(diff(diff(diff(U(xi), xi), xi), xi), xi))*k^4*h[1]+h[3](k^2*(diff(U(xi), xi))^2+(2*I)*(diff(U(xi), xi))*k*mu*U(xi)-mu^2*U(xi)^2)*U(xi)) = 0

(2)

Re(P)

Re(U(xi)^3*mu*C[2]*h[9]+4*(diff(U(xi), xi))*k*mu^3*C[2]*h[7]-4*(diff(diff(diff(U(xi), xi), xi), xi))*k^3*mu*C[2]*h[7]-U(xi)^3*mu*C[2]*h[8]-U(xi)*w+b*U(xi)^3-U(xi)*a*mu^2+(diff(diff(U(xi), xi), xi))*a*k^2+C[1](-U(xi)^3*mu^2*h[2]+(2*I)*(diff(U(xi), xi))*U(xi)^2*k*mu*h[4]-(4*I)*(diff(U(xi), xi))*k*mu^3*h[1]+(diff(U(xi), xi))^2*U(xi)*k^2*h[2]-U(xi)^3*mu^2*h[5]+U(xi)^2*(diff(diff(U(xi), xi), xi))*k^2*h[5]+(4*I)*(diff(diff(diff(U(xi), xi), xi), xi))*k^3*mu*h[1]-(2*I)*(diff(U(xi), xi))*U(xi)^2*k*mu*h[5]+(2*I)*(diff(U(xi), xi))*U(xi)^2*k*mu*h[2]+h[6]*U(xi)^5-U(xi)^3*mu^2*h[4]+U(xi)^2*(diff(diff(U(xi), xi), xi))*k^2*h[4]+U(xi)*mu^4*h[1]-6*(diff(diff(U(xi), xi), xi))*k^2*mu^2*h[1]+(diff(diff(diff(diff(U(xi), xi), xi), xi), xi))*k^4*h[1]+h[3](k^2*(diff(U(xi), xi))^2+(2*I)*(diff(U(xi), xi))*k*mu*U(xi)-mu^2*U(xi)^2)*U(xi)))-Im((diff(U(xi), xi))*U(xi)^2*k*C[2]*h[8]+(diff(U(xi), xi))*U(xi)^2*k*C[2]*h[9]-6*(diff(diff(U(xi), xi), xi))*k^2*mu^2*C[2]*h[7]+U(xi)*mu^4*C[2]*h[7]-(diff(U(xi), xi))*v+2*(diff(U(xi), xi))*a*k*mu+(diff(diff(diff(diff(U(xi), xi), xi), xi), xi))*k^4*C[2]*h[7]) = 0

(3)
 

``

Download real_and_imaginary_.mw

Hi, I have plotted the bar graphs, and it's fine but I am interested in showing the value on each bar. How to implement this. As an example, I uploaded a picture for convenience.

Bar_graphs.mw

How to convert this mathematica code to Maple code? Is there any command? NN.pdf

I have encountered an issue: eq1 is not satisfied, though eq2 is satisfied for the parametric value (10). I need assistance in finding a way to ensure that both equations are satisfied simultaneously. Please provide guidance or suggest a potential approach for addressing this issue.verf_kk.mw

I have  a big problem in transformation How we can do suh transformation in  type of  procure  without use any hand work for example in physic abs|-| remove the exponential term how the maple remove that term automatically and collect all term and do my transformation this example is really hard one which is must do a lot by hand and mixed them which maybe a week take my time to get results and how i reach the results without spending that time i have a result of this equation and i am try to get but i don't know the results of this person is correct or not but i will share in here,  i did some try i will share in here too if in DEchange add U(xi) it will work and give me the other step but i need something more effective, when q^* is conjugate of q =exp(-ipsi(x,t))U(xi)

NULL

restart

with(PDEtools)

with(Physics)

with(SolveTools)

undeclare(prime)

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

(1)

 

 

tr := {t = tau, x = xi/k+v*tau^alpha/(k*alpha)+theta, u(x, t) = U(xi)*exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta)), u[1](x, t) = U(xi)*exp(-I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))}

{t = tau, x = xi/k+v*tau^alpha/(k*alpha)+theta, u(x, t) = U(xi)*exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta)), u[1](x, t) = U(xi)*exp(-I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))}

(2)

pde := I*(I*U(xi)*exp(I*(xi/k+v*tau^alpha/(k*alpha)-mu*tau+theta))*w-exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))*(diff(U(xi), xi))*v)+a*(diff(u(x, t), `$`(x, 2)))+b*U(xi)^2*u(x, t)+C[1](h[1]*(diff(u(x, t), `$`(x, 4)))+h[2]*(diff(u(x, t), x))^2*u[1](x, t)+h[3]*abs(diff(u(x, t), x))^2*u(x, t)+h[4]*U(xi)^2*(diff(u(x, t), `$`(x, 2)))+h[5]*u(x, t)^2*(diff(u[1](x, t), `$`(x, 2)))+h[6]*U(xi)^4*u(x, t))+I*C[2]*(h[7]*(diff(u(x, t), `$`(x, 4)))+h[8]*U(xi)^2*(diff(u(x, t), x))+h[9]*u(x, t)^2*(diff(u[1](x, t), x))) = 0

I*(I*U(xi)*exp(I*(xi/k+v*tau^alpha/(k*alpha)-mu*tau+theta))*w-exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))*(diff(U(xi), xi))*v)+a*(diff(diff(u(x, t), x), x))+b*U(xi)^2*u(x, t)+C[1](h[1]*(diff(diff(diff(diff(u(x, t), x), x), x), x))+h[2]*(diff(u(x, t), x))^2*u[1](x, t)+h[3]*abs(diff(u(x, t), x))^2*u(x, t)+h[4]*U(xi)^2*(diff(diff(u(x, t), x), x))+h[5]*u(x, t)^2*(diff(diff(u[1](x, t), x), x))+h[6]*U(xi)^4*u(x, t))+I*C[2]*(h[7]*(diff(diff(diff(diff(u(x, t), x), x), x), x))+h[8]*U(xi)^2*(diff(u(x, t), x))+h[9]*u(x, t)^2*(diff(u[1](x, t), x))) = 0

(3)

``

PDEtools:-dchange(tr, pde, [xi, tau, U, U(xi)])

I*(I*U(xi)*exp(I*(xi/k+v*tau^alpha/(k*alpha)-mu*tau+theta))*w-exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))*(diff(U(xi), xi))*v)+a*((2*I)*exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))*(diff(U(xi), xi))/k+exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))*(diff(diff(U(xi), xi), xi))-U(xi)*exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))/k^2)*k^2+b*U(xi)^3*exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))+C[1](h[1]*(-(4*I)*exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))*(diff(U(xi), xi))/k^3-6*exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))*(diff(diff(U(xi), xi), xi))/k^2+(4*I)*exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))*(diff(diff(diff(U(xi), xi), xi), xi))/k+exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))*(diff(diff(diff(diff(U(xi), xi), xi), xi), xi))+U(xi)*exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))/k^4)*k^4+h[2]*(exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))*(diff(U(xi), xi))+I*U(xi)*exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))/k)^2*k^2*U(xi)*exp(-I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))+h[3]*abs((exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))*(diff(U(xi), xi))+I*U(xi)*exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))/k)*k)^2*U(xi)*exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))+h[4]*U(xi)^2*((2*I)*exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))*(diff(U(xi), xi))/k+exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))*(diff(diff(U(xi), xi), xi))-U(xi)*exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))/k^2)*k^2+h[5]*U(xi)^2*(exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta)))^2*((diff(diff(U(xi), xi), xi))*exp(-I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))-(2*I)*(diff(U(xi), xi))*exp(-I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))/k-U(xi)*exp(-I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))/k^2)*k^2+h[6]*U(xi)^5*exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta)))+I*C[2]*(h[7]*(-(4*I)*exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))*(diff(U(xi), xi))/k^3-6*exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))*(diff(diff(U(xi), xi), xi))/k^2+(4*I)*exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))*(diff(diff(diff(U(xi), xi), xi), xi))/k+exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))*(diff(diff(diff(diff(U(xi), xi), xi), xi), xi))+U(xi)*exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))/k^4)*k^4+h[8]*U(xi)^2*(exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))*(diff(U(xi), xi))+I*U(xi)*exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))/k)*k+h[9]*U(xi)^2*(exp(I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta)))^2*((diff(U(xi), xi))*exp(-I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))-I*U(xi)*exp(-I*(xi/k+v*tau^alpha/(k*alpha)+mu*tau+theta))/k)*k) = 0

(4)
 

NULL


Download find_ODE.mw

I have a procedure that I am trying to run that would be an improvement/more sophisticated way of solving a problem that I have previously solved. When I try and run my procedure I am getting an error, and from what I gather with the error is that there are some values when inserted into my procedure that cannot be evaluated. Just for context it is a procedure that contains numerical solutions to a system of DEs and and contains inequalities. 

I would like to know is there an easy method to figure out what values are giving me this error? 

Or a follow up, is there something wrong with my procedure that is giving me this error? I have included some commentary in my workshet as well to hopefully make everything clear. 

Thanks. 

Proc_Error.mw

Hi,

I just got 2 questions regarding symbols and answers in MapleFlow (I might be doing something wrong here).

- In trying to input the integral int(F(x), x = -pi/5 .. pi/5) - this is just an example! - as a symbol,

int(F(x), x = -pi/5 .. pi/5)

MapleFlow doesn´t accept fractions or multiplications for bondaries values, unless I input "int(F(x), x = -pi/5 .. pi/5 =". Is there anyway to do it?

- is it possible to have the answer as 2*cos((3*Pi)/10), like in Maple, instead of 2.00*cos(300e-3*pi) ()symbolic expression) or 1.18 (numeric expression)?

Thanks in advance for your help.

3 4 5 6 7 8 9 Last Page 5 of 2367