Advanced Search

Question: How do I write programming in maple?

Question:How do I write programming in maple?

witri 64 Maple
algebra
June 26 2008
0

I’m using maple 11. In my problem, I’ve five axioms: 

sum(A[i,j,r]*A[r,k,s]-A[i,r,s]*A[j,k,r]), i,j,k,r,s=1..3
sum(A[i,j,r]*A[r,k,s]-A[i,r,s]*B[j,k,r]), i,j,k,r,s=1..3
sum(B[i,j,r]*A[r,k,s]-B[i,r,s]*A[j,k,r]), i,j,k,r,s=1..3
sum(A[i,j,r]*B[r,k,s]-B[i,r,s]*B[j,k,r]), i,j,k,r,s=1..3
sum(B[i,j,r]*B[r,k,s]-B[i,r,s]*B[j,k,r]), i,j,k,r,s=1..3
 
Then I’ve fix algebra for first operation (A) and unknown algebra for second operation (B). In this case, I’ve to find algebra B (means: find all value of α) by using algebra A into five axioms. In general, we assume that algebra B as 

B[1,1,1] = α[1,1,1]
B[1,1,2] = α[1,1,2]
B[1,1,3] = α[1,1,3]
B[1,2,1] = α[1,2,1]
B[1,2,2] = α[1,2,2]
B[1,2,3] = α[1,2,3]
B[1,3,1] = α[1,3,1]
B[1,3,2] = α[1,3,2]
B[1,3,3] = α[1,3,3]
B[2,1,1] = α[2,1,1]
B[2,1,2] = α[2,1,2]
B[2,1,3] = α[2,1,3]
B[2,2,1] = α[2,2,1]
B[2,2,2] = α[2,2,2]
B[2,2,3] = α[2,2,3]
B[2,3,1] = α[2,3,1]
B[2,3,2] = α[2,3,2]
B[2,3,3] = α[2,3,3]
B[3,1,1] = α[3,1,1]
B[3,1,2] = α[3,1,2]
B[3,1,3] = α[3,1,3]
B[3,2,1] = α[3,2,1]
B[3,2,2] = α[3,2,2]
B[3,2,3] = α[3,2,3]
B[3,3,1] = α[3,3,1]
B[3,3,2] = α[3,3,2]
B[3,3,3] = α[3,3,3]

 Note:
Aij = A[i,j,k]
 

 
Please Wait...