0
$\begingroup$

With the help from Stephen Luttrell in stackexchange, I can give an intuitive expression of quantum walk, as shown in the Mathematica codes below.

Needs["Notation`"]
Notation[ParsedBoxWrapper[
RowBox[{
RowBox[{
RowBox[{
RowBox[{"\[LeftBracketingBar]", "spin_"}], "\[RightAngleBracket]"}], 
   "\[CircleTimes]", 
RowBox[{"\[LeftBracketingBar]", "index_"}]}], 
 "\[RightAngleBracket]"}]] \[DoubleLongLeftRightArrow] 
ParsedBoxWrapper[
RowBox[{"state", "[", 
RowBox[{"spin_", ",", "index_"}], "]"}]]]
H[state[spin : ("\[UpArrow]" | "\[DownArrow]"), index_]] := 
1/Sqrt[2] state["\[UpArrow]", index] + 
1/Sqrt[2] If[spin == "\[UpArrow]", 1, -1] state["\[DownArrow]", 
 index];
S[state[spin : ("\[UpArrow]" | "\[DownArrow]"), index_]] := 
state[spin, index + If[spin == "\[UpArrow]", 1, -1]];
H[u_ + v_] := H[u] + H[v];
S[u_ + v_] := S[u] + S[v];
H[u_?(FreeQ[#, state] &) v_] := u H[v];
S[u_?(FreeQ[#, state] &) v_] := u S[v];
state["\[DownArrow]", 0]
H[%];
S[%];
H[%];
S[%];
H[%];
S[%];
H[%];
S[%] // Simplify

The result (the fourth step in quantum walk) is enter image description here Based on the previous codes, now I have a new problem :

First, I need to merge the elements with the same \[LeftBracketingBar]index\[RightAngleBracket], and rearrange the elements in an increasing order of \[LeftBracketingBar]index\[RightAngleBracket]. For example, in the fourth step, enter image description here should be merged and rearranged asenter image description here

Second, I need to summarize the coefficient and calculate the intensity for each \[LeftBracketingBar]index\[RightAngleBracket]. The intensity is square of the coefficient of \[LeftBracketingBar]"\[DownArrow]"\[RightAngleBracket], puls the square of the coefficient of \[LeftBracketingBar]"\[UpArrow]"\[RightAngleBracket]. For example, in the fourth step, the intensity is

1/16 (1; 9 + 1; 1 + 1; 1 + 1; 1)=(1/16; 5/8; 1/8; 1/8; 1/16)

My final goal is to make the following table, which is the famous quantum walk table. The x axis is the position, and the y axis is the step number. enter image description here

My question is how to summarize the coefficient in Notation using Mathematica codes? Any help or suggestion is highly appreciated.

$\endgroup$
  • $\begingroup$ any help ? please $\endgroup$ – user14634 May 19 '15 at 5:55
3
$\begingroup$

There are many ways of solving this problem, including redoing everything from the start, but let's begin with your last line by defining ans = S[%] // Simplify.

Define a rule for collecting together terms with the same index.

collect = 
  Plus[u___, a1_. state[spin1_, index_], v___, a2_. state[spin2_, index_], w___] :> 
  Plus[u, state[a1 spin1 + a2 spin2, index], v, w];

You can produce the collected & sorted states as follows:

Collect terms.

ans2 = ans //. collect

enter image description here

You should define some new Notation to display the spin part of a "collected" state in a more conventional way, but I won't do that here.

Sort terms.

ans2a = ans2 /. HoldPattern@Plus[x : state[__] ..] :> 
  Inactive[Plus] @@ SortBy[{x}, Last]

enter image description here

You have to use Inactive[Plus] rather than Plus, because Plus likes to sort its arguments.

You can produce the table of state probabilities as follows:

Collect terms.

ans3 = (ans // Expand) //. collect

enter image description here

Extract the probabilities.

ans3a = List @@ ans3 /. 
  a_. state[spinsum__, index_] :> 
    {spinsum /. b_. _String :> (a b)^2, index} // SortBy[#, #[[2]] &] &

enter image description here

$\endgroup$
  • $\begingroup$ Your answer is really helpful to me! Thank you very very much! $\endgroup$ – user14634 May 21 '15 at 3:06

Your Answer

By clicking “Post Your Answer”, you agree to our terms of service, privacy policy and cookie policy

Not the answer you're looking for? Browse other questions tagged or ask your own question.