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

#!/bin/perl

do "parameters.pl";



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




open RESULT, ">OhmicHeatingPower";
    printf RESULT "%4.1f", $MeanUloop*$MeanPlasmaCurrent;
close RESULT;


exit;