Maple Questions and Posts

These are Posts and Questions associated with the product, Maple

I need to sort a list of vectors, so that the vectors which have a norm of 1 come first (the order of remaining vectors is irrelevant). What would be an efficient way to do that?

When The subgraph is too many, the label will hide automatically. Such as:

DrawSubgroupLattice(SmallGroup(200, 31), labels = ids)

But the labels is important to me. I can accept a more larger graph and more smaller text in labels. Is it possible?

How to plot  the intersection of Zc and Zs?

restart; with(plots)

m := 1; n := 2

``

Zc := proc (x, y) options operator, arrow; m*cos((1/180)*x*Pi)+n*cos((1/180)*y*Pi) end proc

Zs := proc (x, y) options operator, arrow; m*sin((1/180)*x*Pi)+n*sin((1/180)*y*Pi) end proc

plot3d([Zc(x, y), Zs(x, y)], x = 0 .. 180, y = 0 .. 180)

 

Z := proc (x, y) options operator, arrow; `intersect`(Zc(x, y), Zs(x, y)) end proc

proc (x, y) options operator, arrow; `intersect`(Zc(x, y), Zs(x, y)) end proc

(1)

"How to plot intersect of Zc and Zs"?""

Download plot-15.mw

Generators(SmallGroup(60, 10))

Wii get this result:

But I hope to copy this junk information into my clipboard.

But my clipboard just get such information:

[module() ... end module,module() ... end module,module() ... end module,module() ... end module]

Or I copy it as Latex format, I will get those extra \left\right:


\left[\left(1,4,5\right)\left(2,9,10\right)\left(3,13,14\right)\left(6,17,19\right)\left(7,18,20\right)\left(8,23,24\right)
\\
\left(11,27,29\right)\left(12,28,30\right)\left(15,33,35\right)\left(16,34,36\right)\left(21,39,41\right)
\\
\left(22,40,42\right)\left(25,43,45\right)\left(26,44,46\right)\left(31,49,51\right)\left(32,50,52\right)
\\
\left(37,53,55\right)\left(38,54,56\right)\left(47,57,59\right)\left(48,58,60\right),
\\
\left(1,6,21,22,7\right)\left(2,11,31,32,12\right)\left(3,15,37,38,16\right)
\\
\left(4,17,39,40,18\right)\left(5,19,41,42,20\right)\left(8,25,47,48,26\right)
\\
\left(9,27,49,50,28\right)\left(10,29,51,52,30\right)\left(13,33,53,54,34\right)
\\
\left(14,35,55,56,36\right)\left(23,43,57,58,44\right)\left(24,45,59,60,46\right),
\\
\left(1,2\right)\left(3,8\right)\left(4,9\right)\left(5,10\right)\left(6,12\right)\left(7,11\right)\left(13,23\right)\left(14,24\right)
\\
\left(15,26\right)\left(16,25\right)\left(17,28\right)\left(18,27\right)\left(19,30\right)\left(20,29\right)\left(21,32\right)
\\
\left(22,31\right)\left(33,44\right)\left(34,43\right)\left(35,46\right)\left(36,45\right)\left(37,48\right)\left(38,47\right)
\\
\left(39,50\right)\left(40,49\right)\left(41,52\right)\left(42,51\right)\left(53,58\right)\left(54,57\right)\left(55,60\right)
\\
\left(56,59\right),
\\
\left(1,3\right)\left(2,8\right)\left(4,13\right)\left(5,14\right)\left(6,15\right)\left(7,16\right)\left(9,23\right)\left(10,24\right)
\\
\left(11,25\right)\left(12,26\right)\left(17,33\right)\left(18,34\right)\left(19,35\right)\left(20,36\right)\left(21,37\right)
\\
\left(22,38\right)\left(27,43\right)\left(28,44\right)\left(29,45\right)\left(30,46\right)\left(31,47\right)\left(32,48\right)
\\
\left(39,53\right)\left(40,54\right)\left(41,55\right)\left(42,56\right)\left(49,57\right)\left(50,58\right)\left(51,59\right)
\\
\left(52,60\right)\mathrm{
\\}\right]

But I just want to copy the output what I have seen

I want to calculate the double integral of the following expression which includes sum of several Legendre polynomial terms, but the speed is so low. Any suggestion to speed up the calculation?

NULL

Restart:

NULL

II := 9:

JJ := 9:

M := 9:

NULL

`ΔP1` := add(add(add(add(add(add(add(-(LegendreP(i, zeta__1)*LegendreP(j, eta__1)*(diff(diff(tau[r](t), t), t))+LegendreP(m, zeta__1)*LegendreP(j, eta__1)*(diff(tau[r](t), t))+LegendreP(m, zeta__1)*LegendreP(j, eta__1)*tau[r](t))/sqrt(LegendreP(m, zeta__1)*LegendreP(j, eta__1)+LegendreP(i, zeta__1)*LegendreP(l, eta__1)), i = 1 .. II), j = 1 .. JJ), k = 1 .. II), m = 1 .. II), l = 1 .. JJ), n = 1 .. JJ), r = 1 .. M):

A := int(int(`ΔP1`, zeta__1 = -1 .. 1), eta__1 = -1 .. 1):

A

``

Download Soal.mw

Hello there, 

Would you allow me to ask this question?

Is there any way to apply 'collect' command using a term by multiplication of variables?

The following worksheet shows an example. What I wanted to see is the 'desired' expression, while multiple attempts with 'collect' command failed. 


 

restart;

eq_e5_10z := Psi[q0]*Delta*delta = 1/(omega[0])*p(Delta*Psi[q])+Delta*Psi[d]+Psi[d0]*1/(omega[0])*p(Delta*delta);

Psi[q0]*Delta*delta = p(Delta*Psi[q])/omega[0]+Delta*Psi[d]+Psi[d0]*p(Delta*delta)/omega[0]

(1)

eq_e5_10za := Delta*Psi[d] = Psi[q0]*Delta*delta - op(1, rhs(eq_e5_10z)) - op(3, rhs(eq_e5_10z));

Delta*Psi[d] = Psi[q0]*Delta*delta-p(Delta*Psi[q])/omega[0]-Psi[d0]*p(Delta*delta)/omega[0]

(2)

eq_e5_10zb := subs({p(Delta*Psi[q])=0}, eq_e5_10za);

Delta*Psi[d] = Psi[q0]*Delta*delta-Psi[d0]*p(Delta*delta)/omega[0]

(3)

collect(rhs(eq_e5_10zb), {Delta*delta});# error

Error, (in collect) cannot collect Delta*delta

 

collect(rhs(eq_e5_10zb), [Delta*delta]);# error

Error, (in collect) cannot collect Delta*delta

 

collect(rhs(eq_e5_10zb), [Delta, delta]);# did not work  

Psi[q0]*Delta*delta-Psi[d0]*p(Delta*delta)/omega[0]

(4)

Desired := (psi__q0 - psi__d0*p/omega__0)*(Delta*delta);

(psi__q0-psi__d0*p/omega__0)*Delta*delta

(5)

 


 

Download Q20220602.mw

I would like to compute the Fourier transform of a impulse train for applications in signal processing.  I expect to get an impulse train as a result, but do not:

restart;
delta__t:=t->sum(Dirac(t-k*T__0),k=-infinity..infinity) assuming T__0>0
with(inttrans):
S:=fourier(delta__t(t),t,omega)

I will note that Mathematica has the DiracComb function since 2008.  It also computes the result as an impulse

train:https://reference.wolfram.com/language/ref/DiracComb.html which is what I would expect.  Is there something I should be doing that I'm not aware of?

We have just released an update to Maple, Maple 2022.1.

Maple 2022.1 includes improvements to the math engine, Plot Builder, Print Layout mode, and more.  We strongly recommend that all Maple 2022 users install these updates.

This update is available through Tools>Check for Updates in Maple, and is also available from our website on the Maple 2022.1 download page, where you can also find more details.

In particular, please note that this update includes fixes to problems with Units:-Simple (here and here), evala, sum, and deleting tasks from a task template, all reported on MaplePrimes. As always, thanks for the feedback!

Why is Maple not assigning values to A and B in the below example (Maple2018)?

restart;
assume(A < B);

S := 2/(B-A);
                                  2  
                           S := -----
                                B~ - A~
B := 10; A := 5;
                            B := 10
                             A := 5
S;
                               2  
                             -----
                             B~ - A~

I have been trying to figure out if there is any command in Maple where you can find the self-intersection points of a vector valued function in Maple? Other than having to type the equations manually into fsolve?  

Like shown in this 2013 post. 

https://math.stackexchange.com/questions/243065/self-intersection-of-vector-valued-function

Hi everyone

I have a partial differential equation in function u that contains conjugate of u. How can I write PDE like this in maple

PDE:=diff(u,t)+diff(u*,x)

where u=u(x,t) is complex function and u* is conjugate.

Why is it not as simple as

to obtain a result for the cubic root of -8 that is what one would expect: -2?

Instead we obtain

root(-8,3)

Why doesn't Maple return -2?

By printing each processing step for a parametric surface entered in 3-dimensional space,

i- Finding whether the surface is a ruled(regle) surface and printing it in the ruled surface form,

ii- Calculating the dispersion parameter of the surface and the throat line,

iii- Draws the surface and the throat line on the surface together,

When I run this code, I will get a error information:

CompositionSeries(SmallGroup(336, 209))

It's mean this function just work in transitive group? But IsTransitive(SmallGroup(336, 209)) will get true. Is it a bug of maple? Or do I have any misunderstandings?

Hi,

I am using the following (dummy) code to generate a density plot.

densityplot(x-y^2, x=-5..5, y=-5..5, axes=boxed, style=patchnogrid, numpoints=1000, legendstyle=[location=bottom], labels=[x, y]);

While this command does generate x vs y plots with varying color shared, I cannot figure out where the function (x-y^2) value by looking at the color shades. Is there a way to produce a legend along with the plot that will demonstrate how the function is taking different values with parameters? 

I found a similar post, dated 2005, that suggests using the "s_tyle=" command. However, it does not work for some reasons. I would appreciate help in this regard. 

Thank you,

Omkar

First 184 185 186 187 188 189 190 Last Page 186 of 2097