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!

Hi,

I would like to do some computations with Maple using elliptic functions. The implementation in Maple wants me to provide the g2 and g3 invariants. However, what I have is the half-periods. Does Maple have a function, that calculates the invariants from the half-periods? I know I can do that myself, but I'd like to write something concise and probably the output of a built-in function will be precisely, what the other functions are looking for.

Thanks in advance

Hi, I'm a new user of Maple 2016.  I'm plotting a surface using plot3d and I'd like to add a line on the surface. You can see my unsatisfying attempt to do this below.  The line that shows in the third figure is basically what I want to show but I don't want the rest of the second surface at all, just the line visible on the first surface.  

thanks

Tom 
 

Download surface_plot_question.mw
 

Download surface_plot_question.mw

Hello, I have a simple system that I'm attempting to solve:

eq:={r*cos(c) = a, r*sin(c) = 0}:

If I pass this system to solve(eq, {r,c}), it correctly returns the results {c = 0, r = a}, {c = Pi, r = -a}. However, PDEtools:-Solve(eq, {r,c}) does not find a solution. Even adding the option 'solver'='solve' doesn't help.

According to its help page, PDEtools/Solve is a unified command for solving algebraic or differential equations, so I would expect it to easily handle this system. Is there an additional option I should be passing PDEtools/Solve to make it work like solve in this case?

Thanks!

The only difference between the code that works and the code that doesnt, is that in one Identity is rearranged to as such that the rhs is 0, i am really really curious to work out why this occurs, the only difference is that one evaluates to 1/2=1/2, and the other evaluates to 0=0, but i dont see why maple would return one of those evaluations as false
 

Download KRONECKER_delta_RECIPROCITY.mw