Chronicle/TimeLine/0709FirstPlasma/Shot17withPhotodiode/rsrc/basicdiagn/ElectronTemperature.pl

#!/bin/perl

do "parameters.pl";



$MeanUloop=`cat MeanUloop`;
$MeanPlasmaCurrent=`cat MeanPlasmaCurrent`;

#Ref: PhD Brotankova eq. 3.21 p. 26
open RESULT, ">ElectronTemperature";
printf RESULT "%4.1f",89.8*($MeanPlasmaCurrent/$MeanUloop)^(2/3);
close RESULT;


exit;