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

#!/bin/perl

do "parameters.pl";

$pressure=`cat ../Aktual_PfeifferMerkaVakua`;

open RESULT, ">StateEqElectronDensity";
printf RESULT "%4.1e",(($pressure/1000)/($kB*$RoomTemperature));
close RESULT;