Handling/DataAccess/SWtools/wget/4665/shot/analysis/Basics/0411ShotHomepage.ONN/OhmicHeatingPower.pl

#!/bin/perl

do "parameters.pl";



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




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


exit;