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)) ?

 

I want to exporte a file maple into LaTeX but i need to have the file maple2e.sty in maple version. Thanks for fast help

Hi, all, After some computation, I got a huge polynomial: a00*x^123+a45*x^233+a02*x^123+a67*x^156+a47*x^67+.......(with more than 30,000 monomials). This generated polynomial has some features: 1: the degree of each monomial is not more than 256. 2:each monomial only has ONE coefficient. 3:There are two or more monomials have the same degree, so they can be combined together. Such as a00*x^123+a02*x^123=(a00+a02)*x^123. 4:for any coefficient a[ij], i is from 0 though 15, j is also from 0 through 15.

with(plots); m1 := implicitplot3d(

9*x^2+4*y^2-36*z^2

, x = -2 .. 2, y = -3 .. 3, z = -1 .. 1, grid = [20, 20, 20]); n := animate3d([x, y, t], x = -2 .. 2, y = -3 .. 3, t = -1 .. 1); display({n, m1})

 

Everytime i execte the above goes in loop, used up memory increases and status bar says
evaluating and computer slows down. I had to stop the process. what am i doing wrong?

i have trouble starting classic worksheet maple 12.  it used to work fine, but now it freezes at the maple 12 title page.  when closing the program, classic worksheet asks: "You are in the middle of a computation.  Are you sure you want to interrupt it?", even though i have not entered any commands and am unable to enter any commands.  The program also does not close correctly in the task manager.  i have to end the process manually or end the process tree manually.  any help on how to fix this problem?  i have tried uninstalling and re

I tried the following:

 

E.g. I have five solutions from former computations i.e. k1..k5, some of which are common expressions, some are multiple solutions and some are just nothing, because Maple was not able to compute it.

Now I try the following:

 

for i from 1 to 5 do

subs(x = a, k||i):

end do;

 

That won´t work, because Maple realizes, that some of the k||i expressions are no expressions.

Now I think of inserting a boolean-check such as:

 

 

for i from 1 to 5

while type(k||i, t) do