MaplePrimes Questions

Hi/

the code below wroten by Maple 13. I use h=0.29669 and N:=15 and digit=80 fsolve works perfect! but when I changed N:=16 and another number greater than 15 fsolve didnt return result and return some equation.

whould you help me how to resolve this problem?

sorry i upload this code. to run easilySinc_MBVP_V2-temp.mw

thanks

 

> restart;
> N := 15;

Hi guys,

I have an expression, say like this:

2*x*(sum(w[i]*Y[i], i = 1 .. t))+2*a[0]*(sum(w[i]*x[i], i = 1 .. t))-2*a[0]*x*(sum(w[i], i = 1 .. t))

and i want to simplify the expression like this:

Hi,

I am a beginner and am trying to solve the following PDE but get an error. 

PDE:=-diff(f(x1,x2),x1,x1)-diff(f(x1,x2),x2,x2) = a^2*f(x1,x2);

IBC := {D[1](f)(0,x2) = 0, D[1](f)(L1,0) = 0, D[1](f)(x1,0) = 0, D[1](f)(x1,L2) = 0};

ans := pdsolve(IBC,PDE);

"Error, (in pdsolve/BC) unable to handle derivatives in BCs involving arbitrary
 functions _Fn(...)"

Please guide me.

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(kf2>0,q<kf2,q>0);

 

(PIECEWISE([0, -ln(q)+ln(kf2) < 0],[1, otherwise]));

 

simplify(PIECEWISE([0, -ln(q)+ln(kf2) < 0],[1, otherwise]));

 

i think i shall get 1 after the simplification... but i cannot...what should i do to achieve that "simplification"

 

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)): 

First 1696 1697 1698 1699 1700 1701 1702 Last Page 1698 of 2428