Alexey Ivanov

## 1280 Reputation

12 years, 140 days

## MaplePrimes Activity

### These are answers submitted by one man

For example, nops(solve(x^2+x+1,[x]));

nops(solve([f1(x1,...,xn),..., fn(x1,...,xn)],[x1,...,xn]));

## The method of Draghilev...

To find the roots of the system of equations NxN, the method works as follows. The initial values of the system of equations NxN we define ourselves. An additional variable with initial value 1 is introduced,  as in the homotopy method, and after that, solving a known system of differential equations, we follow the change of sign of this additional variable. The place where the new variable changes sign be the solution of the original system of equations NxN.
sistema9_1.mw
As we see, several solutions were found for one initial approximation.

As for the normalization of variables in the differential equation, there is no need for this way of applying  the Diaghilev  method.

And another example with two equations
https://www.mapleprimes.com/posts/200585-Draghilevs-Method-Fx0-Animation

## 15 - 3 = 12 ( variables)...

If we look at your first message, it turns out that
r22 = r33, r23 = -r32, and they depend on x, then your system of equations has 15 - 3 = 12 variables.
And the system of equations is not polynomial.

## Drawing...

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.

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

 1 2 3 4 5 6 Page 3 of 6
﻿