Advanced Search

MaplePrimes Questions

Conflict of overloaded procedure parameter types...

Asked by: Ronan 1401
procedure programming overload
March 28 2026
0  3

I have a example overloaded procdeure below. Due to '=' the optional input in the 2nd proc gets trapped in the 1st proc. I have tried various ways to get around this. Obviously I could make the  optional input in the 2nd proc non-optional if all else fails. Is there a way around this?

> 

restart
> 

Test:=overload([
proc(l1::{`+`,`*`,`=`, `symbol`,procedure,not(list)},
l2::{`+`,`*`,`=`, `symbol`,procedure,not(list)} ) #need to detect if 'point' is present

option overload;
if not(has([_params[2]],point)) then #if true need to go the next proc

print("1st proc ",l1," ",l2);
return
end if;
end proc,

proc(l1::{`+`,`*`,`=`, `symbol`,procedure,not(list)},
{point::list:=NULL}) #oprional input

print("2nd proc",l1,"point",point);

end proc
]):
> 

 

> 

l:=3*x+4*y-5;
h:=4*x-8*y = 5;
P:=[3,5]

3*x+4*y-5

  

4*x-8*y = 5

  

[3, 5]

 (1)
> 

Test(l,h)
> 

 

"1st proc ", 3*x+4*y-5, " ", 4*x-8*y = 5

 (2)
> 

Test(l,point=P)
> 

 

> 

Test(h,point=[2,7])
 

 

Download 2026-02-28_Q_Test_proc_Line_point_inputs.mw

problem with rsolve and GuessRecurrence...

Asked by: Jean-Michel 70
recurrence incomplete-question lretools
March 28 2026
0  8

Hello :)

I am totally lost with ( I guess) the LREtools package.

See the ws.

The two integer sequences come from the OEIS.

I don't understand why i have a FAILED result.

intseq := [0, 1, 4, 2, 131, 129, 3, 5, 16, 14, 12, 10, 8, 6, 31, 29, 27, 25, 23, 99734, 7, 9, 11, 13, 15, 17, 64, 62, 60, 58, 56, 54, 52, 50, 48, 46, 44, 42, 40, 38, 111, 22, 20, 18, 28, 30, 32, 222, 220, 218, 216, 214, 212, 210, 208, 206, 204, 202, 200, 198, 196]

[0, 1, 4, 2, 131, 129, 3, 5, 16, 14, 12, 10, 8, 6, 31, 29, 27, 25, 23, 99734, 7, 9, 11, 13, 15, 17, 64, 62, 60, 58, 56, 54, 52, 50, 48, 46, 44, 42, 40, 38, 111, 22, 20, 18, 28, 30, 32, 222, 220, 218, 216, 214, 212, 210, 208, 206, 204, 202, 200, 198, 196]

 (1)

rec := LREtools:-GuessRecurrence(intseq, q(n))

FAIL

 (2)

soln := rsolve(rec, q)

Error, (in rsolve/single) Equations do not involve function q()

  

restart

NULL

intseq := [0, 1, 3, 6, 2, 7, 13, 20, 12, 21, 11, 22, 10, 23, 9, 24, 8, 25, 43, 62, 42, 63, 41, 18, 42, 17, 43, 16, 44, 15, 45, 14, 46, 79, 113, 78, 114, 77, 39, 78, 38, 79, 37, 80, 36, 81, 35, 82, 34, 83, 33, 84, 32, 85, 31, 86, 30, 87, 29, 88, 28, 89, 27, 90, 26, 91, 157, 224, 156, 225, 155]

[0, 1, 3, 6, 2, 7, 13, 20, 12, 21, 11, 22, 10, 23, 9, 24, 8, 25, 43, 62, 42, 63, 41, 18, 42, 17, 43, 16, 44, 15, 45, 14, 46, 79, 113, 78, 114, 77, 39, 78, 38, 79, 37, 80, 36, 81, 35, 82, 34, 83, 33, 84, 32, 85, 31, 86, 30, 87, 29, 88, 28, 89, 27, 90, 26, 91, 157, 224, 156, 225, 155]

 (3)

rec := LREtools:-GuessRecurrence(intseq, q(n))

FAIL

 (4)

NULL

restart

with(LREtools)

intseq := [0, 1, 3, 6, 2, 7, 13, 20, 12, 21, 11, 22, 10, 23, 9, 24, 8, 25, 43, 62, 42, 63, 41, 18, 42, 17, 43, 16, 44, 15, 45, 14, 46, 79, 113, 78, 114, 77, 39, 78, 38, 79, 37, 80, 36, 81, 35, 82, 34, 83, 33, 84, 32, 85, 31, 86, 30, 87, 29, 88, 28, 89, 27, 90, 26, 91, 157, 224, 156, 225, 155]

[0, 1, 3, 6, 2, 7, 13, 20, 12, 21, 11, 22, 10, 23, 9, 24, 8, 25, 43, 62, 42, 63, 41, 18, 42, 17, 43, 16, 44, 15, 45, 14, 46, 79, 113, 78, 114, 77, 39, 78, 38, 79, 37, 80, 36, 81, 35, 82, 34, 83, 33, 84, 32, 85, 31, 86, 30, 87, 29, 88, 28, 89, 27, 90, 26, 91, 157, 224, 156, 225, 155]

 (5)

NULL

rec := GuessRecurrence(intseq, q(n))

FAIL

 (6)

NULL

NULL Thank you everyone.

Jean-Michel

Download rsolve_and_LREtools.mw

solving equations for an explicit form...

Asked by: elemental cinder 0
solve rootfinding
March 28 2026
0  7

In the Maple dock i am having problems finding the explicit value for x, for my equation. I need it, to find the value for r later.

so i will be kindly asking for Maple wizards to help me.

i thank of you in advance for your help, any comment is appreciated.

Illustrating when an area is minimal...

Asked by: jalal 465
geometry
March 27 2026
0  3

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

A transcendental equation...

Asked by: Jean-Michel 70
solve lambertw
March 27 2026
2  4

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

How to derive an unknown for the BKK system ?...

Asked by: salim-barzani 1750
pde differential-equations coefficients
March 27 2026
2  11

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

How to set generic/default variables in a module?...

Asked by: Ronan 1401
programming module default
March 26 2026
1  11

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

How to avoid vertical asymptotes when plotting a p...

Asked by: nm 12253
plot piecewise discont
March 26 2026
2  1

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

converting RealRange to list...

Asked by: nm 12253
realrange list
March 25 2026
2  1

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

Comparing two terms...

Asked by: Alfred_F 505
simplify simplification trigh
March 25 2026
1  5

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

why plot({1},...) fail but plot([1],...) works, wh...

Asked by: nm 12253
plot legend plotting
March 25 2026
0  1

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

TextArea Component: Visible Character Width...

Asked by: Anthrazit 925
embedded-components textarea
March 24 2026
2  1

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

Scalar product four vectors in flat space time...

Asked by: Rotcev 40
tensor physics
March 24 2026
1  4

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!

SupportTools in Maple 2026...

Asked by: C_R 3717
supporttools
March 21 2026
1  4

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.

AI document import & privacy...

Asked by: C_R 3717
import
March 21 2026
1  2

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?

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