MaplePrimes Questions

Dear Users!

Hope you would be fine with everything. The following expression doesn't work for M=4,N=2,alpha=1. Please see the problem and try to fix. I shall be very thankful. 

 

simplify(sum(sum(((-1)^i2*GAMMA(N-i2+alpha)*2^(N-2*i2)/(GAMMA(alpha)*factorial(i2)*factorial(N-2*i2)*(N-2*i2+1))*(GAMMA(k+1)*(k+alpha)*GAMMA(alpha)^2/(Pi*2^(1-2*alpha)*GAMMA(k+2*alpha))))*(sum((1/2)*(-1)^i*GAMMA(k-i+alpha)*2^(k-2*i)*(1+(-1)^(N-2*i2+1+k-2*i))*GAMMA((1/2)*N-i2+1+(1/2)*k-i)*GAMMA(alpha+1/2)*L[k]/(GAMMA(alpha)*factorial(i)*factorial(k-2*i)*GAMMA(alpha+3/2+(1/2)*N-i2+(1/2)*k-i)), i = 0 .. floor((1/2)*k))), i2 = 0 .. floor((1/2)*N)), k = 0 .. M))

Currently working on a math problem that requires maple to be solved.

The math problem is

The volume V pf the paralellpiped is given by the following scalar triple product.

V = |(P5->P8 X P5->P6) * P5->P1|
P1 = ( [-17/12] , [11/36], [-65/36])
P5 = ([-11/12], [-7/36], [-47/36])
P6 = ([-2/3],[-1/9],[-8/9])
P8 = ([-5/4],[-1/12],[-17/12])`

answer should be 4 cubic units.

Several times trying it several different ways gives errors or nothing.

I have a list of relationships between variables, in this example there are three. The second of these requires one of the parameters to have a relationshipo that is not allowed with one of the other parmaters i.e. k[d2] = k[d1]; the rule is a parameter without h in its name can only be equated to itself or an expression with at least one parameter with h in its name.

How can I eliminate sets with relationships that break this rule?



Sa1 := [{R = R, Rh = R, C[T] = Ch[T]*kh[a1]/k[a2], Ch[T] = Ch[T], k[a1] = kh[a2]*k[a2]/kh[a1], k[a2] = k[a2], k[d1] = k[d1], k[d2] = k[d2], kh[a1] = kh[a1], kh[a2] = kh[a2]}, {R = R, Rh = R, C[T] = C[T], Ch[T] = Ch[T], k[a1] = -(C[T]*k[a2]-Ch[T]*kh[a1]-Ch[T]*kh[a2])/C[T], k[a2] = k[a2], k[d1] = k[d1], k[d2] = k[d1], kh[a1] = kh[a1], kh[a2] = kh[a2]}, {R = R, Rh = Rh, C[T] = C[T], Ch[T] = Ch[T], k[a1] = -k[a2], k[a2] = k[a2], k[d1] = k[d1], k[d2] = k[d1], kh[a1] = -kh[a2], kh[a2] = kh[a2]}]

PDE := diff(u(x, y), x, x)+diff(u(x, y), y, y)-6*x*y*(1-y)-2*x^3; BCs := u(0, y) = 0, u(1, y) = y*(1-y), u(x, 0) = 0, u(x, 1) = 0

I need to know how to change file and folder permissions from within maple, using the system commands to launch a cmd.exe window to run a batch file has proven very buggy and freezy in my first consideration of how to to do this, and because we can save files and create folders from the the clicking menu it can only mean it is indeed possible from the command line interface directly

I am sure that this is a common enough problem. I want to show what commands I'm using to make an output in a maple worksheet in a latex document that i can include in a report.

So far I've got the export feature to work:

(here is an example mapleworksheet, texfile and a corresponding LatexProducedPDF),

but i can't see how to get it to include the commands that create the output.

I have a list of relationships between variables, in this example there are three. The third of these requires at least one of the parameters to take a negative value i.e. kh[a1] = -kh[a2] how do I eliminate sets from a list like this that do that?


Sa1 := [{R = R, Rh = R, C[T] = Ch[T]*kh[a1]/k[a2], Ch[T] = Ch[T], k[a1] = kh[a2]*k[a2]/kh[a1], k[a2] = k[a2], k[d1] = k[d1], k[d2] = k[d2], kh[a1] = kh[a1], kh[a2] = kh[a2]}, {R = R, Rh = R, C[T] = C[T], Ch[T] = Ch[T], k[a1] = -(C[T]*k[a2]-Ch[T]*kh[a1]-Ch[T]*kh[a2])/C[T], k[a2] = k[a2], k[d1] = k[d1], k[d2] = k[d1], kh[a1] = kh[a1], kh[a2] = kh[a2]}, {R = R, Rh = Rh, C[T] = C[T], Ch[T] = Ch[T], k[a1] = -k[a2], k[a2] = k[a2], k[d1] = k[d1], k[d2] = k[d1], kh[a1] = -kh[a2], kh[a2] = kh[a2]}]

Hello!

I want to use abstract linear operators between Lie algebras. I have the problem shown in the following short code:

with(LinearAlgebra): with(DifferentialGeometry): with(LieAlgebras):
LAr:=LieAlgebraData([ [e1,e2]=e3],[e1,e2,e3],LA);
DGsetup(LAr);
define(lin,linear);
lin(-e3);
lin(-LieBracket(e1,e2));
lin(LieBracket(e2,e1));

As you see, the minus "-" does not come out of the argument of lin() in the last line. What is going wrong?

Thanks!

-------------------------------------

Later on, I realized that the linear operator has nothing to do with the issue. The problem lies in the fact that the output of "LieBracket(e2,e1)" is "_DG([["vector", LA, []], [[[3], -1]]])" , where the latter "-1" refers to the coeffiecient. For some reason, this coefficient is not handled in the way I would expect. For example, the following two lines:

LieBracket(e2,e1)+LieBracket(e1,e2);
_DG([["vector", LA, []], [[[3], 1]]])+_DG([["vector", LA, []], [[[3], -1]]]);

give both as an output "e3+-e3" instead of "0", while both the lines

LieBracket(e2,e1) + LieBracket(e2,e1);
_DG([["vector", LA, []], [[[3], -1]]])+_DG([["vector", LA, []], [[[3], -1]]]);

give the output "2-e3" (which I interpret as "2(-e3)" ).

I don't understand what I am doing wrong.

I have PDE i trying to solve the equation using series.

pdsolve(diff(u(x, y), x, x)+diff(u(x, y), y, y) = Pi, series, order = 2);

Give me: "Error, (in DifferentialAlgebra:-RosenfeldGroebner) unexpected occurrence of the non-rational constants {Pi} in the given input" ?

pdsolve(diff(u(x, y), x, x)+diff(u(x, y), y, y) =gamma, series, order = 2);#gamma = 0.5772156649,Gives ERROR ?

If I  change instead of Pi is e or exp(1) works fine.

pdsolve(diff(u(x, y), x, x)+diff(u(x, y), y, y) = exp(1), series, order = 2);#OK.

 

It's a bug, design or  something else ?

 

Goodday sirs, 

            How can I get over these error message123.mw
 

restart

 

 

(int((1/6)*(eta-s)^3*(S*(s*f[i](s)+3*(diff(diff(f[i](s), s), s))+(diff(f[i](s), s))*(diff(diff(f[i](s), s), s))-f[i]*(diff(diff(diff(f[i](s), s), s), s)))+M^2*(diff(diff(f[i](s), s), s))), s = 0 .. eta))/(1+1/y)

(1)

G := (int((eta-s)^3*(S*(s*f[i](s)+3*(diff(f[i](s), `$`(s, 2)))+(diff(f[i](s), s))*(diff(f[i](s), `$`(s, 2)))-f[i]*(diff(f[i](s), `$`(s, 3))))+M^2*(diff(f[i](s), `$`(s, 2))))/factorial(3), s = 0 .. eta))/(1+1/y)

 

f[0] := (1/6)*s+(1/6)*s^3:

for i from 0 to n do f[i+1] := (1/6*(-eta^3+eta))*subs(eta = 1, diff(G, `$`(eta, 2)))-eta*subs(eta = G)+G; f[i+1] := subs(eta = s, f[i+1]) end do

Error, final value in for loop must be numeric or character

 

``


Anyone with useful informations please.

Thanking you in anticipation for a favurabke response

Download 123.mw

 

pde := [diff(u(x, y), x, x)+diff(u(x, y), y, y) = 2*Pi*(2*Pi*y^2-2*Pi*y-1)*exp(Pi*y*(1-y))*sin(Pi*x), u(0, y) = sin(Pi*y), u(1, y) = exp(Pi)*sin(Pi*y), u(x, 2) = exp(-2*Pi)*sin(Pi*x), u(x, 0) = u(x, 1)]pdsolve(pde)

pdsolve(pde)

it does not return any solution and answer, kindly help.

Hi, 

I have a vector field that has positive constants. I don't want to set perminant values for the constants becuase future calculations will be wrong. 

Instead, how can I set a sample set of values for these constants? Thanks

Hi guys. I tried to find Killing Vectors for Taub-NUT metrics but the maple gives an error.  Can someone explain what is wrong?

How can one calculate isogeny of elliptic curves over finite fields in maple ?

Can't seem to get Retrieve from DocumentTools to get any labels from any worksheet.  I just get an error saying unable to retrieve label reference.

with(DocumentTools):

Retrieve("c:/test/test/mw","L1") #sample test file named test.mw in directory test

Here's the same issue (unanswered) way back in 2015 https://www.mapleprimes.com/questions/203811-DocumentTools-Retrieve-Function-Returns

Maybe it's a Windows administrator issue?  Does it work for anyone else?

First 826 827 828 829 830 831 832 Last Page 828 of 2427