'PARAM.INC

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

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

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

'Wire voltage measurement parameters
CONST nsampleP% = 160             '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% = 10               'number of turns for wire ribbons

'Wire motion parameters
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$ = "12S"        'KEPCO, 1, 2, 3, 12S, 12P, 13P, 123P, IDAC, IDACHR, IMAN, IVAX, etc.

'Magnet current read parameters
CONST imagnmeasaveP% = 4          'number of measurements for averaging
CONST imaghpchanP% = 0            ''the HP3457 channel for the transductor voltage, not used for PS123
CONST vtransperimagP! = .4        ''transductor voltage per magnet amp, not used for PS123

'Magnet current set parameters
CONST imagdacchanP% = 1           ''DAC488 & HR channel to control a PS, not used for PS123, KEPCO
CONST imagpervdacP! = 1!          ''power supply amps per DAC volts, not used for PS123, KEPCO
CONST imagtstableP% = 30          'the number of seconds to wait after a ramp
CONST imagramprateP! = 10         'power supply amperes per second during a ramp
CONST imaglimitP! = 710!          'absolute value of maximum current

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

'Put the current arrays in a common block, they can not be made const
COMMON SHARED /testcurrents/ imagtestP!()

'Put the position arrays in a common block, they can not be made const
COMMON SHARED /xpositions/ x0P!()

'Define the test currents
CONST nimagtestP% = 20            'number of test currents
DIM imagtestP!(1 TO nimagtestP%)
imagtestP!(1) = 50!
imagtestP!(2) = 100!
imagtestP!(3) = 150!
imagtestP!(4) = 200!
imagtestP!(5) = 250!
imagtestP!(6) = 300!
imagtestP!(7) = 350!
imagtestP!(8) = 400!
imagtestP!(9) = 425!
imagtestP!(10) = 450!
imagtestP!(11) = 475!
imagtestP!(12) = 500!
imagtestP!(13) = 525!
imagtestP!(14) = 550!
imagtestP!(15) = 575!
imagtestP!(16) = 600!
imagtestP!(17) = 625!
imagtestP!(18) = 650!
imagtestP!(19) = 675!
imagtestP!(20) = 700!

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

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!