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 .

for example
a:=[1,2,3,4,5]
b:=[5,4,3,2,1,0]
c:=[1,2]

a+b+c
Error adding lists of different length

Is it necessary to create new lists padded with zeros to make it work?

Hi everyone...

I'm a bit stuck trying to rearrange an equation using Maple... I don't know what command I need to put in, and I've tried searching to no avail...

Basically I need to rearrange this equation to get 't':

E.q = m.x / (t^2)

and I want:

t = sqrt (m.x / E.q)

What command should I use please?

Thanks for the help!

mathsgeek

Basically, as part of a project we are to use a triangle, reflect the triangle and make it different colours. However I have come across this procedure and REALLY do not understand what it is doing and was wondering if anyone was able to simplify the section in bold in any way!

If I have an inequality b*(b-4)<-4a

is there a way in Maple to find a and b for which inequality holds?

Hi,
I want to shift  the first two elementsof a list to the end and this is what i've coded i have to run the proc twice. Is there a simpler way of doing this??? for example

L:=[1,2,3,4,5]  => [3,4,5,1,2]

switch2:=proc(N)
local y,li:
li:=N:
for y from 1 to nops(li)-1 do
(li[y],li[y+1]):=(li[y+1],li[y])
od:
li;
end proc:

Is there another simpler way of doing this aswell??

L:=[1,2,3,4,5] => [2,1,4,5,3]

switch:=proc(odd)

Hi everyone,

how do I turn off the black brackets at the beginning of each line in 1-D maple math input? i.e. instead of "[>" only ">" at the beginning of each line?

thanks.

> eqn1 := diff(e(z)^2, z) = ((3/2)*e(z)^2-3*(v[0]*exp(-u*f(z)))^2/(2*(e(z)^2-O*(1+z)^(3*g)))+(1/2)*((g-1)*3)*O*(1+z)^(3*g))/(2*(1+z));
> eqn2 := diff(f(z), z) = sqrt(abs(1-(v[0]*exp(-u*f(z)))^2/(e(z)^2-O*(1+z)^(3*g))^2))/(e(z)*(1+z));
>
> eqn3 := subs(O = .27, g = 1, v[0] = .1, u = 0.5e-2, eqn1);
> eqn4 := subs(O = .27, g = 1, v[0] = .1, u = 0.5e-2, eqn2);
>
> sol1 := dsolve([eqn3, eqn4, f(0) = 1, e(0) = 1], numeric, maxfun = 1000000000);
> plots[odeplot](sol1, [[z, e(z), color = red]], 0 .. 2);

How do I do a translation or a rotation of an equilateral triangle?

I have done the following so far in maple

equitriangle:=[ [0,0], [1,0], [0.5,sqrt(3)/2] ;
D0:=display ( polygon (equitriangle, linestyle=solid, thickness=5, color=COLOR(RGB,0,1,1)), scaling=CONSTRAINED,axes=NONE);
display(D0);

What do I do next to find a translation or rotation?

Thanks.