I have a set X={a,b,c,d,e} and a table as follows:

M[2]:=TABLE([e = {2,3}, a = 5, c = 1]);

Afterwards I want to add to this table all those elements (e.g. b={3,4} and d=4) of X which are unassigned in M[2]. How I can do this?

Please help me with transformation of the following expression:

> z:=abs(a)^2*b+abs(a)^2*c*conjugate(a);

where I want to derive

a*(conjugate(a)*b+conjugate(a)^2*c)

I try the following:

> z:=collect(z,a);

However it does't transformate z in any way.

In other words if I have
>z:=a*conjugate(a);

>z:=simplify(z);

I derive z=|a|^2. How to decompose z back into a*conjugate(a)?

Hello

I have a nasty definite integral to evaluate. I need to integrate w.r.t X[2] and leave the integrated expression as a function of   X[1].

The discretization is via the...

hi,i had 9 set of odes,then i used dslove(numeric) and solved my equations,but now i have a question,my answers do not go more than the time 0.14 ,what can i do?i do need my answers at least for the time 5 seconds ,

i have write my code in this way :

MMM := dsolve(AA,numeric,method = rkf45, maxfun = 500000);


but when i want to evaluate MMM(1) i face this error : 

Error, (in MMM) cannot evaluate the solution further right of .14055561, maxfun limit exceeded ...

Let x, y, z be three nonnegative numbers and x^2 + y^2 + z^2 = 5. Find the minimum value of the expression

A = 1/2*x^2*y^2 + y^2*z^2 + z^2 *x^2 + 96/(x + y + z + 1).

How to find the minimum value of the expression?

Hello, I bring here a problem with maple where I make a definite integral and appear suddenly in the solution a "csgn".

Here is the integral :

(1)

V(z) = (int(int(theta*R*(H-p)/(H*(L*L)*sqrt((R*(H-p)/H)^2+(z-p)^2)), p = 0 .. z), o = 0 .. 2*Pi))/(4*Pi*epsilon)

But i want the solution for z where 0

(2)

V := proc (z) options operator, arrow; (1/4)*(int(int(theta*R*(H-p)/(H*L*L*sqrt(R^2*(H-p)^2/H^2+(z-p)^2)), p = 0 .. z), o = 0 .. 2*Pi))/(Pi*epsilon) end proc

I am trying to get Maple to calculate this for me:

Let X₁,X₂,...X₈₁ be a random sample from a distsribution (not necessarily normal) with mean µ=49 and standard deviation σ =8. Let ¯X = (1/81)* ∑_i=1⁸¹ * X_i

_{I need to find the mean, the standard deviation and the approximate distribition of ‾X,}

_{BTW, the 81 goes directly...}

need to find the explicit root of u where k,b are  positive constants:

eq5:=u->-3*b*k*u^2-3*b*k^2*u^4-k^3*u^6*b+k*u+5*k^2*u^3-b;

sol:=(solve(eq5(u),u)): S:=array([],1..3): S[1]:=((sol[1]));S[2]:=sol[2]:S[3]:=sol[3]:S[4]:=sol[4]:S[5]:=sol[5]:S[6]:=sol[6]:

and choose the positive real root and substitute it in another equation.

and then plot k against b as:

I have a mapping as a Table and want to find its inverse mappings. For example for

TABLE([e = w, c = z, d = w, a = w, b = y])

I want to elegantly compute

TABLE([w={e,d,a},z={c},y={b}])

kindly give a compact line of code, regards.

y am not able to excutes these simple steps. What does this error means Warning, unable to evaluate the function to numeric values in the region; see the plotting command's help page to ensure the calling sequence is correct

Maple is slowly driving me insane. I look at probobly 15 cloud storage solution and I found
one that support http (OwnCloud on Red Free Hosting (free)). The rest uses https.

So I upload my file (see working link below)

http://marcusdavidsson.redfreehost.com/owncloud/public.php?service=files&t=71ff3b85a3d4353e1dd60a49a6e6250f&download

Hi,

I have a set of points defined for XX[j] and YY[j] where j=1..16,

I'm beginning to write a loop for these values and I was wondering how to get the actual numerical values in to say the following...

GX := proc (j)
local YY, XX, G;
G := (1/2)*(YY[j]-YY[j-1])^2/(XX[j]-XX[j-1])+(1/2)*(YY[j+1]-YY[j])^2/(XX[j+1]-XX[j]);
diff(G, XX[j]) end proc;

Then - for example - for GX(4), this gives an output in terms of XX[4], XX[5], etc but I'd...

I am done with my code but in the end my matirx B contains values in worng order. In matrix B am having row values in column and column values in row due to which my graph is not in correct form. What should i do to change these values..?? Attaching worksheet let me know. Thanks
code_for_neuman_1d_h.mw

Hello,

for my mechanical engineering studies we have to optimize an engine during a workshop. Therefore we have to use a numerical dsolve to solve the equation of motion. I have to get the maximum bearing reaction for a constant rpm. In order to get this I can't think of anything else but use the dsolve solution and use it in maximize.

ysk_2 := t -> -rc*cos(phi(t))-lp*cos(alpha(t))-lkb-y(t);
ysp_2 := t -> -rc*cos(phi(t))-lp2*cos(alpha(t))-y(t);

Looking at the new group theory facility in Maple 17 Help, the DrawCayleyTable( H ); does not display correctly