asa12

405 Reputation

9 Badges

5 years, 79 days
i would also not like to ask, but if not ask, what should i do?

MaplePrimes Activity


These are replies submitted by asa12

@Joe Riel 

i mean self modifying maple code application

and need a database to record the change

it write maple code itself

@Kitonum 

Not use procedure 

and run directly , it can show animation now

@Kitonum 

do not know why i run in maple 2015 , no result.

 

@Kitonum 

i run your code in maple 12 and maple 2015 , no graph and animation was shown.

@Kitonum 

assume rotation matrix is (Matrix([[cos(t),sin(t)],[sin(t),cos(t)]])

how to animate a particle rotate around another particle?

how to plot the track of x and y coordinate with the change of t from -Pi to Pi?

would like to draw this track in 2D diagram but there are 3 variable?

how to set an initial point for x and y and then change t to see how x and y change in 2D coordinate?

@vv 

i understand now,

by the way,

do you know how to predict a future matrix 

belong to which one of 3 matrix?

actually eigenvector has very small difference in 

Decimal value , can linear regression help to predict the exact eigenvector values?

i find book mention magnetron , neucleon these words, but I use Time series only to find Pauli equation. Is it the end after find Pauli equation ?

how to use Pauli equation for Time series?

@asa12 

i succeed to do and completed today

@Kitonum 

@Kitonum 

 

with(LinearAlgebra):
A := Matrix(2, 2, {(1, 1) = (1/6)*sqrt(3)+(1/2)*I, (1, 2) = (1/6)*sqrt(3)-(1/2)*I, (2, 1) = (1/6)*sqrt(3)-(1/2)*I, (2, 2) = (1/6)*sqrt(3)+(1/2)*I}):
with(MTM):
factor(Re(A));
A3 := Matrix([[0,0],[0,0]]):
for i from 1 to 2 do
 for j from 1 to 2 do
  A3[i,j] := Im(A[i,j]);
 od:
od:
counterd := 0:
for i from 1 to 2 do
 for j from 1 to 2 do
  if A2[i,j] mod ((1/6)*sqrt(3)) = True then
   counterd := counterd + 1:
  end if:
 od:
od:
counterd;
if counterd = 4 then
 for i from 1 to 2 do
 for j from 1 to 2 do
  A2[i,j] := A2[i,j]/((1/6)*sqrt(3)):
 od:
od:
end if:
A2;
A2 := Matrix([[0,0],[0,0]]):
for i from 1 to 2 do
 for j from 1 to 2 do
  A2[i,j] := Im(A[i,j]);
 od:
od:
counterd := 0:
for i from 1 to 2 do
 for j from 1 to 2 do
  if A2[i,j] mod (1/2) = True then
   counterd := counterd + 1:
  end if:
 od:
od:
counterd;
if counterd = 4 then
 for i from 1 to 2 do
 for j from 1 to 2 do
  A2[i,j] := A2[i,j]/(1/2):
 od:
od:
end if:
Error, invalid input: modp received 1/2, which is not valid for its 2nd argument, m;
 
i do it in another method
mod has error in maple 12
 
how to mod in maple 12 for fraction ?

@Kitonum 

moreover , is it possible sqrt(3)/6 and 1/2 combine into one term and the rest is one matrix result?

@Kitonum 

Your doing is correct.

A := Matrix(2, 2, {(1, 1) = (1/6)*sqrt(3)+(1/2)*I, (1, 2) = (1/6)*sqrt(3)-(1/2)*I, (2, 1) = (1/6)*sqrt(3)-(1/2)*I, (2, 2) = (1/6)*sqrt(3)+(1/2)*I}):
A1:=(sqrt(3)/6)%*(Matrix(2,(i,j)->Re(A[i,j]))/(sqrt(3)/6))%+((1/2)%*(Matrix(2,(i,j)->A[i,j]-Re(A[i,j]))/(1/2)));
 
Error, (in rtable/Product) invalid arguments
in maple 12
 
how to run in maple 12?
 
 

@ThU 

your doing is not factorize, or collect

i mean apply on this example matrix

Matrix(2, 2, {(1, 1) = (1/6)*sqrt(3)+(1/2)*I, (1, 2) = (1/6)*sqrt(3)-(1/2)*I, (2, 1) = (1/6)*sqrt(3)-(1/2)*I, (2, 2) = (1/6)*sqrt(3)+(1/2)*I})

expect a general method.

and the expected output is like

Matrix([[1,-I],[-I,1]])

though this is wrong matrix for above example

actually i am finding like pauli matrix

hope to extract (1/6)*sqrt(3),  (1/2) out of matrix and leave matrix like

Matrix([[1,-I],[-I,1]]), one or zero or imaginary 1

@vv 

i have already finished 

and would like to delete this question

but it do not allow to delete question as there are reply

what should I do ?

@vv 

in previous post, there is definition

i searched that there are extra 7 possible matrices 

need further research whether these 7 matrices are useful or not.

@Joe Riel 

i change to use printf to print matrix

@vv 

in fact, I find extra 7 matrix, possible are new hope besides 1 i has known from observation.

1 2 3 4 5 6 7 Last Page 1 of 38