(b0*z^n+b1*z^(n-1) + ... + bn) / (a0*z^n+a1*z^(n-1)+... + a_n_minus_m*z^m)

expand
into

beta0 + beta1*(1/z) + ... + betam*(1/z^m) + beta_m_plus_1*r_m_plus_1(z)/a(z) + ... + betan*rn(z)/a(z)

maple 17 does not calculate the definite integral  (?):

f(x):=sin(sin(x)); int(f(x), x = 0 .. 1).    

Trying evalf leads to the correct  numerical result.

> de := (1/4)*U*(diff(S(y)^4, `$`(y, 2))) = C*P1*((O*exp(G*y)-R*exp(J*y))/(P1*(exp(J*L)-exp(G*L)))+P2/P1);

print(`output redirected...`); # input placeholder
/ 2 \
1 | 2 / d \ 3 / d / d \\| /
- U |12 S(y) |--- S(y)| + 4 S(y) |--- |--- S(y)||| = C P1 |
4 \ \ dy / \ dy \ dy /// \

O exp(G y) - R exp(J y) P2\
------------------------ + --|

Help me please, How to get a spatial derivative?After solving a system of differential equations numerically, I got module.Help please, How can I find a  value of the first derivative? 
For example , after solving the PDE system, module() export plot,plot3d,animate,value,settings; ... end module
 So, I need to find diff(U(x,t),x) (for example x=0 and t=0) 

hi

how r u

i am writting this commands for loop but its not working .

i want to write genralize matrix for M and K

> Digits := 100;
> n := 4;
> y := vector([1, 1, 1, 1, 1, 1, 1, 1]);
> results := matrix(n, 3);
> for i to n do a1h := Generate; M := Matrix([[2, 3, 0], [0, 1, 7], [3, 1, 2], [2, 1, 0], [0, 0, 1], [3, 7, 0], [1, 1, 1], [5, 1, 0]]); m := `.`(1/(`.`(M^%T, M)), M^%T); mm := `.`(m, y); results[i] := m^%T end do;

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