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

I have some code for evaluating a velocity given different variables: > h := 50; e := 5/6; > d := .218*100; Omega := 6*Pi*(1/100); > a := -h/e; b := h/(1-e); > Q := piecewise(x <><><><><><><><><><><><><><><><><><><> k := piecewise(0 <><><><> F := 0; > tau[1] := 1/(30*d); tau[2] := (1/4)*tau[1];

How do I get Maple to go into 1-d input?

Choosing Maple Input only changes the font color to red, 3^b as it should be displayed is displayed as 3.

This is in Maple 12.01.