'PARAM.INC

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

'Define the GPIB addresses
'Don't use address 21, system controller
CONST pt2025addrP$ = "02"         'Metrolab PT2025 NMR teslameter
CONST gp3addrP$ = "16"            'Group3 teslameter GPIB address
CONST ls450addrP$ = "15"          'Lake Shore Model 450 Gaussmeter
CONST b9900addrP$ = "17"          'F. W. Bell 9900 Gaussmeter
CONST par5209addrP$ = "12"        'PAR 5209 lock-in amplifier
CONST sr850addrP$ = "04"          'Stanford Research 850 lock-in amplifier
CONST mc4addrP$ = "14"            'MC4 Klinger stepping motor controller
CONST cm2100addrP$ = "01"         'Compumotor 2100 indexer
CONST teletracaddrP$ = "03"       'Teletrac 14000 interferometer
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 XYMAPH, ZMAPH, ZMAPNMRH, ZMAPCOIL
CONST measurementP$ = "ZMAPCOIL"
'CONST measurementP$ = "ZMAPH"

'Define the measurement device being used
'The choices are GP3, LS450, B9900, GP3NMR, LS450NMR, PAR5209, SR850, NONE
'CONST measdeviceP$ = "PAR5209"
CONST measdeviceP$ = "SR850"
'CONST measdeviceP$ = "B9900"

'Define the motion device being used
'The choices are MANUAL, LEADSCREW, KLINGER, LINMOTOR, NONE
CONST movedeviceP$ = "MANUAL"

'Define the position reading device
'The choices are TELETRAC, NONE
CONST posreaddeviceP$ = "NONE"

'Field measurement parameters
CONST coilconstantP! = .02142     'Rotating coil constant for Btrans (T/V), V is 0 to peak
CONST hallrangeP% = 5             'Hall probe range, use manual for field values

'Motion parameters
CONST velcmsP! = 1!               'velocity during the wire motion in cm/sec
CONST acctimeP! = 1!              'acceleration time in sec
CONST tmovesettleP% = 3           'settling time after move in sec
CONST xaxisP$ = "W"               'x axis stage ID
CONST yaxisP$ = "X"               'y axis stage ID
CONST zaxisP$ = "Y"               'z axis stage ID

'Power system configuration
CONST imagconfigP$ = "IMAN"       'KEPCO, 1, 2, 3, 12S, 12P, 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! = .08       ''transductor voltage per magnet amp, not used for PS123
'CONST vtransperimagP! = .01       ''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% = 10          'the number of seconds to wait after a ramp
CONST imagramprateP! = 2          'power supply amperes per second during a ramp
CONST imaglimitP! = 900           'absolute value of maximum current

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

'Pass assigned values to the program
COMMON SHARED /param/ imagtestP!()

'Define the test currents
CONST nimagtestP% = 1             'number of test currents
DIM imagtestP!(1 TO nimagtestP%)

'Define the measurement positions in cm for X and Y, inches for Z

CONST nxposP% = 11                'the number of measurement positions
CONST xminP! = -1                 'starting x position
CONST dxP! = .2                   'step size (cm)

CONST nyposP% = 17                'the number of measurement positions
CONST yminP! = -1.6               'starting y position
CONST dyP! = .2                   'step size (cm)

CONST nzregionsP% = 1             'number of regions of constant step size; 1, 2, or 3

CONST zminP! = -10!               'starting Z position (cm)
CONST nzpos1P% = 34               'the number of measurement positions, region 1
CONST dz1P! = 2!                  'step size (cm) in region 1

CONST nzpos2P% = 3                'the number of measurement positions, region 2
CONST dz2P! = 1!                  'step size (cm) in region 2
CONST nzpos3P% = 2                'the number of measurement positions, region 3
CONST dz3P! = .5                  'step size (cm) in region 3

'Assign the test currents
imagtestP!(1) = 20