Chronicle/TimeLine/0709FirstPlasma/Shot4/rsrc/basicdiagn/Qedge.pl

#!/bin/perl

do "parameters.pl";



$MeanBt=`cat MeanBt`;
$MeanPlasmaCurrent=`cat MeanPlasmaCurrent`;

#Cite PhD Brotankova eq. 3.12 p. 24
open RESULT, ">Qedge";
printf RESULT "%4.1f",90.3*$MeanBt/($MeanPlasmaCurrent);
close RESULT;


exit;