I want to write a function func(n) get a^ib^jc^k from expand (a+b+c)^n

Example

When n = 1 then (a + b + c)^1 = a + b + c and func(n) return {a, b, c}.

When n = 2 then (a + b + c)^2 = a^2 + b^2 + c^2 + 2ab + 2bc + 2ca and func(n) return {a^2, b^2, c^2, ab, bc, ca}.

When n = 3 then func(n) return {a^3, b^3, c^3, a^2b, b^2c, c^2a, ab^2, bc^2, ca^2, abc}.

I have solution using 3 loops but in think it's not nice, someone can help me. Thanks you very much.

The piecewise plot below displays a sphere truncated by the plane z = 2 - y.

f := proc (x, y, z) options operator, arrow; piecewise(z <= 2-y, x^2+y^2+z^2-16, z-2+y) end proc; implicitplot3d(f, -4 .. 4, -4 .. 4, -4 .. 4, style = surface, numpoints = 50000);

The 3 transforms below when executed in display(T(sphere([0, 0, 0], 4, numpoints = 50000)), scaling = constrained) display the truncated sphere differently:

1) the truncating plane only partly conforms to the boundary of the truncated sphere

2) the truncated sphere is correct provided that the else condition coordinate is in the truncating plane and truncated sphere

3) the truncated sphere is correct but hollow

1) T := transform(proc (x, y, z) options operator, arrow; `if`(z <= 2-y, [x, y, z], [x, y, 2-y]) end proc)

2) T := transform(proc (x, y, z) options operator, arrow; `if`(z <= 2-y, [x, y, z], [0, 0, 2]) end proc)

3) T := transform(proc (x, y, z) options operator, arrow; `if`(z <= 2-y, [x, y, z], [`&+-`(sqrt(16-y^2-z^2)), y, 2-y]) end proc)

Please explain the different behavior of the three transforms.           

Good evening sir.

I request your valuable support with regard to the above cited query.

With thanks & regards.

Mr.M.Anand

Associate Professor in Mathematics

how can i find e relative maximum or minimum of a function on maple ??

Hi.

I got 2 surfaces given by z=(r,theta)

I have plotted them by converting to cartesian, it gave me a good representation, but i dont get the surface entirely closed. I then used the task template vizual integration and got the solid i needed.

The problem with the rough representation cartesian conertation gives is that the integrals for volume, flux etc becomes so complex maple struggle to calculate it and since the surface is not completly closed it gives me the wrong value.

How can I plot cylindrical and spherical cordinates? 
 

I have checked the following helping page in maple: Set Coordinate System for 3-D Plots

plot_cylindrical.mw

I have the planes:

Plane 1: x + 3y - 5z = 0
Plane 2: x + 4y - 8z = 0
Plane 3: - 2x - 7y + 13z = 0

and I want to plot them in a 3d space with plot3d.

I tried to assign each plane to its own variable like this:

P1 := x+3y:
P2 := x+4y:
P3 := -2x-7y:
plot3d([PlaneOne, PlaneTwo, PlaneThree], x = -8 .. 8, y = -20 .. 20, plotlist = true, color = [blue, red, green])

The planes plot, but they aren't showing correctly.

Here's how they should look, and here's how they look.

Please help. I don't know what I'm doing wrong

Hi everyone,

I need to assign the output of the timer block to a variable which is then will be used in a trapeziod signal to add a time offset. Please see the visual below.

Thanks for your time,

Canberk

When I call up a Help page I see mostly boxes with question marks inside. If I copy the page into Word I get a badly formatted document in Canbria font. On other pages I get a font drop down box that indicates the page is in DejaVu Sans font and if I then change that to some font on my system (MAC 10.12.1) I get a perfectly readable document. Is there some preference, startup code or setting I can change to fix this annoyance?

I need hepl.  I work with the physics paсkage and I set:

with(Physics);
with(StandardModel);
Setup(mathematicalnotation = true)

Coordinates(X)

Define(p)

Setup(su2)

CompactDisplay(p(X))

U := 1+i*(1/f)*p[a](X)*Psigma[a]

H := v*U

DD[mu] := (d_[mu]+2*i*nu_5*KroneckerDelta[mu, 0])*Psigma[0]

And next:

Trace(DD[mu]*H*DD[mu]*H) or simplify(DD[mu]*H*DD[mu]*H)

Maple speaks:

Error, (in Physics:-Trace) invalid input: `union` received Physics:-d_[mu] = F1, which is not valid for its 1st argument

What I am doing wrong? (f, v, nu_5 is constans; a=1,2,3 and mu=0,1,2,3, Psigma[0] is unit matrix 2x2)

And if I write:

simplify(Trace(Psigma[a]*Psigma[a]))

Maple doesn't understand that it equals six. 

i am trying to solve an initial value problem i have applied a numeric code but the progam give me an error but instead of several efforts i couldn't correc the error..rho(r).mw

work_sheet.mwwork_sheet.mw work_sheet.mw
 

Download work_sheet.mw

Hi. please help to solve this attached work sheet.

EDIT: My question has been  answered below

Hello,

Lets' say I have the equation L:

L= 

I want to take the partial derivative of L to diff(theta2(t), t). 

Maple doesn't allow me to do this: diff(L, diff(theta2(t),t));

How can I solve this problem?

I hope someone can help me. Thanks in advance!

Loïc

I've read the spec online for LinearSolve but it's not clear on the function of inplace on nonsquare matrices. For example, consider the following:

A:=<0;1>;
B:=<0:2>;
LinearSolve(A,B,inplace=true)

This last line outputs <2;0>, which is also the value stored in B after the operation, whereas [2] would be the desired result. In the case of A being a row vector an error is encountered due to lack of storage. Does what happened above generalise for any matrix with more rows than columns: storing the result in B, but adding zeroes to the bottom unused parts of B, due to B being larger than the solution?

Also, does anyone have any advice on an efficient method for solving A.x=b, in the case where b is a vector, and A is a large but tall (varying size, but often 5x as many rows as columns, e.g. 10000x2000) integer matrix, where most of the entries in any particular column are zero (more than 90%)? I've found the option method='modular' helps quite a lot, but not enough, any ideas for quick fixes?

ifactor(8650368) produces

                                                        2503  *  2^7 * 3^3

how can I produce the output with factors in order from small to large and printed f rom left

2^7 * 3^3 * 2503