#!/usr/local/bin/perl5

#mainM:   Main magnet current
#buckM:   Bucking magnet current
#abstanD: distance between the two magnets (in mm)

$abstanD = 120.75;
$mainM=`doocsget -c PITZ.MAGNETS/MAIN/PS1/SETPOINT`;
$buckM = 3.07 * $mainM * exp(-0.014 * $abstanD);
system `doocsput -c PITZ.MAGNETS/Bucking/PS2/SETPOINT -t 2 -d $buckM`