#!/bin/perl

do "parameters.pl";

unless ( -e 'PlasmaStart' ) {system ("echo '0'>Plasma")};
unless ( -e 'PlasmaEnd' ) {system ("echo '0'>Plasma")};

if ( abs(`cat UloopMax`) < 1.0 ){system ("echo 'Failure (UloopMax < 1V)'>Plasma");exit;};
#if ( abs(`cat UloopMax`) >= 30){system ("echo 'Failure (UloopMax >=30V)'>Plasma");exit;};#saturation
if ( abs(`cat dIdt_rogMax`) < 0.1 ){system ("echo 'Failure (dIdt_rogMax < 0.1V)'>Plasma");exit;};
#if ( abs(`cat dIdt_rogMax`) ==3 ){system ("echo 'Failure (dIdt_rogMax == 3V)'>Plasma");exit;};#saturation
if (abs( `cat MeanUloop`) < 0.3 ){system ("echo 'Failure(MeanUloop) < 0.3V)'>Plasma");exit;};
if (abs( `cat BtMax`) < 0.01 ){system ("echo 'Failure(BtMax< 0.01T)'>Plasma");exit;};
if ( abs(`cat MeanBt`) < 0.01 ){system ("echo 'Failure(MeanBt< 0.01T)'>Plasma");exit;};
#if ( `cat TotalCharge` < 0.0 ){system ("echo 'Failure(TotalCharge < 0 C)'>Plasma");exit;};