Phase_potrait.mw
Hello, anybody knows how to plot phase potrait for disease free equilibrium?

Download Phase_potrait.mw
 

Download Phase_potrait.mw

Does MAPLEPrimes or MAPLESoft host a discussion forum on mathematics in general?  I know this site generally supports troubleshooting & code application.  I have had a couple of instances where I have posted a question that gets no responses because the question may fall outside the perview or objectives of troubleshooting & code application.  Perhaps I should pose these questions elsewhere?

Hello, 

I'm still new to maple, so I hope someone could help me out here

In the file attached I'm trying to generate equations depending on an array of values T[0 to m], of these I've the first T[0] and final T[m] values

before I set these 2 values, I got equations in T0 to T6 setting m=6, when i used the 2 values known i got the same equations only with T0 and T6 substituted, how do i solve them to get the rest of the T values, T1 , T2, and so on

thank you,

Download Advheat-ex52.mw

Hi everyone,

I'm trying to create a function that utilizes the index of a vector to preform the following:

Where x and y are both nx1 vectors.  I've tried using summation to no avail, as you can see below: 

Of course, it works when I do it this way, but it's incredibly inefficient if the vectors have a large number of rows:

 

Any help y'all can give me would be extremely appreciated!  Thank you kindly

Hi I am trying to get Maple to find for which value k two parametric lines intersect using geom3d package. Is that possible?

my code is as follows. 

restart; with(geom3d);

#First I define the the point and vector to construct the line l.

point(P, 1, 0, -2);
 
v := [1, 1, 2];
                    
line(l, {P, v});

Equation(l) = [1 + t, t, -2 + 2 t]
 

#Next I try to define the line m. 
line(m, [k*s+4, 2*s, 3*s], s)

but how (if possible to I get the line to take in the second paramter k? 

and if its possible? which syntax do I use in the intersection-command to get Maple to print out the value k? so it still uses the parameter s for the intersection? 

best regards 

Fred

I want to include the result of an evaluation in a document block that is included in a workbook. It is easy to write sin(Pi) and obtatin sin(Pi)=0 in your document block. Howwever in the case below I want to preserve only y=x/3  removing the isolate(...) expression. Does anyone know if this can be done and if so how to do it?
 

Thanks for any help.

Download maple_query_document_blocks.mw

please help me out with maple code/script for "SPIN TOY PENDULUM" using its differential equation..

please help me out with maple code/script for vander pol limit cycle using its differential equation..

Hi!

Is it possible to get step by step solution for:

- Laplace

- taylor

- fourie

Thanks for answers!

cone_rail_track_Maple.mws

The attached program is of a point moving along a conical path of a cone, then doing a descent back to the start.   For values R=60, r=20, h=10 the animation seems to work reasonably well.  However when r=19 - only a small change - the development plot of the cone is only partially shown?   Also, I have some variables nameP1, nameP2 which I would like to alter the color of.  Howdo I do this?

  Any comments or help most appreciated. 

restart;

PDEtools[declare]((f, g)(x), prime = x);

de1 := diff(f(x), x, x, x, x)-(H*H)*(diff(f(x), x, x))-R*(diff(f(x), x, x))*(diff(f(x), x))+R*(diff(f(x), x, x, x))*f(x);

de2 := diff(g(x), x, x)-(H*H)*g(x)-R*(diff(f(x), x))*g(x)+R*(diff(g(x), x))*f(x); R := 1; H := 1;

dd1 := {de1 = 0, de2 = 0, f(0) = 0, f(1) = 1, g(0) = 1, g(1) = 1, (D(f))(0) = 0, (D(f))(1) = 0};

r1 := dsolve(dd1, numeric, output = Array([0., 0.5e-1, .10, .15, .20, .25, .30, .35, .40, .45, .50, .55, .60, .65, .70, .75, .80, .85, .90, .95, 1.00]));

restart;

PDEtools[declare]((f, g)(x), prime = x);

de1 := diff(f(x), x, x, x, x)-(H*H)*(diff(f(x), x, x))-R*(diff(f(x), x, x))*(diff(f(x), x))+R*(diff(f(x), x, x, x))*f(x);

de2 := diff(g(x), x, x)-(H*H)*g(x)-R*(diff(f(x), x))*g(x)+R*(diff(g(x), x))*f(x); R := 5; H := 5;

dd1 := {de1 = 0, de2 = 0, f(0) = 0, f(1) = 1, g(0) = 1, g(1) = 1, (D(f))(0) = 0, (D(f))(1) = 0};

r2 := dsolve(dd1, numeric, output = Array([0., 0.5e-1, .10, .15, .20, .25, .30, .35, .40, .45, .50, .55, .60, .65, .70, .75, .80, .85, .90, .95, 1.00]));

odeplot({r1, r2}, [x, f(x)]);
print(`output redirected...`); # input placeholder
                f(x) will now be displayed as f
 

I tried to open Maple but it just won't launch it just stays in the loading screen but it doesn't load. I tried everything Uninstalled it and installed it again, uninstalled Java and installed it again, updated all my drivers but it just seems like it doesn't work. Please help if you can.

Hi!

I have been using Maple for the last three years with almost no complaints. Great product. 
However recently I have acquired a new laptop and upon installing Maple I noticed the GUI appeared different from my past experience. Some "buttons" are now tiny and severely impractical to click:

As you can see the X-icon use to close individual sheets is tiny and so are the "click and drag" squares in the corners of the plot. The problem extends to other objects/buttons not shown in the picture.

The toolbar icons are NOT a problem.

My screen resolution is 3840x2160 and the high resolution must be the problem but when i lower my display resolution nothing changes. 

Any help will be greatly appreciated!

Hello,

     I'm attempting to solve a rather trivial trigonometric equation, but solve seems to be behaving rather inconsistently. If I attempt this equation

eq := G*cos(x+C1) = A*sin(x):
vars :=  {G, C1, x}:

solve(eq, vars);

it returns the correct, expected result

{C1 = -1/2*Pi, G = A, x = x}, {C1 = 1/2*Pi, G = -A, x = x}, {C1 = C1, G = G, x = arctan(cos(C1)*G/(G*sin(C1)+A))}

However, if I remove x from the list vars of variables for which to solve, I expect it to return the first two elements, {C1 = -1/2*Pi, G = A}, {C1 = 1/2*Pi, G = -A}. However, this isn't what happens. Instead, solve returns {C1 = C1, G = A*sin(x)/cos(x+C1)}; it's true that this is a valid solution, but it seems to be missing the two I want. Is there a way to recover the desired solutions?

And a related question: even without removing x from vars, solve appears to have trouble with the equation. Simply changing sin to cos, as so

eq := G*cos(x+C1) = A*cos(x):
vars :=  {G, C1, x}:

solve(eq, vars);

Now only returns

{C1 = C1, G = G, x = arctan((G*cos(C1)-A)/sin(C1)/G)}, {C1 = C1, G = G, x = arctan((-G*cos(C1)-A)/sin(C1)/G)}

That is, it is missing the expected solutions {C1 = 0, G = A}, {C1 = Pi, G = -A}. Is there a reason for this difference?

Thank you very much!