I have a procedure:

duplicates := proc(L)
local newL,vals,T;
newL:=[x->x];
vals := {[1/2,1/4,3/4]};
for T in L do
if not (T([1/2,1/4,3/4]) in vals) then
vals := vals union { T([1/2,1/4,3/4]) };
newL := [newL[],T]
end if
end do;
return newL
end proc:

I want to take a wav file and plot a smooth curve across the top indicating the relative maximums then put those points in an array or matrix with their relative x values.

with(AudioTools):
aud:=Read("c:/Documents and Settings/My Music/sample.wav")
aud2:=ToMono(aud)

There are quite a few spikes around the maximums which would indicate multiple maximums at each max area but I just want the general max.

Dear Maple users

This may be a very simple question: How do I operate on the coordinates of a vector in the most streamlined way?

Lets say I have a vector <2,4,5,8,9> containing the diameters of five different circles. I want a vector V in which the coordinates are the corresponding circle areas. So the first coordinate of V should be 1/4*Pi*2^2, the next coordinate 1/4*Pi*4^2 , etc...  How is this done in the most simple way i Maple? In principle I want a method, which will work for any function ...

Regards, Erik V. 

a:=%%, %;
 

what does this do?

Something simple

How do I convert an exprseq to a list

L:=seq(i,i=1..50)

L:=[L]   is this the only way to convert the exprseq to a list?  I thnk it's the simplest way, however is there another way?  The convert command won't allow it.

I have something like this:

months := Vector([1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12]);
values:= Vector([45, 48, 53, 46, 41, 38, 35, 44, 50, 53, 55, 59]);
knots := ScatterPlot(months, values, style = point, symbol = asterisk, color = blue);
R:= LeastSquares(months, values, x);
curve1 := plot(R, x = 0 .. 12, y = 0 .. 70);
plots[display](knots, curve1);

R becomes

(459 / 11)  +  (243 / 286) * x
 

Hi all,

The following is my 'poor' attempt at coding the n by n queen problem. I am an amature programmer. The codes individually seem to work fine but when i put it all together it dose not seem to work and it does not produce an error so i don't know where its going wrong.

I would really really appriciate greatly if someone can help me please.

thank you in advance.
 

Hi
 

i am trying to code a proc that tells me when a certain function is better than another. My proc works fine for functions that have a single crossing point but it does not seem to work for inputs that have multiple crossing points.
 

Hi,

I'm a bit of a rookie with maple and need your help please.

I am looking to input a function of the following form:

f(x)= 1/2.x.H.x + g.x

where H is a matrix and g is a vector.

I need maple to be able to evaluate the function value at certain points.

Thank you in advance for any help you provide.

With version 10, I did this:

gammadist:=(x^(alpha-1)*exp(-x/theta))/(GAMMA(alpha)*theta^alpha);

simplify(int(gammadist,x=0..infinity),symbolic);

The result of the integral is 1.

When I do this exact same thing in version 12, I get an integral without any symbolic computation.

If I use assum(alpha>0): additionally(theta>0): then it will give me the same result.  However, in version 10 I also did

mgf:=simplify(int(exp(t*x)*gammadist,x=0..infinity),symbolic);

hi i need help to solve a equation nolinear, i find the equilibrium points and eigenvals and plot the phase portrait the equation is

dx1/dt=x1+x1x2

dx2/dt=-x2+x2+ x1x2-x1

Well what's the difference between those two?

how would i get maple to ingnore wht is a mathematical singularity and not a physical one, and continue picking up the solution the other side of the point??

see code below;

Hi,

I have a complex quantity in mod-arg form,

psi:= (alpha_0(t) + epsilon*alpha_1(r,t))*exp(I*(phi_0(r,t) + epsilon*phi_1(r,t))/nu),

to which I'm applying an operator

delsq:=x-> d^2/dr^2 x+ 2/r d/dr x .