Kitonum

21560 Reputation

26 Badges

17 years, 137 days

MaplePrimes Activity


These are replies submitted by Kitonum

@san  I replaced  matrix  command by  Matrix  command, because matrix command is deprecated, and removed the  space between the  matrix  command and the subsequent opening parenthesis:

 

Download ch512_new.mw

 

@Ronan  If you want to add  0 to C2  in 4th position you can do it as follows:

C2:=[a,2,1-3*a,a^2-5,7*a,a^2]:

[C2[1..3][], 0, C2[4..-1][]];

                            [a, 2, 1-3*a, 0, a^2-5, 7*a, a^2]

@Markiyan Hirnyk  3. We have

expand(eval({x=9*z^2+3*z+367, y=6*z^2+z+244}, z=n+1/3));  # My nontrivial answer

expand(subs(n=n-1, %));   # We got Mathematica nontrivial answer

 

 

 

@Markiyan Hirnyk  

I know. For full automation, we can write

restart;

minimize(sin(x+y), x=-1..1, y=-1..1);

solve({sin(x+y)=%, abs(x)<=1, abs(y)<=1});

                  

 

 

 

@Carl Love  I usually insert a code text and images separately. The first by copying and pasting, and the second by making a screenshot and it's processing in Paint. Of course, it takes more time, but gives better quality pictures. I use Google Chrome, and Standard Interface for pictures.

 

@Carl Love   you are right. The simple example shows it very well:

plot(abs(x), x=-1..1, style=point, numpoints=20):

plot(abs(x), x=-1..1, style=point, adaptive=false, numpoints=20):

plots[display](<%% | %>, scaling=constrained);

    

 

 

 

@Carl Love  Thank you for the clarification of application of this option. Can you give an example of when  numpoints  is not enough for providing the exact number of points?

@Earl  You wrote " it appears that the surface between a pair of ribs in not a portion of a sphere but a minimal surface. Is this true? "

 It is not true. In fact, the surface of this umbrella is part of a sphere, which is above the octagon between two brocken lines  -P  and  P.

Here the plotting of this surface without the ribs with the side projecting surface:

P := piecewise(-2 < x and x < -sqrt(2), sqrt(2)*(x+2)/(2-sqrt(2)), -sqrt(2) < x and x < 0, (2-sqrt(2))*x/sqrt(2)+2, 0 < x and x < sqrt(2), (sqrt(2)-2)*x/sqrt(2)+2, sqrt(2) < x and x < 2, sqrt(2)*(x-2)/(sqrt(2)-2)):

plot3d(sqrt(-x^2-y^2+9), x = -2 .. 2, y = -P .. P, color = "HotPink", style = surface, scaling = constrained, axes = normal, numpoints = 5000, filled = true, view = [-2.45 .. 2.45, -2.45 .. 2.45, 0 .. 3.45]);

                        

 

 

 

@lg674   I corrected some syntax errors in your file. But the curve is still not plotted, because the function  phi(t,1,2,3,4) takes complex values. See attached file.

Plots_new.mw

@lg674  Please give the full text of the code in which the error occurs.

@matthew_spire  I have noticed that in Maple 2015 and Maple 2016  (at least on my machine under Windows 8) by default  style=surface  occurs without lines.  If you write linestyle=solid, it will be  a surface with lines.

@Carl Love   Thanks for the detailed explanation.

Also I really liked your new one-line approach.

@J4James   Step by step solution for this integration can be done by the command

Student[Calculus1][ShowSolution](Int(exp(x)*sin(x), x));

 

As for  infolevel  command, I never used it. See help for this.

@acer  in acer's simplification  (unfortunately manually):

simplify(convert(evalf[9](ee), rational, exact));

subsop(5 = (exp((7/10)*r*t)*x^(7/10)+1)^2, %);

                       

 

 

 

Where  the non-negativity of all the variables in your "proof"  was used? It is obvious that for arbitrary variables the inequality is not true.

First 80 81 82 83 84 85 86 Last Page 82 of 133