\File{expect.h},{22:00},{Dec 11 1997}
\L{\LB{\C{}\/* \$Id: expect.h,v 1.4 1997\/12\/12 03:00:45 bert Exp \$}}
\L{\LB{ * header for functions for calculation of probabilities and expectation values}}
\L{\LB{ *\/\CE{}}}
\L{\LB{}}
\L{\LB{\K{\#ifndef} \_EXPECT\_H}}
\L{\LB{\K{\#define} \_EXPECT\_H}}
\L{\LB{}}
\L{\LB{\K{\#include} \S{}\"complex.h\"\SE{}}}
\L{\LB{}}
\L{\LB{\C{}\/* prototypes *\/\CE{}}}
\L{\LB{}}
\L{\LB{\C{}\/* calculate expectation values *\/\CE{}}}
\L{\LB{\K{real} expect\_X (\K{complex} *pack, \K{long} n, \K{double} delta);}}
\L{\LB{\K{real} expect\_Y (\K{complex} *pack, \K{long} n, \K{double} delta);}}
\L{\LB{}}
\L{\LB{\C{}\/* calculate total probability *\/\CE{}}}
\L{\LB{\K{real} sum\_sq(\K{complex} *A, \K{long} n);}}
\L{\LB{\C{}\/* find maximum probability density *\/\CE{}}}
\L{\LB{\K{real} max\_sq(\K{complex} *A, \K{long} n);}}
\L{\LB{\C{}\/* overlap of two packets *\/\CE{} }}
\L{\LB{\K{complex} overlap(\K{complex} *A, \K{complex} *B, \K{long} n);}}
\L{\LB{}}
\L{\LB{\C{}\/* normalize total probability to 1 *\/\CE{}}}
\L{\LB{\K{void} normalize(\K{complex} *A, \K{long} n);}}
\L{\LB{}}
\L{\LB{\K{\#endif}}}
