Kitonum

20269 Reputation

26 Badges

15 years, 348 days

MaplePrimes Activity


These are replies submitted by Kitonum

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

@Lali_miani
 
The first example:

f:=n->2*(n-1)/(2*n-1):
seq(f(n), n=1..10);


and so on.

@Carl Love  Thank you. I fixed the output in my code. When I posted it yesterday, I corrected something but forgot to replace the output. Now it's all right.

@south The  eval  command does roughly the same as the  subs  one. You can replace  eval(f(x), %)  by the subs(%, f(x))  in the code below .   

@etian2  You forgot to call the Physics[Vectors] subpackage:

restart;
with(Physics[Vectors]):
a_-b_;

                                           

 

@jalal  Should be:

A := animate(plot, [[T(a), [[a, f(a)]]], x = -20 .. a, style = [line, point], color = red, thickness = 3, symbolsize = 16], a = -20 .. 20, frames = 90, background = G, view = -20 .. 20):
 
B := animate(plot, [[g(a), [[a, f(a)]]], x = -20 .. a, style = [line, point], color = red, thickness = 3, symbolsize = 16], a = -20 .. 20, frames = 90, background = G, view = -20 .. 20):
 
display(A, B);

 

2 3 4 5 6 7 8 Last Page 4 of 127