'PARAM.INC

'****************************************************************************
'This file contains all the parameters of the magnet test.  It also contains
'parameters defined in the program such as filenames.  Such parameters
'are put in common blocks.
'
'Zachary Wolf
'4/16/94
'****************************************************************************

'DATA AND LOG FILES

'Make file names common to all procedures
COMMON SHARED /filenames/ logfileP$, datfileP$, pltfileP$

'GPIB

'Make GPIB input and output files common to all procedures
COMMON SHARED /gpib/ gpibinP%, gpiboutP%

'Define the GPIB addresses
CONST hp3457addrP% = 22      'HP3457A DVM GPIB address
CONST cm2100addrP% = 0       'CM2100 indexer GPIB address

'TEST PARAMETERS

'Put the test parameters in a common block
COMMON SHARED /testparam/ magnameP$, operatorP$, runP$, commentP$

'DISTANCE SENSOR VOLATGE PARAMETERS

'Sensor transfer function
'CONST voltpermilP! = .1      'Capacitec sensors, 1V = 10 mils
CONST voltpermilP! = .0254    'Capacitec sensors, 1V = 39.37 mils

'Define the HP3457 channels for the sensors
CONST uochanP% = 1        'channel # for the upper outer sensor
CONST uichanP% = 2        'channel # for the upper inner sensor
CONST lichanP% = 3        'channel # for the lower inner sensor
CONST lochanP% = 4        'channel # for the lower outer sensor

'INCLINOMETER PARAMETERS

'HP3457 channel number and transfer function
CONST inclchanP% = 5                  'channel # for the inclinometer
CONST voltpermradP! = .01995928#      'volts per mrad from the inclinometer

'Z POSITION PARAMETERS

'Z parameters
CONST nzposP% = 36        'the number z positions
CONST z0inP! = 16.5       'the z position of the first measurement in inches
CONST zmag0inP! = 4!      'z0inP! in magnet coordinates
CONST ainP! = 4!          'acceleration in inches/sec/sec
CONST vinP! = 4!          'velocity in inches/sec
CONST dinP! = 5.75        'step distance in inches

'Linear motor parameters
CONST stepsperrevP& = 25000     '# steps per revolution (for a and v)
CONST stepsperinchP& = 12500    '# steps per inch

'MEASUREMENT PARAMETERS

'Measuring device
CONST larmoutinP! = 13.375     'distance from the linear motor to the outer sensors in inches
CONST larmininP! = 20.895      'distance from the linear motor to the inner sensors in inches
CONST garagegapmilP! = 2756!   'gap of the garage in mils
CONST winP! = 7.52             'horizontal distance between sensors in inches
CONST dgtargetwinP! = 16.6     'horizontal distance from outer gap to survey target wall side
CONST dgtargetainP! = 2.12     'horizontal distance from outer gap to survey target aisle side

'Magnet
CONST y0milP! = 16!          'relief in pole face in mils
CONST dbtwnballsinP! = 20!  'distance between support balls in inches
CONST lmaginP! = 210!       'length of the magnet in inches
CONST dbtwnfeetinP! = 116!  'distance between magnet feet in inches