'PARAM.INC

'****************************************************************************
'This file contains all the parameters of the magnet test.
'
'Zachary Wolf
'9/20/95
'****************************************************************************

'DEVICE PARAMETERS

'Define the GPIB addresses
'Don't use address 21, system controller
CONST hp3457addrP$ = "22"    'HP3457A DVM GPIB address
CONST mc4addrP$ = "14"       'MC4 Klinger stepping motor controller
CONST hp3458addrP$ = "24"    'HP3458 DVM GPIB address
CONST bit488addrP$ = "01"    'BIT488 gpib address
CONST pshp3457addrP$ = "23"  'PS HP3457A DVM GPIB address
CONST psdac488addrP$ = "11"  'PS DAC488 GPIB address

'SETUP PARAMETERS

'Define which measurement to perform
'The choices are BLVSX, BLVSI, GLVSI, SLVSI
CONST measurementP$ = "BLVSX"

'Wire voltage measurement parameters
CONST nsampleP% = 300        'the number of voltage samples per wire motion, want T/n > 1 plc
CONST tsamplebefsP! = .5     'sample time before wire motion in seconds
CONST tsampleaftsP! = 3!     'sample time after wire motion in seconds
CONST nmeasaveP% = 4         'the number of measurements for average
CONST nturnsP% = 1           'number of turns for wire ribbons

'Wire motion parameters
'Make sure all quantities convert to a whole number of steps
CONST dxcmP! = 1!            'distance to move the wire in cm
CONST velcmsP! = .4          'velocity during the wire motion in cm/sec
CONST acctimeP! = .5         'acceleration time in sec
CONST x1P$ = "W"             'controller channel for one stage
CONST x2P$ = "X"             'controller channel for other stage

'Power system configuration
CONST imagconfigP$ = "1"     'Kepco, 1, 2, 3, 12S, 12P, 123P, etc.

'Magnet current read parameters
CONST ips1hpchanP% = 1       'PS1 read channel
CONST ips2hpchanP% = 2       'PS2 read channel
CONST ips3hpchanP% = 3       'PS3 read channel
CONST imaghpchanP% = 0       'the HP3457 channel for the transductor voltage
'CONST vtransperimagP! = .4   'transductor voltage per magnet amp
CONST vtransperimagP! = .005 'transductor voltage per magnet amp
CONST imagnmeasaveP% = 4     'number of measurements for averaging

'Magnet current set parameters
CONST ips1dacchanP% = 1      'PS1 DAC channel
CONST ips2dacchanP% = 2      'PS2 DAC channel
CONST ips3dacchanP% = 3      'PS3 DAC channel
CONST imagpervdacP! = 120    'power supply amps per DAC volts
CONST imagtstableP% = 10     'the number of seconds to wait after a ramp
CONST imagramprateP! = 10    'power supply amperes per second during a ramp
CONST imaglimitP! = 410!     'absolute value of maximum current

'SATURATION, STANDARDIZATION, AND TEST CURRENTS

'Define the standardization cycle
CONST imagsaturateP! = 0!    'saturation current
CONST nstandcycleP% = 0!     'number of standardization cycles
CONST imagstandP! = 400!     'standardization current, negative means bipolar

'Put non-const parameters shared in the main module in a common block
COMMON SHARED /wire/ imagtestP!(), x0P!()

'Define the test currents
CONST nimagtestP% = 9        'number of test currents
DIM imagtestP!(1 TO nimagtestP%)
imagtestP!(1) = 0!
imagtestP!(2) = 50!
imagtestP!(3) = 100!
imagtestP!(4) = 150!
imagtestP!(5) = 200!
imagtestP!(6) = 250!
imagtestP!(7) = 300!
imagtestP!(8) = 350!
imagtestP!(9) = 400!

'WIRE POSITIONS

'Define the center position of each wire scan in cm
CONST nx0P% = 9                       'the number of measurement positions
DIM x0P!(1 TO nx0P%)                  'measurement center positions in cm
x0P!(1) = -4!
x0P!(2) = -3!
x0P!(3) = -2!
x0P!(4) = -1!
x0P!(5) = 0!
x0P!(6) = 1!
x0P!(7) = 2!
x0P!(8) = 3!
x0P!(9) = 4!