MaplePrimes Questions

Hi,

I am trying to correct this question for my students, but I would like to include a pedagogical graphical illustration to support the idea that, for the area of triangle BCS to be minimal, the height (SM) — where M is the midpoint of [BC]— must be perpendicular to the plane Π at point S.

The code provided in the appendix does not clearly convey this idea.

Any ideas or suggestions would be very welcome.

Thanks

bac23IllustrationEspace.mw

Hello Ladies and Gents :)

x^Pi=Pi^x

Maple returns two reals solutions :

solve(Pi^x = x^Pi, x);
                               /  ln(Pi)\    
                    Pi LambertW|- ------|    
                               \    Pi  /    
                  - ---------------------, Pi
                           ln(Pi)            

evalf(%);
              2.382179087993016, 3.141592653589793

ouf Pi is a solution :)

but Mathematica returns 3 solutions : 2 reals and 1 complex :

see the attached pdf.

Is there a way to force Maple to return these 3 solutions?

thank you.

Jean-Michel

Hello everyone, I am trying to reproduce Equation (25) from the paper by E. Yomba (Chaos, Solitons and Fractals, 2006) using Maple, where the improved extended algebraic Fan method is applied to the (2+1)-dimensional Broer–Kaup–Kupershmidt (BKK) system. Starting from the system in Eq. (23) and the ansatz given in Eq. (24), together with the auxiliary equation (Eq. (3)), the paper states that substituting these expressions and setting coefficients of powers of G(ξ) to zero leads to an overdetermined system whose solution yields Eq. (25). My difficulty is implementing this process in Maple: specifically, how to correctly substitute the ansatz into the PDE system, expand and collect terms with respect to G(ξ) and its derivatives, systematically extract the resulting algebraic/PDE system, and solve it efficiently (possibly using packages like PDEtools). I would appreciate guidance or example workflows for performing this type of symbolic derivation in Maple.

F1.mw

I am trying to set the default Cartesian and Parametric variables to set them golbally or locally in a command..

How do I achieve this? 

restart

interface(version)

`Standard Worksheet Interface, Maple 2026.0, Windows 10, March 05 2026 Build ID 2001916`

(1)

TM := module () local Cartvars, Parmvars; export Cartline, Parmline; global x, y, z;  Cartvars := [x, y, z]; Parmvars := [alpha, beta, rho]; Cartline := proc (p1::list, p2::list, { vars := Cartvars }) local l; global Cartvars; l := (p2[2]-p1[2])*vars[1]+(p1[1]-p2[1])*vars[2]-p2[2]*p1[1]+p1[2]*p2[1]; return l end proc; Parmline := proc (p1::list, p2::list, { varp := Parmvars }) local l; global Parmvars; l := `~`[`+`](p1, varp[1]*`<,>`(p2-p1)); return l end proc end module

TM:-Cartline([4, 3], [-8, 4])

Cartvars[1]+12*Cartvars[2]-40

(2)

TM:-Cartline([4, 3], [-8, 4], vars = [x, y])

x+12*y-40

(3)

NULL

TM:-Parmline([4, 3], [-8, 4])

Vector[column](%id = 36893490963638479436)

(4)

TM:-Parmline([4, 3], [-8, 4], varp = [alpha])

Vector[column](%id = 36893490963638469564)

(5)

NULL

Download 2026-03-26_Q_Module_Generic_Variables.mw

I need to plot this piecewise function

Maple plots it correctly but its sampling seems to use the points between and hence it also shows vertical asymptotes, like this

Is there a way to tell plot not to show the vertical asymtotes? These should not show. Here is the same exact function in Mathematica, and this is what I want in Maple

f[x_] := Piecewise[{
   {2*x - Tan[x], -7/4*Pi < x < -3/2*Pi},
   {2*x - Tan[x], -3/2*Pi < x < -5/4*Pi},
   {2*x - Tan[x], -3/4*Pi < x < -1/2*Pi},
   {2*x - Tan[x], -1/2*Pi < x < -1/4*Pi},
   {2*x - Tan[x], 1/4*Pi < x < 1/2*Pi},
   {2*x - Tan[x], 1/2*Pi < x < 3/4*Pi},
   {2*x - Tan[x], 5/4*Pi < x < 3/2*Pi},
   {2*x - Tan[x], 3/2*Pi < x < 7/4*Pi},
   {True, None}}]

Plot[f[x], {x, -2 Pi, 2 Pi}]

 

Here is Maple worksheet with all the maple code. I tried adding 'adaptive'=true,'discont'=true but these made no difference.

f_decreasing := x -> piecewise(-7/4*Pi < x and x < -3/2*Pi, 2*x - tan(x), -3/2*Pi < x and x < -5/4*Pi, 2*x - tan(x), -3/4*Pi < x and x < -1/2*Pi, 2*x - tan(x), -1/2*Pi < x and x < -1/4*Pi, 2*x - tan(x), 1/4*Pi < x and x < 1/2*Pi, 2*x - tan(x), 1/2*Pi < x and x < 3/4*Pi, 2*x - tan(x), 5/4*Pi < x and x < 3/2*Pi, 2*x - tan(x), 3/2*Pi < x and x < 7/4*Pi, 2*x - tan(x),true,[])

f_decreasing := proc (x) options operator, arrow; piecewise(-(7/4)*Pi < x and x < -(3/2)*Pi, 2*x-tan(x), -(3/2)*Pi < x and x < -(5/4)*Pi, 2*x-tan(x), -(3/4)*Pi < x and x < -(1/2)*Pi, 2*x-tan(x), -(1/2)*Pi < x and x < -(1/4)*Pi, 2*x-tan(x), (1/4)*Pi < x and x < (1/2)*Pi, 2*x-tan(x), (1/2)*Pi < x and x < (3/4)*Pi, 2*x-tan(x), (5/4)*Pi < x and x < (3/2)*Pi, 2*x-tan(x), (3/2)*Pi < x and x < (7/4)*Pi, 2*x-tan(x), true, []) end proc

plot(f_decreasing(x),x=-2*Pi..2*Pi,'adaptive'=true,'discont'=true,'color'="blue");

 

 

Download plot_piecewise_march_25_2026.mw

when getting sequence of RealRange, I'd like to convert this to normal list. Currently I have to use map twice on the result, but I think there should be simpler way.

Below is what I do. I was wondering if there is a better way in Maple to do this, may be a built in command?

Basically, if the input is

RealRange(-2*Pi,Open(-7/4*Pi)), RealRange(Open(-5/4*Pi),Open(-3/4*Pi)), 
RealRange(Open(-1/4*Pi),Open(1/4*Pi)), RealRange(Open(3/4*Pi),Open(5/4*Pi)), 
RealRange(Open(7/4*Pi),2*Pi)

I want to change the above to normal list like this (without any Open, etc.. in it) to make it easier to post process (say for plotting and so on)

[[-2*Pi, -7/4*Pi], [-5/4*Pi, -3/4*Pi], [-1/4*Pi, 1/4*Pi], [3/4*Pi, 5/4*Pi], [7/4*Pi, 2*Pi]]

This is what I do now on an example that generates sequence of RealRange

restart;

f:=x->2*x-tan(x);
the_intervals:=solve(diff(f(x),x)>0 and x>=-2*Pi and x<= 2*Pi,x);

proc (x) options operator, arrow; 2*x-tan(x) end proc

RealRange(-2*Pi, Open(-(7/4)*Pi)), RealRange(Open(-(5/4)*Pi), Open(-(3/4)*Pi)), RealRange(Open(-(1/4)*Pi), Open((1/4)*Pi)), RealRange(Open((3/4)*Pi), Open((5/4)*Pi)), RealRange(Open((7/4)*Pi), 2*Pi)

lprint(the_intervals);

RealRange(-2*Pi,Open(-7/4*Pi)), RealRange(Open(-5/4*Pi),Open(-3/4*Pi)),
RealRange(Open(-1/4*Pi),Open(1/4*Pi)), RealRange(Open(3/4*Pi),Open(5/4*Pi)),
RealRange(Open(7/4*Pi),2*Pi)

map(X->convert(X,list),[the_intervals]);
map(X1->map(X2->`if`(has(X2,Open),op(X2),X2),X1),%);

[[-2*Pi, Open(-(7/4)*Pi)], [Open(-(5/4)*Pi), Open(-(3/4)*Pi)], [Open(-(1/4)*Pi), Open((1/4)*Pi)], [Open((3/4)*Pi), Open((5/4)*Pi)], [Open((7/4)*Pi), 2*Pi]]

[[-2*Pi, -(7/4)*Pi], [-(5/4)*Pi, -(3/4)*Pi], [-(1/4)*Pi, (1/4)*Pi], [(3/4)*Pi, (5/4)*Pi], [(7/4)*Pi, 2*Pi]]

lprint(%);

[[-2*Pi, -7/4*Pi], [-5/4*Pi, -3/4*Pi], [-1/4*Pi, 1/4*Pi], [3/4*Pi, 5/4*Pi], [7/
4*Pi, 2*Pi]]

 

 

Download convert_realrange_to_list.mw

In the attached file test1, two terms are to be compared using the "is" function. Theoretically, these terms are equal. A plot is provided for illustration. However, regardless of which symbol ("equal," "not equal," etc.) is used in "is," the result is always "false." What am I doing wrong?

restart

simplify(exp(u)/(1+exp(u))^2)

exp(u)/(1+exp(u))^2

(1)

is(exp(u)/(1+exp(u))^2 = 1/(4*cosh((1/2)*u)^2))

false

(2)

plot([exp(u)/(1+exp(u))^2, 1/(4*cosh((1/2)*u)^2)], u)

 

NULL

Download test1.mw

Any idea why plot fail when adding legend and using {1} instead of [1] ? Since both have one curve.

Maple 2026 and 2025.2. searched help but do not see anything on this so far.

restart;

plot({1},x = -10 .. 10,'legend'="A");

Error, (in plot) the legend option cannot be used when plotting a set of objects

plot([1],x = -10 .. 10,'legend'="A");

 

 

Download plot_legend_problem_march_25_2026.mw

Can someone explain what the meaning of "visible character width" for e.g. TextArea components is?

My understanding is that the width should correspond to the number of characters that are visible in the TextArea. But apparently this is not the case.

A definition of 4 allows at least 8 characters. A definition of 6 at least 12, 8 gives 16 and 10 gives 20.

Test_visible_character_width.mw

I defined two tensors (vectors) U and D and their components in Maple 2025 using the Physics package. I enter U[~alpha]*U[alpha] and get a symbolic result. SumOverRepeatedIndices expands this but does not substitutes the expressions of the components I gave. How to force Maple to use the values of the components?

Thank you!

MAple 2026.0

Maple 2025.2 craches on SupportTools.-Update()

Can anyone verify? 

Solutions?

FYI: The user interface issues I was having with Maple 2026  have now been resolved.

Documents imported with the AI-assistant can containt private and confidential information.

I was wondering how privacy is handeled by third party AI services that are called by the AI assistant.

From https://openai.com/enterprise-privacy/ it is not clear which product is running and how Maplesoft has set it up.

Anyone knows more?

I use plots:-display(Array([p1,p2])) to make two plots (or more) show side by side in worksheet. The problem with this is that there is no way to control the overall width of the output. 

It always takes the entire width of the worksheet window.  Using size=...  makes no difference. This only changes the size of each plot, but does not change the width of the display. Even when using size= inside the plot itself and not inside the display command, it makes no difference to the overall width of display. 

Here is an example to make things clear (site will not let me upload the worksheet).

Here is code and screen shot

s:=t->2*t^4-30*t^3+135*t^2-120*t-10:
v:=t->diff(s(t),t):
p1:=plot(s(t),t=0..8,'gridlines','thickness'=3,'color'="red",'title'="Plot of s(t)"):
p2:=plot(v(t),t=0..8,'gridlines','thickness'=3,'color'="blue",'title'="Plot of v(t)"):
plots:-display(Array([p1,p2]));


This is too wide. Adding size makes no difference. What size does is change each plot size, but display still is using the whole width of the worksheet which makes it look ugly

plots:-display(Array([p1,p2]),size=[300,300]);


I wanted it to look like this (using paint.exe to move things)

ie. to adjust the overall size of the display.

I can avoid display all together and just do 

[p1,p2];
#or
Array([p1,p2]);

But now each plot becomes too small and do not know how to make it larger, but at least they do not take the whole width of the worksheet

Is there a way to tell display not to use the overall width of the worksheet? say to use 50% of the current width and center the output, like the above example made using paint.exe shows?

Hello Friends.

I have created two piecewise functions: dx(t) and dy(t).  I then converted them to RandomVariables:  DX and DY.  When I try to perform a mathematical operation on the random variables, I get a Dirac function, which is unintended.  When I read about this issue, I learned that flawed (discontinuous) piecewise functions may be the problem.  However, my piecewise functions look ok to me.

Does anyone know why this is happening?  I do expect a lenghty result when I process the random variables, but not a Dirac function.  My code is below:

TriangleEuclidean.mw

I want to give my Tensor a the index i with define (a[i]) , but it is not allowed. Can anybody help ?

thank you !

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