#!/bin/perl

do "parameters.pl";

$pressure=`cat ../../../Aktual_PfeifferMerkaVakua`;

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