MaplePrimes Questions

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

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

The worksheet is:

restart;
with(plots);
plot1 := plots[pointplot]([seq([r, 1 - combinat[numbperm](180000, r)/180000^r], r = 1 .. 1000)]);

plot2 := plot(0.25, r = 1 .. 1000);
display({plot1, plot2}, axes = boxed);


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.

For the simulation of a microcontroller I am looking for discrete components like AD and DA converters, filters, differentiators, integrators.

The plant to be controlled is built with components from the MapleSim 2022 component library.

If there are no libraries that are compatible with the current version of MapelSim, I wonder if there is something that could be customized.

Any insights on the subject are welcome.

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

Very basic exampl - I have a system of differential equations with two state variables [x1 and x2] like so:
 
x1_prime = x2 + u*x1 + dH/dx1      <--- dH/dx1 is the partial deriv of H wrt x1
x2_prime = x1 + dH/dx2                 <--- dH/dx2 is the partial deriv of H wrt x2
 
H is the energy function that I'm trying to find.
--> I know the partial derivatives of the function H (from above), but I don't know what H itself is. Is there a Maple function or example that will help me find H symbollically?

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?

Hello,

I am having problems printing Maple Flow documents. I have set up both a header and a footer. In the Print Preview mode, everything is fine. When I try to print to a PDF file, the header loses its format and the footer does not print at all. Printing to a printer looks the same. What settings must be selected so that the printout can be passed on as a well-formatted document?

Many thanks in advance.



 

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?

First 134 135 136 137 138 139 140 Last Page 136 of 2308