Why does MapletViewer launch the Maplet Splash Screen and then pop up a box saying it has an error launching the Maplet spash screen? As my previous question stated, it also will not run the maplet, popping up another error box as "explanation".

My maplet runs perfectly correctly and as expected when I run it directly from the worksheet.

However, when I export the worksheet to a .maplet file, it will not run and only gives the error:
At line 135, syntax error: reserved words `quit`, `done`, or `stop` unexpected.

According to wordpad, line 135 of the .maplet file is the last line of both the .maplet file and of the worksheet. It contains the statement:

Maplet[Display](<maplet name>);

There are no `quit`, `done`, or `stop` words anywhere visibly in the worksheet.

What is happening and how do I get the maplet to run?

convert(50, base, 12);

this can change base for integer, however can not change decimal

assume i change decimal to fraction first and then apply convert base to 12 to numer and denom, and divide again to get decimal

it may get a decimal based on base 12

however, how to make this base 12 operation apply in linear algebra calculation

Hi All

Assume that we have:

and the hybrid function with block pulses with the following form:

if we want to introduce this form to maple so that we can do:

then how can we do this????

especially if we want to approximate t or t^2 or sin(3*t) by mentioned form, how maple can help us?

thanks a lot for coming answers 

Mahmood   Dadkhah

Ph.D Candidate

Applied Mathematics Department

if not using

EigenvectorSol := simplify(solve({seq(seq((NewMatrix3 . NewInput3(1..-1,i))[j]=(v[i]* NewInput3(1..-1,i))[j], j=1..3), i=1..3)}, {seq(x||i, i=1..9)}));

and if want to see clearly the steps about how to solve for eignvector, how to do?

because i use solve, it has error

InputMatrix3 := Matrix([[31.25,30.8,30.5],[30.8,30.5,0],[30.5,0,0]]);

NewInput3 := MatrixMatrixMultiply(Transpose(InputMatrix3), InputMatrix3);

FirstEigenValue := solve(Determinant(NewInput3-Matrix([[lambda1, 0, 0], [0, lambda1, 0], [0, 0, lambda1]])), lambda1)[1]; # find back eigenvalue from eigenvector

SecondEigenValue := solve(Determinant(NewInput3-Matrix([[lambda1, 0, 0], [0, lambda1, 0], [0, 0, lambda1]])), lambda1)[2]; # find back eigenvalue from eigenvector

ThirdEigenValue := solve(Determinant(NewInput3-Matrix([[lambda1, 0, 0], [0, lambda1, 0], [0, 0, lambda1]])), lambda1)[3]; # find back eigenvalue from eigenvector

v:=[ FirstEigenValue, SecondEigenValue, ThirdEigenValue];

NewMatrix3 := Matrix([[x1,x2,x3], [x4,x5,x6], [x7,x8,x9]]);

EigenvectorSol := simplify(solve({seq(seq((NewMatrix3 . NewInput3(1..-1,i))[j]=(v[i]* NewInput3(1..-1,i))[j], j=1..3), i=1..3)}, {seq(x||i, i=1..9)}));

EigenvectorT := Matrix([[rhs(EigenvectorSol[1]), rhs(EigenvectorSol[2]), rhs(EigenvectorSol[3])],[ rhs(EigenvectorSol[4]), rhs(EigenvectorSol[5]), rhs(EigenvectorSol[6])],[ rhs(EigenvectorSol[7]), rhs(EigenvectorSol[8]), rhs(EigenvectorSol[9])]]);

Old_Asso_eigenvector := Eigenvectors(MatrixMatrixMultiply(Transpose(InputMatrix3), InputMatrix3));

sys1:=MatrixMatrixMultiply(NewInput3-Matrix([[FirstEigenValue, 0, 0], [0, FirstEigenValue, 0], [0, 0, FirstEigenValue]]),Matrix([[x],[y],[z]]));

sys1a := NewInput3-Matrix([[FirstEigenValue, 0, 0], [0, FirstEigenValue, 0], [0, 0, FirstEigenValue]]);

fsolve({sys1[1][1]=0,sys1[2][1]=0,sys1[3][1]=0}, {x,y,z});

solve([sys1[1][1]=0,sys1[2][1]=0,sys1[3][1]=0], [x,y,z]);

solve([sys1[1]=0,sys1[2]=0,sys1[3]=0], [x,y,z]);

> solve([sys1[1] = 0, sys1[2] = 0, sys1[3] = 0], [x, y, z]);

Error, invalid input: solve expects its 1st argument, eqs, to be of type {`and`, `not`, `or`, algebraic, relation(algebraic), ({set, list})({`and`, `not`, `or`, algebraic, relation(algebraic)})}, but received [(Vector[row](1, {(1) = HFloat(2571.1332294000003)*x+HFloat(1901.9)*y+HFloat(953.125)*z})) = 0, (Vector[row](1, {(1) = HFloat(1901.9)*x+HFloat(1594.5707294000001)*y+HFloat(939.4)*z})) = 0, (Vector[row](1, {(1) = HFloat(953.125)*x+HFloat(939.4)*y+HFloat(645.9307294)*z})) = 0]

v1 := <sys1a[1,1] | sys1a[1,2] | sys1a[1,3]>;

v2 := <sys1a[2,1] | sys1a[2,2] | sys1a[2,3]>;

v3 := <sys1a[3,1] | sys1a[3,2] | sys1a[3,3]>;

v1 := <sys1a[1,1] | sys1a[2,1] | sys1a[3,1]>;

v2 := <sys1a[1,2] | sys1a[2,2] | sys1a[3,2]>;

v3 := <sys1a[1,3] | sys1a[2,3] | sys1a[3,3]>;

eigenvector1 := Basis([v1, v2, v2]);

eliminate({sys1[1][1]=0,sys1[2][1]=0,sys1[3][1]=0},{x,y,z});

eliminate({sys1[1][1]=0,sys1[1][2]=0,sys1[1][3]=0},{x,y,z});

sys1:=MatrixMatrixMultiply(NewInput3-Matrix([[SecondEigenValue, 0, 0], [0, SecondEigenValue, 0], [0, 0, SecondEigenValue]]),Matrix([[x],[y],[z]]));

solve([sys1[1][1]=0,sys1[2][1]=0,sys1[3][1]=0], [x,y,z]);

sys1:=MatrixMatrixMultiply(NewInput3-Matrix([[ThirdEigenValue, 0, 0], [0, ThirdEigenValue, 0], [0, 0, ThirdEigenValue]]),Matrix([[x],[y],[z]]));

solve([sys1[1][1]=0,sys1[2][1]=0,sys1[3][1]=0], [x,y,z]);

Hello,

This is probably a silly question, but I am trying to compare the difference between two variables in the numerical solution of a system of ODEs. Ideally, I would like a method to find the maximal difference that occurs between two variables.

The following is a highly simplified example of what I'm talking about. In this case I'd like some means to find the timepoint and magnitude of the maximal difference between y2(t) and y3(t) for t>0, which from the plot can be seen to occur at about 1.75 seconds. Note: I realise this particular case admits an analytic solution of y3(t) which could be exploited, but in the general case I'm interested in that won't be true.

Thanks in advance for any help you can provide.

Download DsolveSolCompare.mw

Download Maple_Question_7.3.14.mw

https://drive.google.com/file/d/0B2D69u2pweEvUDJIeGlOVjFvNWc/edit?usp=sharing
https://drive.google.com/file/d/0B2D69u2pweEvV1BiRXhULTNPcWM/edit?usp=sharing
https://drive.google.com/file/d/0B2D69u2pweEvdXNrRlNadldXS0U/edit?usp=sharing

i find that maple 15 values are the same as extreme optimization library however, the sign are different

is it maple 15 accuracy correct or extreme library correct?

https://drive.google.com/file/d/0B2D69u2pweEvT01pazBxOEk1bWc/edit?usp=sharing

i worry for my research whether based on correct accuracy.

it can run without error in maple 15, however, the eigenvector values are wrong in maple 15 different from eigenvector function's result

then i test it in maple 12, it got error when run with following input

Warning, solutions may have been lost
Error, invalid input: simplify uses a 1st argument, s, which is missing
> InputMatrix3;
                           [[30.15,29.95,29.95],[29.95,29.95,0],[29.95,0,0]]

NewInput3 := MatrixMatrixMultiply(Transpose(InputMatrix3), InputMatrix3);
FirstEigenValue := solve(Determinant(NewInput3-Matrix([[lambda1, 0, 0], [0, lambda1, 0], [0, 0, lambda1]])), lambda1)[1]; # find back eigenvalue from eigenvector
SecondEigenValue := solve(Determinant(NewInput3-Matrix([[lambda1, 0, 0], [0, lambda1, 0], [0, 0, lambda1]])), lambda1)[2]; # find back eigenvalue from eigenvector
ThirdEigenValue := solve(Determinant(NewInput3-Matrix([[lambda1, 0, 0], [0, lambda1, 0], [0, 0, lambda1]])), lambda1)[3]; # find back eigenvalue from eigenvector
v:=[ FirstEigenValue, SecondEigenValue, ThirdEigenValue];
NewMatrix3 := Matrix([[x1,x2,x3], [x4,x5,x6], [x7,x8,x9]]);
EigenvectorSol := simplify(solve({seq(seq((NewMatrix3 . NewInput3(1..-1,i))[j]=(v[i]* NewInput3(1..-1,i))[j], j=1..3), i=1..3)}, {seq(x||i, i=1..9)}));
EigenvectorT := Matrix([[rhs(EigenvectorSol[1]), rhs(EigenvectorSol[2]), rhs(EigenvectorSol[3])],[ rhs(EigenvectorSol[4]), rhs(EigenvectorSol[5]), rhs(EigenvectorSol[6])],[ rhs(EigenvectorSol[7]), rhs(EigenvectorSol[8]), rhs(EigenvectorSol[9])]]);
Old_Asso_eigenvector := Eigenvectors(MatrixMatrixMultiply(Transpose(InputMatrix3), InputMatrix3));

Hi 

I am programing the RSA-Algorithm. Somewhere in the program the user gets the choice to get a rough summary of the algorithm and the various steps used.

To do that I wrote a 1 1/2 page summary in Word. To see how the text is displayed withing the Window I took the first paragraph of my summary and put it in the following code:

with(Maplets[Elements]);

mapletExplainRSA := Maplet(Window('title' = "Erfahre mehr über RSA",

["Das verschlüsseln und entschlüsseln einer Nachricht dient der sicheren Kommunikation. Es existieren bereits Methoden der sicheren Kommunikation. Eine davon nennt man &ldquor;one way ciphers&ldquo; oder &ldquor;trap door ciphers&ldquo;.  &ldquor;One way&ldquo; da obwohl alle eine Nachricht verschlüsseln können, nur einer sie entschlüsseln kann. Für jedes Verschlüsselungsverfahren gibt es einen Schlüssel für das verschlüsseln und einen anderen Schlüsseln für das entschlüsseln.",

[Button("Nachricht verschlüsseln", Shutdown("True")), Button("Abbrechen", Shutdown())]]));

Maplets[Display](mapletExplainRSA)

The problem is that when I run this code the whole paragraph is written on the same line and hence does not even fit in the Maplet Window. Is there a way so that my rather long text will be formatet nicely within the Maplet window. Just like it would be displayed using Word. That is a text in paragraph style where sentences are wrapped automatically.

Oskar

******************************************where d1 to d45 -kappa and chi are constant**********

dsys4 := {d1*h1(theta)+d2*(diff(h1(theta), theta, theta))+d3*(diff(h2(theta), theta))+d4*(diff(h2(theta), theta, theta, theta))+d5*h3(theta)+d6*(diff(h3(theta), theta, theta))+d7*(diff(h1(theta), theta, theta, theta, theta)) = 0, d8*h2(theta)+d9*(diff(h2(theta), theta, theta, theta, theta))+d10*(diff(h2(theta), theta, theta))+d11*(diff(h1(theta), theta))+d12*(diff(h1(theta), theta, theta, theta))+d13*(diff(h3(theta), theta))+d14*(diff(h3(theta), theta, theta, theta)) = 0, h3(theta)^5*(d16+ln(h3(theta))^2*d15+2*ln(h3(theta))*d17)+(diff(h3(theta), theta, theta))*h3(theta)^4*(d19+ln(h3(theta))^2*d18+2*ln(h3(theta))*d20)+(diff(h3(theta), theta, theta, theta, theta))*h3(theta)^4*(d22+ln(h3(theta))^2*d21+2*ln(h3(theta))*d23)+h1(theta)*h3(theta)^4*(d25+ln(h3(theta))^2*d24+2*ln(h3(theta))*d26)+(diff(h1(theta), theta, theta))*h3(theta)^4*(d28+ln(h3(theta))^2*d27+2*ln(h3(theta))*d29)+(diff(h2(theta), theta))*h3(theta)^4*(d31+ln(h3(theta))^2*d30+2*ln(h3(theta))*d32)+(diff(h2(theta), theta, theta, theta))*h3(theta)^4*(d34+ln(h3(theta))^2*d33+2*ln(h3(theta))*d35)+h3(theta)^4*(d37+ln(h3(theta))^2*d36+2*ln(h3(theta))*d38)+h3(theta)^4*(diff(h2(theta), theta, theta, theta, theta, theta, theta))*(d40+ln(h3(theta))^2*d39+2*ln(h3(theta))*d41)-beta*h3(theta)^3*d42-chi*ln(h3(theta))^2*d43/kappa-chi*d45/kappa-2*chi*ln(h3(theta))*d44/kappa = 0, h1(0) = 0, h1(1) = 0, h2(0) = 0, h2(1) = 0, h3(0) = 1, h3(1) = 1, ((D@@1)(h1))(0) = 0, ((D@@1)(h1))(1) = 0, ((D@@1)(h2))(0) = 0, ((D@@1)(h2))(1) = 0, ((D@@1)(h3))(0) = 0, ((D@@1)(h3))(1) = 0, ((D@@2)(h3))(0) = 0, ((D@@2)(h3))(1) = 0}; dsol6 := dsolve(dsys4, 'maxmesh' = 600, numeric, output = listprocedure)

hi

DirectSearch answer has confused me. How to reduce the residual.
See the program.Direct.mw

Hi,

I would like a plot of the solution of this differential equation : diff(phi(x),x,x)=phi(x)*(Ep(x)-E) with for example Ep(x)=(1-exp-(x-2))^2 and E=0.5

So :

>restart;with(plots); xith(DEtools);

>Ep:=x->(1-exp-(x-2))^2;E:=0.5;

>sol:=dsolve({eq,phi(o)=0,D(phi)(0)=0},type=numeric,range=0..10);

>odeplot(sol);

but nothing appear in the plot except axes

Thanks for answer

Hi,

I want to solve two equations which I am mention in worksheet, i want the answers except complex values, when I am trying to solve in maple 18 it take too much time to evaluate, and also I did not get the answer, give some suggestions and ideas to do solve that work .
two_equations.mw


Thankyou...

Hi everyone,

I have a maple program that generates a polynomial g(y)=(80y^8 + 68y^6 + 12y^4 -4y^2 -1). This polynomial has two real roots (irrational roots), call them +/- y*. My code does a sequential calculation, and often sI am left with a higher order polynomial in y that has the form h(y)= p(y)*g(y), where p(y) is also a polynomial in y. This polynomial h(y)=p(y)*g(y) is not in factored form (i.e. it would look like expand(p(y)*g(y)). Is there a way to instruct maple to recoginize that +/-y* is also a root h(y)=p(y)*g(y)? So far I've tried things like applyrule([g(y*)=0],h(y*)), but nothing seems to work (I suspect because Maple cannot recgonize that g(y) is a factor of h(y)). I am not interested in computing this numerically. I am just trying to find a way to instruct Maple to recognize symbolically that h(y*) =0.

Thanks a million for anyone who has any idea.

Best,

Justin

Hi Maple users :)

do you know if exists a Maple package in order to perform a Panel method, for instance in the Hess-Smith version, for solving incompressible potential flow over thick 2d and 3d airfoil geometries?

Thank in advance for the help.