Hello,

I obtained a mode shape from a vibration problem.

I want to normalized mode shape for the comparison of responses corresponding to different modes.

How I can normalize the mode shape that provided in the maple file?

The figure corresponds to this mode shape is plotted that is attached.

Thanks

mode_shapes.mw

Download mode_shapes.mw

Download mode_shapes.mw

Determine the polynomials P∈R₃ [X] such that P (-1) = - 18 and whose remainders in the Euclidean division by X-1, X-2 and X-3 are equal to 6.

I am trying to calculate the following integra   
r*rr*g1^2*h1^2*f1^2*fh1^2*exp(-2*t)/t

here g1 is a kummerM functin in s, and also h1 is another kummerM function  in ss, and f1 and fh1 are the HeunB functions with complex arguments in r and rr. and t=sqrt((r-rr)^2+(s-ss)^2).I would like to integte over dr drr ds dss

   Dear friends,on the left I created two Tasks named a and aa.However,I do not know how to delete these two Tasks.Then I refer to the help pages below.

The text I marked says I should enter full filename.I do not know the fullfile name of customized Tasks.So does anyone know how to delete them?

Using mode with axis we can choose linear or log.  But what if we want some other custom scaled axis?

Seems if we want a y^3 y-axis, we'll have to cube root the data then use plottools to form our own scale.  Unless there's some other way I don't know. 

In the help file the permitted declartions for the second argument of the Escape command from the StringTools package are html,regexp and xml, to not specify one, which as far as I can tell instructs maple to take all characters as plain text with no escape characters.

Is this the complete list of options for the form when using the escape command?

Or is it possible to custom build escape rules?

 

I thought the easiest way to show the world map, a projected flat map into 3d was to use the builtin one and just transform it.  You can zoom into it and rotate it no problem but unforunately it's not as clean as I thought.  Is it possible to have cleaner shading manipulating the Builtin map to 3d?

with(plots):
with(plottools):
with(DataSets):
with(Builtin):
m := WorldMap():
m1 := Display(m)
                                

to3d := transform((x, y) -> [x, y, 0]):
m2 := to3d(m1)
                               

display(m2)

If a maple command or function are not available on the target language  of the code generation of maple, is it possible to set myself the expected output for such cases so that the Csharp(...)  recognizes the cases and generates the expect code?

for example 

h := proc(x::Array(1 .. 3, 1 .. 3), y::Array(1 .. 3, 1 .. 3)) local z; z := evalm(x &* y); return z[1, 1] + z[2, 2]; end proc;
CSharp(h);

The function names {`&*`, evalm} can not be recognized in the target language

but for the &* it shoud be easy to add a template with the desired C# output. 

Is it possible to add templates in existing languages but not new language definitions?

I'm using variable names that have subscripts, not as a table index but literal i.e. R__1 as a unique variable name.  It seems whenever I make assumptions on variables that have subscripts, when I use them the variables that have subscripts are printed twice:

Can anyone explain why this happens and how to get around it?

Thanks in advance.

Is it italic when copied and pasted?  Is it bold when copied from maple 8?  I just ahve not been able to work it out.

The only way that I can think of doing it is by multiplying by a tetrad.  Even then it does not work well see my worksheet:  The Dirac Equation in Robertson-Walker spacetime.

Download SC-plots.mw

I am having difficulty getting solutions to a pair of PDEs.  Would anyone like to cast an eye over the attached file, incase I am missing something.

Thanks

Melvin

Please I found out that the MatrixInverse on the assignment statement P3 does not run for about three days now. Please kindly help to simplify the code. Thank you and kind regards.

restart; omega := v/h;
r := a[0]+a[1]*x+a[2]*sinh(omega*x)+a[3]*cosh(omega*x)+a[4]*cos(omega*x)+a[5]*sin(omega*x);
b := diff(r, x);

c := eval(b, x = q) = f[n];
d := eval(r, x = q+3*h) = y[n+3]; e := eval(b, x = q+3*h) = f[n+3];
g := eval(b, x = q+2*h) = f[n+2];
i := eval(b, x = q+h) = f[n+1];
j := eval(b, x = q+4*h) = f[n+4];
k := solve({c, d, e, g, i, j}, {a[0], a[1], a[2], a[3], a[4], a[5]});
Warning,  computation interrupted
assign(k);
cf := r;
s4 := y[n+4] = simplify(eval(cf, x = q+4*h));
s3 := y[n+2] = simplify(eval(cf, x = q+2*h));
s2 := y[n+1] = simplify(eval(cf, x = q+h));
s1 := y[n] = simplify(eval(cf, x = q));

with(LinearAlgebra);
with(plots);
h := 1;
YN_1 := seq(y[n+k], k = 1 .. 4);
A1, a0 := GenerateMatrix([s1, s2, s3, s4], [YN_1]);
eval(A1);
YN := seq(y[n-k], k = 3 .. 0, -1);
A0, b1 := GenerateMatrix([s1, s2, s3, s4], [YN]);
eval(A0);
FN_1 := seq(f[n+k], k = 1 .. 4);
B1, b2 := GenerateMatrix([s1, s2, s3, s4], [FN_1]);
eval(B1);
FN := seq(f[n-k], k = 3 .. 0, -1);
B0, b3 := GenerateMatrix([s1, s2, s3, s4], [FN]);
eval(B0);
ScalarMultiply(R, A1)-A0;
det := Determinant(ScalarMultiply(R, A1)-A0);
P1 := A1-ScalarMultiply(B1, z);
P2 := combine(simplify(P1, size), trig);
P3 := MatrixInverse(P2);
P4 := A0-ScalarMultiply(B0, z);
P5 := MatrixMatrixMultiply(P3, P4);
P6 := Eigenvalues(P5);
f := P6[4];
T := unapply(f, z);
implicitplot(f, z = -5 .. 5, v = -5 .. 5, filled = true, grid = [5, 5], gridrefine = 8, labels = [z, v], coloring = [blue, white]);

Why the performance of Maple GUI is bad. It is really hard to type anything in thew gui. 

HI

I am using a simple piece of code to generate Lie derivatives, and I am interested in adapting it so that I can use it with vector Fields where that include RootOf expressions. 

LieDer_with_rootof.mw

The above includes an example where it works, and an example where RootOf appears in the vector field and it does not work.