MaplePrimes Questions

I am using the Calculus Study Guide and the mathematical notation is half Maple notation and then half typeset notation. I have tried to tweak with Tools>Options>Display settings but it stays the same

For example:

{a[n]}[n = n[0]]^infinity;, where 
                             "a[n]"

 is the general term for the sequence, and 
                             "n[0]"

 is the starting index.
The notation is often shortened to {a[n]}; to save printing costs.

...and the math notation past the word "where" is in typeset notation but changed to Maple Notation when I cut and pasted.

Thank You in advance.

I'd like to plot the graph in polar coordinates of the function r=f(t)=2/cos(t), which should be a vertical line parallel to the y-axis. I've tried it with two different commands, and below you can see the results

plot(2/cos(theta), coords = polar)

plot(2/cos(theta), coords = polar)

What is going on here?

I then tried using polarplot from the plots package.

with(plots):

polarplot(2/cos(t), t = 0 .. 2*Pi)

 

Shouldn't the graph be a vertical line at 2?

Notice that if I plot two similar plots

polarplot([1/cos(t), 2/cos(t)], t = 0 .. 2*Pi)

The same result is obtained

 

What is going on here? 

 

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?

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?

First 306 307 308 309 310 311 312 Last Page 308 of 2428