How should I draw a 2D graph for which one parameter in x axis and 3 parameters in y axis change with respect to x axis parameter in same graph. To be exact in my problem for changing β value (in x axis) what will be the optimum value for p, q and e. I had obtained the optimum p (named as ptemp in file), optimum q (named as qtemp in file), optimum e (named as etemp in file) for different values of β. But I don’t know how to plot it? Whether to give plot command inside the loop or not? Please help me. I am attaching the file with code and a sample graph. ( Find the problem in Numerical analysis - below in file)                                        new_assignment.mw

Consider the system of two equations 

x+y=2

x*y=4

Let's try to solve this using Maple's solve command.

This seems at first glance like one solution, but actually it is two, which I see if I use evalf.

Solving the equations by hand I get two solutions

y=1+sqrt(3)*i, x=4/y

y=1-sqrt(3)*i, x=4/y

If I use evalf on these two solutions I get the same result as the two solutions using solve.

My question is where does the expression y=2* RootOf(_Z^2-_Z+1) come from?

By hand, y seems to be the solution to y^2-2y+4=0.

Hello guys,

List of points:

LT := [[1, 1, 0], [3, 2, 0], [2, 3, 1], [1, 3, 1], [1, 4, 2], [1, 5, 0], [2, 5, 1], [3, 5, 3], [4, 5, 3], [3, 4, 5], [4, 3, 2], [5, 3, 2], [5, 4, 1], [5, 2, 1], [5, 1, 0], [4, 1, 2], [3, 1, 2], [2, 1, 2], [1, 2, 1], [1, 1, 0]]

Does Maple have some function to sort a list of points to give the shortest path?

Regards,

Oliveira

I make the equations p0 and p1 equal to find y, and use the solve function, but always remind me of the following errors. How can I figure out y? Q in the formula is equivalent to a constant. Thank you for your answer!

Here is my program：

question.mw

I was just going through Chapter 4 - Basic Computations from the User Manual. I have a worksheet in Documenet mode where I put in the commands I see as I go through the Chapter.

I reached the part about using solve. I didn't know it was so easy to use the context menu to do things like solve numerically, use solve, etc. I typed in the equation x^3+2x-9=0 and tried a few of these options for solve. Many gave the answer 1.762496376, which is the real root.

Now, eventually, I wanted to see the two additional complex roots. But I never did.

Then I simply added a new line to the worksheet, copied over the equation, and tried the option solve directly. Now I see three solutions.

Next, I added yet another line and executed solve(x^3+2x-9=0) and got three solutions again.

What I don't understand is why the first line, even now, doesn't ever return the three solutions. I choose solve from the menu but it only returns the real root 1.762496376. 

Here is the exact worksheet I am using: 4_-_Basic_Computations.mw

There is a text in bold that says Solving Equations and Inequations and the problematic command is on the line after that. 

(once again, I was not able to insert the worksheet contents here, would also like to know why this never works for me).

I open the command-line of maple 2022, and I can run the code alone. But when I save it in a text named ``6conn.txt", I don't know how to run it.

with(GraphTheory):
g:=Graph({{0 ,1},{3 ,4},{4 ,1},{1 ,3},{3 ,0},{0 ,4},
{2 ,1},{4 ,5},{4 ,2},{3 ,6},{4 ,6},{6 ,5},{1 ,6},{6 ,2},
{5 ,0},{0 ,2},{2 ,5},{7 ,8},{12 ,10},{10 ,11},{11 ,8},{8 ,10},
{10 ,7},{7 ,11},{9 ,8},{11 ,12},{11 ,9},{10 ,13},
{11 ,13},{13 ,12},{8 ,13},{13 ,9},{12 ,7},{7 ,9},{9 ,12},
{8 ,2},{13 ,0},{10 ,5},{12 ,3},{1 ,9},{7 ,6}
});

I tried  .\E:\\6conn.txt or !E:\\6conn.txt. Neither seems to work.

6conn.txt

pdsol.mw

I have plotted in the same display a pointplot and a constant (a horizontal line)..

The worksheet is:

How do I solve for when the constant plot2 is less than plot1? I know at r=323 it goes above the threshold, but I don't know how to show this in an expression in Maple, and I've looked for several hours now, both Google search and on Maplesoft with no luck.

I have seen several examples of using Maple to numerically solve a PDE, but I'm looking for a "symbolic" method.

If I type seq(i,i=1..1000) <enter> I get a large output.

Then when I type

for i from 1 to 5 do
  i;
end do;

It takes Maple 8 seconds to complete the job.  Is this normal when using Windows 7?

Did Maple just end the links to older maple manuals? 

I can't locate the link to find older maple manuals on the maplesoft website.  Did it get moved?  I can't find it.  Does anyone have a link?

Hello Everybody

My name is Emmanuel and i live in Paris, France. I work in insurance and i am an actuary. 

I am a new maple user because i wanted to have some fun redoing some mathematics. (I studied mathematic 30 years ago).

I would like to develop an animation with epicyles to draw something. 

(there is a famous one on youtube with homer simpson)

My idea is to embed an image with a simple drawing, get the coordonate from the points and apply a complex fourier transfor to get the parameters and make an animation.

I found the way to make the animation, to emben the image. .But i cant find how to get a maxtrix or a vector (i dont know what is the best ) of the coordinate of the point of the drawing. Does any of you have an idea to do it ? 

Thanks a lot

with(Optimization):
expr_optimize := fSW__Ratio_Tol[XU5]*f_ratio__SpreadSpectrum[XU5]*(R34^2*k1__RT[XU5] + R34*k2__RT[XU5] + k3__RT[XU5])/R34^2;
seqUnknownRanges := R34 = 5.640*10^4*Unit('Omega') .. 6.160*10^4*Unit('Omega'), k1__RT[XU5] = 4.054*10^4*Unit(1/('s')) .. 4.054*10^4*Unit(1/('s')), k2__RT[XU5] = 1.593*10^11*Unit(1/('F')) .. 1.593*10^11*Unit(1/('F')), k3__RT[XU5] = -2.645*10^15*Unit('m'^4*'kg'^2/('s'^7*'A'^4)) .. -2.645*10^15*Unit('m'^4*'kg'^2/('s'^7*'A'^4)), fSW__Ratio_Tol[XU5] = 0.950 .. 1.050, f_ratio__SpreadSpectrum[XU5] = 1 .. 1.250;
NLPSolve(expr_optimize, seqUnknownRanges, 'useunits', 'method' = 'modifiednewton', 'optimalitytolerance' = 0.101);

NLPSolve returns this message "Warning, convergence is not assured; examine Hessian values, or consider raising tolerance"

How can I capture this message in a procedure and take appropriate action?