#!/bin/perl
#Constants
$Pi=3.141592653;
$Mu0=4*$Pi*1e-7;
$kB=1.3806503e-23;
$eV=1.60217646e-19;
$RoomTemperature=300;#[K]
#Basics
$MajorRadius=0.4;
$MinorRadius=0.1;
$LimiterPosition=0.085;
$PlasmaVolume=$Pi*$LimiterPosition^2*2*$Pi*$MajorRadius;
#USBscopes
$LineCount=3000; #USBscopes DAS file line count
$TriggerLine=350; #plasma discharge is triggered at data row ~ 500
$DeltaT=1e-2; #[ms] DAS time
$DeltaTs=1e-5; #[s] DAS time
$Bt_calibration=0.00175; #[A/Vs] 09/2009, SUMTRAIC (Mr. P.Hacek)
$RogowskiCalibration=53; #[A/V(10us)] 03/2010, CASTOR calibration (Mr. F.Zacek), 10 us vzorkovani, p. Zacek uvadi 5.3 e6 A/Vs
$ChamberResistance=7.51e-3; #[Ohm] 03/2010, Shots 2016-2019
$ChamberInduktance=2.81e-7; #[H] 03/2010, Shots 2016-2019
#PlasmaDetect
$PlCurrentRise=1000; #[A]
$PlCurrentIncrTime=1e-3;
$PlCurrentSurv=1e-3;
#Others
$shotdir='/mnt/data2/srv/www/svoboda/golem/operation/shots'
