\documentclass[%
 %reprint,
%superscriptaddress,
%groupedaddress,
%unsortedaddress,
%runinaddress,
%frontmatterverbose,
preprint,
showpacs,
preprintnumbers,
%nofootinbib,
%nobibnotes,
%bibnotes,
 amsmath,
 amssymb,
 aps,
% prl,
pra,
%prb,
%rmp,
%prstab,
%prstper,
longbibliography,
%floatfix,
%lengthcheck,%
]{revtex4-1}

\usepackage{graphicx}
\usepackage{pslatex}
%\usepackage{hyperref}

\usepackage[left]{eurosym}

%\bibliographystyle{apsrev4-1long}

\begin{document}


\title{On the plasticity of nonlocal quantum correlations}

\author{Karl Svozil}
\email{svozil@tuwien.ac.at}
\homepage{http://tph.tuwien.ac.at/~svozil}
\affiliation{Institute for Theoretical Physics, Vienna University of Technology,  \\
Wiedner Hauptstra\ss e 8-10/136, A-1040 Vienna, Austria}

\begin{abstract}
The quantum correlations of two or more entangled particles present the possibility of stronger-than-classical outcome coincidences.  We investigate two-partite correlations of spin one, three-half and higher quanta in a state satisfying a uniqueness property in the sense that knowledge of an outcome of one particle observable entails the certainty that, if this observable were measured on the other particle(s) as well, the outcome of the measurement would be a unique function of the outcome of the measurement performed. We also investigate correlations of four spin one-half particles.
\end{abstract}

\pacs{03.67.Hk,03.65.Ud}
\keywords{Quantum information, quantum communication, singlet states, group theory, entanglement, quantum nonlocality}

\maketitle

%\usepackage{cdmtcs}




%\cdmtcsauthor{Karl Svozil}
%\cdmtcstitle{Some observations concerning the plasticity of nonlocal quantum correlations exceeding classical correlations}
%\cdmtcsaffiliation{Vienna University of Technology}
%\cdmtcstrnumber{346}
%\cdmtcsdate{February 2009}
%\colourcoverpage


\section{Introduction}

The possibility of a peculiar and ``mind-boggling'' type of connectedness
between two or more spatially separated particles beyond classical correlations
surprised the quantum pioneers in their early exploration of quanta.
Already Schr\"odinger
noted that a state of several quantized particles or quanta
could be {\em entangled} (in Schr\"odinger's own German terminology {\em ``verschr\"ankt''})
in the sense that it cannot be represented as the product of states of the isolated, individual quanta,
but is rather defined by the {\em joint} or {\em relative} properties of the quanta involved~\cite{zeil-99,zeil-Zuk-bruk-01}.
Typical examples of such joint properties of entangled states are the propositions,
``when measured along two or more different directions, two spin one-half particles have opposite spin''
(defining the Bell singlet state),
or ``when measured along a particular direction, three spin one-half particles have identical spin''
(one of the three defining properties of the Greenberger-Horne-Zeilinger-Mermin state).

With respect to the outcome of certain measurements on the individual particles in an entangled state,
the observation of stronger-than-classical correlations for nonlocal, i.e., spatially and even causally separated, quanta
in  ``delayed choice'' measurements has been experimentally verified~\cite{wjswz-98}.
A typical phenomenological criterion of such correlations it the {\em increased} of {\em decreased} frequency of the occurrence of certain coincidences of outcomes,
such as the more- or less-often-than-classically expected recordings of joint spin up and down measurements labeled by ``$++$,'' ``$+-$,'' ``$-+$'' or ``$--$,'' respectively.

Stated pointedly, the ``magic'' behind the quantum correlations as compared to classical correlations resides in the fact that,
for almost all measurement directions (despite collinear or orthogonal ones), an observer ``Alice,''
when recording some outcome of a measurement, can be sure that her partner ``Bob,''
although spatially and causally disconnected from her, is either more or less likely to record a particular measurement outcome on his side.
However, because of the randomness  and uncontrollability of the individual events, and
because of the no-cloning theorem,
no classically useful information can be transferred from Alice to Bob, or {\it vice versa:}
The parameter independence and outcome dependence of otherwise random events ensures that
the nonlocal correlations among quanta cannot be directly used to communicate classical information.
The correlations of the joint outcomes on Alice's and Bob's sides can only be  verified by collecting all the different outcomes {\it ex post facto,}
recombining joint events one-by one.
Nevertheless, there are hopes and visions to utilize nonlocal quantum correlations for a wide range of explanations and
applications; for instance in quantum information theory~\cite{bruk-06} and life sciences~\cite{sum-05}.


In what follows a few known and novel quantum correlations will be systematically enumerated.
We shall derive the correlations between two and four two-state particles in singlet states.
We also derive the correlations of two three-, four- and general $d$-state particles in a singlet state.
In doing so we attempt to ``sharpen'' the nonclassical behavior beyond the standard quantum correlations.


\section{Two particle correlations}

In what follows, consider two particles or quanta. On each one of the two quanta, certain measurements
(such as the spin state or polarization) of
(dichotomic) observables
$O({ a})$ and
$O({ b})$
along the directions $a$ and $b$, respectively, are performed.
The individual outcomes are
encoded or labeled by the symbols ``$-$'' and  ``$+$,'' or values ``-1'' and ``+1'' are recorded along
the directions ${ a}$ for the first particle, and  ${ b}$ for the second particle, respectively.
A two-particle correlation function $E(a,b )$
is defined by averaging over the product of the outcomes $O({ a})_i, O({ b} )_i\in \{-1,1\}$
in the $i$th experiment for a total of $N$ experiments; i.e.,
\begin{equation}
E(a,b )={1\over N}\sum_{i=1}^N O({ a})_i O({ b})_i.
\end{equation}


Quantum mechanically, we shall follow a standard procedure for obtaining the probabilities upon which the correlation coefficients are based.
We shall start from the angular momentum operators, as for instance defined in Schiff's {\em ``Quantum Mechanics''}~\cite[Chap.~VI, Sec.24]{schiff-55}
in arbitrary directions, given by the spherical angular momentum co-ordinates $\theta$ and $\varphi$, as defined above.
Then, the projection operators corresponding to the eigenstates associated with the different eigenvalues are derived
from the dyadic (tensor) product of the normalized eigenvectors.
In Hilbert space based  quantum logic, every projector corresponds to
a proposition that the system is in a state corresponding to that observable.
The quantum probabilities associated with these eigenstates are derived from the Born rule, assuming singlet states for the physical reasons discussed above.
These probabilities contribute to the  correlation coefficients.



% ~~~~~~~~~~~~~~~   2 x 3
% ~~~~~~~~~~~~~~~   2 x 3
% ~~~~~~~~~~~~~~~   2 x 3
% ~~~~~~~~~~~~~~~   2 x 3
% ~~~~~~~~~~~~~~~   2 x 3
% ~~~~~~~~~~~~~~~   2 x 3
% ~~~~~~~~~~~~~~~   2 x 3
% ~~~~~~~~~~~~~~~   2 x 3

\subsection{Three-state particles}

\subsubsection*{Observables}
The angular momentum operator in arbitrary direction $\theta$, $\varphi$ is given by its spectral decomposition
\begin{equation}
S_1 (\theta ,\varphi)
= -F_{-}(\theta ,\varphi)+0\cdot F_0(\theta ,\varphi) +F_{+}(\theta ,\varphi),
\label{e-2009-gtq-s3}
\end{equation}
where $F_-,F_0,F_+$ are the orthogonal projectors associated with the eigenstates of $S_1 (\theta ,\varphi)$.
The generalized one-particle observable with the previous outcomes of spin state measurements ``coded''
into the map $
-1 \mapsto  \lambda_{-}$,
$0 \mapsto   \lambda_{0}$,
$+1 \mapsto   \lambda_{+}$
can be written as
$
R_1(\theta ,\varphi) = \lambda_{-} F_{-}(\theta ,\varphi) + \lambda_{0} F_0(\theta ,\varphi) +  \lambda_{+} F_{+}(\theta ,\varphi)
$.


For the sake of an operationalization of the 117 contexts contained in their proof,
Kochen and Specker~\cite{kochen1} introduced an observable based on spin one
with degenerate eigenvalues corresponding to
$\lambda_+ = \lambda_- = 1$ and $\lambda_0 = 0$,
or its ``inverted'' form $\lambda_+ = \lambda_- = 0$ and $\lambda_0 = 1$.
The corresponding correlation functions will be discussed below.

\subsubsection*{Singlet state}

Consider the two spin-one particle singlet state
$
\vert \Psi_{3,2,1} \rangle  =  \frac{1}{\sqrt{3}}\left(-|00\rangle + |-+\rangle + |+-\rangle \right)
$.
Its vector space representation can be explicitly enumerated by taking the direction $\theta =\varphi =0$ and recalling that
$\vert +\rangle \equiv (1,0,0)$,
$\vert 0\rangle \equiv (0,1,0)$, and
$\vert -\rangle \equiv (0,0,1)$; i.e.,
$
\vert \Psi_{3,2,1} \rangle  \equiv  \frac{1}{\sqrt{3}}\left(0,0,1,0,-1,0,1,0,0 \right)
$.

\subsubsection*{Results}


The  general computation of the quantum correlation coefficient yields
\begin{equation}
\begin{array}{ll}
&E_{{ \Psi_{3,2,1}}\,\lambda_- \lambda_0 \lambda_+ } ({\hat \theta},{\hat \varphi} )= {\rm Tr}\left[\rho_{ \Psi_{3,2,1}} \cdot R_{1 1} \left({\hat \theta},{\hat \varphi} \right)\right] =\\
& \quad   =  \frac{1}{192} \left\{24 \lambda_0^2 + 40 \lambda_0 \left(\lambda_- + \lambda_+\right) + 22 \left(\lambda_- + \lambda_+\right)^2 -
   32 \left(\lambda_- - \lambda_+\right)^2 \cos \theta_1  \cos \theta_2  +   \right.                                                                                     \\
& \qquad \; + 2 \left(-2 \lambda_0 + \lambda_- + \lambda_+\right)^2 \cos\left(2  \theta_2 \right) \left[\left(3 + \cos\left(2 \left( \varphi_1  -
  \varphi_2 \right)\right)\right) \cos\left(2  \theta_1 \right) + 2 \sin\left( \varphi_1  -  \varphi_2 \right)^2\right] +                                          \\
& \qquad \; +  2 \left(-2 \lambda_0 + \lambda_- + \lambda_+\right)^2 \left[\cos\left(2 \left( \varphi_1  -  \varphi_2 \right)\right) +
     2 \cos\left(2  \theta_1 \right) \sin\left( \varphi_1  -  \varphi_2 \right)^2\right] -                                                                         \\
& \qquad \; -32 \left(\lambda_- - \lambda_+\right)^2 \cos\left( \varphi_1  -  \varphi_2 \right) \sin \theta_1  \sin \theta_2  +    \\
& \qquad \; \left.   + 8 \left(-2 \lambda_0 + \lambda_- + \lambda_+\right)^2 \cos\left( \varphi_1  -  \varphi_2 \right) \sin\left(2  \theta_1 \right) \sin\left(2  \theta_2 \right)\right\}
.
\end{array}
\label{e-2009-gtq-e3gen}
\end{equation}
For the sake of comparison, let us relate the rather lengthy
correlation coefficient in Eq.~(\ref{e-2009-gtq-e3gen})
to the standard  quantum mechanical correlations based on the dichotomic outcomes
by  setting $\lambda_0 = 0$, $  \lambda_+ = +1$ and  $\lambda_- =-1$.
With these identifications,
\begin{equation}
E_{{ \Psi_{3,2,1}}\,-1, 0, +1 } ({\hat \theta},{\hat \varphi} )= -\frac{2}{3}
\left[\cos \theta_1 \cos \theta_2 + \cos (\varphi_1 - \varphi_2) \sin \theta_1 \sin \theta_2\right]
= \frac{2}{3}E_{{ \Psi_{2,2,1}}\,-1, +1 } ({\hat \theta},{\hat \varphi} )
\label{2009-gtq-edosgc3}
.
\end{equation}
This correlation coefficient is functionally identical with the spin one-half (two outcomes) correlation coefficients.

The correlation coefficient resulting from the Kochen-Specker observable corresponding to
$\lambda_+ = \lambda_- = 1$ and $\lambda_0 = 0$ or its inverted form
$\lambda_+ = \lambda_- = 0$ and $\lambda_0 = 1$
is
\begin{equation}
\begin{array}{rcl}
E_{{ \Psi_{3,2,1}}\,+1, 0, +1 } ({\hat \theta},{\hat \varphi} )&=&
\frac{1}{24} \left\{
11
+\cos [2 (\varphi_1-\varphi_2)]
+4 \cos (\varphi_1-\varphi_2) \sin (2  \theta_1 ) \sin (2  \theta_2 ) +  \right.
\\
&&\;
+2 \left[\cos (2  \theta_1 )+\cos (2 \theta_2) \right] \sin ^2(\varphi_1-\varphi_2)+
\\
&&\; \left.
+\cos (2  \theta_1 )   \cos (2  \theta_2 ) \left[ \cos (2 (\varphi_1-\varphi_2))+3\right]\right\},
\\
E_{{ \Psi_{3,2,1}}\, 0, +1, 0 } ({\hat \theta},{\hat \varphi} )&=&
\frac{1}{3} \left[\cos \theta_1  \cos \theta_2)+\cos    (\varphi_1-\varphi_2) \sin  \theta_1  \sin  \theta_2 \right]^2 ,
\\
E_{{ \Psi_{3,2,1}}\,+1, 0, +1 } (\frac{\pi}{2},\frac{\pi}{2},{\hat \varphi} )&=&
\frac{1}{6} \left\{\cos \left[2 (\varphi_1-\varphi_2)\right]+3\right\},
\\
E_{{ \Psi_{3,2,1}}\, 0, +1, 0 } (\frac{\pi}{2},\frac{\pi}{2},{\hat \varphi} )&=&
\frac{1}{3} \cos ^2(\varphi_1-\varphi_2),
\\
E_{{ \Psi_{3,2,1}}\,+1, 0, +1 } ({\hat \theta},0,0 )&=&
\frac{1}{6} \left\{\cos \left[2 ( \theta_1 - \theta_2 )\right]+3\right\},
\\
E_{{ \Psi_{3,2,1}}\, 0, +1, 0 } ({\hat \theta},0,0 )&=&
\frac{1}{3} \cos ^2( \theta_1 - \theta_2 ).
\end{array}
\label{2009-gtq-edosgc3ks}
\end{equation}




By comparing the quantum correlation coefficient
$E_{{ \Psi_{3,2,1}}\,-1, 0, +1 } ({\hat \theta},0,0 )\propto - \cos (\theta_1 - \theta_2)$
of the spin operators in Eq.~(\ref{2009-gtq-edosgc3})
with the quantum correlation coefficient  of the Kochen Specker operators
$E_{{ \Psi_{3,2,1}}\,+1, 0, +1 } ({\hat \theta},0,0 ) \propto
\cos \left[2 ( \theta_1 - \theta_2 )\right]$
of Eq.~(\ref{2009-gtq-edosgc3ks}),
one could, for higher-than one-half angular momentum observables, envision an ``enhancement'' of the quantum correlation coefficient
by adding weighted correlation coefficients, generated from different labels $\lambda_i$.
Indeed, in the domain $0< | \theta_1 -\theta_2 | < \frac{\pi }{3}$,
the plasticity of
$E_{{ \Psi_{l,2,1}}\,\lambda_{-1},  \lambda_{0} , \lambda_{+1} }$
can be used to build up ``enhanced'' quantum correlations {\it via}
\begin{equation}
\begin{array}{rcl}
&&\frac{1}{2}\left\{
E_{{ \Psi_{3,2,1}}\,-1, 0, +1 } ({\hat \theta},0,0 )
+
3\left[2 E_{{ \Psi_{3,2,1}}\,+1, 0, +1 } ({\hat \theta},0,0 ) -1\right]\right\}
\\
&&\qquad =  \frac{1}{2}\left[-\cos (\theta_1 -\theta_2 ) + \cos 2 (\theta_1 -\theta_2 )
\right]
\\
&& \qquad \qquad
< -\cos (\theta_1 -\theta_2 ) =  E_{{ \Psi_{2,2,1}}\,-1, +1 } ({\hat \theta},0,0 )
\end{array}
\label{2009-gtq-eqcs3}
\end{equation}




% ~~~~~~~~~~~~~~~   2 x 4
% ~~~~~~~~~~~~~~~   2 x 4
% ~~~~~~~~~~~~~~~   2 x 4
% ~~~~~~~~~~~~~~~   2 x 4
% ~~~~~~~~~~~~~~~   2 x 4
% ~~~~~~~~~~~~~~~   2 x 4
% ~~~~~~~~~~~~~~~   2 x 4
% ~~~~~~~~~~~~~~~   2 x 4


\subsection{Four-state particles}


\subsubsection*{Observables}
The angular momentum operator in arbitrary direction $\theta$, $\varphi$ can be written in its spectral form
\begin{equation}
S_\frac{3}{2} (\theta ,\varphi) =-\frac{3}{2}F_{-\frac{3}{2}}(\theta ,\varphi) - \frac{1}{2} F_{-\frac{1}{2}}(\theta ,\varphi) +
\frac{1}{2}F_{+\frac{1}{2}}(\theta ,\varphi)+ \frac{3}{2}F_{+\frac{3}{2}}(\theta ,\varphi).
\label{e-2009-gtq-s444}
\end{equation}


If one is only interested in spin state measurements with the associated outcomes of spin states in units of $\hbar$,
the associated two-particle operator is given by    $
S_{\frac{3}{2}}( \theta_1,\varphi_1 )
\otimes
S_{\frac{3}{2}}( \theta_2,\varphi_2 )$.
More generally, one could define a two-particle operator by
\begin{equation}
F^2_{\lambda_{-\frac{3}{2}},\lambda_{-\frac{1}{2}}, \lambda_{+\frac{1}{2}}, \lambda_{+\frac{3}{2}} } ({\hat \theta},{\hat \varphi} ) =
F_{\lambda_{-\frac{3}{2}},\lambda_{-\frac{1}{2}}, \lambda_{+\frac{1}{2}}, \lambda_{+\frac{3}{2}} } ( \theta_1,\varphi_1)
\otimes
F_{\lambda_{-\frac{3}{2}},\lambda_{-\frac{1}{2}}, \lambda_{+\frac{1}{2}}, \lambda_{+\frac{3}{2}} } ( \theta_2,\varphi_2 ),
\label{2004-gtq-e3F2gen}
\end{equation}
where
\begin{equation}
F_{\lambda_{-\frac{3}{2}},\lambda_{-\frac{1}{2}}, \lambda_{+\frac{1}{2}}, \lambda_{+\frac{3}{2}} } ( \theta ,\varphi )
=
 \lambda_{-\frac{3}{2}}F_{-\frac{3}{2}}(\theta ,\varphi) +  \lambda_{-\frac{1}{2}} F_{-\frac{1}{2}}(\theta ,\varphi) +
 \lambda_{\frac{1}{2}}F_{+\frac{1}{2}}(\theta ,\varphi)+  \lambda_{\frac{3}{2}}F_{+\frac{3}{2}}(\theta ,\varphi)
.
\label{2004-gtq-e3F2gen2}
\end{equation}
For the sake of the physical interpretation of this operator~(\ref{2004-gtq-e3F2gen}), let us consider as a concrete example
a spin state measurement on two quanta:
$ F_{\lambda_{-\frac{3}{2}}}(\theta_1 ,\varphi_1)\otimes   F_{\lambda_{+\frac{3}{2}}}(\theta_2 ,\varphi_2 )$  stands for the proposition
\begin{quote}
{\em `The outcome of the first particle measured along $\theta_1,\varphi_1$ is ``$\lambda_{-\frac{3}{2}}$''
      and
      the outcome of the second particle measured along $\theta_2,\varphi_2$ is ``$\lambda_{+\frac{3}{2}}$''~.'
}
\end{quote}


\subsubsection*{Singlet state}

The singlet state of two spin-$3/2$ observables
can be found by the general methods developed in Ref.~\cite{schimpf-svozil}.
In this case, this amounts to summing all possible two-partite states yielding zero angular momentum,
multiplied with the corresponding  Clebsch-Gordan coefficients
$
\langle j_1m_1j_2m_2\vert 00\rangle = \delta_{j_1,j_2}  \delta_{m_1,-m_2} \frac{(-1)^{j_1-m_1}}{\sqrt{2j_1+1}}
$
of mutually negative single particle states resulting in total angular momentum zero.
More explicitly,  for $j_1=j_2=\frac{3}{2}$,
$
\left|  \left. \psi_{4,2,1} \right\rangle  \right. =
\frac{1}{2} \left(
\left| \left. \frac{3}{2}, -\frac{3}{2}\right\rangle \right.
 - \left| \left.  -\frac{3}{2}, \frac{3}{2}\right\rangle    \right.
- \left| \left.  \frac{1}{2}, -\frac{1}{2}\right\rangle  \right.
+ \left| \left.  -\frac{1}{2}, \frac{1}{2}\right\rangle   \right.
\right)$.
Again, this two-partite singlet state satisfies the uniqueness property.
The four different spin states can be identified with the Cartesian basis of four-dimensional Hilbert space
$\left| \left. \frac{3}{2}\right\rangle \right. \equiv (1,0,0,0)$,
$\left| \left. \frac{1}{2}\right\rangle \right. \equiv (0,1,0,0)$,
$\left| \left. -\frac{1}{2}\right\rangle \right. \equiv (0,0,1,0)$,
and
$\left| \left. -\frac{3}{2}\right\rangle \right. \equiv (0,0,0,1)$,
respectively.

\subsubsection*{Results}



For the sake of comparison, let us again specify the rather lengthy
correlation coefficient in the case of general observables with arbitrary outcomes $\lambda_i$, $i=1,\ldots ,4$
to the standard  quantum mechanical correlations~(\ref{2009-gtq-edosgc3})
by setting $\lambda_{+\frac{3}{2}} = +\frac{3}{2}$,
$\lambda_{+\frac{1}{2}}= +\frac{1}{2}$,
$\lambda_{-\frac{1}{2}}=-\frac{1}{2}$ and
$\lambda_{-\frac{3}{2}}=-\frac{3}{2}$; i.e., by substituting the general outcomes with spin state observables in units of $\hbar$.
With these identifications, the correlation coefficients can be directly calculated {\it via} $S_{\frac{3}{2}\frac{3}{2}}$; i.e.,
\begin{equation}
\begin{array}{rcl}
E_{{ \Psi_{4,2,1}}\,-\frac{3}{2},-\frac{1}{2}, +\frac{1}{2}, +\frac{3}{2} } ({\hat \theta},{\hat \varphi} )
&=&
{\rm Tr}\left\{ \rho_{ \Psi_{4,2,1}} \cdot \left[ S_{\frac{3}{2}}(\theta_1,\varphi_1) \otimes S_{\frac{3}{2}}(\theta_2,\varphi_2)\right]\right\} \\
&=& -\frac{5}{4} \left[\cos \theta_1 \cos \theta_2 + \cos (\varphi_1 - \varphi_2) \sin \theta_1 \sin \theta_2\right] \\
&=& \frac{8}{15}E_{{ \Psi_{2,3,1}}\,-1, +1 } ({\hat \theta},{\hat \varphi} ) \\
&=& 5 E_{{ \Psi_{2,2,1}}\,-\frac{1}{2}, +\frac{1}{2} } ({\hat \theta},{\hat \varphi} )
= \frac{5}{4}E_{{ \Psi_{2,2,1}}\,-1, +1 } ({\hat \theta},{\hat \varphi} )
\end{array}
\label{2009-gtq-edosgc4}
.
\end{equation}
This correlation coefficient is again functionally identical with the spin one-half and spin one (two and three outcomes) correlation coefficients.

The plasticity of the general correlation coefficient
\begin{equation}
E_{{ \Psi_{4,2,1}}\,\lambda_{-\frac{3}{2}},\lambda_{-\frac{1}{2}}, \lambda_{+\frac{1}{2}}, \lambda_{+\frac{3}{2}} } ({\hat \theta},{\hat \varphi} )
=
{\rm Tr}\left[ \rho_{ \Psi_{4,2,1}} \cdot  F^2_{\lambda_{-\frac{3}{2}},\lambda_{-\frac{1}{2}}, \lambda_{+\frac{1}{2}}, \lambda_{+\frac{3}{2}} } ({\hat \theta},{\hat \varphi})\right]
\label{2009-gtq-gpe4}
\end{equation}
can be demonstrated by enumerating special cases; e.g.,
\begin{equation}
\begin{array}{rcl}
E_{{ \Psi_{4,2,1}}\,-1,-1, +1, +1 } ( \theta ,0,0,0 )
&=& \frac{1}{8} \left[-7 \cos \theta -\cos (3 \theta )\right]
,
\\
E_{{ \Psi_{4,2,1}}\,-1,+1, +1, -1 } ( \theta ,0,0,0 )
&=& \frac{1}{4} \left[3 \cos (2 \theta )+1\right]
,
\\
E_{{ \Psi_{4,2,1}}\,+1,-1, +1, -1 } ( \theta ,0,0,0 )
&=& \frac{1}{2} \left[-\cos \theta -\cos (3 \theta )\right]
.
\\
\end{array}
\label{2009-gtq-e4-plast}
\end{equation}
These functions are drawn in Fig.~\ref{2009-gtq-gr4},
together with the spin state correlation coefficient
$\frac{4}{5}E_{{ \Psi_{4,2,1}}\,-\frac{3}{2},-\frac{1}{2}, +\frac{1}{2}, +\frac{3}{2} }
( \theta ,0,0,0 ) = -\cos \theta $
and the classical linear correlation coefficient
$E_{\text{cl},2,2}(\theta ) = {2 \theta / \pi} - 1$.
\begin{figure}[htbp]
  \centering
\includegraphics[width=60mm]{2009-bogoliubov09-gr4}
\caption{Plasticity of the correlation coefficient of two spin three-half quanta in a singlet state.
(a) $E_{{ \Psi_{4,2,1}}\,-1,-1, +1, +1 }$ is represented by the long-dashed blue curve,
(b) $E_{{ \Psi_{4,2,1}}\,-1,+1, +1, -1  }$ is represented by the dashed-dotted red curve,
(c) $E_{{ \Psi_{4,2,1}}\,+1,-1, +1, -1  }$ is represented by the short-dashed green curve,
(d) $\frac{4}{5}E_{{ \Psi_{4,2,1}}\,-\frac{3}{2},-\frac{1}{2}, +\frac{1}{2}, +\frac{3}{2} }$ is represented by the dotted orange curve,
and (e) $E_{\text{cl},2,2}(\theta )$ is represented by the classical linear  black line.
}
\label{2009-gtq-gr4}
\end{figure}

% ~~~~~~~~~~~~~~~   2 x j
% ~~~~~~~~~~~~~~~   2 x j
% ~~~~~~~~~~~~~~~   2 x j
% ~~~~~~~~~~~~~~~   2 x j
% ~~~~~~~~~~~~~~~   2 x j
% ~~~~~~~~~~~~~~~   2 x j

\subsection{General case of two spin $j$ particles}

The general case of spin correlation values of two particles with arbitrary spin $j$
(see the Appendix of Ref.~\cite{svozil-krenn} for a group theoretic derivation) can be directly calculated in an analogous way as before, yielding
\begin{equation}
\begin{array}{rcl}
E_{{ \Psi_{2,2j+1,1}}\,-j,-j+1,\ldots,+j-1, +j } ({\hat \theta},{\hat \varphi} )
&=&
{\rm Tr}\left\{ \rho_{ \Psi_{2,2j+1,1}} \cdot \left[ S_{j}(\theta_1,\varphi_1) \otimes S_{j}(\theta_2,\varphi_2)\right]\right\} \\
&=& -\frac{j(1+j)}{3} \left[\cos \theta_1 \cos \theta_2 + \cos (\varphi_1 - \varphi_2) \sin \theta_1 \sin \theta_2\right]  .
\end{array}
\label{2009-gtq-edosgcjj}
\end{equation}
Thus, the functional form of the two-particle correlation coefficients based on spin state observables is {\em
independent} of the absolute spin value.




% ~~~~~~~~~~~~~~~   4 x 2
% ~~~~~~~~~~~~~~~   4 x 2
% ~~~~~~~~~~~~~~~   4 x 2
% ~~~~~~~~~~~~~~~   4 x 2
% ~~~~~~~~~~~~~~~   4 x 2
% ~~~~~~~~~~~~~~~   4 x 2


\section{Four spin one-half particle correlations}


To begin with the analysis of four-partite correlations,  consider four spin-${1\over 2}$
particles in one of the two singlet states~\cite{schimpf-svozil}
$
\vert \Psi_{2,4,1} \rangle
=
{1\over \sqrt{3}}\Bigl[
\vert ++-- \rangle +
\vert --++ \rangle \nonumber
-  {1\over 2}
\bigl(
\vert +- \rangle +
\vert -+ \rangle
\bigr)
\bigl(
\vert +- \rangle +
\vert -+ \rangle
\bigr)
\Bigr],
$
and
$
\vert \Psi_{2,4,2} \rangle
=
\left( \vert \Psi_{2,2,1} \rangle \right)^2
=
{1\over 2}
\bigl(
\vert +- \rangle -
\vert -+ \rangle
\bigr)
\bigl(
\vert +- \rangle -
\vert -+ \rangle
\bigr)$,
where
$\vert \Psi_{2,2,1} \rangle = \frac{1}{\sqrt{ 2}}
\bigl(
\vert +- \rangle -
\vert -+ \rangle
\bigr)
$
is the two particle singlet ``Bell'' state.
In what follows, we shall concentrate on the first state
$\vert \Psi_{2,4,1} \rangle$, since  $\vert \Psi_{2,4,2} \rangle$
is just the product of two two-partite singlet states,
thus presenting entanglement merely among two pairs of two quanta.

%\subsection{Observables}




The projection operators $F$
corresponding to a four spin one-half particle joint measurement
aligned (``$+$'') or antialigned  (``$-$'') along those angles are
\begin{equation}
\begin{array}{lll}
 F_{\pm \pm \pm \pm} ({\hat \theta},{\hat \varphi} ) =
{\frac{1}{2}}\left[{\mathbb I}_2 \pm {\bf \sigma}( \theta_1,\varphi_1 )\right]
\otimes
{\frac{1}{2}}\left[{\mathbb I}_2 \pm {\bf \sigma}( \theta_2,\varphi_2 )\right] \otimes
\nonumber\\
\qquad\qquad\qquad\qquad\qquad
\otimes
{\frac{1}{2}}\left[{\mathbb I}_2 \pm {\bf \sigma}( \theta_3,\varphi_3 )\right]
\otimes
{\frac{1}{2}}\left[{\mathbb I}_2 \pm {\bf \sigma}( \theta_4,\varphi_4 )\right].
\end{array}
\label{2004-gtq-e2}
\end{equation}

To demonstrate its physical interpretation, let us consider a concrete example: $F_{- + - + } ({\hat \theta},{\hat \varphi} )$ stands for the proposition
\begin{quote}
{\em `The spin state of the first particle measured along $\theta_1,\varphi_1$ is ``$-$'',
      the spin state of the second particle measured along $\theta_2,\varphi_2$ is ``$+$'',
      the spin state of the third particle measured along $\theta_3,\varphi_3$ is ``$-$'',
      and the spin state of the fourth particle measured along $\theta_4,\varphi_4$ is ``$+$''~.'
}
\end{quote}

%\subsection{Probabilities and correlations}

The joint probability to register the spins of the four particles
in state $\Psi_{2,4,1}$
aligned or anti-aligned along the directions defined by
($\theta_1$, $\varphi_1 $),
($\theta_2$, $\varphi_2 $),
($\theta_3$, $\varphi_3 $),  and
($\theta_4$, $\varphi_4 $) can be evaluated by a straightforward calculation
of
\begin{equation}
P_{{\Psi_{2,4,1}} \pm 1 ,\pm 1,\pm 1\pm 1} ({\hat \theta},{\hat \varphi} )=
{\rm Tr}\left[\rho_{\Psi_{2,4,1}} \cdot F_{\pm \pm \pm \pm} \left({\hat \theta},{\hat \varphi} \right)\right].
\end{equation}

The correlation coefficients and joint probabilities to find the four particles
in an even or in an odd number of
spin-``$-$''-states when measured along
($\theta_1$, $\varphi_1 $),
($\theta_2$, $\varphi_2 $),
($\theta_3$, $\varphi_3 $),  and
($\theta_4$, $\varphi_4 $)
obey  $P_{ \rm even} + P_{ \rm odd}=1$,
as well as $E= P_{ \rm even} - P_{ \rm odd}$; hence
$
P_{ \rm even} =
{1\over2}\left[1 + E  \right]
$
and
$
P_{\rm odd} =
{1\over2}\left[1 - E  \right]
$.
Thus, the four particle quantum correlation is given by (cf. Table~\ref{2008-gtq-2part})
\begin{equation}
\begin{array}{rcl}
E_{ \Psi_{2,4,1}-1,+1}({\hat \theta} , {\hat \varphi } )  &=&
\frac{1}{3}
\left\{
\cos \theta_3 \sin \theta_1
\left[
-\cos \theta_4 \cos (\varphi_1 - \varphi_2) \sin \theta_2 +
          2 \cos \theta_2 \cos (\varphi_1 - \varphi_4) \sin \theta_4
\right] +
\right.
\\
&&\qquad
    \sin \theta_1 \sin \theta_3
\left[2 \cos \theta_2 \cos \theta_4 \cos (\varphi_1 - \varphi_3)  +
\right.
\\
&&\qquad
\qquad
\left.
\left(
2 \cos (\varphi_1 + \varphi_2 - \varphi_3 - \varphi_4) +
                \cos (\varphi_1 - \varphi_2)
                \cos (\varphi_3 - \varphi_4)
\right) \sin \theta_2 \sin \theta_4
\right]   +
\\
&&\qquad
    \cos \theta_1
\left[
2 \sin \theta_2
\left(
\cos \theta_4 \cos (\varphi_2 - \varphi_3) \sin \theta_3 +
                \cos \theta_3 \cos (\varphi_2 - \varphi_4) \sin \theta_4
\right) \right.
 +
\\
&&\qquad
\qquad
\left.
\left.
\cos \theta_2
\left(3 \cos \theta_3 \cos \theta_4 -
                \cos (\varphi_3 - \varphi_4) \sin \theta_3
\sin \theta_4
\right)
\right]
\right\} .
\end{array}
\label{2009-gtq-fpqcgen}
\end{equation}
If all the polar angles $\hat \theta$ are set to $\pi /2$,
then this correlation function yields
\begin{equation}
E_{{\Psi_{2,4,1}}-1,+1} ( \frac{\pi}{2},\frac{\pi}{2},\frac{\pi}{2},\frac{\pi}{2},\hat \varphi )=
\frac{1}{3} \left[2 \cos (\varphi_1+\varphi_2- \varphi_3 - \varphi_4)
+\cos (\varphi_1-\varphi_2) \cos (\varphi_3-\varphi_4)
\right]
.
\end{equation}
Likewise, if all the azimuthal angles $\hat \varphi$ are all set to zero, one obtains
\begin{equation}
E_{{\Psi_{2,4,1}}-1,+1} (\hat \theta )=
\frac{1}{3} \left[2 \cos (\theta_1+\theta_2- \theta_3 - \theta_4)
+\cos (\theta_1-\theta_2) \cos (\theta_3-\theta_4)
\right]
.
\label{2009-gtq-E241e}
\end{equation}
The plasticity of the correlation coefficient
$E_{{\Psi_{2,4,1}}-1,+1} (\hat \theta )$ of Eq.~(\ref{2009-gtq-E241e})
for various parameter values $\theta$ is depicted in Fig.~\ref{2009-gtq-E241}.
\begin{figure}[htbp]
  \centering
\includegraphics[width=60mm]{2009-bogoliubov09-E241}
\caption{Plasticity of the correlation coefficient of four spin one-half quanta in a singlet state.
(a) $E_{{\Psi_{2,4,1}}-1,+1}(\theta , \frac{\pi}{4}, -\theta , \theta )$ is represented by the long-dashed blue curve,
(b) $E_{{\Psi_{2,4,1}}-1,+1}(\theta , \theta , -\theta , \theta )$ is represented by the dashed-dotted red curve,
(c) $E_{{\Psi_{2,4,1}}-1,+1}(\theta , -\theta , -\theta , \theta )$ is represented by the short-dashed green curve,
(d) $E_{{\Psi_{2,4,1}}-1,+1}(\theta , -\theta , -\theta , 0)$ is represented by the dotted orange curve,
and
(e) $E_{{\Psi_{2,4,1}}-1,+1}(-\theta , -\theta , \frac{\pi}{4}, \theta )$ is represented by the solid magenta line.
}
\label{2009-gtq-E241}
\end{figure}


\begin{table}
\begin{tabular}{c}
\hline\hline
$
P_{ \rm even} =
{1\over2}\left[1 + E  \right]
\; ,\;
P_{\rm odd} =
{1\over2}\left[1 - E  \right]
\; ,\;
E=
P_{{\rm even}}
-
P_{{\rm odd}}
$
\\
\hline
$
\begin{array}{lll}
E_{{\Psi_{2,4,1}}-1,+1} ({\hat \theta} ,{\hat \varphi})  &=&
\frac{1}{3}
\left\{
\cos \theta_3 \sin \theta_1
\left[
-\cos \theta_4 \cos (\varphi_1 - \varphi_2) \sin \theta_2 +
          2 \cos \theta_2 \cos (\varphi_1 - \varphi_4) \sin \theta_4
\right] +
\right.
\\
&&\qquad
    \sin \theta_1 \sin \theta_3
\left[2 \cos \theta_2 \cos \theta_4 \cos (\varphi_1 - \varphi_3)  +
\right.
\\
&&\qquad
\qquad
\left.
\left(
2 \cos (\varphi_1 + \varphi_2 - \varphi_3 - \varphi_4) +
                \cos (\varphi_1 - \varphi_2)
                \cos (\varphi_3 - \varphi_4)
\right) \sin \theta_2 \sin \theta_4
\right]   +
\\
&&\qquad
    \cos \theta_1
\left[
2 \sin \theta_2
\left(
\cos \theta_4 \cos (\varphi_2 - \varphi_3) \sin \theta_3 +
                \cos \theta_3 \cos (\varphi_2 - \varphi_4) \sin \theta_4
\right) \right.
 +
\\
&&\qquad
\qquad
\left.
\left.
\cos \theta_2
\left(3 \cos \theta_3 \cos \theta_4 -
                \cos (\varphi_3 - \varphi_4) \sin \theta_3
\sin \theta_4
\right)
\right]
\right\}
\end{array}
$
\\
$E_{{\Psi_{2,4,1}}-1,+1} ({\hat \theta} )  =
\frac{1}{3} \left[2 \cos (\theta_1 +\theta_2 -\theta_3 -\theta_4 )+\cos
   (\theta_1 -\theta_2 ) \cos (\theta_3 -\theta_4 )\right].
$
\\
$
E_{{\Psi_{2,4,1}}-1,+1} ( \frac{\pi}{2},\frac{\pi}{2},\frac{\pi}{2},\frac{\pi}{2},\hat \varphi )=
\frac{1}{3} \left[2 \cos (\varphi_1+\varphi_2- \varphi_3 - \varphi_4)
+\cos (\varphi_1-\varphi_2) \cos (\varphi_3-\varphi_4)
\right]
$ \\
\hline
$
\begin{array}{lll}
E_{{\Psi_{2,4,2}}-1,+1}({\hat \theta} , {\hat \varphi } )  &=&
\left[\cos \theta_1 \cos \theta_2 +
          \cos ( \varphi_1 - \varphi_2) \sin \theta_1 \sin \theta_2\right]\cdot \\
&&\qquad  \qquad  \left[\cos \theta_3 \cos \theta_4 +
          \cos (\varphi_3 - \varphi_4) \sin \theta_3 \sin \theta_4
\right]
\end{array}
$
\\
$E_{{\Psi_{2,4,2}}-1,+1}({\hat \theta} )  =
\cos (\theta_1 -\theta_2 ) \cos (\theta_3 -\theta_4 ),
$
\\
$E_{{\Psi_{2,4,2}}-1,+1}( \frac{\pi}{2},\frac{\pi}{2},\frac{\pi}{2},\frac{\pi}{2},{\hat \varphi} )  =
\cos (\varphi_1 -\varphi_2 ) \cos (\varphi_3 -\varphi_4 ),
$
\\
\hline\hline
\end{tabular}
\caption{Probabilities and correlation coefficients
for finding an odd or even number of spin-``$-$''-states for both four-partite singlet states.
Omitted arguments are zero.
\label{2008-gtq-2part}
}
\end{table}




\section{Summary}

Compared to the two-partite quantum correlations of two-state particles,
the plasticity of the quantum correlations of states of {\em more than  two particles }
originates in the dependency of the {\em multitude of angles} involved, as well as by the {\em multitude of singlet states} in this domain.
For states composed from particles of {\em more than two mutually exclusive outcomes,} the plasticity
is also increased by the {\em different values associated with the outcomes.}

We have explicitly derived the quantum correlation functions of two- and four-partite spin one-half, a well as two-partite systems of higher spin.
All quantum correlation coefficients of the two-partite spin observables have identical form, all being proportional to
$\cos \theta_1 \cos \theta_2 + \cos (\varphi_1 - \varphi_2) \sin \theta_1 \sin \theta_2$.
We have also argued that, by utilizing the plasticity of the quantum correlation coefficients for spins higher that one-half,
this well-known correlation function can be ``enhanced'' by defining sums of quantum correlation coefficients,
at least in some domains of the measurement angles.

It would be interesting to know whether this plasticity of the quantum correlations
$E_{{ \Psi_{l,2,1}}\,\lambda_{-l}, \ldots , \lambda_{+l} }$
for ``very high'' angular momentum $l$ observables
could be pushed to the point of maximal violation of
the Clauser-Horne-Shimony-Holt inequality {\em without} a  bit exchange
such as by using the
``buildup'' of a step function from the individual correlation coefficients~\cite{svozil-krenn}; e.g., for  $0 \leq \theta \leq \pi $,
\begin{equation}
%\begin{array}{rcl}
{\rm sgn} (x)
=\left\{ \begin{array}{rl}
-1 \; &\text{  for } 0\le x<\frac{\pi}{2} \\
 0 \; &\text{  for }  x=\frac{\pi}{2}  \\
+1 \; &\text{  for }  \frac{\pi}{2} <  \theta \le \pi
   \end{array} \right.
={4\over \pi }\sum_{n=0}^\infty {(-1)^n\cos \left[(2n+1)\left( \theta +\frac{\pi}{2}\right)\right]\over
2n+1}\quad .
%\end{array}
\label{e:10}
\end{equation}
Any such violation of Boole-Bell type ``conditions of possible experience'' beyond the maximal quantum
violations, as for instance
derived by Tsirelson~\cite{cirelson} and generalized in Ref.~\cite{filipp-svo-04-qpoly-prl} not necessarily generalizes
to the multipartite, non dichotomic cases.
Note also that such a strong or even maximal violation of the Boole-Bell type ``conditions of possible experience'' beyond the maximal quantum
violations
needs
not necessarily violate relativistic causality~\cite{popescu-97,popescu-97b},
or be associated with a ``sharpening'' of the angular dependence of the joint occurrence of certain elementary dichotomic outcomes,
such as  ``$++$,'' ``$+-$,'' ``$-+$'' or ``$--$,'' respectively.

%\bibliography{svozil}
%\bibliographystyle{osa}
%\bibliographystyle{apsrev}

%merlin.mbs 2010-03-15 4.21a (PWD, AO, DPC)
%Control: key (0)
%Control: author (0) dotless jnrlst
%Control: editor formatted (1) identically to author
%Control: production of article title (0) allowed
%Control: page (1) range
%Control: year (0) verbatim
%Control: production of eprint (0) enabled
\begin{thebibliography}{14}%
\makeatletter
\providecommand \@ifxundefined [1]{%
 \@ifx{#1\undefined}
}%
\providecommand \@ifnum [1]{%
 \ifnum #1\expandafter \@firstoftwo
 \else \expandafter \@secondoftwo
 \fi
}%
\providecommand \@ifx [1]{%
 \ifx #1\expandafter \@firstoftwo
 \else \expandafter \@secondoftwo
 \fi
}%
\providecommand \natexlab [1]{#1}%
\providecommand \enquote  [1]{``#1''}%
\providecommand \bibnamefont  [1]{#1}%
\providecommand \bibfnamefont [1]{#1}%
\providecommand \citenamefont [1]{#1}%
\providecommand \href@noop [0]{\@secondoftwo}%
\providecommand \href [0]{\begingroup \@sanitize@url \@href}%
\providecommand \@href[1]{\@@startlink{#1}\@@href}%
\providecommand \@@href[1]{\endgroup#1\@@endlink}%
\providecommand \@sanitize@url [0]{\catcode `\\12\catcode `\$12\catcode
  `\&12\catcode `\#12\catcode `\^12\catcode `\_12\catcode `\%12\relax}%
\providecommand \@@startlink[1]{}%
\providecommand \@@endlink[0]{}%
\providecommand \url  [0]{\begingroup\@sanitize@url \@url }%
\providecommand \@url [1]{\endgroup\@href {#1}{\urlprefix }}%
\providecommand \urlprefix  [0]{URL }%
\providecommand \Eprint [0]{\href }%
\@ifxundefined \urlstyle {%
  \providecommand \doi  [0]{\begingroup \@sanitize@url \@doi}%
  \providecommand \@doi [1]{\endgroup \@@startlink {\doibase
  #1}doi:\discretionary {}{}{}#1\@@endlink }%
}{%
  \providecommand \doi  [0]{doi:\discretionary{}{}{}\begingroup
  \urlstyle{rm}\Url }%
}%
\providecommand \doibase [0]{http://dx.doi.org/}%
\providecommand \Doi [0]{\begingroup \@sanitize@url \@Doi }%
\providecommand \@Doi  [1]{\endgroup\@@startlink{\doibase#1}\@@Doi}%
\providecommand \@@Doi [1]{#1\@@endlink}%
\providecommand \selectlanguage [0]{\@gobble}%
\providecommand \bibinfo  [0]{\@secondoftwo}%
\providecommand \bibfield  [0]{\@secondoftwo}%
\providecommand \translation [1]{[#1]}%
\providecommand \BibitemOpen [0]{}%
\providecommand \bibitemStop [0]{}%
\providecommand \bibitemNoStop [0]{.\EOS\space}%
\providecommand \EOS [0]{\spacefactor3000\relax}%
\providecommand \BibitemShut  [1]{\csname bibitem#1\endcsname}%
%</preamble>
\bibitem [{\citenamefont {Zeilinger}(1999)}]{zeil-99}%
  \BibitemOpen
  \bibfield  {author} {\bibinfo {author} {\bibfnamefont {Anton}\ \bibnamefont
  {Zeilinger}},\ }\bibfield  {title} {\enquote {\bibinfo {title} {A
  foundational principle for quantum mechanics},}\ }\Doi
  {10.1023/A:1018820410908} {\bibfield  {journal} {\bibinfo  {journal}
  {Foundations of Physics},\ }\textbf {\bibinfo {volume} {29}},\ \bibinfo
  {pages} {631--643} (\bibinfo {year} {1999})}\BibitemShut {NoStop}%
\bibitem [{\citenamefont {Brukner}\ \emph {et~al.}(2002)\citenamefont
  {Brukner}, \citenamefont {Zukowski},\ and\ \citenamefont
  {Zeilinger}}]{zeil-Zuk-bruk-01}%
  \BibitemOpen
  \bibfield  {author} {\bibinfo {author} {\bibfnamefont {{\v{C}}aslav}\
  \bibnamefont {Brukner}}, \bibinfo {author} {\bibfnamefont {Marek}\
  \bibnamefont {Zukowski}}, \ and\ \bibinfo {author} {\bibfnamefont {Anton}\
  \bibnamefont {Zeilinger}},\ }\href {http://xxx.lanl.gov/abs/quant-ph/0106119}
  {\enquote {\bibinfo {title} {The essence of entanglement},}\ } (\bibinfo
  {year} {2002}),\ \bibinfo {note} {translated to Chinese by Qiang Zhang and
  Yond-de Zhang, New Advances in Physics (Journal of the Chinese Physical
  Society)},\ \Eprint {http://arxiv.org/abs/quant-ph/0106119}
  {quant-ph/0106119} \BibitemShut {NoStop}%
\bibitem [{\citenamefont {Weihs}\ \emph {et~al.}(1998)\citenamefont {Weihs},
  \citenamefont {Jennewein}, \citenamefont {Simon}, \citenamefont
  {Weinfurter},\ and\ \citenamefont {Zeilinger}}]{wjswz-98}%
  \BibitemOpen
  \bibfield  {author} {\bibinfo {author} {\bibfnamefont {Gregor}\ \bibnamefont
  {Weihs}}, \bibinfo {author} {\bibfnamefont {Thomas}\ \bibnamefont
  {Jennewein}}, \bibinfo {author} {\bibfnamefont {Christoph}\ \bibnamefont
  {Simon}}, \bibinfo {author} {\bibfnamefont {Harald}\ \bibnamefont
  {Weinfurter}}, \ and\ \bibinfo {author} {\bibfnamefont {Anton}\ \bibnamefont
  {Zeilinger}},\ }\bibfield  {title} {\enquote {\bibinfo {title} {Violation of
  {B}ell's inequality under strict {E}instein locality conditions},}\ }\Doi
  {10.1103/PhysRevLett.81.5039} {\bibfield  {journal} {\bibinfo  {journal}
  {Physical Review Letters},\ }\textbf {\bibinfo {volume} {81}},\ \bibinfo
  {pages} {5039--5043} (\bibinfo {year} {1998})}\BibitemShut {NoStop}%
\bibitem [{\citenamefont {Brukner}\ \emph {et~al.}(2006)\citenamefont
  {Brukner}, \citenamefont {Paunkovic}, \citenamefont {Rudolph},\ and\
  \citenamefont {Vedral}}]{bruk-06}%
  \BibitemOpen
  \bibfield  {author} {\bibinfo {author} {\bibfnamefont {{\v{C}}aslav}\
  \bibnamefont {Brukner}}, \bibinfo {author} {\bibfnamefont {Nikola}\
  \bibnamefont {Paunkovic}}, \bibinfo {author} {\bibfnamefont {Terry}\
  \bibnamefont {Rudolph}}, \ and\ \bibinfo {author} {\bibfnamefont {Vlatko}\
  \bibnamefont {Vedral}},\ }\bibfield  {title} {\enquote {\bibinfo {title}
  {Entanglement-assisted orientation in space},}\ }\Doi
  {10.1142/S0219749906001839} {\bibfield  {journal} {\bibinfo  {journal}
  {International Journal of Quantum Information (IJQI)},\ }\textbf {\bibinfo
  {volume} {4}},\ \bibinfo {pages} {365--370} (\bibinfo {year} {2006})},\
  \bibinfo {note} {arXiv:quant-ph/0509123},\ \Eprint
  {http://arxiv.org/abs/arXiv:quant-ph/0509123} {arXiv:quant-ph/0509123}
  \BibitemShut {NoStop}%
\bibitem [{\citenamefont {Summhammer}(2005)}]{sum-05}%
  \BibitemOpen
  \bibfield  {author} {\bibinfo {author} {\bibfnamefont {Johann}\ \bibnamefont
  {Summhammer}},\ }\href@noop {} {\enquote {\bibinfo {title} {Quantum
  cooperation of two insects},}\ } (\bibinfo {year} {2005}),\ \bibinfo {note}
  {arXiv:quant-ph/0503136},\ \Eprint
  {http://arxiv.org/abs/arXiv:quant-ph/0503136} {arXiv:quant-ph/0503136}
  \BibitemShut {NoStop}%
\bibitem [{\citenamefont {Schiff}(1955)}]{schiff-55}%
  \BibitemOpen
  \bibfield  {author} {\bibinfo {author} {\bibfnamefont {Leonard~I.}\
  \bibnamefont {Schiff}},\ }\href@noop {} {\emph {\bibinfo {title} {Quantum
  Mechanics}}}\ (\bibinfo  {publisher} {McGraw-Hill},\ \bibinfo {address} {New
  York},\ \bibinfo {year} {1955})\BibitemShut {NoStop}%
\bibitem [{\citenamefont {Kochen}\ and\ \citenamefont
  {Specker}(1967)}]{kochen1}%
  \BibitemOpen
  \bibfield  {author} {\bibinfo {author} {\bibfnamefont {Simon}\ \bibnamefont
  {Kochen}}\ and\ \bibinfo {author} {\bibfnamefont {Ernst~P.}\ \bibnamefont
  {Specker}},\ }\bibfield  {title} {\enquote {\bibinfo {title} {The problem of
  hidden variables in quantum mechanics},}\ }\Doi {10.1512/iumj.1968.17.17004}
  {\bibfield  {journal} {\bibinfo  {journal} {Journal of Mathematics and
  Mechanics (now Indiana University Mathematics Journal)},\ }\textbf {\bibinfo
  {volume} {17}},\ \bibinfo {pages} {59--87} (\bibinfo {year} {1967})},\ ISSN
  \bibinfo {issn} {0022-2518},\ \bibinfo {note} {reprinted in Ref.~\cite[pp.
  235--263]{specker-ges}}\BibitemShut {NoStop}%
\bibitem [{\citenamefont {Schimpf}\ and\ \citenamefont
  {Svozil}(2008)}]{schimpf-svozil}%
  \BibitemOpen
  \bibfield  {author} {\bibinfo {author} {\bibfnamefont {Maria}\ \bibnamefont
  {Schimpf}}\ and\ \bibinfo {author} {\bibfnamefont {Karl}\ \bibnamefont
  {Svozil}},\ }\bibfield  {title} {\enquote {\bibinfo {title} {A glance at
  singlet states and four-partite correlations},}\ }\href
  {http://arxiv.org/abs/0901.0882} {\bibfield  {journal} {\bibinfo  {journal}
  {Mathematica Slavonica}} (\bibinfo {year} {2008})},\ \bibinfo {note} {in
  print},\ \Eprint {http://arxiv.org/abs/arXiv:0901.0882} {arXiv:0901.0882}
  \BibitemShut {NoStop}%
\bibitem [{\citenamefont {Krenn}\ and\ \citenamefont
  {Svozil}(1998)}]{svozil-krenn}%
  \BibitemOpen
  \bibfield  {author} {\bibinfo {author} {\bibfnamefont {G{\"{u}}nther}\
  \bibnamefont {Krenn}}\ and\ \bibinfo {author} {\bibfnamefont {Karl}\
  \bibnamefont {Svozil}},\ }\bibfield  {title} {\enquote {\bibinfo {title}
  {Stronger-than-quantum correlations},}\ }\Doi {10.1023/A:1018821314465}
  {\bibfield  {journal} {\bibinfo  {journal} {Foundations of Physics},\
  }\textbf {\bibinfo {volume} {28}},\ \bibinfo {pages} {971--984} (\bibinfo
  {year} {1998})}\BibitemShut {NoStop}%
\bibitem [{\citenamefont {{Cirel'son (=Tsirel'son)}}(1993)}]{cirelson}%
  \BibitemOpen
  \bibfield  {author} {\bibinfo {author} {\bibfnamefont {Boris~S.}\
  \bibnamefont {{Cirel'son (=Tsirel'son)}}},\ }\bibfield  {title} {\enquote
  {\bibinfo {title} {Some results and problems on quantum {B}ell-type
  inequalities},}\ }\href@noop {} {\bibfield  {journal} {\bibinfo  {journal}
  {Hadronic Journal Supplement},\ }\textbf {\bibinfo {volume} {8}},\ \bibinfo
  {pages} {329--345} (\bibinfo {year} {1993})}\BibitemShut {NoStop}%
\bibitem [{\citenamefont {Filipp}\ and\ \citenamefont
  {Svozil}(2004)}]{filipp-svo-04-qpoly-prl}%
  \BibitemOpen
  \bibfield  {author} {\bibinfo {author} {\bibfnamefont {Stefan}\ \bibnamefont
  {Filipp}}\ and\ \bibinfo {author} {\bibfnamefont {Karl}\ \bibnamefont
  {Svozil}},\ }\bibfield  {title} {\enquote {\bibinfo {title} {Generalizing
  {T}sirelson's bound on {B}ell inequalities using a min-max principle},}\
  }\Doi {10.1103/PhysRevLett.93.130407} {\bibfield  {journal} {\bibinfo
  {journal} {Physical Review Letters},\ }\textbf {\bibinfo {volume} {93}},\
  \bibinfo {pages} {130407} (\bibinfo {year} {2004})},\ \Eprint
  {http://arxiv.org/abs/quant-ph/0403175} {quant-ph/0403175} \BibitemShut
  {NoStop}%
\bibitem [{\citenamefont {Popescu}\ and\ \citenamefont
  {Rohrlich}(1997){\natexlab{a}}}]{popescu-97}%
  \BibitemOpen
  \bibfield  {author} {\bibinfo {author} {\bibfnamefont {S.}~\bibnamefont
  {Popescu}}\ and\ \bibinfo {author} {\bibfnamefont {D.}~\bibnamefont
  {Rohrlich}},\ }\bibfield  {title} {\enquote {\bibinfo {title} {Quantum
  potentiality},}\ }in\ \href@noop {} {\emph {\bibinfo {booktitle} {Quantum
  Potentiality, Entanglement, and Passion-at-a-Distance: Essays for Abner
  Shimony}}},\ \bibinfo {editor} {edited by\ \bibinfo {editor} {\bibfnamefont
  {R.S.}\ \bibnamefont {Cohen}}, \bibinfo {editor} {\bibfnamefont {M.A.}\
  \bibnamefont {Horne}}, \ and\ \bibinfo {editor} {\bibfnamefont
  {J.}~\bibnamefont {Stachel}}}\ (\bibinfo  {publisher} {Kluwer Academic
  publishers},\ \bibinfo {address} {Dordrecht},\ \bibinfo {year}
  {1997})\BibitemShut {NoStop}%
\bibitem [{\citenamefont {Popescu}\ and\ \citenamefont
  {Rohrlich}(1997){\natexlab{b}}}]{popescu-97b}%
  \BibitemOpen
  \bibfield  {author} {\bibinfo {author} {\bibfnamefont {S.}~\bibnamefont
  {Popescu}}\ and\ \bibinfo {author} {\bibfnamefont {D.}~\bibnamefont
  {Rohrlich}},\ }\bibfield  {title} {\enquote {\bibinfo {title} {Action and
  passion at a distance: an essay in honor of professor {A}bner {S}himony},}\
  }\href {http://arxiv.org/abs/quant-ph/9605004} {\bibfield  {journal}
  {\bibinfo  {journal} {Boston Studies in the Philosophy of Science},\ }\textbf
  {\bibinfo {volume} {194}},\ \bibinfo {pages} {197--206} (\bibinfo {year}
  {1997}{\natexlab{b}})},\ \Eprint {http://arxiv.org/abs/quant-ph/9605004}
  {quant-ph/9605004} \BibitemShut {NoStop}%
\bibitem [{\citenamefont {Specker}(1990)}]{specker-ges}%
  \BibitemOpen
  \bibfield  {author} {\bibinfo {author} {\bibfnamefont {Ernst}\ \bibnamefont
  {Specker}},\ }\href@noop {} {\emph {\bibinfo {title} {Selecta}}}\ (\bibinfo
  {publisher} {Birkh{\"{a}}user Verlag},\ \bibinfo {address} {Basel},\ \bibinfo
  {year} {1990})\BibitemShut {NoStop}%
\end{thebibliography}%

\end{document}




(* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ *)
(* ~~~~~~~~~~~~~~~~~~Start Mathematica Code~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ *)
(* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ *)

(*<<Algebra`ReIm`*)

Normalize[z_]:= z/Sqrt[z.Conjugate[z]];

(*Definition of the Tensor Product*)
TensorProduct[a_, b_] :=
  Table[(*a,b are nxn and mxm-matrices*)
   a[[Ceiling[s/Length[b]], Ceiling[t/Length[b]]]]*
    b[[s - Floor[(s - 1)/Length[b]]*Length[b],
      t - Floor[(t - 1)/Length[b]]*Length[b]]], {s, 1,
    Length[a]*Length[b]}, {t, 1, Length[a]*Length[b]}];


(*Definition of the Tensor Product between two vectors*)

TensorProductVec[x_, y_] :=
  Flatten[Table[
    x[[i]] y[[j]], {i, 1, Length[x]}, {j, 1, Length[y]}]];


(*Definition of the Dyadic Product*)

DyadicProductVec[x_] :=
  Table[x[[i]] Conjugate[x[[j]]], {i, 1, Length[x]}, {j, 1,
    Length[x]}];

(*Definition of the sigma matrices*)


vecsig[r_, tt_, p_] :=
 r*{{Cos[tt], Sin[tt] Exp[-I p]}, {Sin[tt] Exp[I p], -Cos[tt]}}

(*Definition of some vectors*)

BellBasis = (1/Sqrt[2]) {{1, 0, 0, 1}, {0, 1, 1, 0}, {0, 1, -1,
     0}, {1, 0, 0, -1}};

Basis = {{1, 0, 0, 0}, {0, 1, 0, 0}, {0, 0, 1, 0}, {0, 0, 0, 1}};



(*~~~~~~~~~~~~~~~~~~~~~~~~~  2  PARTICLES ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
(*~~~~~~~~~~~~~~~~~~~~~~~~~  2  PARTICLES ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
(*~~~~~~~~~~~~~~~~~~~~~~~~~  2  PARTICLES ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)



(*~~~~~~~~~~~~~~~~~~~~~~~~~  2  State System ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

% ~~~~~~~~~~~~~~~   2 x 2
% ~~~~~~~~~~~~~~~   2 x 2
% ~~~~~~~~~~~~~~~   2 x 2
% ~~~~~~~~~~~~~~~   2 x 2
% ~~~~~~~~~~~~~~~   2 x 2
% ~~~~~~~~~~~~~~~   2 x 2

*)


(*Definition of singlet state*)
vp = {1,0};
vm = {0,1};
psi2s = (1/Sqrt[2])*(TensorProductVec[vp, vm] -
    TensorProductVec[vm, vp])

DyadicProductVec[psi2s]

(*Definition of operators*)

(* Definition of one-particle operator *)

M2X = (1/2) {{0, 1}, {1, 0}};
M2Y = (1/2) {{0, -I}, {I, 0}};
M2Z = (1/2) {{1, 0}, {0, -1}};


Eigenvectors[M2X]
Eigenvectors[M2Y]
Eigenvectors[M2Z]

S2[t_, p_] := FullSimplify[M2X *Sin[t] Cos[p] + M2Y *Sin[t] Sin[p] + M2Z *Cos[t]]

FullSimplify[S2[\[Theta], \[Phi]]] // MatrixForm

FullSimplify[ComplexExpand[S2[Pi/2, 0]]] // MatrixForm
FullSimplify[ComplexExpand[S2[Pi/2, Pi/2]]] // MatrixForm
FullSimplify[ComplexExpand[S2[0, 0]]] // MatrixForm

Assuming[{0 <= \[Theta] <= Pi, 0 <= \[Phi] <= 2 Pi}, FullSimplify[Eigensystem[S2[\[Theta], \[Phi]]], {Element[\[Theta], Reals],
  Element[\[Phi], Reals]}]]



FullSimplify[
 Normalize[
  Eigenvectors[S2[\[Theta], \[Phi]]][[1]]], {Element[\[Theta], Reals],
   Element[\[Phi], Reals]}]

ES2M[\[Theta]_,\[Phi]_] := {-E^(-I \[Phi]) Tan[\[Theta]/2], 1}*Cos[\[Theta]/2]*E^(I \[Phi]/2)
ES2P[\[Theta]_,\[Phi]_] := {E^(-I \[Phi]) Cot[\[Theta]/2], 1}*Sin[\[Theta]/2]*E^(I \[Phi]/2)

FullSimplify[ES2M[\[Theta],\[Phi]] .Conjugate[ES2M [\[Theta],\[Phi]]], {Element[\[Theta], Reals],
  Element[\[Phi], Reals]}]
FullSimplify[ES2P[\[Theta],\[Phi]] .Conjugate[ES2P [\[Theta],\[Phi]]], {Element[\[Theta], Reals],
  Element[\[Phi], Reals]}]
FullSimplify[ES2P[\[Theta],\[Phi]] .Conjugate[ES2M[\[Theta],\[Phi]]], {Element[\[Theta], Reals],
  Element[\[Phi], Reals]}]


ProjectorES2M[\[Theta]_,\[Phi]_] := FullSimplify[DyadicProductVec[ES2M[\[Theta],\[Phi]]], {Element[\[Theta], Reals],
  Element[\[Phi], Reals]}]
ProjectorES2P[\[Theta]_,\[Phi]_] := FullSimplify[DyadicProductVec[ES2P[\[Theta],\[Phi]]], {Element[\[Theta], Reals],
  Element[\[Phi], Reals]}]

 ProjectorES2M[\[Theta],\[Phi]] //MatrixForm
 ProjectorES2P[\[Theta],\[Phi]] //MatrixForm


(* verification of spectral form *)

FullSimplify[(-1/2)ProjectorES2M[\[Theta],\[Phi]] + (1/2)ProjectorES2P[\[Theta],\[Phi]], {Element[\[Theta], Reals],
  Element[\[Phi], Reals]}]


SingleParticleSpinOneHalfeObservable[x_, p_] :=   FullSimplify[(1/2) (IdentityMatrix[2] + vecsig[1, x, p])] ;

SingleParticleSpinOneHalfeObservable[\[Theta], \[Phi]] // MatrixForm

Eigensystem[FullSimplify[SingleParticleSpinOneHalfeObservable[x, p]]]


(*Definition of single operators for occurrence of spin up*)

SingleParticleProjector2first[x_, p_, pm_] :=   TensorProduct[1/2 (IdentityMatrix[2] + pm*vecsig[1, x, p]),  IdentityMatrix[2]]

SingleParticleProjector2second[x_, p_, pm_] :=  TensorProduct[IdentityMatrix[2], 1/2 (IdentityMatrix[2] + pm*vecsig[1, x, p])]



(*Definition of two-particle joint operator for occurrence of spin up \
and down*)

JointProjector2[x1_, x2_, p1_, p2_, pm1_, pm2_] :=  TensorProduct[1/2 (IdentityMatrix[2] + pm1*vecsig[1, x1, p1]),  1/2 (IdentityMatrix[2] + pm2*vecsig[1, x2, p2])]


(*Definition of probabilities*)


(*Probability of concurrence of two equal events for two-particle \
probability in singlet Bell state for occurrence of spin up*)

JointProb2s[x1_, x2_, p1_, p2_, pm1_, pm2_] :=
 FullSimplify[
  Tr[DyadicProductVec[psi2s].JointProjector2[x1, x2, p1, p2, pm1,
     pm2]]]

JointProb2s[x1, x2, p1, p2, pm1, pm2]

JointProb2s[x1, x2, p1, p2, pm1, pm2] // TeXForm

(*sum of joint probabilities add up to one*)

FullSimplify[
 Sum[JointProb2s[x1, x2, p1, p2, pm1, pm2], {pm1, -1, 1, 2}, {pm2, -1,
    1, 2}]]

(*Probability of concurrence of two equal events*)

P2Es[x1_, x2_, p1_, p2_] =
  FullSimplify[
   Sum[UnitStep[pm1*pm2]*
     JointProb2s[x1, x2, p1, p2, pm1, pm2], {pm1, -1, 1, 2}, {pm2, -1,
      1, 2}]];

P2Es[x1, x2, p1, p2]

(*Probability of concurrence of two non-equal events*)

P2NEs[x1_, x2_, p1_, p2_] =
  FullSimplify[
   Sum[UnitStep[-pm1*pm2]*
     JointProb2s[x1, x2, p1, p2, pm1, pm2], {pm1, -1, 1, 2}, {pm2, -1,
      1, 2}]];

P2NEs[x1, x2, p1, p2]

(*Expectation function*)

Expectation2s[x1_, x2_, p1_, p2_] =
 FullSimplify[P2Es[x1, x2, p1, p2] - P2NEs[x1, x2, p1, p2]]


(* ~~~~~~~~~~~~~~~~~~~~~~~ generalization ~~~~~~~~~~~~~~~~~~~~~~~ *)

 OperatorGEN[\[Theta]_,\[Phi]_] = FullSimplify[LM * ProjectorES2M[\[Theta],\[Phi]] + LP * ProjectorES2P[\[Theta],\[Phi]], {Element[\[Theta], Reals],  Element[\[Phi], Reals]}];

 OperatorGEN[\[Theta],\[Phi]] //MatrixForm

 JointProjector2GEN[x1_, x2_, p1_, p2_] :=  TensorProduct[OperatorGEN[x1,p1],OperatorGEN[x2,p2]];

Expectation2sGEN[x1_, x2_, p1_, p2_] := FullSimplify[ Tr[DyadicProductVec[psi2s].JointProjector2GEN[x1, x2, p1, p2]]];

Expectation2sGEN[x1, x2, p1, p2]


(* ~~~~~~~~~~~ natural spin observables ~~~~~~~~~~~~~~~~~~~~~ *)



JointProjector2NAT[x1_, x2_, p1_, p2_] :=  TensorProduct[S2[x1,p1],S2[x2,p2]];

Expectation2sNAT[x1_, x2_, p1_, p2_] := FullSimplify[ Tr[DyadicProductVec[psi2s].JointProjector2NAT[x1, x2, p1, p2]]];

Expectation2sNAT[x1, x2, p1, p2]


(*~~~~~~~~~~~~~~~~~~~~~~~~~  3  State System ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

% ~~~~~~~~~~~~~~~   2 x 3
% ~~~~~~~~~~~~~~~   2 x 3
% ~~~~~~~~~~~~~~~   2 x 3
% ~~~~~~~~~~~~~~~   2 x 3
% ~~~~~~~~~~~~~~~   2 x 3
% ~~~~~~~~~~~~~~~   2 x 3
% ~~~~~~~~~~~~~~~   2 x 3
% ~~~~~~~~~~~~~~~   2 x 3

*)



(*Definition of operators*)

(* Definition of one-particle operator *)

M3X = (1/Sqrt[2]) {{0, 1, 0}, {1, 0, 1},{0, 1, 0}};
M3Y = (1/Sqrt[2]) {{0, -I, 0}, {I, 0, -I}, {0, I, 0}};
M3Z =  {{1, 0, 0}, {0, 0, 0},{0, 0, -1}};


Eigenvectors[M3X]
Eigenvectors[M3Y]
Eigenvectors[M3Z]

S3[t_, p_] := M3X *Sin[t] Cos[p] + M3Y *Sin[t] Sin[p] + M3Z *Cos[t]

FullSimplify[S3[\[Theta], \[Phi]]] // MatrixForm

FullSimplify[ComplexExpand[S3[Pi/2, 0]]] // MatrixForm
FullSimplify[ComplexExpand[S3[Pi/2, Pi/2]]] // MatrixForm
FullSimplify[ComplexExpand[S3[0, 0]]] // MatrixForm

Assuming[{0 <= \[Theta] <= Pi, 0 <= \[Phi] <= 2 Pi}, FullSimplify[Eigensystem[S3[\[Theta], \[Phi]]], {Element[\[Theta], Reals],
  Element[\[Phi], Reals]}]]



FullSimplify[
 Normalize[
  Eigenvectors[S3[\[Theta], \[Phi]]][[1]]], {Element[\[Theta], Reals],
   Element[\[Phi], Reals]}]

ES30[\[Theta]_,\[Phi]_] := FullSimplify[
 Normalize[
  Eigenvectors[S3[\[Theta], \[Phi]]][[1]]]*E^(I \[Phi])  , {Element[\[Theta], Reals], Element[\[Phi], Reals]}]

ES30[\[Theta],\[Phi]]


ES3M[\[Theta]_,\[Phi]_] := FullSimplify[
 Normalize[
  Eigenvectors[S3[\[Theta], \[Phi]]][[2]]]*E^(I \[Phi])  , {Element[\[Theta], Reals], Element[\[Phi], Reals]}]

ES3M[\[Theta],\[Phi]]

ES3P[\[Theta]_,\[Phi]_] := FullSimplify[
 Normalize[
  Eigenvectors[S3[\[Theta], \[Phi]]][[3]]]*E^(I \[Phi])  , {Element[\[Theta], Reals], Element[\[Phi], Reals]}]

ES3P[\[Theta],\[Phi]]

FullSimplify[ES3M[\[Theta],\[Phi]] .Conjugate[ES3M [\[Theta],\[Phi]]], {Element[\[Theta], Reals],
  Element[\[Phi], Reals]}]
FullSimplify[ES3P[\[Theta],\[Phi]] .Conjugate[ES3P [\[Theta],\[Phi]]], {Element[\[Theta], Reals],
  Element[\[Phi], Reals]}]
FullSimplify[ES30[\[Theta],\[Phi]] .Conjugate[ES30 [\[Theta],\[Phi]]], {Element[\[Theta], Reals],
  Element[\[Phi], Reals]}]
FullSimplify[ES3P[\[Theta],\[Phi]] .Conjugate[ES3M[\[Theta],\[Phi]]], {Element[\[Theta], Reals],
  Element[\[Phi], Reals]}]
FullSimplify[ES3P[\[Theta],\[Phi]] .Conjugate[ES30[\[Theta],\[Phi]]], {Element[\[Theta], Reals],
  Element[\[Phi], Reals]}]
FullSimplify[ES30[\[Theta],\[Phi]] .Conjugate[ES3M[\[Theta],\[Phi]]], {Element[\[Theta], Reals],
  Element[\[Phi], Reals]}]


ProjectorES30[\[Theta]_,\[Phi]_] := FullSimplify[DyadicProductVec[ES30[\[Theta],\[Phi]]], {Element[\[Theta], Reals],
  Element[\[Phi], Reals]}]
ProjectorES3M[\[Theta]_,\[Phi]_] := FullSimplify[DyadicProductVec[ES3M[\[Theta],\[Phi]]], {Element[\[Theta], Reals],
  Element[\[Phi], Reals]}]
ProjectorES3P[\[Theta]_,\[Phi]_] := FullSimplify[DyadicProductVec[ES3P[\[Theta],\[Phi]]], {Element[\[Theta], Reals],
  Element[\[Phi], Reals]}]

 ProjectorES30[\[Theta],\[Phi]] //MatrixForm
 ProjectorES3M[\[Theta],\[Phi]] //MatrixForm
 ProjectorES3P[\[Theta],\[Phi]] //MatrixForm

ProjectorES30[\[Theta], \[Phi]] // MatrixForm // TeXForm
ProjectorES3M[\[Theta], \[Phi]] // MatrixForm // TeXForm
ProjectorES3P[\[Theta], \[Phi]] // MatrixForm // TeXForm

(* verification of spectral form *)

FullSimplify[0 * ProjectorES30[\[Theta],\[Phi]] +  (-1) * ProjectorES3M[\[Theta],\[Phi]] + (+1) * ProjectorES3P[\[Theta],\[Phi]], {Element[\[Theta], Reals],
  Element[\[Phi], Reals]}] //MatrixForm


(*  ~~~~~~~~~~~~~~~~~~~ general operator ~~~~~~~~~~~~~~~~~~~~~~~  *)

Operator3GEN[\[Theta]_,\[Phi]_] := FullSimplify[LM * ProjectorES3M[\[Theta],\[Phi]] + L0 * ProjectorES30[\[Theta],\[Phi]] + LP * ProjectorES3P[\[Theta],\[Phi]], {Element[\[Theta], Reals], Element[\[Phi], Reals]}];

Operator3GEN[\[Theta],\[Phi]]

JointProjector3GEN[x1_, x2_, p1_, p2_] :=  TensorProduct[Operator3GEN[x1,p1],Operator3GEN[x2,p2]];

v3p = {1,0,0};
v30 = {0,1,0};
v3m = {0,0,1};

psi3s = (1/Sqrt[3])*(-TensorProductVec[v30, v30] + TensorProductVec[v3m, v3p] + TensorProductVec[v3p, v3m])


Expectation3sGEN[x1_, x2_, p1_, p2_] := FullSimplify[ Tr[DyadicProductVec[psi3s].JointProjector3GEN[x1, x2, p1, p2]]];

Expectation3sGEN[x1, x2, p1, p2]


Ex3[LM_,L0_,LP_,x1_,x2_,p1_,p2_]:=FullSimplify[1/192 (24 L0^2 + 40 L0 (LM + LP) + 22 (LM + LP)^2 -
   32 (LM - LP)^2 Cos[x1] Cos[x2] +
   2 (-2 L0 + LM + LP)^2 Cos[
     2 x2] ((3 + Cos[2 (p1 - p2)]) Cos[2 x1] + 2 Sin[p1 - p2]^2) +
   2 (-2 L0 + LM + LP)^2 (Cos[2 (p1 - p2)] +
      2 Cos[2 x1] Sin[p1 - p2]^2) -
   32 (LM - LP)^2 Cos[p1 - p2] Sin[x1] Sin[x2] +
   8 (-2 L0 + LM + LP)^2 Cos[p1 - p2] Sin[2 x1] Sin[2 x2])];

Ex3[-1,0,1,x1,x2,p1,p2]



(* ~~~~~~~~~~~ natural spin observables ~~~~~~~~~~~~~~~~~~~~~ *)



JointProjector3NAT[x1_, x2_, p1_, p2_] :=  TensorProduct[S3[x1,p1],S3[x2,p2]];

Expectation3sNAT[x1_, x2_, p1_, p2_] := FullSimplify[ Tr[DyadicProductVec[psi3s].JointProjector3NAT[x1, x2, p1, p2]]];

Expectation3sNAT[x1, x2, p1, p2]



(* ~~~~~~~~~~~ Kochen-Specker observables ~~~~~~~~~~~~~~~~~~~~~ *)


(*
S3[t_, p_] := M3X *Sin[t] Cos[p] + M3Y *Sin[t] Sin[p] + M3Z *Cos[t]

MM3X[ \[Alpha]_ ] := FullSimplify[S3[Pi/2, \[Alpha]]];
MM3Y[ \[Alpha]_ ] := FullSimplify[S3[Pi/2, \[Alpha]+Pi/2]];
MM3Z[ \[Alpha]_ ] := FullSimplify[S3[0, 0]];

SKS[ \[Alpha]_ ] := FullSimplify[ MM3X[\[Alpha]].MM3X[\[Alpha]] + MM3Y[\[Alpha]].MM3Y[\[Alpha]] + MM3Z[\[Alpha]].MM3Z[\[Alpha]] ];

FullSimplify[SKS[ \[Alpha] ]] // MatrixForm

FullSimplify[ComplexExpand[SKS[ 0]]] // MatrixForm
FullSimplify[ComplexExpand[SKS[ Pi/2]]] // MatrixForm

Assuming[{0 <= \[Theta] <= Pi, 0 <= \[Phi] <= 2 Pi}, FullSimplify[Eigensystem[SKS[ \[Alpha] ]], {Element[\[Alpha], Reals]}]]

*)

Ex3[1, 0, 1, \[Theta]1, \[Theta]2, \[CurlyPhi]1, \[CurlyPhi]2]

Ex3[0, 1, 0, \[Theta]1, \[Theta]2, \[CurlyPhi]1, \[CurlyPhi]2]

Ex3[1, 0, 1, Pi/2, Pi/2, \[CurlyPhi]1, \[CurlyPhi]2]

Ex3[0, 1, 0, Pi/2, Pi/2, \[CurlyPhi]1, \[CurlyPhi]2]

Ex3[1, 0, 1, \[Theta]1, \[Theta]2, 0, 0]

Ex3[0, 1, 0, \[Theta]1, \[Theta]2, 0, 0]








(*~~~~~~~~~~~~~~~~~~~~~~~~~  4  State System ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

% ~~~~~~~~~~~~~~~   2 x 4
% ~~~~~~~~~~~~~~~   2 x 4
% ~~~~~~~~~~~~~~~   2 x 4
% ~~~~~~~~~~~~~~~   2 x 4
% ~~~~~~~~~~~~~~~   2 x 4
% ~~~~~~~~~~~~~~~   2 x 4
% ~~~~~~~~~~~~~~~   2 x 4
% ~~~~~~~~~~~~~~~   2 x 4

*)





(*Definition of operators*)

(* Definition of one-particle operator *)

M4X = (1/2) {{0,Sqrt[3],0,0 },{Sqrt[3],0,2,0 },{0,2,0,Sqrt[3] },{0,0,Sqrt[3],0 }};
M4Y = (1/2) {{0,-Sqrt[3]I,0,0 },{Sqrt[3]I,0,-2I,0},{0,2I,0,-Sqrt[3]I},{0,0,Sqrt[3]I,0  } };
M4Z = (1/2) {{3,0,0,0 },{0,1,0,0 },{0,0,-1,0},{0,0,0,-3}};

Eigenvectors[M4X]
Eigenvectors[M4Y]
Eigenvectors[M4Z]

S4[t_, p_] :=  FullSimplify[M4X *Sin[t] Cos[p] + M4Y *Sin[t] Sin[p] + M4Z *Cos[t]];



(*  ~~~~~~~~~~~~~~~~~~~ general operator ~~~~~~~~~~~~~~~~~~~~~~~  *)

LM32 =-3/2;
LM12 =-1/2;
LP32 =3/2;
LP12 =1/2;

ES4M32[\[Theta]_, \[Phi]_] :=   FullSimplify[   Assuming[{0 < \[Theta] < Pi, 0 <= \[Phi] <= 2 Pi},    Normalize[     Eigenvectors[S4[\[Theta], \[Phi]]][[1]]]], {Element[\[Theta],     Reals], Element[\[Phi], Reals]}];
ES4P32[\[Theta]_, \[Phi]_] :=  FullSimplify[   Assuming[{0 < \[Theta] < Pi, 0 <= \[Phi] <= 2 Pi},    Normalize[     Eigenvectors[S4[\[Theta], \[Phi]]][[2]]]], {Element[\[Theta],     Reals], Element[\[Phi], Reals]}];
ES4M12[\[Theta]_, \[Phi]_] :=  FullSimplify[   Assuming[{0 < \[Theta] < Pi, 0 <= \[Phi] <= 2 Pi},    Normalize[     Eigenvectors[S4[\[Theta], \[Phi]]][[3]]]], {Element[\[Theta],     Reals], Element[\[Phi], Reals]}];
ES4P12[\[Theta]_, \[Phi]_] :=  FullSimplify[   Assuming[{0 < \[Theta] < Pi, 0 <= \[Phi] <= 2 Pi},    Normalize[     Eigenvectors[S4[\[Theta], \[Phi]]][[4]]]], {Element[\[Theta],     Reals], Element[\[Phi], Reals]}];



JointProjector4GEN[x1_, x2_, p1_, p2_] :=  TensorProduct[S4[x1,p1],S4[x2,p2]];

v4P32 = ES4P32[0,0]
v4P12 = ES4P12[0,0]
v4M12 = ES4M12[0,0]
v4M32 = ES4M32[0,0]



psi4s = (1/2)*(TensorProductVec[v4P32, v4M32]-TensorProductVec[v4M32, v4P32] - TensorProductVec[v4P12 , v4M12 ] + TensorProductVec[v4M12 , v4P12 ])


Expectation4sGEN[x1_, x2_, p1_, p2_] := Tr[DyadicProductVec[psi4s].JointProjector4GEN[x1, x2, p1, p2]];

FullSimplify[Expectation4sGEN[x1, x2, p1, p2]]


(* ~~~~~~~~ general case ~~~~~~~~~ *)

EPPMM1[L4M32_ , L4M12_ , L4P12_ , L4P32_ ,  \[Theta]_, \[Phi]_] :=   Assuming[{0 < \[Theta] < Pi, 0 <= \[Phi] <= 2 Pi}, FullSimplify[
L4M32 * Assuming[{0 < \[Theta] < Pi, 0 <= \[Phi] <= 2 Pi},
 FullSimplify[
  DyadicProductVec[
   ES4M32[\[Theta], \[Phi]]], {Element[\[Theta], Reals],
   Element[\[Phi], Reals]}] ]   + L4M12 *    Assuming[{0 < \[Theta] < Pi, 0 <= \[Phi] <= 2 Pi},
 FullSimplify[
  DyadicProductVec[
   ES4M12[\[Theta], \[Phi]]], {Element[\[Theta], Reals],
   Element[\[Phi], Reals]}] ]+
L4P32 * Assuming[{0 < \[Theta] < Pi, 0 <= \[Phi] <= 2 Pi},
 FullSimplify[
  DyadicProductVec[
   ES4P32[\[Theta], \[Phi]]], {Element[\[Theta], Reals],
   Element[\[Phi], Reals]}] ]+
L4P12 * Assuming[{0 < \[Theta] < Pi, 0 <= \[Phi] <= 2 Pi},
 FullSimplify[
  DyadicProductVec[
   ES4P12[\[Theta], \[Phi]]], {Element[\[Theta], Reals],
   Element[\[Phi], Reals]}] ]
]]


EPPMM1[-1,-1,1,1,\[Theta], \[Phi]] //MatrixForm

JointProjector4PPMM1[L4M32_ , L4M12_ , L4P12_ , L4P32_ , x1_, x2_, p1_, p2_] :=  Assuming[{0 < \[Theta] < Pi, 0 <= \[Phi] <= 2 Pi},
 FullSimplify[TensorProduct[EPPMM1[L4M32 , L4M12 , L4P12 , L4P32 , x1,p1],EPPMM1[L4M32 , L4M12 , L4P12 , L4P32 ,x2,p2]], {Element[\[Theta], Reals],
   Element[\[Phi], Reals]}] ];

Expectation4PPMM1[L4M32_ , L4M12_ , L4P12_ , L4P32_ , x1_, x2_, p1_, p2_] := Tr[DyadicProductVec[psi4s].JointProjector4PPMM1[L4M32 , L4M12 , L4P12 , L4P32 ,x1, x2, p1, p2]];

FullSimplify[Expectation4PPMM1[-1,-1,1,1,x1, x2, p1, p2]]

Emmpp[x1_ ]= FullSimplify[Expectation4PPMM1[-1, -1, 1, 1, x1, 0, 0, 0]];
Emppm[x1_ ]= FullSimplify[Expectation4PPMM1[-1, 1, 1, -1, x1, 0, 0, 0]];
Empmp[x1_ ]= FullSimplify[Expectation4PPMM1[-1, 1, -1, 1, x1, 0, 0, 0]];
Epmpm[x1_ ]= FullSimplify[Expectation4PPMM1[1, -1, 1, -1, x1, 0, 0, 0]];

Plot[{Emmpp[x1], Emppm[x1], Epmpm[x1], -Cos[x1], 2*x1/Pi - 1}, {x1, 0,
   Pi}, PlotStyle -> {{Hue[0.65, 1, 1], Dashing[{0.04, 0.02}],
    Thickness[0.01]}, {Hue[0, 1, 1],
    Dashing[{0.04, 0.02, 0.005, 0.02}], Thickness[0.01]}, {Green,
    Thickness[0.01], Dashing[{0.02, 0.02}]}, {Orange, Thickness[0.01],
     Dashing[{0.001, 0.025}]}, {Black, Thickness[0.007]}},
 PlotRange -> {-1.03, 1.03}, PlotRange -> {-1.03, 1.03},
 Frame -> True,
 FrameLabel -> {Style["\[Theta] [rad]", FontSize -> 26],
   Style["E(\[Theta])", FontSize -> 26]}, AspectRatio -> 1,
 BaseStyle -> {FontFamily -> "Times", FontSize -> 24},
 FrameTicks -> {{{0.0001, "0"}, \[Pi]/4, \[Pi]/2,
    3 \[Pi]/4, \[Pi]}, {-1, -1/2, {0.0001, "0"}, 1/2, 1}, None, None}]

Export["c:/mytex/2009-bogoliubov09-gr4.ps", Out[166], "EPS", ImageSize -> 500]

(* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ GENERAL CASE j arbitrary ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ *)
(* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ GENERAL CASE j arbitrary ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ *)
(* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ GENERAL CASE j arbitrary ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ *)
(* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ GENERAL CASE j arbitrary ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ *)
(* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ GENERAL CASE j arbitrary ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ *)
(* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~ GENERAL CASE j arbitrary

% ~~~~~~~~~~~~~~~   2 x 2j+1
% ~~~~~~~~~~~~~~~   2 x 2j+1
% ~~~~~~~~~~~~~~~   2 x 2j+1
% ~~~~~~~~~~~~~~~   2 x 2j+1
% ~~~~~~~~~~~~~~~   2 x 2j+1
% ~~~~~~~~~~~~~~~   2 x 2j+1
% ~~~~~~~~~~~~~~~   2 x 2j+1


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ *)



M1[j_] = Table[(1/2)(Sqrt[j(j+1)-m(m-1)] KroneckerDelta[m,n+1] + Sqrt[j(j+1)-m(m+1)] KroneckerDelta[m,n-1]), {m,-j,j,1}, {n,-j,j,1}];
M2[j_] = Table[(I/2)(Sqrt[j(j+1)-m(m-1)] KroneckerDelta[m,n+1] - Sqrt[j(j+1)-m(m+1)] KroneckerDelta[m,n-1]), {m,-j,j,1}, {n,-j,j,1}];
M3[j_] = Table[m KroneckerDelta[m,n], {m,-j,j,1}, {n,-j,j,1}];

S[j_,t_, p_] :=  FullSimplify[M1[j] *Sin[t] Cos[p] + M2[j] *Sin[t] Sin[p] + M3[j] *Cos[t]];

JointProjectorS[ j_ , x1_ , x2_ , p1_ , p2_ ] :=  TensorProduct[S[j,x1,p1],S[j,x2,p2]];
(*
M1[1/2] //MatrixForm
M2[1/2] //MatrixForm
M3[1/2] //MatrixForm
M1[1] //MatrixForm
M2[1] //MatrixForm
M3[1] //MatrixForm
M1[3/2] //MatrixForm
M2[3/2] //MatrixForm
M3[3/2] //MatrixForm
M1[2] //MatrixForm
M2[2] //MatrixForm
M3[2] //MatrixForm
*)

(* System of Eigenvectors of spin l particle *)

EigenVSystem[l_] := Table[Table[If[ i === ii ,1,0], {i, 1, l}], {ii, 1, l}];

ClebsG00[j_,m_] =(1/Sqrt[2*j+1])(-1)^(j-m);

(* two particle singlet zigzag state *)

TwoPartiteSingletState[l_] :=  Sum[TensorProductVec[ EigenVSystem[2 l + 1][[m]] ,    EigenVSystem[2 l + 1][[(2 l + 1) - (m - 1)]] ]*   ClebsG00[l, 1 + l - m], {m, 1, 2 l + 1}]


(* two-partite correlation coefficient *)

ExpectationJsGEN[j_ ,x1_ , x2_ , p1_ , p2_ ] := FullSimplify[Tr[DyadicProductVec[TwoPartiteSingletState[j]].JointProjectorS[j, x1, x2, p1, p2]]];

Do[ Print[
  FullSimplify[
   ExpectationJsGEN[j, \[Theta]1, \[Theta]2, \[Phi]1, \[Phi]2]] ], {j,
   1/2, 4, 1}]

Do[ Print[
  FullSimplify[
   ExpectationJsGEN[j, \[Theta]1, \[Theta]2, \[Phi]1, \[Phi]2]] ], {j,
   1, 4, 1}]




(* ~~~~~~~~~~~~~~~~~~~~~~~~~~~~

% ~~~~~~~~~~~~~~~   4 x 2
% ~~~~~~~~~~~~~~~   4 x 2
% ~~~~~~~~~~~~~~~   4 x 2
% ~~~~~~~~~~~~~~~   4 x 2
% ~~~~~~~~~~~~~~~   4 x 2
% ~~~~~~~~~~~~~~~   4 x 2
% ~~~~~~~~~~~~~~~   4 x 2
% ~~~~~~~~~~~~~~~   4 x 2


~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ *)



(* 3 PARTICLES GHZM *)

(*Definition of three -
    particle joint operators for occurrence of spin up or down*)

JointProjector3[p1_, p2_, p3_, x1_, x2_, x3_, x1pm_, x2pm_, x3pm_] =
    TensorProduct[
      TensorProduct[1/2(IdentityMatrix[2] + x1pm*vecsig[1, x1, p1]),
        1/2(IdentityMatrix[2] + x2pm*vecsig[1, x2, p2])],
      1/2(IdentityMatrix[2] + x3pm*vecsig[1, x3, p3])];

(* GHZM-state
 *)

psiGHZM3 = (1/Sqrt[2]) (TensorProductVec[TensorProductVec[vm, vm], vm] +
        TensorProductVec[TensorProductVec[vp, vp], vp]);

(* probability *)

P4PMGHZM3[p1_, p2_, p3_, x1_, x2_, x3_, x1pm_, x2pm_, x3pm_] =
    Simplify[Tr[
        DyadicProductVec[psiGHZM3].JointProjector3[p1, p2, p3, x1, x2, x3, x1pm,
            x2pm, x3pm]]];

(* probabilities add up to one *)

Simplify[Sum[
    P4PMGHZM3[\[Phi]1, \[Phi]2, \[Phi]3, \[Alpha], \[Beta], \[Gamma], pm1,
      pm2, pm3], {pm1, -1, 1, 2}, {pm2, -1, 1, 2}, {pm3, -1, 1, 2}]]

(* Probability with no selection of third particle by sign *)

FullSimplify[
  Sum[UnitStep[pm1*pm2]*
      P4PMGHZM3[\[Phi]1, \[Phi]2, \[Phi]3, \[Alpha], \[Beta], \[Gamma], pm1,
        pm2, pm3], {pm1, -1, 1, 2}, {pm2, -1, 1, 2}, {pm3, -1, 1, 2}]]

(* Probability selection of third particle by sign *)

FullSimplify[
  Sum[UnitStep[pm1*pm2]*
      P4PMGHZM3[\[Phi]1, \[Phi]2, \[Phi]3, \[Alpha], \[Beta], \[Gamma], pm1,
        pm2, pm], {pm1, -1, 1, 2}, {pm2, -1, 1, 2}]]

(* Expectation with no selection of third particle by sign *)

FullSimplify[
  Sum[pm1*pm2*
      P4PMGHZM3[\[Phi]1, \[Phi]2, \[Phi]3, \[Alpha], \[Beta], \[Gamma], pm1,
        pm2, pm3], {pm1, -1, 1, 2}, {pm2, -1, 1, 2}, {pm3, -1, 1, 2}]]

(* Expectation selection of third particle by sign *)

FullSimplify[
  Sum[pm1*pm2*
      P4PMGHZM3[\[Phi]1, \[Phi]2, \[Phi]3, \[Alpha], \[Beta], \[Gamma], pm1,
        pm2, pm], {pm1, -1, 1, 2}, {pm2, -1, 1, 2}]]


(************************************************************************)

(* 4 PARTICLES *)


(* Definition of operators *)


(*Definition of four -
    particle joint operators for occurrence of spin up or down*)
  JointProjector4[x1_, x2_, x3_, x4_, p1_, p2_, p3_, p4_, x1pm_, x2pm_, x3pm_,
      x4pm_] :=
    TensorProduct[
      TensorProduct[
        TensorProduct[1/2(IdentityMatrix[2] + x1pm*vecsig[1, x1, p1]),
          1/2(IdentityMatrix[2] + x2pm*vecsig[1, x2, p2])],
        1/2(IdentityMatrix[2] + x3pm*vecsig[1, x3, p3])],
      1/2(IdentityMatrix[2] + x4pm*vecsig[1, x4, p4])];


(* Definition of the two four-particle singlet states *)

(* psi4s1 = DyadicProductVec[
          TensorProductVec[
           (1/Sqrt[2]) {0, 1, -1, 0}, (1/Sqrt[2]) {0, 1, -1,0}
                          ]
                ]; *)

psi4s1v = TensorProductVec[(1/Sqrt[2]) (TensorProductVec[vm, vp] -
          TensorProductVec[vp, vm]), (1/Sqrt[2]) (TensorProductVec[vm, vp] -
          TensorProductVec[vp, vm])]

psi4s1 = DyadicProductVec[psi4s1v];


psi4s2v = (1/Sqrt[6]) (
          Sqrt[2]*(
          TensorProductVec[  TensorProductVec[  TensorProductVec[vm,vm],vp],vp]+
          TensorProductVec[  TensorProductVec[  TensorProductVec[vp,vp],vm],vm]
                  )-
          (1/Sqrt[2])*(
          TensorProductVec[  TensorProductVec[  TensorProductVec[vm,vp],vm],vp]+
          TensorProductVec[  TensorProductVec[  TensorProductVec[vm,vp],vp],vm]+
          TensorProductVec[  TensorProductVec[  TensorProductVec[vp,vm],vm],vp]+
          TensorProductVec[  TensorProductVec[  TensorProductVec[vp,vm],vp],vm]
                      )               )

psi4s2 = DyadicProductVec[psi4s2v];


psi4sv[\[Tau]_] = Cos[\[Tau]]* psi4s1v + Sin[\[Tau]]*psi4s2v;

psi4s[\[Tau]_] = FullSimplify[DyadicProductVec[Cos[\[Tau]]*psi4s1v + Sin[\[Tau]]*psi4s2v]];

(* Probabilities of four-particle joint operators  for occurrence of spin up or down
   in one of the singlet states
 *)

P4PM[x1_, x2_, x3_, x4_, p1_, p2_, p3_, p4_, x1pm_, x2pm_, x3pm_, x4pm_] = Simplify[ComplexExpand[
Tr[psi4s1.JointProjector4[x1, x2, x3, x4, p1, p2, p3, p4, x1pm, x2pm, x3pm, x4pm]]]];

P4PMs2[x1_, x2_, x3_, x4_, p1_, p2_, p3_, p4_, x1pm_, x2pm_, x3pm_, x4pm_] = Simplify[ComplexExpand[
Tr[psi4s2.JointProjector4[x1, x2, x3, x4, p1, p2, p3, p4, x1pm, x2pm, x3pm, x4pm]]]];

P4PMs[\[Tau]_,x1_, x2_, x3_, x4_, p1_, p2_, p3_, p4_, x1pm_, x2pm_, x3pm_, x4pm_] = Simplify[ComplexExpand[
Tr[psi4s[\[Tau]].JointProjector4[x1, x2, x3, x4, p1, p2, p3, p4, x1pm, x2pm, x3pm, x4pm]]]];



(* All the probabilities of four-particle joint operators  for occurrence of spin up or down
   in one of the singlet states sum up to 1
 *)

FullSimplify[ComplexExpand[
    Sum[P4PM[\[Alpha], \[Beta], \[Gamma], \[Delta],
             \[CurlyPhi]1,\[CurlyPhi]2,\[CurlyPhi]3,\[CurlyPhi]4, pm1, pm2, pm3,
        pm4], {pm1, -1, 1, 2}, {pm2, -1, 1, 2}, {pm3, -1, 1, 2}, {pm4, -1, 1,2}
       ]
            ]            ]

FullSimplify[ComplexExpand[
  Sum[P4PMs2[\[Alpha], \[Beta], \[Gamma], \[Delta],
             \[CurlyPhi]1,\[CurlyPhi]2,\[CurlyPhi]3,\[CurlyPhi]4, pm1, pm2, pm3,
      pm4], {pm1, -1, 1, 2}, {pm2, -1, 1, 2}, {pm3, -1, 1, 2}, {pm4, -1, 1,2}
       ]
            ]            ]

Simplify[
  Sum[P4PMs[\[Tau],\[Alpha], \[Beta], \[Gamma], \[Delta],
             \[CurlyPhi]1,\[CurlyPhi]2,\[CurlyPhi]3,\[CurlyPhi]4, pm1, pm2, pm3,
      pm4], {pm1, -1, 1, 2}, {pm2, -1, 1, 2}, {pm3, -1, 1, 2}, {pm4, -1, 1,2}
       ]
            ]

(* Probabilities of odd or even number of negative outcomes of
   four-particle joint operators  for occurrence of spin up or down
   in one of the singlet on the left (particles 1&2) and right (particles 3&4) hand side
 *)

SumP4Plus[\[Alpha]_, \[Beta]_, \[Gamma]_, \[Delta]_,\[CurlyPhi]1_,\[CurlyPhi]2_,\[CurlyPhi]3_,\[CurlyPhi]4_] = FullSimplify[ComplexExpand[Sum[
    UnitStep[pm1*pm2*pm3*pm4]*
      P4PM[\[Alpha], \[Beta], \[Gamma], \[Delta],
             \[CurlyPhi]1,\[CurlyPhi]2,\[CurlyPhi]3,\[CurlyPhi]4, pm1, pm2, pm3,
        pm4], {pm1, -1, 1, 2}, {pm2, -1, 1, 2}, {pm3, -1, 1, 2}, {pm4, -1, 1,
      2}]]                ]

SumP4Minus[\[Alpha]_, \[Beta]_, \[Gamma]_, \[Delta]_,\[CurlyPhi]1_,\[CurlyPhi]2_,\[CurlyPhi]3_,\[CurlyPhi]4_] = FullSimplify[ComplexExpand[Sum[
    UnitStep[-pm1*pm2*pm3*pm4]*
      P4PM[\[Alpha], \[Beta], \[Gamma], \[Delta],
             \[CurlyPhi]1,\[CurlyPhi]2,\[CurlyPhi]3,\[CurlyPhi]4, pm1, pm2, pm3,
        pm4], {pm1, -1, 1, 2}, {pm2, -1, 1, 2}, {pm3, -1, 1, 2}, {pm4, -1, 1,
      2}]]              ]

SumP4s2Plus[\[Alpha]_, \[Beta]_, \[Gamma]_, \[Delta]_,\[CurlyPhi]1_,\[CurlyPhi]2_,\[CurlyPhi]3_,\[CurlyPhi]4_] =
  FullSimplify[ComplexExpand[
    Sum[UnitStep[pm1*pm2*pm3*pm4]*
        P4PMs2[\[Alpha], \[Beta], \[Gamma], \[Delta],
             \[CurlyPhi]1,\[CurlyPhi]2,\[CurlyPhi]3,\[CurlyPhi]4, pm1, pm2, pm3,
          pm4], {pm1, -1, 1, 2}, {pm2, -1, 1, 2}, {pm3, -1, 1, 2}, {pm4, -1,
        1, 2}]]          ]

SumP4s2Minus[\[Alpha]_, \[Beta]_, \[Gamma]_, \[Delta]_,\[CurlyPhi]1_,\[CurlyPhi]2_,\[CurlyPhi]3_,\[CurlyPhi]4_] =
  FullSimplify[ComplexExpand[
    Sum[UnitStep[-pm1*pm2*pm3*pm4]*
        P4PMs2[\[Alpha], \[Beta], \[Gamma], \[Delta],
             \[CurlyPhi]1,\[CurlyPhi]2,\[CurlyPhi]3,\[CurlyPhi]4, pm1, pm2, pm3,
          pm4], {pm1, -1, 1, 2}, {pm2, -1, 1, 2}, {pm3, -1, 1, 2}, {pm4, -1,
        1, 2}]]           ]



SumP4sPlus[\[Tau]_,\[Alpha]_, \[Beta]_, \[Gamma]_, \[Delta]_,\[CurlyPhi]1_,\[CurlyPhi]2_,\[CurlyPhi]3_,\[CurlyPhi]4_] =
  FullSimplify[ComplexExpand[
    Sum[UnitStep[pm1*pm2*pm3*pm4]*
        P4PMs[\[Tau] ,\[Alpha], \[Beta], \[Gamma], \[Delta],
             \[CurlyPhi]1,\[CurlyPhi]2,\[CurlyPhi]3,\[CurlyPhi]4, pm1, pm2, pm3,
          pm4], {pm1, -1, 1, 2}, {pm2, -1, 1, 2}, {pm3, -1, 1, 2}, {pm4, -1,
        1, 2}]]         ]

SumP4sMinus[\[Tau]_,\[Alpha]_, \[Beta]_, \[Gamma]_, \[Delta]_,\[CurlyPhi]1_,\[CurlyPhi]2_,\[CurlyPhi]3_,\[CurlyPhi]4_] =
  FullSimplify[ComplexExpand[
    Sum[UnitStep[-pm1*pm2*pm3*pm4]*
        P4PMs[\[Tau] ,\[Alpha], \[Beta], \[Gamma], \[Delta],
             \[CurlyPhi]1,\[CurlyPhi]2,\[CurlyPhi]3,\[CurlyPhi]4, pm1, pm2, pm3,
          pm4], {pm1, -1, 1, 2}, {pm2, -1, 1, 2}, {pm3, -1, 1, 2}, {pm4, -1,
        1, 2}]]          ]

(* The associated correlation values
 *)


P4PPMMGB[\[Alpha]_, \[Beta]_, \[Gamma]_, \[Delta]_,\[CurlyPhi]1_,\[CurlyPhi]2_,\[CurlyPhi]3_,\[CurlyPhi]4_] =
  FullSimplify[ComplexExpand[
    Sum[pm1*pm2*pm3*pm4*
        P4PM[\[Alpha], \[Beta], \[Gamma], \[Delta],
             \[CurlyPhi]1,\[CurlyPhi]2,\[CurlyPhi]3,\[CurlyPhi]4, pm1, pm2, pm3,
          pm4], {pm1, -1, 1, 2}, {pm2, -1, 1, 2}, {pm3, -1, 1, 2}, {pm4, -1,
        1, 2}]]           ]

(* Cos[\[Alpha] - \[Beta]] Cos[\[Gamma] - \[Delta]] *)


P4PPMMGBs2[\[Alpha]_, \[Beta]_, \[Gamma]_, \[Delta]_,\[CurlyPhi]1_,\[CurlyPhi]2_,\[CurlyPhi]3_,\[CurlyPhi]4_] =
  FullSimplify[ComplexExpand[
    Sum[pm1*pm2*pm3*pm4*
        P4PMs2[\[Alpha], \[Beta], \[Gamma], \[Delta],
             \[CurlyPhi]1,\[CurlyPhi]2,\[CurlyPhi]3,\[CurlyPhi]4, pm1, pm2, pm3,
          pm4], {pm1, -1, 1, 2}, {pm2, -1, 1, 2}, {pm3, -1, 1, 2}, {pm4, -1,
        1, 2}]]            ]

P4PPMMGBs[\[Tau]_,\[Alpha]_, \[Beta]_, \[Gamma]_, \[Delta]_,\[CurlyPhi]1_,\[CurlyPhi]2_,\[CurlyPhi]3_,\[CurlyPhi]4_] =
  FullSimplify[ComplexExpand[
    Sum[pm1*pm2*pm3*pm4*
        P4PMs[\[Tau] ,\[Alpha], \[Beta], \[Gamma], \[Delta],
             \[CurlyPhi]1,\[CurlyPhi]2,\[CurlyPhi]3,\[CurlyPhi]4, pm1, pm2, pm3,
          pm4], {pm1, -1, 1, 2}, {pm2, -1, 1, 2}, {pm3, -1, 1, 2}, {pm4, -1,
        1, 2}]]         ]


(********  correlation coefficients after selection  **********)

P4PPMMGBs2SELPM4[\[Alpha]_, \[Beta]_, \[Gamma]_, \[Delta]_, \[CurlyPhi]1_, \
\[CurlyPhi]2_, \[CurlyPhi]3_, \[CurlyPhi]4_] =
  Simplify[ComplexExpand[
      Sum[pm1*pm2*pm3*
          P4PMs2[\[Alpha], \[Beta], \[Gamma], \[Delta], \[CurlyPhi]1, \
\[CurlyPhi]2, \[CurlyPhi]3, \[CurlyPhi]4, pm1, pm2, pm3, pm4], {pm1, -1, 1,
          2}, {pm2, -1, 1, 2}, {pm3, -1, 1, 2}]]]


(* PLOTS *)

Plot[{SumP4Plus[\[Theta], 0, 0, 0], SumP4Minus[\[Theta], 0, 0, 0],
    SumP4Plus[\[Theta], 0, 0, 0] - SumP4Minus[\[Theta], 0, 0, 0]}, {\[Theta],
    0, Pi},
  PlotStyle -> {{Hue[0.65, 1, 1], Dashing[{0.04, 0.02}],
      Thickness[0.01]}, {Hue[0, 1, 1], Dashing[{0.04, 0.02, 0.005, 0.02}],
      Thickness[0.01]}, {Hue[0.5, 1, 0],
      Thickness[0.01]}, {Hue[0.2]}}, PlotRange -> {-1.03, 1.03},
  PlotRange -> {-1.03, 1.03}, Frame -> True, DefaultFont -> {"Times", 24},
  FrameLabel -> {"\[Theta] [rad]", "E(\[Theta])"}, AspectRatio -> 1,
  FrameTicks -> {{{0.0001, "0"}, \[Pi]/4, \[Pi]/2,
        3 \[Pi]/4, \[Pi]}, {-1, -1/2, {0.0001, "0"}, 1/2, 1}, None, None}]

Export["c:/mytex/2005-gtq-fr1-1.ps",Out[109],"EPS",ImageSize\[Rule]500]


Plot[{SumP4Plus[\[Theta],0,0,\[Pi]],SumP4Minus[\[Theta],0,0,\[Pi]],
    SumP4Plus[\[Theta],0,0,\[Pi]]-SumP4Minus[\[Theta],0,0,\[Pi]]},{\[Theta],0,Pi},
  PlotStyle -> {{Hue[0.65, 1, 1], Dashing[{0.04, 0.02}],
      Thickness[0.01]}, {Hue[0, 1, 1], Dashing[{0.04, 0.02, 0.005, 0.02}],
      Thickness[0.01]}, {Hue[0.5, 1, 0],
      Thickness[0.01]}, {Hue[0.2]}}, PlotRange -> {-1.03, 1.03},
  PlotRange\[Rule]{-1.03,1.03},Frame\[Rule]True,
  DefaultFont\[Rule]{"Times",24},
  FrameLabel\[Rule]{"\[Theta] [rad]","E(\[Theta])"},AspectRatio\[Rule]1,
  FrameTicks\[Rule]{{{0.0001,"0"},\[Pi]/4,\[Pi]/2,
        3 \[Pi]/4,\[Pi]},{-1,-1/2,{0.0001,"0"},1/2,1},None,None}]

Export["c:/mytex/2005-gtq-fr1-2.ps",Out[111],"EPS",ImageSize\[Rule]500]

Plot[{SumP4sPlus[\[Pi]/2, \[Theta], \[Theta], -\[Theta], \[Theta]],
    SumP4sMinus[\[Pi]/2, \[Theta], \[Theta], -\[Theta], \[Theta]],
    SumP4sPlus[\[Pi]/2, \[Theta], \[Theta], -\[Theta], \[Theta]] -
      SumP4sMinus[\[Pi]/
          2, \[Theta], \[Theta], -\[Theta], \[Theta]]}, {\[Theta], 0, Pi},
  PlotStyle -> {{Hue[0.65, 1, 1], Dashing[{0.04, 0.02}],
        Thickness[0.01]}, {Hue[0, 1, 1], Dashing[{0.04, 0.02, 0.005, 0.02}],
        Thickness[0.01]}, {Hue[0.5, 1, 0], Thickness[0.01]}, {Hue[0.2]}},
  PlotRange -> {-1.03, 1.03}, PlotRange -> {-1.03, 1.03}, Frame -> True,
  DefaultFont -> {"Times", 24},
  FrameLabel -> {"\[Theta] [rad]", "E(\[Theta])"}, AspectRatio -> 1,
  FrameTicks -> {{{0.0001, "0"}, \[Pi]/4, \[Pi]/2,
        3 \[Pi]/4, \[Pi]}, {-1, -1/2, {0.0001, "0"}, 1/2, 1}, None, None}]

Export["c:/mytex/2005-gtq-fr1-3.ps",Out[109],"EPS",ImageSize\[Rule]500]

Plot[{SumP4sPlus[\[Pi]/2, \[Theta], Pi/4, -\[Theta], \[Theta]],
    SumP4sMinus[\[Pi]/2, \[Theta], Pi/4, -\[Theta], \[Theta]],
    SumP4sPlus[\[Pi]/2, \[Theta], Pi/4, -\[Theta], \[Theta]] -
      SumP4sMinus[\[Pi]/2, \[Theta], Pi/4, -\[Theta], \[Theta]]}, {\[Theta],
    0, Pi}, PlotStyle -> {{Hue[0.65, 1, 1], Dashing[{0.04, 0.02}],
        Thickness[0.01]}, {Hue[0, 1, 1], Dashing[{0.04, 0.02, 0.005, 0.02}],
        Thickness[0.01]}, {Hue[0.5, 1, 0], Thickness[0.01]}, {Hue[0.2]}},
  PlotRange -> {-1.03, 1.03}, PlotRange -> {-1.03, 1.03}, Frame -> True,
  DefaultFont -> {"Times", 24},
  FrameLabel -> {"\[Theta] [rad]", "E(\[Theta])"}, AspectRatio -> 1,
  FrameTicks -> {{{0.0001, "0"}, \[Pi]/4, \[Pi]/2,
        3 \[Pi]/4, \[Pi]}, {-1, -1/2, {0.0001, "0"}, 1/2, 1}, None, None}]

Export["c:/mytex/2005-gtq-fr1-4.ps",Out[109],"EPS",ImageSize\[Rule]500]

Plot[{SumP4sPlus[\[Pi]/4, \[Theta], Pi/4, -\[Theta], \[Theta]],
    SumP4sMinus[\[Pi]/4, \[Theta], Pi/4, -\[Theta], \[Theta]],
    SumP4sPlus[\[Pi]/4, \[Theta], Pi/4, -\[Theta], \[Theta]] -
      SumP4sMinus[\[Pi]/4, \[Theta], Pi/4, -\[Theta], \[Theta]]}, {\[Theta],
    0, Pi}, PlotStyle -> {{Hue[0.65, 1, 1], Dashing[{0.04, 0.02}],
        Thickness[0.01]}, {Hue[0, 1, 1], Dashing[{0.04, 0.02, 0.005, 0.02}],
        Thickness[0.01]}, {Hue[0.5, 1, 0], Thickness[0.01]}, {Hue[0.2]}},
  PlotRange -> {-1.03, 1.03}, PlotRange -> {-1.03, 1.03}, Frame -> True,
  DefaultFont -> {"Times", 24},
  FrameLabel -> {"\[Theta] [rad]", "E(\[Theta])"}, AspectRatio -> 1,
  FrameTicks -> {{{0.0001, "0"}, \[Pi]/4, \[Pi]/2,
        3 \[Pi]/4, \[Pi]}, {-1, -1/2, {0.0001, "0"}, 1/2, 1}, None, None}]

Export["c:/mytex/2005-gtq-fr1-5.ps",Out[109],"EPS",ImageSize\[Rule]500]


Plot[{SumP4sPlus[\[Pi]/4, \[Theta], 0, -\[Theta], \[Theta]],
    SumP4sMinus[\[Pi]/4, \[Theta], 0, -\[Theta], \[Theta]],
    SumP4sPlus[\[Pi]/4, \[Theta], 0, -\[Theta], \[Theta]] -
      SumP4sMinus[\[Pi]/4, \[Theta], 0, -\[Theta], \[Theta]]}, {\[Theta], 0,
    Pi}, PlotStyle -> {{Hue[0.65, 1, 1], Dashing[{0.04, 0.02}],
        Thickness[0.01]}, {Hue[0, 1, 1], Dashing[{0.04, 0.02, 0.005, 0.02}],
        Thickness[0.01]}, {Hue[0.5, 1, 0], Thickness[0.01]}, {Hue[0.2]}},
  PlotRange -> {-1.03, 1.03}, PlotRange -> {-1.03, 1.03}, Frame -> True,
  DefaultFont -> {"Times", 24},
  FrameLabel -> {"\[Theta] [rad]", "E(\[Theta])"}, AspectRatio -> 1,
  FrameTicks -> {{{0.0001, "0"}, \[Pi]/4, \[Pi]/2,
        3 \[Pi]/4, \[Pi]}, {-1, -1/2, {0.0001, "0"}, 1/2, 1}, None, None}]

Export["c:/mytex/2005-gtq-fr1-6.ps",Out[109],"EPS",ImageSize\[Rule]500]

(*****************************)

(* GHZM states *)

psiGHZM = (1/ Sqrt[2]) (TensorProductVec[
          TensorProductVec[TensorProductVec[vm, vm], vm], vm] +
        TensorProductVec[TensorProductVec[TensorProductVec[vp, vp], vp], vp])

P4PMGHZM[x1_, x2_, x3_, x4_, x1pm_, x2pm_, x3pm_, x4pm_] =
    Simplify[Tr[
        DyadicProductVec[psiGHZM].JointProb4[x1, x2, x3, x4, x1pm, x2pm, x3pm,
             x4pm]]];

Simplify[Sum[
    P4PMGHZM[\[Alpha], \[Beta], \[Gamma], \[Delta], pm1, pm2, pm3,
      pm4], {pm1, -1, 1, 2}, {pm2, -1, 1, 2}, {pm3, -1, 1, 2}, {pm4, -1, 1,
      2}]]

(* Expectation *)
Simplify[Sum[
    pm1*pm2*pm3*pm4*
      P4PMGHZM[\[Alpha], \[Beta], \[Gamma], \[Delta], pm1, pm2, pm3,
        pm4], {pm1, -1, 1, 2}, {pm2, -1, 1, 2}, {pm3, -1, 1, 2}, {pm4, -1, 1,
      2}]]

(* Cos[\[Alpha]] Cos[\[Beta]] Cos[\[Gamma]] Cos[\[Delta]] +
  Sin[\[Alpha]] Sin[\[Beta]] Sin[\[Gamma]] Sin[\[Delta]] *)

(* Expectation for two particles (cf. Krenn & Zeilinger) *)

Simplify[Sum[
    pm1*pm2*P4PMGHZM[\[Alpha], \[Beta], \[Gamma], \[Delta], pm1, pm2, pm3,
        pm4], {pm1, -1, 1, 2}, {pm2, -1, 1, 2}, {pm3, -1, 1, 2}, {pm4, -1, 1,
      2}]]

(*
Export["c:/mytex/2005-gtq-fr1-1.ps", Out[28], "EPS", ImageSize -> 500]

http://mathworld.wolfram.com/HeavisideStepFunction.html
 *)

(* ~~~~~~~~~~~~~~~~~~~~~~~~~ plasticity ~~~~~~~~~~~~~~~~~~~~~~~ *)



sz[ t_ ] := (4/Pi )*
   Sum[ (-1)^n*Cos[(2 n + 1) (2*t + Pi/2)]/(2 n + 1), {n, 0, 18}];

Plot[sz[tt], {tt, 0, Pi}]

s2z[t_] := (1/2)*(-Cos[t] + Cos[2 t])

Plot[{-Cos[tt], s2z[tt]}, {tt, Pi/3, Pi/2}]



E241[t1_, t2_, t3_,  t4_] := (1/3) (2 Cos[t1 + t2 - t3 - t4] +       Cos[t1 - t2]*Cos[t3 - t4]);

Plot[{ E241[tt, Pi/4, -tt, tt], E241[tt, tt, -tt, tt],E241[tt, -tt, -tt, tt], E241[tt, -tt, -tt, 0], E241[-tt, -tt, Pi/4, tt]},
{tt, 0, Pi},
    PlotStyle -> {{Hue[0.65, 1, 1], Dashing[{0.04, 0.02}],
    Thickness[0.01]}, {Hue[0, 1, 1],
    Dashing[{0.04, 0.02, 0.005, 0.02}], Thickness[0.01]}, {Green,
    Thickness[0.01], Dashing[{0.02, 0.02}]}, {Orange, Thickness[0.01],
     Dashing[{0.001, 0.025}]}, {Magenta, Thickness[0.01]}},
 PlotRange -> {-1.03, 1.03}, PlotRange -> {-1.03, 1.03},
 Frame -> True,
 FrameLabel -> {Style["\[Theta] [rad]", FontSize -> 26],
   Style["E(\[Theta])", FontSize -> 26]}, AspectRatio -> 1,
 BaseStyle -> {FontFamily -> "Times", FontSize -> 24},
 FrameTicks -> {{{0.0001, "0"}, \[Pi]/4, \[Pi]/2,
    3 \[Pi]/4, \[Pi]}, {-1, -1/2, {0.0001, "0"}, 1/2, 1}, None, None}]

Export["c:/mytex/2009-bogoliubov09.ps", %, "EPS", ImageSize -> 500]

