I wanted to change  eq:= 1/2 * sqrt(-2*lambda)  to 1/2 %* sqrt(-2*lambda)  using a rule.

It works outside of rule ofcourse. But when I put %* in the RHS of the rule, maple hangs. It seems it is going into infinite loop.

I tried the trick of using '%*' but this gives syntax error.

Same problem happens when using %. and not just %*

Is there a workaround?

Attached worksheet. Make sure to save all work before trying it.
 

Download maples_hangs_applyrule_sept_10_2024.mw

I cannot find anything in the documentation that could explain the below.

The variable palette only lists the name entered in 1D.

What could explain the difference between 1D and 2D when "?" is used in a name.

Download Questionmark_in_2D_names.mw

how we can make pretty of changing equation or case in maple to latex but be more readble and be simplify and the scientific referee don't reject the writting for example in this picture when i do convert i get something like that

if you watch the result 1 it is better denomenator which is 2 come out will be better and then times multiply by radical so how we do something like that?

latex2.mw

Hello,

Please help me solve this type of equations, I have more of them, but there is only one in the attached file. fsolve does not work. Please help.

Best regards!

tg_Test.mw

The help page of interface('longdelim') states: 

If I set , the Maple Input

try f:=0 catch:end try;

can be converted into 

via , but why is

use f=0 in f+1 end use;

still converted into

 instead of “use f = 0 in f + 1 end”? 

According to the documentation, 

So the code below works as expected: 

f0 := proc(x::Not(2), y::2) [[x], [y]] end:
f0(1, 2);
                           [[1], [2]]

f0(2, 2);
Error, invalid input: f0 expects its 1st argument, x, to be of type Not(2), but received 2

The code below also works as expected: 

f1 := proc(x::depends(Not(y)), y::2) [[x], [y]] end:
f1(1, 2);
                           [[1], [2]]

f1(2, 2);
Error, invalid input: f1 expects its 1st argument, x, to be of type Not(2), but received 2

The code below works as desired as well: 

f2 := proc(x::seq(Not(2)), y::2) [[x], [y]] end:
f2(0, 1, 2);
                         [[0, 1], [2]]

f2(2, 1, 2);
                           [[], [2]]

However, the following code does not work: 

f3 := proc(x::seq(depends(Not(y))), y::2) [[x], [y]] end:
f3(0, 1, 2);
Error, invalid input: NULL uses a 2nd argument, y (of type 2), which is missing
f3(2, 1, 2);
Error, invalid input: NULL uses a 2nd argument, y (of type 2), which is missing

I believe that the output of  and  should be the same as that of  and  respectively. Did I miss something? 

Hi everyone! I meet some code issue when editing a easy sum of geometric sequence as belows, I can write another procedure sum total, it can run. But I wanna also try the sequence (the middle code) but failed, and why nops can not work? Thanks!

Download sum_of_geometric_sequence.mw

Hello everyone 

Any one can help to plot a figure as follows 

" A cross section of three colored basins of attraction on an (x, y)

plane at z = 0 and w = 0 for a = 2.48 and b = 0.5. Basins in green, red, and cyan leads to a strange attractor, a limit cycle, and a line equilibrium, 

respectively. The yellow leads to unbounded orbits. " Where the system 

xdot=y 

ydot=z

zdot=w

wdot=-az-bw-y-xy. 

and range of x=[-6,6] and y=[-3,6]. 

With the attached task I would like to learn how Maple handles polynomials and plots. For this I have chosen a task with an interesting history from 1593. Adriaan van Roomen posed it to F. Vieta, who solved it after a short consideration.

My questions are:
1.) How are very long terms entered and displayed in Maple in an appropriate manner?
2.) How are the graphs of several functions displayed in the same coordinate system?
3.) Which graphics settings must be selected for differentiable functions in order to obtain nice, rounded curves rather than angular ones from the numerical result?
4.) Can the apparently random oscillations of the curve at the end of the interval be suppressed?
5.) The curves for p(x) and sinnx(x) are theoretically identical, since p(x) is the trigonometric expansion of sinnx(x). Their graphs must therefore be identical. How can this be displayed?
6.) The polynomial has many real zeros. How can the zeros be clearly presented in a table?

AF_20240909.mw

This is an excersise in one of Mathematica's tutorials. The problem is to find from all persumtations of [1,2,3,4] those lists which has 2 in them before 3.

But the idea is that 2 can be anywhere before the 3, with possibly zero or more numbers between.

Will show how to do this in that other software, and ask if there is a way using Maple pattern matching or better way to do this in Maple better than what I did.

L=Permutations[{1,2,3,4}]
Cases[L,{___,2,___,3,___}]

gives

{{1, 2, 3, 4}, {1, 2, 4, 3}, {1, 4, 2, 3}, {2, 1, 3, 4}, 
{2, 1, 4,  3}, {2, 3, 1, 4}, {2, 3, 4, 1}, {2, 4, 1, 3}, 
{2, 4, 3, 1}, {4, 1,  2, 3}, {4, 2, 1, 3}, {4, 2, 3, 1}}

We see in all of the above, 2 is before 3.

In that other software, the ___ means there is zero or more things.  I could not find how to do this in Maple's pattern matching. So had to use has and then find the index of 2 and 3 in each list and check if the index of 2 is smaller than the index of 3. Which is kinda awakard and not as elegent as using a pattern, but it gives same result.

L:=combinat:-permute([1,2,3,4]);
map(X->`if`(has(X,2) and has(X,3) and ListTools:-Search(2,X)<ListTools:-Search(3,X),X,NULL) ,L);

Gives

[[1, 2, 3, 4], [1, 2, 4, 3], [1, 4, 2, 3], [2, 1, 3, 4], 
[2, 1, 4, 3], [2, 3, 1, 4], [2, 3, 4, 1], [2, 4, 1, 3], 
[2, 4, 3, 1], [4, 1, 2, 3], [4, 2, 1, 3], [4, 2, 3, 1]]

Can you suggest a way using either patmatch or applyrules in Maple to do the same?  

Could this be done easier than what I did using evalindents without the need for pattern?

I find patterns easier to work with myself.

ps. converting each list to string, and then using regular expression or string matching, is not what I am looking for. 

ps. the check in Maple code of has(X,2) and has(X,3) is not really needed here, since we know each list will have 2 and 3 in them. But I kept these to make it more general for other type of problems where these extra checks might be needed.

Hi everyone, is there any source of Maple competitions? Or related questions? I have a hard time finding books on this subject. I am very interested in Maple and hope to improve my Maple programming skills. In addition to frequently browsing this website, I encounter problems on the Internet sporadically, so I think starting with competition questions will be a quick way to improve.

Good morning, please, could you tell me how to graph this solid of revolution using implicitplot and shade the intersection zone as seen in the graph.

x=y-y^2

x=y^2-3

Around x=2

can someone help me curve fitting these parameeters...i only got 1 for all of this 90As4.mw

Download 90As4.mw

I apologize for putting the equations in image format, but I thought that this way the community could better understand how to interpret the equations.

Below are 6 letters whose solution must be developed step by step so that the periodic extension of each one can then be done. I can solve all the letters by hand (solving in the notebook), but my big question is, how can I do the commands in Maple step by step so that I can solve them as if I were doing them by hand (look like in my notebool)? I need to check step by step. I would be extremely grateful for the help of any of you.

second part