Handling/DataAccess/SWtools/wget/4665/shot/analysis/Basics/0411ShotHomepage.ONN/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*abs($MeanBt/($MeanPlasmaCurrent));
close RESULT;


exit;