NMR_Grover_5bits.nb

In[40]:=

In[41]:=

In[43]:=

$ket[x_String] := Apply[CircleTimes, Table[If[StringTake[x, {i, i}] == "0", ket[0], ket[1], "NotDef"], {i, StringLength[x]}]]$

In[44]:=

$Clear[MatrixDisplay] MatrixDisplay[tensor_CircleTimes] := Map[MatrixForm, tensor] MatrixDispla ... matrix_] := Map[MatrixForm, matrix]/;MatrixQ[matrix] MatrixDisplay[ket__] := MatrixDisplay[{ket}]$

In[50]:=

$bitQ[x_] := If[VectorQ[x] && Dimensions[x] == {2}, True, False, False]$

In[51]:=

In[52]:=

$Clear[Tensor] Tensor[tensorList_CircleTimes] := Apply[Tensor, tensorList] Tensor[{ket_}] := ke ... Table[fm[[i, j]] tensor2, {j, Length[fm[[i]]]}]], {i, Length[fm]}]]] /;VectorQ[ketList, MatrixQ]$

In[58]:=

In[59]:=

Clear[WalshHadamard] WalshHadamard[ket_] := WalshHadamardMatrix . ket /;bitQ[ket] WalshHadamar ... List] /; VectorQ[ketList, bitQ] WalshHadamard[ketList_CircleTimes] := Map[WalshHadamard, ketList]

In[64]:=

$Clear[GroverSearchMain] GroverSearchMain[f_, BasicState_List, iteration_Integer] := Module[{Rf ... {n}]]] ; amplitude[k_Integer] := amplitude[k] = Uf . amplitude[k - 1] ; amplitude[iteration] ]$

In[66]:=

$<<Graphics`Graphics` Clear[GroverShowGraphics] GroverShowGraphics[amplitude_List] := Mo ... ange -> All, AspectRatio -> 3/2, Axes -> {True, True}, AxesOrigin -> {0, 0}] ; ]/;VectorQ[amplitude]$

In[69]:=

$GroverSearchSolveRetNum[amplitude_List] := Module[{epsilon, the, theta, r, i, s}, epsilon = 1 ... s = amplitude[[1]] ; For[i = 2, s<r, i ++, s = amplitude[[i]]] ; i - 2 ]/;VectorQ[amplitude]$

In[70]:=

$Clear[GroverSearch] GroverSearch[f_, Number_Integer, t_Integer, k_Integer] := Module[{epsilon, ... , {i, 0, Num - 1}] ; i = Ceiling[1/2 (Num * epsilon)^(1/2)] ; GroverSearchMain[f, stateX, i] ]$

In[72]:=

In[75]:=

[Graphics:HTMLFiles/index_16.gif]

Out[76]=

In[77]:=

Out[77]=

$(\[NoBreak] 1 \[NoBreak]) (x) (\[NoBreak] 0 \[NoBreak]) (x) (\[NoBreak] 0 \[NoBreak]) (x) (\[NoBreak] 0 \[NoBreak]) (x) (\[NoBreak] 1 \[NoBreak]) 0 1 1 1 0$

Out[78]//MatrixForm=

$(\[NoBreak] 0 \[NoBreak]) 0 0 0 0 0 0 0 0 0 0 0 0 0 1 ... 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0$

Created by Mathematica (February 6, 2005)