Alexey Ivanov

## 1105 Reputation

10 years, 269 days

## Russian-speaking forum...

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

## 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?

## 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?

 1 2 3 4 5 6 Page 3 of 6
﻿