#!/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;