MAPLE is not able to show me the output of nested loop. How can I get it?

for i from 0 to N do for j to 3 do

eqn[i] := sort(coeff(lhs(dequn[j]), epsilon, i)) = coeff(rhs(dequn[j]), epsilon, i)

end do

nested_loops.mwend do

Suppose I have a system of three coupled equations as:

eqn[1] := a*x+b*x^2+c*x^3

eqn[2] := a1*x+b*x^3

eqn[3] := a2*x^2+b2*x^3 = a*x^2

If I simply write

eqs :=( eqn[1], eqn[2], eqn[3])

the equations get coupled.

1. Can I do it using loop structure?

2. Secondly, after coupling suppose I want to collect coefficoent of x, x^2 and x^3 from three equations ang get the equation in form

eq[0]:=a=0,a1=0

evalhf: more than 500 locals

From where that restriction is? Is it workaroundable?

I was wondering if anyone knew of a solution to this: when you plot multiple curves on the same axis with Maple and specify the colors=["blue","red",.....] etc, the ordering is not preserved, Maple seems to just match whichever color to whichever function it pleases. This is v.annoying, surely there must be a way to get around this?

I am confused by the below results.

Why does LSSolve (given an arbitrary expected return) produce a higher risk
adjusted return than QPSolve which explicity is given an objective to maximize
risk adjusted returns? ie minimize Transpose(W).Cov.W-Transpose(W).ev
This to me seems very strange?!

Also, how do you specify in the objective function for LSSolve to maximize
risk adjusted returns? Now we have simply provide LSSolve with some user specified

Please help me  write a code for the following problem:

Write the equation of the plane which passes through the points A(-1, 3, -6) and B(2, 2, -10) and tangent to the sphere

(x-1)^2 + (y + 1)^2 + (z - 7)^2 = 9.

Thank you very much.

I want to get the zeroth order and first order perturbation equations of the following nonlinear coupled ODE.

restart; N := 1

alias(eta = e, theta = t)

eq[1] := 5*(diff(F(e), `$`(e, 3)))+(1+3/m)*F(e)*(diff(F(e), `$`(e, 2)))-(2+1/m)*(diff(F(e), e))^2-(4+2/m)*H(e)-(1-2/m)*e*(diff(H(e), e)) = 0

eq[2] := diff(H(e), e) = t(e)

eq[3] := 5*(diff(t(e), `$`(e, 2)))/Pr+(1+3/m)*F(e)*(diff(t(e), e))-5*(diff(F(e), e))*t(e)

eqs := eq[1], eq[2], eq[3]

Dear Forum,

I have a rational transfer function, like

Y(s)/X(s)=G(s)=(s^2+s+1)/(s^3-3*s^2+5)

With the DynamicSystems package, Maple can compute a state space representation, but I want a single DEQ in y(t) of 3rd order. What is the best way to let Maple compute this?

I wrote the following MAPLE code

restart; N := 2

alias(epsilon = e, eta = t)

eq1 := 5*(diff(F(t), `$`(t, 3)))+(1+3*e)*F(t)*(diff(F(t), `$`(t, 2)))-(2+e)*(diff(F(t), t))^2 = 0

F := proc (t) options operator, arrow; sum('F[i](t)*e^i', 'i' = 0 .. N) end proc

deqn := simplify(collect(eq1, e), {e^(N+1) = 0})

MAPLE says

Error, (in sum) too many levels of recursion

How do I get this error corrected?

I am having trouble identifying all the possible roots existing in the range specified.

In the file attached i have a non-linear set of equations that are solved for "w" value specified...but fsolve provides solutions only at certain values of "w" , does it mean there is no solution for other data points ?...or is there a way to find out all possible solutions for each value of "w"

Question_primes.mw

I have an electric field as a function of time and space.It is a uniform plane wave.

E(r,t)= 3*cos(w*t-k*z+Pi/4)x+ 2*sin(w*t-k*z-Pi/3)y

where r is the space vector r=xx+yy+zz; 

x   y and z are unit vectors.

w and k are constants.

How can I plot it?

Please write a code for me about following problem.

Let A(0,1,2) be a point and two lines

d1: x/2 = (y-1)/1 = (z+1)/(-1)

d2: x = 1 + t, y = -1 + 2t, 2 + t.

Find the coordinates of the 

Let a list of n positive integers be given, e. g. [2,1,4].
Let us consider all sums of  all its members signed by +-, e. g
-2-1-4=-7, -2+1-4=-5, -2-1+4=1, ... .
How to find the sum having the minimum  absolute value with Maple?

Problem: Write the equation of the straight line (d) through the point A(1,-2,3), cut the straight line 

Delta: x = 3*t+1, y = t, z = t-1 and parallel to the plane (P): x + 2*y + 3*z + 4 = 0.

We know that, if the straight line (d) through the point A and parallel to the plane (P), then (d) lies on a plane (Q), which (Q) through the point A and parallel to the plane (P).

Here is a simple example from the Maple Help (nersion 9.03):
###
i := 5; cat( "The value of i is ", i, "." );
###
which yields
  "The value of i is 5."

I would like to use the same syntax to generate a string to be printed at the beginning of a data file (so that I can remember what are the figures in the files); for instance I want to specify that this set has been generated choosing the value of a parameter alpha to be 0.618. So I write