one man

Alexey Ivanov

815 Reputation

14 Badges

8 years, 258 days
Russian Federation

Social Networks and Content at Maplesoft.com

Maple Application Center

MaplePrimes Activity


These are answers submitted by one man

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

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?

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

I do not know… in my opinion, the easiest and most reliable way
   restart;
   z := x+I*y;
  #exp(z) +1;
  f1 := evalc(Re(exp(z)+1));
  f2 := evalc(Im(exp(z)+1));
  fsolve({f1, f2});
  solve({f1, f2});

 

Check whether the f function  of p and  function of r.
For example,
> depends (f, r)

 

I think it was done with the help of Drawing Tools...

 And superpositions of the functions do not need?

FUNCTION.mw 

 

for_you.mw 

Without
fsolve, it is a polynomial system of equations.

 

I use this record to my calculations:
> restart;
   f := (x-a)*(x-b);
   f1 := unapply(diff(f, x), x);
   f1(3);
   f := unapply(f, x);
   f(3)

 

2DOF_1.mw

 Trying to solve the problem on the basis of Draghilev's method

 

1 2 3 4 5 Page 3 of 5