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


exit;