#############################################################
# CT_SNR.TCL: CT signal to noise ratio
#############################################################
# Variable definition for ct_snr.tcl
#
set CTSNR   "$deltaCT
             $Mu_bgd
             [expr sqrt($NEQ)]
             $viewsCT
             0         \n";#	voxel size,  		\
                                effective linear atten. \
                                signal/noise, linear    \
                                number of proj. views   \
				printFlag (Flag=1 for labels)	 
#
# Execute ct_snr 
set in "$CTSNR"
if [catch {exec $BIN/ct_snr << $in} SNR_CT] {
        puts stderr "ERROR in CT_SNR:\n $SNR_CT"
} else {
	puts $SNR_CT
}
#
