Hello everyone. I have a matrix M of 2x2 with numbers in its entries except a particular entry which equals to Im(a*t^2+b*t). I assume that t is real, so that the particular element that I mention obviously must expand to t^2*Im(a)+t*Im(b) but maple doesnt expand it (I use maple 11). I have tried the instruction

map(expand, eval(M)) assuming t::real

but it doesnt works. Could you help me with this, please
Thanks very much
Jorge

I tried to define the following procedure, to shuffle, or randomize a stack 'S':

Mix:=proc(S)
SList:=convert(S,`list`):
subsop(1=NULL,SList):
SSList:=Shuffle(SList):
S:=convert(SSList,`table`):
end proc:

Unfortunately this procedure does not return a stack type, i.e. it transforms S to something different.
Anyway, I need a procedure (or maybe something more efficient), which randomizes a stack and replaces the old stack for the new
randomized one (i.e. S is randomized afterwards and still of type 'stack').

Hi,

i would like to draw a color bar under my plot3D, but i don't know how. is there any way to do that?
thanks.

Anyone else experience this same issue?

If you type ?real

it causes a maple error box to pop up

Kernel Connection Lost
*Kernel connection has been lost.
You should save this worksheet and restart Maple.
Executing commands in Maple requires a connection to the Maple kernel.
Firewalls have been known to cause problems with kernel connections in
Maple. Please ensure that any firewall software is configured to allow
Maple to create connections to the kernel. Consult the FAQ for more
information.

Hi peoples,I have little problem with 3D  plot in Maple

I am build my function in this way:

mu1(x,y) := (100e6*Transpose(Vector([300,0]))*(Vector([-10,-10])-Vector([x,y])))/(VectorNorm(Vector([-10,-10])-Vector([x,y]),2)*3e8);

mu3(x,y) := (100e6*Transpose(Vector([300,0]))*(Vector([10010,10010])-Vector([x,y])))/(VectorNorm(Vector([10010,10010])-Vector([x,y]),2)*3e8);

mu2(x,y) := (100e6*Transpose(Vector([300,0]))*(Vector([10010,-10])-Vector([x,y])))/(VectorNorm(Vector([10010,-10])-Vector([x,y]),2)*3e8);

Hi, I would like to change the inline plotting window size, by the code, not manually. Is there any way to do that ? Standard size is really too small. Thanks

I have a function: s^5+3.236067976*s^4+(1.*10^(-10)*I)*s^4+5.236067975*s^3+(7.*10^(-10)*I)*s^3-(3.*10^(-10)*I)*s+5.236067975*s^2+3.236067977*s+1.000000000 and I want to drop those terms in s^4, s^3 and s^2 with magnitude less than for example 10^8. I want those imaginary terms gone so I can see my transfer function with only real coefficients. I don't even know what this would be called... so I wasn't able to search for it.

I have 2 question

1. the first question

how to simple expression below

 

is new form 

I'm currently working with a solution which is a function of many parameters, and sometimes I have to increase the steps but compromise with the time it takes for the solution to be evaluated in some way. I'm wondering, how do the steps affect the accuracy of the result?

Hi, I am going to do a couple, not to say a lot of, Monte-Carlo-Simulations.

Therefore I need to define a procedure "Shuffle", which shuffles the n elements of a list k times.

e.g.

L := [1,2,3,4,5,6,7,8,9,0];
Shuffle := proc(L,n,??)
"Mixes the ten elements of the list L randomly and most efficient"
end proc;

Does anyone of you know an efficient way to realize that?

Thanks.

Hi,

I'm using maple to do some loops to investigate the qualitative nature of some PDEs. I'm just wondering if there's a way to set it to only take N decimal places to speed things up.

 

Thanks

I have the following equation: I need to symbolically differentiate the following equation with respect to the coordinates r[i] and r[i+1]. Es[i] := 1/2 * l[i] * Ks * ( 1 / l[i] * ( DotProduct( ( r[i+1] - r[i] ) , ( r[i+1] - r[i] ) ) )^0.5 -1)^2 where: r[i] := [ x[i], y[y], z[i] ]; r[i+1] := [ x[i+1], y[y+1], z[i+1] ]; l[i] and Ks are constants.

I need to find value of integrals ratio:

int(f2(t),t=0..5.5)/int(f1(t),t=0..5.5),

where the functions f1(t), f2(t) are result of numerical solution of differential equations system:

> restart; with(plots):
> sys:=diff(f1(t),t)=piecewise(t<=4,3*exp(-2*t),-1),
diff(f2(t),t)=sin(t):
init:= f1(0)=1, f2(0)=1:
> F:=dsolve({sys,init}, {f1(t), f2(t)}, numeric);
> Result:=odeplot(F, [[t,f1(t)],[t,f2(t)]], 0..5.5):
> display(Result);

How do I do this problem?

Plot the vector field F(x,y,z) = <sinx(cosy)^2, (siny)^3(cosz)^4, (sinz)^5(cosx)^6> in the cube cut from the first octant by the planes x = Pi/2, y = Pi/2, and z = Pi/2. Then compute the flux across the surface of the cube.

How do I graph x=(cos(t)) , y = (sin(t)) , z = (2sin(t)cos(t)) ?