Rouben Rostamian

MaplePrimes Activity


These are replies submitted by Rouben Rostamian

@acer The redraw=false option is new to me.  Where is it documented?  Searched but couldn't find.

Show the progress that you have made toward answering these homework questions, and ask specifically where you need help.

@Carl Love I see.  Thanks for pointing this out.

 

@Carl Love My reply to the OP was in reaction to his statement that he is finding three local minima and wishes to pick the best among them.  That doesn't inspire me with confidence that he understands the basics of the problem, hence my suggestion.

Forget about Maple for now. Try finding the minima by hand.  You will find that illuminating.

I can't understand at all what you are asking, and apparently neither does anyone else.

It will help if you could give one or two examples, consisting of:what you wish to type into Maple, and the result that you wish Maple to produce.

For example, you may say:

I want to type sin(2*x) into Maple and I want Maple to produce 2*sin(x)*cos(x).

 

 

Why would you expect a symbolic solution for this system?  You have two things going against you: (A) it is nonlinear; (B) is has variable coefficients.

You should be able to calculate a solution numerically if you specify the coefficients eta(t), gama(t), etc., and initial conditions.

Expanding on Kitonum's suggestion:

restart;
macro(D=`&D;`, I=`&I;`);
I = (1/64)*(D^4-d^4)*Pi;

@WillG The system, as you have posed, has no solution in general. Read the paper that you are referring to carefully to see what other assumptions are being made.

@tomleslie 

The conditions that I have imposed are not entirely arbitrary.  The PDE under consideration is a linearized version of the well-studied Korteweg de Vries (KdV) equations (look up KdV in Wikipedia).  It models dispersive waves on the entire real line (x going from minus infinity to plus infinity).  The solutions of interest are dispersive waves that propagate along the x axis while the far regions of the x axis are in undisturbed states, that is, the limits of the solution at plus/minus infinity are zero. Note that the OP specifically refered to dispersive waves.

For numerical calculations we replace infinity with finite values and move the "undisturbed" conditions to interval's boundaries.  The solution thus obtained is good for smallish values of time. When the wave interaction with the (artificial) boundaries becomes significant, the solution ceases to be meaningful.  To get good solutions for larger values of time, we solve the PDE over a larger x interval.  In the code I presented, I left the coordinates of the end points, a and b, as parameters in order to facilitate numerical experiments.

@ijuptilk That goes beyond my areas of interest.  I will let someone else to handle it.

@ijuptilk Here is the implementation of that modified algorithm in Maple.  Its results agree with what you have shown.

restart;

with(LinearAlgebra):

doit := proc(A::Matrix)
        local Q, R, s, id;
        s := A[-1,-1];
        id := IdentityMatrix(Dimension(A));
        Q, R := QRDecomposition(A-s*id, fullspan);
        return R.Q + s*id;
end proc:

A[0] := Matrix(  [[3.0, 1.0, 4.0], [1.0, 2.0, 2.0], [0., 13.0, 2]] );

Matrix(3, 3, {(1, 1) = 3.0000000000, (1, 2) = 1.0000000000, (1, 3) = 4.0000000000, (2, 1) = 1.0000000000, (2, 2) = 2.0000000000, (2, 3) = 2.0000000000, (3, 1) = 0., (3, 2) = 13.0000000000, (3, 3) = 2})

for i from 1 to 6 do
        A[i] := doit(A[i-1]);
end do;

Matrix(3, 3, {(1, 1) = 3.5000000000, (1, 2) = -4.2635347558, (1, 3) = .26883338042, (2, 1) = -9.2059763198, (2, 2) = 1.5766961652, (2, 3) = 9.1965598768, (3, 1) = 0., (3, 2) = -1.4100418410, (3, 3) = 1.9233038348})

Matrix(3, 3, {(1, 1) = 3.8726710918, (1, 2) = 5.8456590691, (1, 3) = 11.4347283508, (2, 1) = 4.4236981716, (2, 2) = 1.7461077570, (2, 3) = -1.8760931255, (3, 1) = 0., (3, 2) = .17939094164, (3, 3) = 1.3812211512})

Matrix(3, 3, {(1, 1) = 6.6491606142, (1, 2) = -3.0031275241, (1, 3) = -3.8697004604, (2, 1) = -4.2847775607, (2, 2) = -.63360994982, (2, 3) = 10.9574256085, (3, 1) = 0., (3, 2) = -0.14483593242e-1, (3, 3) = .98444933561})

Matrix(3, 3, {(1, 1) = 7.5051964360, (1, 2) = 3.1077455977, (1, 3) = 9.7110573795, (2, 1) = 1.8714215464, (2, 2) = -1.4597440348, (2, 3) = -6.4160015539, (3, 1) = 0., (3, 2) = 0.1396082e-3, (3, 3) = .95454759878})

Matrix(3, 3, {(1, 1) = 8.1438626575, (1, 2) = .36380697772, (1, 3) = -7.5750590186, (2, 1) = -.87218400156, (2, 2) = -2.0980217062, (2, 3) = 8.8369002971, (3, 1) = 0., (3, 2) = -0.1708443559e-7, (3, 3) = .95415904870})

Matrix(%id = 36893628787730574380)

Approximate eigenvalues

sort(Diagonal(A[i-1]));

Vector(3, {(1) = -2.0102632935, (2) = .95415900373, (3) = 8.0561042898})

Precise eigenvalues

Eigenvalues(A[0]);

Vector(3, {(1) = -2.0669460973+0.*I, (2) = .95415900373+0.*I, (3) = 8.1127870936+0.*I})

I assume that by "deflate" you mean something like this:

[seq](convert(Row(A[6],i), list), i=1..3);

[[HFloat(8.056104289776464), HFloat(1.5956054456867756), HFloat(8.584132685780313)], [HFloat(0.35961451551635476), HFloat(-2.0102632935089915), HFloat(-7.860343023905163)], [HFloat(0.0), HFloat(2.5728710926568884e-16), HFloat(0.9541590037325286)]]

Download mw2.mw

Running out of memory can cause those symptoms.  Perhaps you are running several other memory-consuming applications at the same time?  Try closing your browser and other memory hogs.

@Tokoro That's a good question.  I hadn't thought about it.

My calculations show that if we split the disk into three sectors of arbitrary sizes, then the maximum total volume is achieved when one of the sectors is of zero angle, and thus the problem reduces to the two cones case.

On the other hand, if we split the disk into three sectors so that two of the sectors are of the same size, then the maximum total volume is achieved when one of the sectors is of zero angle, and the other two are exactly half of the disk each.

@FredK You may have any number of equations and functions within a single proc.  It's difficult to provide a more concrete answer in the absence of more detailed information.

First 21 22 23 24 25 26 27 Last Page 23 of 99