one man

Alexey Ivanov

505 Reputation

8 Badges

5 years, 108 days

Social Networks and Content at Maplesoft.com

Maple Application Center

MaplePrimes Activity


These are answers submitted by one man

On the worksheet paste the picture from the buffer (ctr + v), click on the picture, and the "Drawing" panel starts to work. Learn the tools of the panel and work.

Topic on the Russian-speaking forum
http://dxdy.ru/topic94428.html 

   Here is an example of the movement of a point along the graph together with the output values of function and the coordinates. 
If you look at this place from the text, then maybe it will help?
http://www.mapleprimes.com/questions/205606-Find-Root-Method#answer219932  

a := [cos(x) = 0, 1, sin(y)*cos(x)-0.5 = 0];
a := convert(a, Vector); a(1); a(3);
whattype(a);

 convert(a,Vector[column]) or  convert(a,Vector[row])

> restart:
a := .9;
plots[display](plottools[cuboid]([-a, -a, -a], [a, a, a], transparency = .8, color = pink), plottools[sphere]([0, 0, 0], 1., style = surface, color = khaki), axes = none, view = [-a .. a, -a .. a, -a .. a]);

For example, you may draw using the "drawing" in any desired place of the graph (Although it is unlikely to fit you)

"

    The theory, if anything, here:
http://www.mapleprimes.com/posts/204684-Lever-Mechanisms-

    You can select and change any values, and then watch the result. Only the first you will be examined with the text. The text is small.  
 FOR_MP_2.mw   Maple15
    Hello your teacher! 

      To get started, try for the sphere of such graph, for example:


plsph:=plottools[sphere]([0, 0, 0], .995*JJ^2, color = green, transparency = .1, style = surface):


       If you do not like it, then we will think further.
       (You have a very large file).

I think you need to do differently. Look at the feature of graphs your equations 

implicitplot ([eq1, eq2], a = -2..2, b = -2..2, numpoints = 25000, color = [red, blue]); 

And try, for example, fsolve with intervals:

soln: = fsolve (eqs, {a = -2 .. -1, b = -1 .. 0});

 F := m*z^4-4*m*z^3+(3*m+3)*z^2-6*u;
 allvalues(solve(F, z));
...and further select intervals.

restart; 
S := plottools[sphere]([0, 0, 0], 2, color = RGB(-.5, .1, .1), transparency = .5, style = surface):
plots[display](S);

ROOTOF.mw It remains to exclude unwanted values sigma . ( And allvalues to RootOf)

restart;
with(plots):
f1 := exp(x*y):
plot3d(f1, x = 0 .. 1, y =0 .. 1):
p1 := %:
p3 := intersectplot(z-f1, y-1, x = 0 .. 1, y = 0 .. 1, z = .3 .. 2.5, thickness = 6, axes = normal, numpoints = 6000):
display(p1, p3, axes = boxed);

1 2 3 4 Page 1 of 4