SLAC Magnetic Measurements Date: 04-13-1995 Time: 09:05:21 Magnet Name: REDCOR Project: PEP II Injection Line Test Stand: Rotating Coil Stand 2 Measurement Coil: DC100 Operator: Phillip Radusewicz Run Number: 2 Comment: Standard Measurement, Repeat Standardization Currents (A): 6.0 -6.0 6.0 -6.0 6.0 -6.0 0.0 Test Currents (A): 0.0 1.0 2.0 3.0 4.0 5.0 6.0 5.0 4.0 3.0 2.0 1.0 0.0 -1.0 -2.0 -3.0 -4.0 -5.0 -6.0 -5.0 -4.0 -3.0 -2.0 -1.0 0.0 INTEGRATED DIPOLE STRENGTH VS CURRENT Double Coil: Effective Radius = 0 m, # Turns = 30 Average: # Rotations/Measurement = 10 , # Measurements = 4 Imag sigImag BL sigBL BL/I sigBL/I (A) (A) (Gm) (Gm) (Gm/A) (Gm/A) --------+-------- --------+-------- --------+-------- -0.009 0.000 0.68852 0.00042 -80.799 -0.051 1.026 0.000 0.94865 0.00052 0.924 0.001 2.044 0.000 2.45425 0.00058 1.201 0.000 3.062 0.000 4.02083 0.00181 1.313 0.001 4.078 0.000 5.61394 0.00452 1.377 0.001 5.096 0.000 7.19264 0.00070 1.411 0.000 6.113 0.000 8.76240 0.00099 1.433 0.000 5.095 0.000 7.71874 0.00033 1.515 0.000 4.078 0.000 6.53704 0.00063 1.603 0.000 3.061 0.000 5.27547 0.00042 1.723 0.000 2.043 0.000 3.94757 0.00061 1.932 0.000 1.026 0.000 2.56554 0.00027 2.500 0.000 -0.009 0.000 1.11767 0.00042 -125.920 -0.053 -1.027 0.000 0.50621 0.00046 -0.493 -0.000 -2.044 0.000 1.97500 0.00117 -0.966 -0.001 -3.062 0.000 3.53529 0.00044 -1.155 -0.000 -4.078 0.000 5.10929 0.00124 -1.253 -0.000 -5.096 0.000 6.68402 0.00087 -1.312 -0.000 -6.113 0.000 8.25492 0.00084 -1.350 -0.000 -5.095 0.000 7.20617 0.00104 -1.414 -0.000 -4.078 0.000 6.02660 0.00146 -1.478 -0.000 -3.061 0.000 4.76940 0.00171 -1.558 -0.001 -2.044 0.000 3.44311 0.00051 -1.685 -0.000 -1.027 0.000 2.06695 0.00165 -2.013 -0.002 0.008 0.000 0.65117 0.00041 77.226 0.062 SUMMARY OF THE CALCULATIONS AND CONVENTIONS USED Calculation of DL using a double coil (assumed flat): V1 = (Nturns * velocity * B1 * L)_1 + (Nturns * velocity * B1 * L)_2 = (Nturns1 * Rcoil1 * ang_freq * DL) + (Nturns2 * Rcoil2 * ang_freq * DL) = (Nturns1 * Rcoil1 + Nturns2 * Rcoil2) * ang_freq * DL If Nturns1 = Nturns2 == Nturns12, then V1 = Nturns12 * (Rcoil1 + Rcoil2) * ang_freq * DL Let Reff = Rcoil1 + Rcoil2, then V1 = Nturns12 * Reff * ang_freq * DL Or, DL = V1 / (Nturns12 * Reff * ang_freq) Calculation of the harmonics: The integrated radial field for the n'th harmonic at the coil radius is given by BLn(th) = BLn * cos(n*(th - THspole)) The coil voltage is V = Nturns * v_theta * B_r * L Vn(th) = Nturns * velocity * BLn(th) = Nturns * Rcoil * ang_freq * BLn * cos(n*(th - THspole)) The FFT gives Vn and PhiVn in the formula Vn(i) = Vn * cos(n*2pi*i/N + PhiVn) Then, Vn = Nturns * Rcoil * ang_freq * BLn PhiVn = - n * THspole Or, BLn = Vn / (Nturns * Rcoil * ang_freq) THspole = - PhiVn / n SLAC Magnetic Measurements Date: 04-13-1995 Time: 09:05:22 Magnet Name: REDCOR Project: PEP II Injection Line Test Stand: Rotating Coil Stand 2 Measurement Coil: DC100 Operator: Phillip Radusewicz Run Number: 2 Comment: Standard Measurement, Repeat Standardization Currents (A): 6.0 -6.0 6.0 -6.0 6.0 -6.0 0.0 Test Currents (A): 0.0 1.0 2.0 3.0 4.0 5.0 6.0 5.0 4.0 3.0 2.0 1.0 0.0 -1.0 -2.0 -3.0 -4.0 -5.0 -6.0 -5.0 -4.0 -3.0 -2.0 -1.0 0.0 HARMONICS MEASUREMENTS Date: 04-13-1995 Time: 09:21:38 Magnet Name: REDCOR Project: PEP II Injection Line Run Number: 2 FIELD HARMONICS Magnet Current, Imag = 2.043591 +- 1.31671E-06 A Coil Radius, Rcoil = .0175 m Coil # Turns, Nturns = 30 Average, # Rotations/Measurement = 10 , # Measurements = 4 N BLn sigBLn THspole sigTH BLn/BL1 sBLn/BL1 (Gm) (Gm) (deg) (deg) (%) (%) --- -------+------- -------+------- -------+------- 1 2.455 0.000 -82.81 0.00 100.000 0.000 2 0.008 0.000 45.97 0.29 0.335 0.001 3 0.008 0.000 37.75 0.15 0.346 0.005 4 0.000 0.000 12.95 4.97 0.015 0.004 5 0.005 0.000 17.74 0.27 0.212 0.005 6 0.000 0.000 12.71 12.75 0.010 0.003 7 0.000 0.000 5.95 4.66 0.015 0.005 8 0.006 0.000 -3.33 11.94 0.248 0.007 9 0.005 0.000 8.08 8.80 0.199 0.009 10 0.005 0.000 -0.30 8.06 0.186 0.003 11 0.000 0.000 -0.61 8.54 0.017 0.010 12 0.000 0.000 -0.37 13.85 0.011 0.002 13 0.000 0.000 -7.75 3.33 0.008 0.003 14 0.000 0.000 -2.54 7.88 0.006 0.001 15 0.000 0.000 -8.78 1.88 0.012 0.003 16 0.000 0.000 -6.16 1.48 0.006 0.002 Date: 04-13-1995 Time: 09:32:13 Magnet Name: REDCOR Project: PEP II Injection Line Run Number: 2 FIELD HARMONICS Magnet Current, Imag = 4.078295 +- 3.12683E-06 A Coil Radius, Rcoil = .0175 m Coil # Turns, Nturns = 30 Average, # Rotations/Measurement = 10 , # Measurements = 4 N BLn sigBLn THspole sigTH BLn/BL1 sBLn/BL1 (Gm) (Gm) (deg) (deg) (%) (%) --- -------+------- -------+------- -------+------- 1 5.610 0.002 -86.62 0.00 100.000 0.000 2 0.011 0.000 39.39 0.33 0.192 0.002 3 0.026 0.000 34.00 0.15 0.465 0.003 4 0.000 0.000 18.97 31.61 0.007 0.003 5 0.011 0.000 18.29 0.20 0.199 0.001 6 0.000 0.000 -0.87 23.56 0.006 0.002 7 0.000 0.000 4.30 3.42 0.006 0.003 8 0.005 0.000 10.63 12.97 0.087 0.003 9 0.004 0.000 0.75 6.53 0.064 0.004 10 0.004 0.000 -7.03 5.99 0.067 0.003 11 0.000 0.000 -6.54 2.60 0.008 0.002 12 0.001 0.000 -6.53 11.43 0.010 0.003 13 0.000 0.000 -3.63 5.91 0.003 0.001 14 0.000 0.000 0.21 6.95 0.005 0.001 15 0.000 0.000 5.15 9.44 0.007 0.003 16 0.000 0.000 -5.78 1.99 0.005 0.001 Date: 04-13-1995 Time: 09:42:49 Magnet Name: REDCOR Project: PEP II Injection Line Run Number: 2 FIELD HARMONICS Magnet Current, Imag = 6.112843 +- 2.920019E-06 A Coil Radius, Rcoil = .0175 m Coil # Turns, Nturns = 30 Average, # Rotations/Measurement = 10 , # Measurements = 4 N BLn sigBLn THspole sigTH BLn/BL1 sBLn/BL1 (Gm) (Gm) (deg) (deg) (%) (%) --- -------+------- -------+------- -------+------- 1 8.765 0.002 -87.66 0.01 100.000 0.000 2 0.014 0.000 35.70 0.17 0.154 0.001 3 0.045 0.000 32.58 0.06 0.514 0.001 4 0.001 0.000 39.83 1.88 0.010 0.001 5 0.017 0.000 18.48 0.12 0.197 0.002 6 0.000 0.000 20.43 5.36 0.006 0.001 7 0.000 0.000 2.77 3.30 0.005 0.002 8 0.004 0.000 6.54 8.10 0.048 0.002 9 0.003 0.000 -2.90 13.46 0.033 0.004 10 0.003 0.000 -1.93 11.56 0.038 0.003 11 0.001 0.000 -6.73 1.72 0.006 0.002 12 0.001 0.000 -6.91 11.88 0.009 0.002 13 0.000 0.000 -4.43 4.08 0.003 0.002 14 0.000 0.000 -1.57 4.22 0.004 0.001 15 0.000 0.000 -4.78 7.55 0.004 0.000 16 0.000 0.000 -1.99 5.53 0.005 0.001 SUMMARY OF THE CALCULATIONS AND CONVENTIONS USED Calculation of DL using a double coil (assumed flat): V1 = (Nturns * velocity * B1 * L)_1 + (Nturns * velocity * B1 * L)_2 = (Nturns1 * Rcoil1 * ang_freq * DL) + (Nturns2 * Rcoil2 * ang_freq * DL) = (Nturns1 * Rcoil1 + Nturns2 * Rcoil2) * ang_freq * DL If Nturns1 = Nturns2 == Nturns12, then V1 = Nturns12 * (Rcoil1 + Rcoil2) * ang_freq * DL Let Reff = Rcoil1 + Rcoil2, then V1 = Nturns12 * Reff * ang_freq * DL Or, DL = V1 / (Nturns12 * Reff * ang_freq) Calculation of the harmonics: The integrated radial field for the n'th harmonic at the coil radius is given by BLn(th) = BLn * cos(n*(th - THspole)) The coil voltage is V = Nturns * v_theta * B_r * L Vn(th) = Nturns * velocity * BLn(th) = Nturns * Rcoil * ang_freq * BLn * cos(n*(th - THspole)) The FFT gives Vn and PhiVn in the formula Vn(i) = Vn * cos(n*2pi*i/N + PhiVn) Then, Vn = Nturns * Rcoil * ang_freq * BLn PhiVn = - n * THspole Or, BLn = Vn / (Nturns * Rcoil * ang_freq) THspole = - PhiVn / n '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, 9/10/94 '**************************************************************************** 'GPIB PARAMETERS '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 bit488addrP% = 1 'the Kepco BIT488 GPIB address 'MEASUREMENT PARAMETERS 'Resistance and temperature measurement parameters CONST vmaghpchanP% = 4 'HP3457 magnet voltage channel CONST t1hpchanP% = 5 'HP3457 T1 temperature channel CONST t1P$ = "Magnet Coil" CONST t2hpchanP% = 6 'HP3457 T2 temperature channel CONST t2P$ = "Magnet Iron" CONST t3hpchanP% = 7 'HP3457 T3 temperature channel CONST t3P$ = "Ambient" CONST tbtwnmeassecP% = 60 '# seconds between RT measurements 'Magnet current set and measurement parameters CONST imaghpchanP% = 0 'HP3457 channel for the transductor voltage CONST vtransperimagP! = .4 'transductor voltage per magnet amp (10 V = 125 A transductor, 5 turns) CONST ibopramprateP! = 3! 'current ramp rate (A/s) CONST bit488vminP! = -20! 'the minimum Kepco bop supply voltage CONST bit488vmaxP! = 20! 'the maximum Kepco bop supply voltage CONST bit488iminP! = -20! 'the minimum Kepco bop supply current CONST bit488imaxP! = 20! 'the maximum Kepco bop supply current CONST bit488vlimP! = 20! 'the voltage magnitude limit in constant current mode CONST bit488ilimP! = 20! 'the current magnitude limit in constant voltage mode CONST tstableP% = 2! 'settling time after a ramp 'Coil voltage measurement parameters CONST coil1hpchanP% = 1 'HP3457 channel # for coil 1 voltage CONST coil12hpchanP% = 2 'HP3457 channel # for coils 1 and 2 in series CONST freqhpchanP% = 3 'HP3457 channel # for the coil frequency CONST nsampleP% = 64 'the number of voltage samples per revolution CONST nrotaveP% = 10 'the number of coil rotations for V average CONST nmeasaveP% = 4 'the number of measurements for B average CONST nhardisplayP% = 16 'the number of harmonics to print out < nsampleP%/2 'Coil parameters CONST nturnscoil1P% = 30 'number of turns on measurement coil 1 CONST nturnscoil12P% = 30 'number of turns on measurement coil 1 and 2 CONST rcoil1P! = .0175 'radius of coil 1 in m 'CONST rcoil12P! = .0268618 'effective radius of coils 1 and 2 in series in m 'COMMON BLOCKS 'Coil COMMON SHARED /coil/ coilhpchanP%, rcoilP!, nturnscoilP% 'Put the test parameters in a common block COMMON SHARED /testparam/ magnameP$, projectP$, teststandP$, coilnameP$, operatorP$, runP$, commentP$ 'Make file names common to all procedures COMMON SHARED /filenames/ logfileP$, rawfileP$, rtdatP$, dldatP$, dlpltP$, hardatP$, harpltP$ 'Put the desired standardization and measurement currents in a common block COMMON SHARED /currents/ imagstandP!(), imagtestP!(), imagharP!() 'Fill test parameters projectP$ = "PEP II Injection Line" teststandP$ = "Rotating Coil Stand 2" coilnameP$ = "DC100" 'CURRENTS 'Define the standardization cycle CONST nimagstandP% = 7 'the number of standardization currents DIM imagstandP!(1 TO nimagstandP%) 'the current array imagstandP!(1) = 6! 'standardization currents imagstandP!(2) = -6! imagstandP!(3) = 6! imagstandP!(4) = -6! imagstandP!(5) = 6! imagstandP!(6) = -6! imagstandP!(7) = 0! 'Define the test currents CONST nimagtestP% = 25 'number of measurement currents DIM imagtestP!(1 TO nimagtestP%) 'the current array imagtestP!(1) = 0! 'GL vs I currents imagtestP!(2) = 1! imagtestP!(3) = 2! imagtestP!(4) = 3! imagtestP!(5) = 4! imagtestP!(6) = 5! imagtestP!(7) = 6! imagtestP!(8) = 5! imagtestP!(9) = 4! imagtestP!(10) = 3! imagtestP!(11) = 2! imagtestP!(12) = 1! imagtestP!(13) = 0! imagtestP!(14) = -1! imagtestP!(15) = -2! imagtestP!(16) = -3! imagtestP!(17) = -4! imagtestP!(18) = -5! imagtestP!(19) = -6! imagtestP!(20) = -5! imagtestP!(21) = -4! imagtestP!(22) = -3! imagtestP!(23) = -2! imagtestP!(24) = -1! imagtestP!(25) = 0! 'Define the test currents for harmonics printouts 'Note that the currents listed must be test currents to get a printout CONST nimagharP% = 3 'number of currents for harmonics printout DIM imagharP!(1 TO nimagharP%) 'the current array imagharP!(1) = 2! 'harmonics printout currents imagharP!(2) = 4! imagharP!(3) = 6!