#!/usr/bin/perl
# cts_dipole_fast_degauss
# values for CTs at 14.01.2008 from Juliane Roensch
# This script is made to remove the remanent magnetic field from the dipole magnet at PITZ in a fast way.
# by Bert Schoeneich, 20.12.2007 10:25

# [PART 1] - list of params
$startcurrent=-3.00 ;  # current which to start with (Ampere)
$middlecurrent=+0.18 ; # current which is used in the middle (Ampere)
$endcurrent=+0.00 ;    # current which to end with (Ampere)

# [PART 2] - setting the startcurrents for the Dipole 
system "doocsput -c PITZ.CA/MAGNETS/CTS.DIPOLE/SETPOINT -t 2 -d $startcurrent" ; # set the current for the dipole
system "sleep 6" ;     # give time for reaching stationary state

# [PART 3] - setting the middlecurrents for the Quads 
system "doocsput -c PITZ.CA/MAGNETS/CTS.DIPOLE/SETPOINT -t 2 -d $middlecurrent" ; # set the current for the dipole
system "sleep 6" ;     # give time for reaching stationary state

# [PART 4] - setting the endcurrents for the Quads 
system "doocsput -c PITZ.CA/MAGNETS/CTS.DIPOLE/SETPOINT -t 2 -d $endcurrent" ; # set the current for the dipole
system "sleep 6" ;     # give time for reaching stationary state

# end