Kitonum

19049 Reputation

26 Badges

14 years, 141 days

MaplePrimes Activity


These are replies submitted by Kitonum

In Maple 2018, the decision takes less than a second. There are probably syntax errors in your code.

restart;
M3:=Matrix(6, 6, [[1., -1., 1., -1., 1., -1.], [1., 1., 1., 1., 1., 1.], [-2., 1.618033989, 30.94427190, -153.8246851, 371.1559479, -572.9674774], [-2., 0.6180339876, 22.94427191, -41.15905356, -37.04759741, 149.3606798], [-2., -0.6180339876, 13.05572810, 22.82468509, -20.15594802, -81.03252254], [-2., -1.618033989, 5.055728096, 28.15905368, 68.04759752, 104.6393203]]);
v:=Vector[column](6, [-1/3, -1, 0, 0, 0, 0]);
a := LinearAlgebra:-LinearSolve(M3, v);

                                                           

@mmcdara  You wrote "Do you think that the OP will keep asking us to do his homework?" I dont know. Maybe it's not homework. I think that ideally everyone should do the job they like and try to do it well. It is likely that the teacher who issued this assignment will not approve if the OP passes off someone else's solution as his own.

@Carl Love 

restart;
Rose:= (n::posint)-> plots:-polarplot(`if`(n=2,[sin(n/2*t),sin(n/2*t-Pi)],`if`(n::even,sin(n/2*t),sin(n*t))), filled, color= `if`(n::odd, pink, aquamarine)):

Rose(1); Rose(2); Rose(4);  Rose(3);  # Examples

 

@Carl Love  You wrote "Your procedure needs to be changed for n=1 ". Why?

restart;
Rose:= (n::integer)-> plots:-polarplot(`if`(n::even,sin(n/2*t),sin(n*t)), filled, color= `if`(n::odd, pink, aquamarine)):

Rose(1); # Example

                   

 

@The function  We see that the solution is returned as an piecewise expression: if  p=2  then we have an empty list  [ ]  (no solutions), if  p=1  then the solutions are expressed in terms of  x3  , which can be arbitrary, (infinitely many solutions), and so on.

@kelvin goh 

restart: with(plots):
inequal([{y < 2, y >= x^2+1, (x-1)^2+(y-1)^2 <= 16},{y=x^2+1,(x-1)^2+(y-1)^2 = 16}], x = -3.5 .. 5.5, y = -3.5 .. 5.5, optionsfeasible = (color = grey));

 

@WA573 You can make the substitution  w=t*k , that is, you have  t=w/k , after which you get one equation  determinant(A)=0  with 3 unknowns  t, k, d

@moh111 

Expr:= 8*T(x, 7)+8*T(x, 2)+4*T(x, 5)+11*T(x, 1)+12*T(x, 3)+7*T(x, 4):
subsindets(Expr,function,t->T(x,op(2,t)+1));

 

@Ahmed111 

D[2](q)  is the derivative with respect to the second variable of the function q .

Using the  $  operator, we can easily prevent the animation from coming so quickly (in the first example of tomleslie's answer, each frame is multiplied 7 times):

restart:
  with(Fractals:-LSystem):
  with(LSystemExamples):
  with(plots):
  display([seq(PlotExample(DragonCurve,j)$7, j=1..12)], insequence=true);

@Will_iii  I don't understand why you are typing  b:=solve(eq,b) = 1. Enough

eq := 5*a^2 + 2*b - 7 = 0;   
a:=1;                                            
b:=solve(eq,b);

Maple now knows that  b  is  1 .

This is probably a problem with your version of Maple. In Maple 2018.2 everything works as expected:

restart:

with(plots):

equ1 := BesselJ(sqrt(17)/2, 10*sqrt(t)*sqrt(2))/t^(1/4) + BesselY(sqrt(17)/2, 10*sqrt(t)*sqrt(2))/t^(1/4):

equ2 := BesselJ(sqrt(17)/2, 10*sqrt(t)*sqrt(2))/t^(1/4) + 5*BesselY(sqrt(17)/2, 10*sqrt(t)*sqrt(2))/t^(1/4):

equ3 := BesselJ(sqrt(17)/2, 10*sqrt(t))/t^(1/4) + 5*BesselY(sqrt(17)/2, 10*sqrt(t))/t^(1/4):

tmax   := 30:
colors := ["Red", "Violet", "Blue"]:

p1 := plot([equ1, equ2, equ3], t = 0 .. tmax, labels = [t, T[2](t)], tickmarks = [0, 0], labelfont = [TIMES, ITALIC, 12], axes = boxed, color = colors):

ymin := min(op~(1, op~(2, op~(2, [plottools:-getdata(p1)])))):
ymax := max(op~(2, op~(2, op~(2, [plottools:-getdata(p1)])))):
dy   := 2*ymax:

legend1 := typeset(C[3] = 1, ` , `, C[4] = 1, ` , `, Omega^2 = 50):
legend2 := typeset(C[3] = 1, ` , `, C[4] = 5, ` , `, Omega^2 = 50):
legend3 := typeset(C[3] = 1, ` , `, C[4] = 5, ` , `, Omega^2 = 25):

p2 := seq(textplot([tmax-2, ymax-k*dy/20, legend||k], align=left), k=1..3):

p3 := seq(plot([[tmax-2, ymax-k*dy/20], [tmax-1, ymax-k*dy/20]], color=colors[k]), k=1..3):
display(p1, p2, p3, view=[default, -ymax..ymax], size=[800, 500])

 

 

Download Legend_Inside_new.mw

@zenterix  I understood your question how to write the same in Maple syntax. It seems that MaplePrimes editor does not support writing formulas in the Latex language. But there are resources where you can do this, for example http://primat.org/mathred/mathred.html  . And here you can paste the corresponding screenshot.

@Will_iii  I'm wondering why Maple help is missing in Maple Flow, in which Maple syntax is used.

1 2 3 4 5 6 7 Last Page 1 of 124