consider:

assume(k[f1]>0,k[f2]>0,k[f2]>k[f1],h_bar>0,m>0);

h_bar:=1.0545e-34;m:=0.10938e-31;n[0]=1e28;


> eq1:=n=(k[f1]^3+k[f2]^3)/6/Pi^2;

> eq2:=e*V=h_bar^2/2/m*(k[f2]^2-k[f1]^2);

> solve({eq1,eq2},{k[f1],k[f2]});

in the final command i get a very messy numerical&symbolic results like

{k[f1] = 1016612041.*
(-1.*RootOf(9456017282782496601177464289*n^2*Pi^4...

Hi,

I'm using Maple to carry out some calculations in Tropical algebra, which requires taking minima of real numbers and infinity.

I'm currently using symbols rather than real numbers, which is causing a problem, I have (for example) the following lines of Maple code:

> assume(0 < a)
> min(a+infinity, 2*a+infinity)
               min(a~ + infinity, 2a~ + infinity)

I have problem by serie solution Of maple I wanna to solve tehe following equation and the error happens I want to know whats this???

> sys := [s0*(diff(w1(x), [`$`(x, 4)]))+s1*(diff(w1(x), [`$`(x, 2)]))+s2*w1(x)+s3*(diff(f1(x), [`$`(x, 4)]))+s4*(diff(f1(x), [`$`(x, 2)]))+s5*f1(x)+s6*(diff(f1(x), [`$`(x, 1)]))*(diff(w1(x), [`$`(x, 1)])) = 0, t0*(diff(f1(x), [`$`(x, 4)]))+t1*Nx+t2*f1(x)+t3*(diff(w1(x), [`$`(x, 4)]))+t4*(diff(w1(x), [`$`(x, 2)]))+t5*w1(x)+t6*(diff(f1(x), [`$`(x, 1)]))^2 = 0];

Dear everyone,

  I have a general question. In windows (XP/7), when the maple code becomes long (1000+ lines), when i type some character, it takes some time to see that character appearing in the screen. i.e. certain lag. In linux, there is no such problem.

  I tried two computers and a few versions of maple, always the same experience. Is anyone here have the similar issue and/or how to solve this lag problem?

Maple defines the spherical coordinates angle phi from the Z-axis to R, and the angle theta from the X-axis to R.  Many texts and literature define the angle phi the opposite way from the X-axis to R and the angle theta from the Z-axis to R.  Therefore, when I input a problem from a text, which defines phi and theta by the second definition given above, I have to remember to swap the values of phi and theta in order to get the correct answer. 

Is there...

Hi, I am solving an integration. When I use "subs" command to define the value of cl and ct, the result is inconsistant with the one when I define the cl and ct directly by using "cl:= and ct:=". (Why u1test is not equal to u2test in "Comparison #1"?) Please help

result.mw

I am solving a system of equation, and whenever I used the "solve" command, its showing "Warning, solutions may have been lost", The system of equation is like that, Pls help as soon as possible.

e1 := (1/2)*alpha[2]^2+6*delta*alpha[2];

e2 := alpha[2]*alpha[1]+delta*(10*alpha[2]*lambda-20*alpha[2]*d+2*alpha[1]);

e3 := -V*alpha[2]+(1/2)*alpha[1]^2+alpha[2]*alpha[0]+delta*{8*alpha[2]*(d^2-lambda*d+mu)+3*alpha[1]*(lambda-2*d)+(4*alpha[2]*lambda-8*alpha[2]*d)*(lambda-2*d)};

How can I use the command outputs DEtools [convertsys] for solving the system of differential equations? I know that maple can solve the system directly. But most of the examples can be seen in other systems (MathCad, MatLab ..) reduce the system to a system of first order equations. And I would like to implement, "translate" into Maple in this way. Is there a command that allows it? Do I need to implement a procedure?

GRACIAS

I am playing around with the PolynomialFit command in maple.
If I want to get a return of 1% then I can simply plug in the return at time t
for v in the expression below. That works for all different returns.

consider:

assume(kf1>0,kf2>kf1,q>kf1,q<kf2);

1/2*q*Pi^2*(ln(kf1)*kf1^2-ln(kf2)*kf2^2-ln(q)*kf2^2-arctanh(1/(kf1^2+q^2)^2*(kf1^4+q^4-6*q^2*kf1^2))*kf1^2+ln(q)*kf1^2-ln(2)*kf1^2+ln(-kf1+q)*kf1^2+ln(kf1^2-q^2)*q^2-ln(kf1-q)*q^2+2*kf1^2-2*q^2-1/2*ln((q-kf2)^2)*kf2^2+3*ln(kf2+q)*kf2^2+4*q*kf2-3*q^2*ln(kf2+q)+ln(2)*kf2^2+arctanh((kf2^4+q^4-6*kf2^2*q^2)/(kf2^2+q^2)^2)*kf2^2+ln(-q+kf2)*q^2-ln(kf2^2-q^2)*q^2-4*q*kf1-3*ln(q+kf1)*kf1^2+2*arctanh((-kf1^2+q^2...

Hi all! 
Is there any possibility in Maple to perform symbolic operations with arbitrary matrices (possibly given only the size of the matrix or it's structure (block matrices, diagonal matrix and so on)). For example, I would like to obtain the following results (input -> output). 

Possible code: 

assume(A, Matrix(n)): assume(B, Matrix): assume(E,IdentityMatrix(n)): 

I tried to use multiple light sources with transparency for 3D plots and could not get it to work.  There are indications in the plot,structure help that this is supposed to be possible.  I have attached a worksheet that demonstrates some of the problems with the "light" and "LIGHT" options for 3D plotting.  Much of the output has been removed since the graphics take so much space.  The same plots are generated in both Windows and Linux.

Does anyone...

In the LinearAlgebra packet, I use the command MatrixFunction to calculate a function with respect to a matrix J as follow:

> restart; with(LinearAlgebra);

> J := Matrix(3, 3, {(1, 1) = 2, (1, 2) = 1, (1, 3) = 0, (2, 1) = 0,
 (2, 2) = 2, (2, 3) = 1, (3, 1) = 0, (3, 2) = 0, (3, 3) = 2});

> M := MatrixFunction(J, ln(1+x), x);

Then I got the answer:

Matrix(3, 3, {(1, 1) = ln(3), (1, 2) = 1/3, (1, 3) = -1/18, (2, 1) = 0, (2, 2) = ln(3...

I would like to pay attention to http://www.scientificcomputing.com/atlas-032408.aspx . It seems to be a powerful tool to research, to teach, and to learn.

I am jsut a beginner!

I was trying to get the numerical value of e^10,

but Maple did not show me the approximate commond. How to get the numerical value of this ?