Alexey Ivanov

485 Reputation

4 years, 357 days

Here is an example...

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?

Myself am to blame...

It turns out that I myself am to blame. I did not understand that the Maple Application Center does not accept the .7z format, and instead of .zip  sent .7z.  And as a result, the Maple Application Center did not have the information established by the rules.

I apologize to everyone I misled by this issue with.

Does not fit?...

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])

Very short...

> 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]);

drawing...

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

"

Perhaps in handy...

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

plottools [sphere], transparency...

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...

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});

allvalues...

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

And...

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

It seems that everything is solved ...

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

one more variant...

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);

Perhaps you have too many colors and fin...

Share your experience. In the “settings” exactly as instructed, I replaced my picture on the move. I only, remember that I spent a little time on the choice of its size. And so it was very easy.
Perhaps you have too many colors and fine details?

convert...

restart:
a := 4;
b := 5;
convert(`a+b = 4+5 `, symbol) = a+b;

 1 2 3 4 Page 1 of 4
﻿