NBSIR 83-1697

2.0 GHZ TO 4.0 GHZ AUTOMATED

RADIOMETER OPERATION AND

SERVICE MANUAL

George J. Counas

National Bureau of Standards

U.S. Department of Commerce

Boulder, Colorado 80303

January 1984

RATIONAL BUREAU OF STANDARDS

LIBRARY

NBSIR 83-1697

2.0 GHZ TO 4.0 GHZ AUTOMATED

RADIOMETER OPERATION AND

SERVICE MANUAL

George J. Counas

Electromagnetic Fields Division

National Engineering Laboratory

National Bureau of Standards

U.S. Department of Commerce

Boulder, Colorado 80303

January 1984

U.S. DEPARTMENT OF COMMERCE, Malcolm Baldrige, Secretary

NATIONAL BUREAU OF STANDARDS, Ernest Ambler, Director

CONTENTS

PAGE

ABSTRACT 1

1 . INTRODUCTION 2

2. GENERAL THEORY OF OPERATION.... 6

A. MEASUREMENT PHILOSOPHY 6

B. DESCRIPTION OF THE MEASUREMENT SYSTEM 6

C. A MEASUREMENT SEQUENCE 21

3. OPERATING INSTRUCTIONS ....26

A. EQUIPMENT PREPARATION 26

1. POWER OFF INSPECTION AND SET-UP .....26

2. POWER ON PROCEDURES AND SYSTEM WARM-UP.. 27

B. LOADING AND EXECUTING THE MEASUREMENT PROGRAM ...27

C. MEASUREMENT COMPLETION AND SYSTEM SHUT-DOWN 30

4 . SOFTWARE 3

A. GENERAL OVERVIEW........ 32

B . MATRICES 36

C. NOISE EQUATIONS AND THEIR APPLICATION TO THE AUTOMATED

RADIOMETER 50

5. MAINTENANCE 61

A. EQUIPMENT DESCRIPTION 61

B. SYSTEM CHECKS . 62

C. COMPONENT DESCRIPTION AND TECHNICAL INFORMATION 65

1. SWITCH DRIVER MODULES 65

- i i i -
CONTENTS (continued)

PAGE

1. SWITCH DRIVER MODULES (continued) 65

a. Power Supplies and Switches 66

b. Card 110, Decoder Card 66

c. Card 210, Decoder Card * 68

d. Switch Driver Cards 75

e. 117 Output Display Card Operation and

Adjustment 81

2. INTERCONNECTION AND WIRING DIAGRAMS 89

3. PARTS LISTS 124

ACKNOWLEDGMENTS 134

REFERENCES 135

APPENDIX I PORT ASYMMETRY MEASUREMENTS 136

APPENDIX II PROGRAM LISTINGS AND VARIABLE CROSS REFERENCE

TABLES 142

A. PROGRAM RAD7EF.. 143

- i V-
LIST OF ILLUSTRATIONS

PAGE

FIGURE 1 AUTOMATED RADIOMETER SIMPLIFIED DIAGRAM.... 3 FIGURE 2 SIMPLIFIED BLOCK DIAGRAM OF NOISE MEASUREMENT SYSTEM..

FIGURE 3 FUNCTIONAL DIAGRAM OF THE AUTOMATED RADIOMETER 9

FIGURE 4 DETAILED BLOCK DIAGRAM 2-4 RADIOMETER il

FIGURE 5 Coaxial Cryogenic Noise Standard 13

FIGURE 6 6-PORT REFLE G TOM ETE R ......15

FIGURE 7 AUTOMATED RADIOMETER OUTPUT AND 30/60 MEASUREMENT

SECTION 1 8

FIGURE 8 AUTOMATED RADIOMETER (MARCH 1 983 ) 22

FIGURE 9 MAJOR PROGRAM SEGMENTS PROGRAM RAD 7 E F ....31

FIGURE 10 110-210 DECODER CARD SCHEMATIC DIAGRAM 72

FIGURE 11 110-210 DECODER CARD PARTS PLACEMENT .....73

FIGURE 12 SN 7442 DECODER TRUTH TABLE 7 4

FIGURE 13 111-114 SWITCH DRIVER CARD SCHEMATIC DIAGRAM ...76

FIGURE 14 SWITCH DRIVER CARD PARTS PLACEMENT...... 77

FIGURE 15 TRANSCO SWITCH DRIVER 79

FIGURE 16 TRANSCO SWITCH DRIVER PARTS PLACEMENT .80

FIGURE 17 117 OUTPUT DISPLAY CARD SCHEMATIC DIAGRAM.. 86

FIGURE 18 117 OUTPUT DISPLAY CARD PARTS PLACEMENT..... ....87

FIGURE 19 117 OUTPUT DISPLAY CARD FRONT PANEL CONNECTIONS ...... 88

FIGURE 20 POWER METER WIRING DIAGRAM AND SCANNER C ONN E CT I ON S . . . 9

FIGURE 21 NOISE STANDARDS WIRING DIAGRAM AND SCANNER

CONNECTIONS . 93

FIGURE 22 SYSTEM CABLE INTERCONNECTION DIAGRAM.. 94

- V-
LIST OF ILLUSTRATIONS (continued)

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

PAGE

23 PIN CONNECTIONS FOR J 1 04 SWITCH DRIVER MODULE INPUT... 95

24 PIN CONNECTIONS FOR J 1 0 2 SWITCH DRIVER MODULE INPUT... 96

25 COMPLETE WIRING DIAGRAM FOR J 102 . .

26 J1 10 DECODER INPUT AND OUTPUT CONNECTION S 98

27 Jill SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS . . 99

28 J1 12 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS . 100

29 J 1 1 3 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS . 101

30 J1 14 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS . 102

31 J 1 1 5 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS . 103

32 J1 16 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS . 104

33 J 1 1 7 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS .105

34 J 2 0 2 SWITCH DRIVER TO SWITCH CABLE CONNECTIONS 106

35 SWIT CH DRIVER TO TRANSCO SWITCHES S 2 6 A , S26B, S26,

S 2 6 D ,

36 J 2 0 4 COMPUTER TO SWITCH DRIVER CONNECTIONS 108

37 J2 10 DECODER. CARD I NPUT AND OUTPUT1 CONNECTIONS 109

38 J 2 1

SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS .110

39 J 2 1 2 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS .111

40 J 2 1 3 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS .112

41 J 2 1 4 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS .113

42 J2 17 •SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS . 1 1

43 J2 18 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS .115

44 J2 19 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS .116

45 J 2 2 0 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS .117

- VI -
LIST OF ILLUSTRATIONS (continued)

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

FIGURE

PAGE

46 CONNECTIONS AND CONTROL FUNCTIONS J202 1 18

47 SWITCH CONTROL FUNCTIONS AND CONNECTIONS 119

48 ROTARY SWITCH CONTROL FUNCTIONS AND CONNECTIONS 120

49 INSTRUMENT COUPLER OUTPUT J3A 121

50 INSTRUMENT COUPLER OUTPUT J3B 122

51 6-PORT OUTPUT AMPLIFIER 123

1A SYSTEM PORT SWITCHES USED IN ASYMMETRY TESTS 138

2 A SWITCH ASYMMETRY NS/NX 140

- v i i -
LIST OF TABLES

PAGE

TABLE 1 C MATRIX. 38

TABLE 2 Z MATRIX...... 42

TABLE 3 F MATRIX 46

TABLE 4 COMPUTER TO SWITCH DRIVER CONTROL VIA INSTRUMENT

COUPLER 1 69

TABLE 5 COMPUTER TO SWITCH DRIVER CONTROL VIA INSTRUMENT

COUPLER 2 70

TABLE 6 SYSTEM CABLE S —IN STRUMENTS TO SCANNER 89

TABLE 7 MANUFACTURERS 'CODE TABLE 125

TABLE 8 PARTS LIST FOR SWITCH DRIVER MODULE COMPONENTS 128

- vi i 1 -
IMPORTANT NOTICE

The specific components selected for the system were chosen

on the basis of suitability, availability, and cost at the time

of procurement. They do not necessarily represent the only

possible choice or even the best choice. The National Bureau of

Standards states only that they were used in the equipment

described here. Substitution of nominally equivalent components

meeting the same specification should cause no difficulty;

however NBS has not tested all such possible choices.

2.0 GHZ TO 4.0 GHZ AUTOMATED RADIOMETER

OPERATION AND SERVICE MANUAL

BY

GEORGE J. COUNAS

The equipment described by this manual is the 2.0 to 4.0 GHz

subsystem of the automated radiometer. This section of the

multiband automated radiometer is a coaxial total power

radiometer which implements a six-port reflectometer for

impedance characterization and correction and utilizes a newly

developed broadband cryogenic noise standard. NBS Noise

measurement capability in this frequency band has been expanded

by the addition of this system which adds continuous frequency

coverage to existing services along with the capability to

measure cryogenic noise sources. This manual describes the

2.0 to 4.0 GHz frequency band of the NBS automated radiometer and

provides operation and service information.

Key words: automated; broadband cryogenic noise standard; six-port

reflectometer; total power radiometer.

1
1 . INTRODUCTION

An intensive effort has been made to update the NBS noise

measurement services to capitalize on the technological advances

made in computer aided measurements in recent years. A noise

measurement system has been designed to provide noise

measurement services in the following frequency ranges: (1) 30

and 60 MHz, (2) 0.35 to 0.50 GHz, (3) 0.5 to 1.0 GHz, (4) 1.0 GHz

to 2.0 GHz, (5) 2.0 to 4.0 GHz, (6) 4.0 to 8.0 GHz, (7) 8.0 to

12.0 GHz, and (8) 94.0 GHz. The system described here is coaxial

except for the last section listed which is constructed in the

WR-10 waveguide size. Refer to figure 1 which is a simplified

block diagram of the system as it will exist when all bands are

completed. The 30 and 60 MHz automated radiometer shown at the

bottom of the figure was completed in 1981 [1] and the 2.0 to

4.0 GHz section of the NBS automated radiometer has now been

constructed. Development of all other bands shown is in

progress

Although the text of this manual will deal principally with

the 2.0 GHz to 4.0 GHz frequency band of the automated

radiometer, some documentation of the instrumentation used with

the other frequency bands shown in Figure 1 will be included.

This will provide continuity and ready access when all bands are

comp le t ed . Prior to the installation of the 2 to 4 GHz automated

radiometer described in this manual, noise calibration services

in this frequency band have relied on the manually tuned,

2
Nzo0) 3

AUTOMATED

RADIOMETER

SIMPLIFIED

DIAGRAM
mod if ied , switching radiometer. This modif ied switching

radiometer is a precision noise measurement system which provides

an accurate determination of the noise temperature of the device

(noise source) under test [2,3]. However, in its present form,

this type of noise measurement system has some limitations. Some

of these are summarized as follows:

(1

)

It has been necessary to use a transfer standard to

compare the device being calibrated with the primary

noise standard. This has limited the frequency

coverage to those selected frequencies at which the

transfer standard was calibrated.

(2) The present switching radiometer system is not able to

measure cryogenic noise standards.

(3) Since the switching radiometers are constructed in a waveguide configuration, coaxial measurements can be

made only at reduced accuracy because of adaptor

uncertainties or not at all if the adaptor uncertainty

cannot be determined.

(4) Because the switching radiometers are manually tuned

and operated, measurements made with these systems

take approximately four times longer than those made

with the automated radiometers.

With the addition of the 2.0 to 4.0 GHz automated

radiometer, henceforth referred to as the automated radiometer,

the above mentioned limitations have been eliminated. The

automated radiometer provides for direct comparison of the noise

source being measured with broadband cryogenic and ambient

4
standards, thus eliminating the need for transfer standards with

their calibration uncertainties and frequency limitations.

Physically incorporated into this radiometer is a 6-port

reflectometer which is used to measure the complex impedances

associated with the device under test and the measurement system

itself. Using this impedance information, computer correction of

mismatch errors is accomplished and this eliminates the need for

tuning. Since the noise standards used to make measurements are

broadband and mismatch error can now be corrected without tuning,

measurement of noise sources at any desired frequency in the band

is now possible. The standards and the system measurement ports

are coaxial; this permits the calibration of coaxial noise

sources without the adaptor uncertainties described for the

waveguide system. This system could be used to calibrate

waveguide noise sources without using an adaptor if a waveguide

cryogenic standard were implemented. In addition, the automated

radiometer, as its name implies, is an automatic system and, once

certain required calibrations are performed, can make consistent

measurements without operator intervention. This speeds up the

measurement process without sacrificing accuracy, allows data

acquisition not possible with a manual system, and makes possible

a more in-depth statistical analysis.

5
2. GENERAL THEORY OF OPERATION

A. MEASUREMENT PHILOSOPHY

Since the automated radiometer has the capability to measure

and store impedance information, software and measurement

sequences have been designed to take full advantage of this fact.

The emphasis is on the automatic correction of all possible

errors and the automatic evaluation of system performance during

the normal course of measuring a noise source. Correction of

mismatch error, port asymmetry (efficiency) error, check standard

evaluation, and a check of system linearity are accomplished

automatically in a normal measurement sequence.

B. DESCRIPTION OF THE MEASUREMENT SYSTEM

Figure 1 shows that the 2.0 to 4.0 GHz automated radiometer

is but one segment of a multiband measurement system. The 30 and

60 MHz coaxial system and the WR-10 waveguide system share

hardware with the other bands but have completely different

measurement ports and use measurement procedures which are

outside the scope of this manual. The 30 and 60 MHz system

manual is already published and the WR-10 waveguide system will

be covered in a separate manual when it is completed.

Figure 1 is a simplified block diagram of the entire

measurement system. The only band to be covered in detail at this

time is the 2. 0-4.0 GHz band but the operation of the other

bands is similar and hardware and software are shared whenever

possible.

Figure 2 is a functional block diagram of the noise

measurement system reduced to its simplest form. To calibrate

6
z

£

o

7

SIMPLIFIED

BLOCK

DIAGRAM

OF

NOISE

MEASUREMENT

SYSTEM
or find the output noise temperature of the device under test

(D.U.T.), the output noise powers of this device, the ambient

standard, and the cryogenic standard are amplified, filtered, and

measured in sequence. Because the noise temperatures of the two

standards are accurately known, the noise equations detailed on

pages 50-53 of this manual can be used to compare the output

noise powers and noise temperatures of the two standards with the

output noise power of the D.U.T. resulting in the determination

of the output noise power of this device. These noise power

comparisons are made by using the automated radiometer as described in the following paragraphs. In the ensuing discussion

all switches are under computer control unless otherwise noted.

As can be seen in Figure 1, the frequency band of interest is

selected by actuation of the input switches. At this time, the

block labeled 6-Port Calibration is accessed by the switch

shown. The six port reflectometer is calibrated and then used to

measure the complex impedance of the system input ports, the

D.U.T. , and the standards. This information is stored by the

computer and then the input source is switched to the noise

measurement position as shown in the figure. In the proper

sequence then, the noise power from the D.U.T. and the standards

is amplified at the microwave frequency, mixed with power from

the local oscillator to obtain the intermediate frequency (I.F.),

filtered, amplified again, and measured. To simplify the diagram,

both the standards and the D.U.T. are represented by the single

block at the left (labeled D.U.T.). The noise temperature of the

D.U,T. is then calculated by the computer. This calculated noise

temperature is corrected for mismatch by using the complex

8
functional

diagram

of

the

automated

radiometer

ZHH f

n

CO

Ui

cc3

o

u.

9

MEASUREMENT

PORTS
impedance information stored earlier, and the final noise

temperature of the D.U.T. is tabulated by the computer along

with a tabulation of known system errors and measurement

statistics. Figure 3 is a functional diagram showing the

automated radiometer in more detail. The 2.0 to 4.0 GHz 6-port

reflectometer, the band switches, the switching between the

standards and the D.U.T. , and more detail of the amplifying,

mixing, and power measurement is shown. In this system, the

local oscillator is a synthesizer which is tuned to the

calibration frequency by the computer. Only the noise power that

is within the bandpass of the I.F. amplifier and filter is

measured and so the local oscillator frequency determines the

measurement frequency. Refer to Figxire 4. This is a complete

block diagram of the automated radiometer and shows the

peripheral equipment utilized. As this figure shows, this is a complex system even with the band sw itching eliminated and only

the 2 to 4 GHz, and the 30 and 60 MHz systems represented. For

explanation purposes, the system can be divided into 4 main parts

which are: (1) the switching and noise source section, (2) the 6 -

port reflectometer section, (3) the amplifying, mixing, and power

measurement section, and (4) the instrument and control section.

(1) The Switching and Noise Source Section

The switching section provides for computer control of band

selection switches and the other measurement system switches

shown in the figure including those which provide for

configuration of the system for either impedance measurement or

noise measurement. This section also provides for control of the

system output level via a programmable attenuator and 3 d B

10
PROQAMMABLE

ATTEN.

EEE 488 BUS

DIAGRAM 2-4

1 1

DETAILED BLOCK RADIOMETER
reference attenuator step. Selection of either a 5 MHz or 30 MHz

I.F. frequency for the measurement of noise temperature is also

provided. These I. F. frequencies will be discussed later.

As described earlier, the measurement of the noise

temperature of a device is accomplished by comparing the noise

power output of the D.U.T. with the noise power output of two

standard noise sources. The D.U.T. is usually either a noise

diode network with an effective noise temperature of about 10,000

K, or a load which is actually heated to about 377 K or cooled

with liquid nitrogen to about 77 K. These temperatures are

within the normal range of the automated radiometer. During a measurement sequence, this device under test is compared to the

two noise standards described in the following paragraphs.

The ambient standard is a commercial coaxial load. Long

term temperature stability of this load is achieved by encasing

it in a water jacket through which is pumped water from a small

reservoir. Water from this same source is applied to jackets in

contact with the measurement ports and other temperature

sensitive system components. This locks them to the same ambient

temperature. The entire measurement system is mounted on a massive aluminum table and thermal equilibrium is achieved by

piping the water through jackets which are thermally bonded to

the table and the measurement system components. The temperature

of the ambient load which is used in making noise calculations is

found by monitoring the temperature of this device with a calibrated thermometer.

The cryogenic standard [4], shown in Figure 5, is a coaxial

load located in a thermally isolated nitrogen bath. This load is

12
1 3

COAXIAL

CRYOGENIC

NOISE

STANDARD

FIGURE

5
continually bathed in liquid nitrogen which keeps its effective

noise temperature locked to that of liquid nitrogen (nominally 77

K). The level of the nitrogen in the standard must be kept

above the load so that the load is always completely immersed.

This level is checked by watching the float shown in the drawing

(at the upper left of the side view) and when it reaches a predetermined position, more nitrogen is added. The time

interval between fillings is in excess of 4 hours. The

temperature of the load can be checked periodically with a thermocouple which can be attached for test purposes; however,

the device must be removed during measurements. Both standards

are broadband which allows them to be used for noise comparison

without tuning; this, along with the 6-port ref lectometer , is

responsible for the flexible frequency coverage offered by the

automated radiometer.

(2) The 6-Port Ref lectometer Section

The 6-port reflectometer section replaces most of the

measurement system when it is selected and is totally

disconnected from the system when it is not selected. Again, the

purpose of the 6-port reflectometer section is to provide the

capability of measuring the complex reflection coefficient

(gamma) of the device under test, the measurement system itself,

and the standards when necessary; this mismatch information is

stored until needed for making corrections. Figure 6 is a block

diagram of the modified 6-port reflectometer. The reflectometer

is installed in such a way that the noise system preamplifier

becomes a part of the reflectometer when it is used. This

relationship is shown in Figure 4. The detailed theory of

14
D M M

6-PORT REFLECTOMETE

FIGURE 6

1 5
operation of the 6-port is beyond the scope of this manual and is

covered rigorously in other publications [5,6],

In the following brief summary, it will be helpful to refer

to the system block diagram in Figure 4 and the the 6-port block

diagram in Figure 6. Power at the frequency of interest is

coupled to the 6-port from the synthesizer. The first two

couplers at the bottom of the 6-port diagram are simply 3 dB

power splitting 'couplers; the three couplers at the top of the

diagram are 3 dB quadrature couplers which shift cross coupled

signals 90 degrees. There are two distinct signal paths through

the 6 -port. The one on the right shall be designated the

reference signal path. The reference signal represents the phase

and magnitude of the incident power applied to the 6-port and the

device under test. The path on the left shall be designated the

measurement or test signal path. This test signal represents the

phase and magnitude of the power applied to and reflected from

the device under test. The reference and test signals are

combined in the three quadrature couplers at the top of Figure 6.

The combination takes place in such a way that the coupler

outputs have a distinct relationship which can be solved

mathematically to yield the magnitude and phase of the reflection

coefficient of the item attached to the measurement port and also

that of the measurement port itself.

The coupler outputs are detected by the diodes and the

resulting D.C. level is amplified by a factor of 100 in the

amplifiers shown. This boosts the signals to a high enough level

to be easily measured by the DMM . There are four outputs labeled

P3, P4, P5, and P6. Measurement of these outputs by a DMM and

16
processing the resulting voltage information with a special

computer subprogram yields the impedance information desired.

(3) The Amplifying, Mixing, and Power Measurement Section

Returning to the measurement section of the radiometer,

noise powers from the standards and device under test are

amplified over the entire 2.0 to 4.0 GHz frequency range by the

preamplifier as shown in Figures 3 and 4. Noise feedback from

the preamplifier is prevented by the isolators shown and the

output is filtered by the 4.0 GHz low pass filter to eliminate

harmonic frequencies. The output of the low pass filter is

applied directly to the low noise ortho star mixer. Also applied

to the mixer is the local oscillator input supplied from the

synthesizer which is under computer control. The frequency of

the synthesizer is programmed to be the same as the calibration

frequency for the device under test. The I.F. output (double

sideband) power from the mixer is sent through a programmable

attenuator and reference attenuator which set the I.F. amplifier

inputs to a level which insures linear operation. Bandswitching

will take place at this point and the attenuators and I. F.

amplifiers will be shared by all bands from 0.35 to 12.0 GHz.

The I. F. amplification takes place first at 0.5 to 100 M H z bandwidth (2 stages) and then the noise calibration I.F. filter

is selected by the measurement program. This filter sets the

noise power I.F. frequency to either 30 MHz with a 1 MHz bandpass

or 5 MHz with a 5 MHz bandpass. Since noise power is a function

of bandwidth, the 5 MHz filter provides a higher power level to

measure. Experiments show the measurement results obtained with
IEEE

488

BUS

TO 2.0-AjO MEASUREMENT ®ECTX>H

*> RADIOMETER OUTPUT AND 30/60 MEASUREMENT SECTION

FIGURE 7

1 8

AUTOMATED
either I.F. frequency are the same at 2.0 to 4.0 GHz. Howe v e r

,

the 5 MHz I.F. might prove superior at lower frequencies.

The filter output is applied to the two power amplifiers

through the switches shown. The power amplifier and measurement

section is designed to be shared by all frequency bands. Shown

at the right in Figure 4, the 30 and 60 MHz automated radiometer

is connected or disconnected from this section by the switch

SW//2. The power amplifiers in this section have a bandpass of

0.02 to 300 MHz. Both have a gain of 30 decibels. The

attenuators in this section are used to isolate components and to

provide for linear operation. The output of this section is

sampled through the side arm of a directional coupler to give the

operator a visual indication of system power levels.

Power output is measured by using a thermistor mount

connected to the output port through a DC (direct current) block.

This thermistor mount in combination with an NBS Type IV Power

Meter [7] and a precision reference voltage generator is used to

measure noise power for all of the automated radiometer frequency

bands

(4) The Instrument and Control Section

The instrument and control section encompasses all of the

peripheral electronic equipment used to make the noise

measurements including the controller, which in this case is the

Hewlett Packard 9845 desktop calculator.

The peripheral equipment used to make a measurement is shown

in Figures 4 and 7. Figure 7 depicts the equipment used to make

a measurement with either the 2.0 to 4.0 GHz automated

radiometer or the 30 and 60 MHz automated radiometer as the case

19
may be. Switch S W // 2 connects either system as desired to the

common output components. Note that all peripherals shown in

Figure 7 are shared by both systems. The sane equipment is

shown in Figure 4 and, in addition, the equipment associated with

the 6-port reflectometer is shown. The peripheral instruments

are all interconnected on the IEEE 488 Bus. Two switch driver

modules are required to provide for control of all the switches.

These switch driver modules are connected to the computer by

using the two instrument couplers shown in Figure 4. The switch

driver assemblies are the only instruments not compatible with

the IEEE 488 bus and so two instrument couplers, sophisticated

decoders, a r ° used to interface the two switch driver modules to

the controller —making both modules bus compatible. These switch

driver modules are used to control the various system switches

and programmable and reference attenuator assemblies when they

are used. An LED (light emitting diode) display on the front

panel of each switch driver module gives a visual indication of

the digital code from the controller. This display shows the band

selected, status of the system switches, and whether a measurement or impedance determination is taking place. The

status of the switches shown in Figure 7 is shown on the front

panel of one switch driver module while the status of the other

system switches is displayed on the front panel of the second

switch driver module.

Two scanners (analog multiplexers) and two DMMs (digital

multimeters) are used. One of the scanners with its associated

DMM is shown in Figure 7. These instruments are shared by the

20
2.0 to 4.0 GHz band and the 30 and 60 MHz band of the automated

radiometer at this time. Use in connection with the 30 and 60

MHz system is covered in the manual for that system. In the 2.0

to 4.0 GHz automated radiometer, the voltage output of the power

meter is connected to this DMM through the scanner to collect

output voltages which are then converted to the powers and noise

temperatures of the measured devices by the software.

The second scanner and DMM are used for measurement of 6-

port voltages needed to characterize impedance and also to check

voltage output of the 15 V, +25 V and -25 V switch driver power

supplies and the 15 V, 20 V, and 28 V amplifier power supplies.

The synthesizer shown in figure 4 is used as a signal source

for the six port reflectometer when it is selected and used to

measure system, D.U.T., and standard impedances. It is also used

as a local oscillator when the noise measurement mode is

selected . Figure 8, a block diagram of the entire measurement system

as it exists at this time (August, 1983) is included in this

section for ready reference. The 0.35 to 2.0 GHz and 4.0 to 12.0

GHz sections are not implemented at this time. The 94.0 GHz

radiometer does exist and is shown in the center of this figure.

C. A MEASUREMENT SEQUENCE

As the measurement program is executed by the computer, all

switching is automatic; instructions are printed on the

controller video screen detailing a A y actions required of the

operator

A normal measurement sequence commences with the

determination of the port asymmetry error correction factor.
PROQAMMABLE

ATTEN.

EEE ASS BUS

84GHZ CRYO STO

] > 1 IIP

A MoIt H 1 STD. STD | S UNKNOWN

TO DMM OHMS

VIA SCANNcp

AUTOMATED RADIOMETER (MARCH 1983)

FIGURE 8

22
This determination proceeds as follows:

1. The 6-port ref lectonieter portion of the measurement

system is selected.

2 . The system port to which the device under under test

will be attached (normally port #3) is activated.

3. The operator is instructed to (a) place a sliding short

on port // 3 and slide it as directed, (b) place a sliding

load on the port and slide it as directed, (c) place an

offset short or open on the port, and (4) place

auxiliary noise standard //I (this is a noise check

standard) on the port. The computer uses the

information obtained from this sequence to determine the

complex impedance of the system at port #3 and the

complex impedance of auxiliary noise standard # 1 . This

impedance information is stored for later use.

Auxiliary standard //I is left connected to port // 3 at

this time.

4. The system port to which the cryogenic standard will be

attached is now selected. This is normally port 0.

5. Again the operator is directed to perform the operations

involving the sliding short, sliding load, and offset

short or open. This time however, the operator is

directed to place auxiliary standard #2 on port #0.

Now, the computer determines and stores the complex

impedance parameters for the system at port #0 and the

auxiliary noise standard #2. The auxiliary standard

#2 is left connected to port #0 at this time.

6. Now the radiometer is switched in, the 6-port

23
reflectometer is switched out, and a measurement

sequence is started in which the noise power from the

auxiliary standard #1 at port # 3, the noise power from

the ambient load at port # 4 , and the noise power from

the auxiliary standard #2 at port # 0 is measured and

stored. These powers are measured 9 times and averaged.

These averages and associated standard deviations are

stored and the operator is directed to interchange the

positions of the two auxiliary standards. The sequence

is again repeated resulting in the deter mi niation of the

average noise powers from the two standards and the

ambient load in the new positions.

The ratio of the noise power from each of the two standards

and the noise power from the ambient load is then determined for

each position of each device. These ratios and the impedance

information stored earlier are used to determine the port

asymmetry correction factor to be used when the device under test

is measured. The power ratios calculated will be stored now and

used later to compare the auxiliary standards with the cryogenic

standard resulting in them being automatically evaluated as check standards.

The auxiliary standards are now removed from the

measurement system and the actual measurement of the device under

test is begun. First, the 6-port configuration is selected and

the 6~port is calibrated using the sliding short, sliding load,

offset short or open as described above. The only difference in

the procedure is that the device under test is placed on

24
measurement port #3 instead of auxiliary standard //I and the

cryogenic standard Is placed on measurement port // 0 instead of

auxiliary standard #2. Complex impedances are thus measured for

the device under test, the cryogenic standard and the measurement

system ports to which they are attached. These complex impedance

values are used to correct the measured noise temperature of the

device under test for mismatch. A correction factor, for this

purpose

,

is stored and ret rieved wh e

needed . Now t tie radiometer configuration is selected by the action o f the

system switches and the measurement of the device under test is

begun. The noise powers from the device under test, cryogenic

standard, and ambient standard at port #4 are measured in

sequence. The ratios of these powers are converted to noise

temperature and corrected for mismatch and port asymmetry using

the equations detailed on pages 50-53 of this manual. These

powers are measured 50 times. After the first 50 measurements

are made, the results are averaged and stored. Then 3 dB is

inserted in the measurement path by the step attenuator between

the mixer and final amplifiers. The 50 measurements are now

repeated. This procedure checks amplifier linearity. The final

result (reported value) will be the average of the two sets of

measurements. This final value will be output at the completion

of the measurements along with an error summary and statistical

data.

Complete instructions for operating the measurement system

to achieve the above results are detailed in the following

section of this manual.

25
3. OPERATING INSTRUCTIONS

A. EQUIPMENT PREPARATION

1. POWER OFF INSPECTION AND SET-UP

a . Thermal stability of the measurement system is

achieved by pumping water from a separate reservoir through

the system water jackets. The flexible tubing which connects

the water jackets to the water reservoir should be inspected

for proper connection and serviceable condition and the

water level in the reservoir checked. Then the pump should

be turned on. Water should be circulating through the water

jackets and returning to the reservoir. When this condition

is met, the system is ready for further setup.

b. The cryogenic standard should now be filled with

liquid nitrogen. The procedure is to remove the plugs in the

top of the standard, insert a funnel into one of the

openings, and slowly pour liquid nitrogen into the reservoir

until the float reaches the proper level. Replace the

plugs. This standard should be allowed to stabilize at

least an hour before measurements are commenced.

c. Check all cables interconnecting the controller and

instruments to assure proper connection and that none are

missing

d. It is suggested that all applicable coaxial

connectors on the measurement system, device under test, and

tuning apparatus for the six port r e f 1 e c t ome t e r be cleaned at

this time with isopropyl alcohol. Also at this time

26
ascertain that the device under test can be physically

connected to the measurement system.

2. POWER ON PROCEDURES AND SYSTEM WARM-UP

a . Turn on all D.C. power supplies

(There are four

exte rnal supplies for the two switch driver modules. These

consist of two + 15 volt D.C. supplies

,

one +25 volt D.C.

supply

,

and one -25 volt D.C. supply. In addition, there

are two +28 volt D.C. suppl ies for the output power

amplifiers, one +20 volt D.C. supply for the 1. F.

amplifiers, and one +15 volt D.C. supply for the

preamplifier.)

b. Turn on the synthesizer, switch driver modules (2),

instrument couplers (2), digital multimeters (2), scanners

(2), pow^r meter, reference generator, and controller.

c. Turn on the noise source power supply if applicable.

One word of caution. Some coaxial solid state noise

sources which use a diode network to generate noise output

might be damaged if a sudden loss of voltage or sudden

application of voltage is realized. For this reason, always

increase or decrease the voltage to these devices GRADUALLY.

After the measurement system is turned on, a warmup of at

least one hour is desirable for maximum stability. The

digital multimeters and synthesizer can be left on overnight

to shorten this stabilization time.

B. LOADING AND EXECUTING THE MEASUREMENT PROGRAM

The measurement system is operated under computer control

and the current measurement program is "RAD7EF" (see Appendix
II). Load the measurement program and press RUN. Prompts,

requesting action by the operator, will be printed on the

controller display screen. After the operator has performed the

requested action, further instructions will be displayed until

the measurement is completed. The following discussion covers

major items encountered when executing the measurement program

"RAD7EF"

After RUN is pressed, a complete measurement and printout of

system voltages is accomplished. If voltages are satisfactory,

press CONT. (If not, correct the problem before proceeding)

Next, requests for ambient standard temperature, barometeric

pressure, and a description of the device under test (customer

name, noise source manufacturer, model, serial number, date, and

test number) are requested. Enter the information requested, and

press CONT.

The portion of the measurement program which utilizes the 6-

port r e f 1 e c t ome t e r to characterize impedance and port asymmetry

is now executed. Place devices on the measurement ports as directed and press CONT after completing the required action.

The proper port will be automatically selected by the system

switches and all the operator need do is make sure to place the

devices (sliding short, sliding load, etc.) on the port requested

by the computer. The calibration sequence requires measurement

of 7 positions of the sliding short circuit, 5 positions of the

sliding load, and a measurement of the coaxial open circuit or

coaxial offset short circuit impedance standard being used. The

optimum distance to slide the short and load is determined by

dividing the wavelength of the calibration frequency by 14 for

28
the sliding short circuit and 10 for the sliding load. At the

end of the calibration sequence, the auxiliary standards will be

in place on the two ports which were characterized. The system

then automatically makes a measurement of the auxiliary standard

power and the power from the ambient load. A total of 9

measurements are made and then the operator is requested to

interchange the devices on the ports. After the devices are

interchanged, press CONT. The 9 power measurements are repeated

and port asymmetry is determined and stored by the computer.

The six port reflectometer is now used to determine the

complex impedance parameters associated with the measurement

system and the device under test. The operator is again directed

to place the devices necessary to calibrate the six port

reflectometer on the system measurement ports as directed by the

computer printout on the screen. This time however, the device

under test and cryogenic standard are connected to the system

measurement ports when the calibration sequence is completed. At

the end of this sequence, the complex impedances of the device

under test, cryogenic standard, and the measurement system ports

are stored.

Now the actual measurement portion of the program "RAD7EF"

is executed. The system will now automatically measure the noise

power from the device under test without further operator

intervention. One hundred determinations are made at two

different power levels and the results, measurement statistics,

and error analysis are printed out and stored for future

reference. Also printed are the values obtained for the check

29
standards which were automatically measured during the

calibration sequence. The stored information is used for control

charts and statistical studies while the printed material is used

to generate a complete report of calibration for the customer.

C. MEASUREMENT COMPLETION AND SYSTEM SHUTDOWN

After the desired measurements of the devices are

completed, sys tern shutdown is accomplished in the reverse order

o f t urn-on
EXECUTIVE

SEGMENT

3 1

MAJOR

PROGRAM

SEGMENTS

PROGRAM

RAD7EF
4. SOFTWARE

A. GENERAL OVERVIEW

Since the 6-port ref lectometer was constructed as an

integral part of the automated radiometer, the software has been

developed to take full advantage of the added measurement

capability

Until now, the normal radiometer system outputs have been

the measured noise temperature of the device tested and an error

summary detailing error limits for such items as mismatch, port

asymmetry, standard uncertainty, and power measurement error.

Separate calibrations were required with check standards to

verify system performance and linearity. Because the 6-port

r e f 1 e c t ome t e r provides accurate complex impedance information,

software routines have been incorporated which provide

measurements of noise temperature corrected for both mismatch and

port asymmetry. The need for tuning has been eliminated and

preliminary measurements indicate that reflection coefficient

magnitudes as high as 0.8 can be effectively modeled; port

asymmetry as high as 6 dB has been effectively handled as well.

In addition, information obtained when determining mismatch and

port efficiency can be used along with the system output to

provide for check standard validation of system performance

automatically during the normal course of a measurement. This

results in a great savings of time and provides a continuous

check of system performance. To summarize then, present hardware

and software in combination provide the following information to

the calibration customer:

32
1. Complex impedance of the device tested.

2. Total noise temperature of the device tested.

3. Effective noise temperature of the device tested.

4. Correction of the measured noise temperature of the

device under test for mismatch and port asymmetry or

path efficiency.

5. Complete error summary of any known errors not corrected

for and the estimated measurement uncertainty.

In addition the following items are provided for calibration

verification and support:

1. All calibration data including impedances, powers

measured, and calculated results are stored for future

reference

2. Measurements are made at two discrete power levels,

providing an automatic check of system linearity. Excess

error from this source is detected if large variations

in results at these two power levels are present.

3. An automatic check of the values of two check standards

is made to verify system performance.

The measurement program version currently in use with this

system is called "RAD7EF". This program is made up of 13 major

segments as shown in Figure 9. The major program segments are

shown in block form. The figure is arranged so that the various

modules depicted are arranged in the order in which they are used

in the program. Time, in this figure, flows from left to right

and top to bottom. Lines at the top of a block represent input

33
while lines at the bottom of a block represent output. Each line

represents a 2-way transfer of information with a return to the

calling subprogram. Variables are passed between subprograms if

they are listed in the calling statement or made global by being

listed in the common declaration at the beginning of each

subprogram. A brief description of each subprogram is presented

in the following paragraphs.

The EXECUTIVE SEGMENT provides initialization of variables

and switches and calls other subprograms in the proper order.

SUBPROGRAM VOLT is called from the executive segment and

provides for the measurement and printout of system power supply

voltages prior to making a measurement.

SUBPROGRAM GET-PARAMETERS is called from the executive

segment and provides for input of nomenclature for the device

under test, frequencies to be calibrated, number of measurements

and other housekeeping information.

SUBPROGRAM CAL is called from the executive segment and

provides for impedance characterization of the system measurement

port, the standards, and the device under test. This subprogram

implements the use of the 6-port r e f 1 e c t ome t e r

SUBPROGRAM C0RR2 is called from the executive segment and

provides for the characterization of system path efficiency and

port asymmetry using impedance parameters generated by subprogram

Cal . SUBPROGRAM OUT is called from the executive segment and

provides for measurement of the noise temperature of the device

under test and generates an error summary which is printed out

34
along with calibration results.

SUBPROGRAM DESCR is called by the executive segment and

provides for storage on cassette or disc of a complete

description of the device under test, calibration frequency, all

powers measured during the calibration sequence, noise

temperatures of the standards, measured noise temperature of the

device under test, and statistical information pertaining to the

measurement results.

The above described subprograms are called directly from the

executive segment but do not necessarily perform their function

independently; they call in turn other subprograms which provide

necessary interaction between instruments and keep the software

efficient and modular. These subprograms and the subprograms

which call them are as follows:

SUBPROGRAM DMM is called from subprograms Cal and Volt and

provides for voltage measurements made with the DMM. Return is

to the calling subprogram.

SUBPROGRAM FREQ is called from subprograms Cal and Meas.

This subprogram controls the output of the synthesizer and thus

the power and frequency of the local oscillator input to the

system mixer. Return is to the calling subprogram.

SUBPROGRAM C0RR1 is called from subprogram Corr2 and

provides for the measurement of power ratios between the

auxiliary standards and ambient standard for use by Corr2 in

determining path efficiency and port asymmetry corrections.

Return is to Corr2.

SUBPROGRAM MEAS is called by subprogram Out and provides for

port switching, measurement of the noise power of the standards

35
and the device under test. This subprogram provides for

accumulation of statistical data pertinent to the measurement

results and the calculation of the noise temperature of the

device under test. Return is to Corr2.

SUBPROGRAM POWER is called from Corrl and Meas and provides

for determination of noise power at the desired system

measurement port. This subprogram has the routines necessary to

utilize the NBS Type IV power meter to make these power

measurements. Return is to the calling subprogram.

SUBPROGRAM REPORT is called from subprogram Out. This

subprogram provides a printout of measurement results, an error

summary, and statistical information. This printout is a complete report of the calibration of the device under test.

MASS STORAGE DEVICE is not a subprogram but is a physical

device (either a cassette transport or disc unit) which provides

for storage of information used by the various routines. This

enables a recap of a measurement at any time for analysis of

results and eliminates the need for large permanent matrices

for storage of intermediate and final results.

The above descriptions are intended to give a very brief

summary of the software modules contained in the measurement

program and show the interaction between the various segments. A

listing of this program is included in Appendix II of this manual

along with a printout of the variables used and their location.

B. MATRICES

Four major matrices are used in the measurement program to

store information while the program is being executed and and

36
also on the mass storage device to permit analysis of system

measurement results at some later time. These are:

1. The Q matrix which is a 3 by 100 array used to store

the powers measured during a measurement sequence.

This enables statistical analysis of the measurement

process at any convenient time. The Q matrix elements

Q ( 1 , 1 ) through Q ( 1 , 1 0 0 ) are used to store powers

measured from the device under test, Q ( 2, 1 ) through

Q(2,100) is used to store the measured power from the

ambient load, and Q ( 3, 1 ) through Q ( 3 , 1 0 0 ) is used to

store the measured powers from the cryogenic standard.

2. The C matrix which is a 16 by 4 by 2 array which is used

to store 6-port data during measurement sequences for

determining impedances. The contents of the C matrix

are shown in Table 1.

3. The Z matrix which is a 1 by 80 array which provides

storage for all system constants, measurement results,

and other pertinent data. The contents of the Z Matrix

are shown in table 2.

4. The F matrix which is a 4 by 15 array which provides

storage space for the complex impedances for the system

measurement ports, device under test, and the two

auxiliary standards used. Table 3 shows the contents

of the F mat r ix

37
TABLE 1 C MATRIX

ELEMENT DEVICE CONNECTED TO

SYSTEM PORT DURING

CALIBRATION SEQUENCE

6-PORT OUTPUT

DESCRIPTION AND

SCANNER CHANNEL

C ( 1 ,1,1) Device under test P 5 (Channel 10)

C ( 1 ,2,1) Device under test P4 (Channel ID

C ( 1 ,3,1) Device under test P 6 ( Cha nne

12)

C ( 1 ,4,1) Device under test P 3 (Channel 13)

C ( 2 , 1 , 1 ) Quarter wave short circuit P 5 (Channel 10)

C ( 2 , 2 , 1 ) Quarter wave short circuit P 4 (Channel ID

C ( 2 , 3 , 1 ) Quarter wave short circuit P 6 (Channel 12)

C ( 2 , 4 , 1 ) Quarter wave short circuit P 3 (Channel 13)

C ( 3 , 1 , 1 ) Sliding short —position 1 P 5 (Channel 10)

C ( 3 , 2 , 1 ) Sliding short —pos it ion 1 P 4 (Channel ID

C ( 3 ,3, 1 ) Sliding short--position 1 P 6 (Channel 12)

C ( 3 , 4 , 1 ) Sliding short —position 1 P 3 (Channel 13)

C(4 , 1 , 1 ) Sliding short--position 2 P 5 (Channel 10)

C ( 4 , 2 , 1 ) Sliding short —position 2 P 4 (Channel ID

C ( 4 , 3 , 1 ) Sliding short —position 2 P 6 (Channel 12)

C ( 4 , 4 , 1 ) Sliding short —position 2 P 3 ( Channe

13)

C ( 5 , 1 , 1 ) Sliding short-position 3 P 5 (Channel 10)

C ( 5 , 2 , 1 ) Sliding short--position 3 P 4 (Channel 1 1 )

C ( 5 , 3 , 1 ) Sliding short —position 3 P 6 ( Channel 12)

C ( 5 , 4 , 1 ) Slid ing short —position 3 P 3 ( Channe

13)

38
TABLE 1 C MATRIX continued

ELEMENT DEVICE CONNECTED TO

SYSTEM PORT DURING

CALIBRATION SEQUENCE

6-P0RT OUTPUT

DESCRIPTION AND

SCANNER CHANNEL

0(6,1,].) Sliding short--position 4 P 5 (Channel 10)

C ( 6 , 2 , 1 ) Sliding short —position 4 P 4 ( ChanneID

C ( 6 , 3 , 1 ) Sliding short--position 4 P 6 (Channel 12)

C ( 6 , 4 , 1 ) Sliding short--position 4 P 3 (Channel 13)

C ( 7 ,1,1) Sliding short--position 5 P 5 (Channel 10)

C ( 7 ,2,1) Sliding short —position 5 P 4 (Channel ID

C ( 7 ,3,1) Sliding short--position 5 P 6 ( Channel 12)

C ( 7 ,4,1) Sliding short--position 3 P 3 (Channel 13)

C ( 8 , 1 , 1 ) Slid ing short--position 6 P 5 (Channel 10)

C ( 8 , 2 , 1 ) Sliding short--position 6 P 4 (Channel ID

C ( 8 , 3 , 1 ) Sliding short —position 6 P 6 (Channel 12)

C ( 8 , 4 , 1 ) Slid ing short--position 6 P 3 (Channel 13)

C ( 9 , 1 , 1 ) Sliding short —position 7 P 3 (Channel 10)

C ( 9 , 2 , 1 ) Sliding short--position 7 P 4 ( Channe

ID

0(9,3, 1) Sliding short-position 7 P 6 (Channel 12)

0(9,4, 1) Sliding short--position 7 P 3 (Channel 13)

0(10,1,1) Sliding Load —position 1 P 5 (Channel 10)

0(10,2,1) Slid ing Load —position 1 P 4 ( Channe

ID

0(10,3,1) Sliding Load —pos i t ion 1 P 6 ( Channe

10)

0(10,4,1) Sliding Load —position 1 P 3 (Channel 10)

39
TABLE 1 C MATRIX continued

ELEMENT DEVICE CONNECTED TO

SYSTEM PORT DURING

CALIBRATION SEQUENCE

6-P0RT OUTPUT

DESCRIPTION AND

SCANNER CHANNEL

C ( 1 1 , 1 , 1 ) Sliding Load —position 2 P 5 (Channel 10)

c ( 1 1 , 2 , 1 ) Sliding Load —position 2 P4 (Channel ID

0(11,3,1) Sliding Load —pos i t i on 2 P 6 (Channel 10)

0(11,4,1) Sliding Load--position 2 P 3 (Channel 10)

0(12,1,1) Sliding Load —position 3 P 5 ( Channe

10)

0(12,2,1) Sliding Load--position 3 P 4 (Channel ID

0(12,3,1) Sliding Load--position 3 P 6 ( Channel 10)

0(12,4,1) Sliding Load —position 3 P 3 (Channel 10)

0(13,1,1) Sliding Load —position 4 P 5 (Channel 10)

0(13,2,1) Sliding Load —position 4 P 4 (Channel ID

0(13,3,1) Sliding Load —position 4 P 6 ( Channel 10)

0(13,4,1) Sliding Load —pos i t ion 4 P 3 (Channel 10)

0(14,1,1) Sliding Load--position 5 P 5 ( Channe

10)

0(14,2,1) Sliding Load —position 5 P 4 (Channel ID

0(14,3,1) Sliding Load —posit ion 5 P 6 ( Channel 10)

0(14,4,1) Slid ing Load--pos i t ion 5 P 3 ( Channe

10)

0(15,1,1) Auxiliary Noise Source P 5 (Channel 10)

0(15,2,1) Auxiliary Noise Source P 4 (Channel ID

0(15,3,1) Auxiliary Noise Source P 6 (Channel 10)

0(15,4,1) Auxiliary Noise Source P 3 (Channel 10)

40
TABLE 1 C MATRIX continued

ELEMENT DEVICE CONNECTED TO

SYSTEM PORT DURING

CALIBRATION SEQUENCE

6-PORT OUTPUT

DESCRIPTION AND

SCANNER CHANNEL

C ( 1 6 , 1 , 1 ) Impedance Check Std. P5 (Channel 10)

C ( 1 6 , 2 , 1 ) Impedance Check Std. P4 ( Channe 1 11)

C ( 1 6 , 3 , 1 ) Impedance Check Std. P6 (Channel 10)

C ( 1 6 , 4 , 1 ) Impedance Check Std. P3 (Channel 10)

The 64 listed elements of the C array are filled when port

3 is characterized during a calibration sequence; the other 64

elements of this array are filled when port 0 is characterized.

The devices connected when the second half of the array is

filled are identical with the exceptions of locations C(l,l,2),

C(l,2,2), C(l,3,2), and C(l,4,2). When these four locations are

filled, the cryogenic standard is connected to port 0 instead of

the D . U . T .

41
TABLE 2 Z MATRIX

ELEMENT DESCRIPTION PROG LOCATION

Z ( 1 , 1) T 2 P 0 = 1 22880

z ( 1 , 2 ) T 3 P 0 = 1 22890

Z ( 1 , 3 ) T 1 P 0 = 1 22900

Z ( 1 , 4 ) S 1 P0 = 1 229 10

Z ( 1 , 5 ) T4 P 0 = 1 22920

Z ( 1 ,6) P 2 P 0 = 1 22930

Z ( 1 , 7 ) T 2 P 0 = 2 22770

Z(1 ,8) T 3 P0 = 2 22780

Z ( 1 ,9) T 1 P 0 = 2 22790

z ( 1 ,10) S I P 0 = 2 2 280Q

z ( 1 , 1 1 ) T 4 P 0 = 2 22810

z ( 1 , 12) P 2 P 0 = 2 22820

z( 1 , 13 ) Std error of mean (Tx) 24320

Z ( 1, 14 ) Excess noise ratio in dB (Tx) 24330

Z ( 1 , 15) Bias; plus 3 t imes std. e r ror 24670

Z ( 1 , 1 6 ) Te, radiometer sys. temp K 24340

Z ( 1 , 1 7 ) System noise figure 24430

Z ( 1 , 1 8 ) Sys t em gain in d B 24480

Z ( 1 , 1 9 ) Source, error cryo. std. 241 10

Z ( 1 ,20) % error--cryo. std. 24130

42
TABLE 2 Z MATRIX continued

ELEMENT DESCRIPTION PROG LOCATION

Z ( 1 ,21 ) Ambient std. source error 24140

Z ( 1 ,22) / error- ambient std. 24 1 70

Z ( 1 , 2 3 ) Power ratio source error 24400

Z ( I ,24) % error- power ratio 244 10

Z ( 1 ,25) N3 —number of meas. per set 20480

Z( 1 , 26 ) % total mismatch error 24570

Z ( 1 , 27 ) Non-linearity constant El 20530

Z ( 1 ,28) / error for non-linearity 24500

Z ( I ,29) % error for switch asymmetry 24550

Z ( 1 ,30) Linear sum of bias errors 24610

Z ( 1 , 3 I ) Total # of measurements, N 20500

Z ( 1 , 3 2 ) % Error- 3 times SEM 245 10

Z ( 1 ,33) Linear sum of errors 24620

Z ( I ,34) F requency F 18400

Z(1 ,35) Calibrated Tx (average) 24070

Z( 1 ,36 ) Bias error % 24630

Z ( 1, 37 ) FI (start frequency) 20450

Z ( I ,38) F2 (stop frequency) 20460

Z ( 1 ,39 ) F3 (step frequency) 20470

Z ( 1 ,40) N8 NO. of sets per meas. 20490
TABLE 2 Z MATRIX continued

ELEMENT DESCRIPTION PROG LOCATION

Z ( 1 , 4 1 ) S um o f sqrs Tl, 2nd 50, B6 22840

Z ( 1 ,42) Sum o f Tl, 2nd 50, B8 2 2860

Z ( 1 ,43) Sum o f sqrs Tl, 1st 50, B5 22960

Z ( 1 ,44) S um o f T 1. , 1st 50, B 7 2 2970

Z ( 1 ,45) Sum o f PI (divide by N for ave) 2 3 3 10

Z ( 1 ,46) Sum o f P2 (divide by N for ave) 23320

Z ( 1 ,47 ) Sum o f P3 (divide by N for ave) 23330

Z ( 1 ,48) Sum o f sqrs PI 23350

Z(1 ,49) Sum o f sqrs P 2 23360

Z ( 1 ,50) Sum o f sqrs P 3 23370

Z ( 1 ,51)

Z ( 1 ,52) T 1 24070

Z ( 1 ,53) T 2 24090

Z ( 1 ,54) T 3 24100

Z ( 1 ,55) Bandwidth 5 MHz IF 3.6 MHz 245 10

Z ( 1 ,56) Band wid th 30 MHz IF .95 MHz 24520

z( 1 ,57) Ae ta , result , port s ymme t r

y

16290

z( 1 ,58) Frequency o f meas uremen

t

16420

z ( 1 ,59) Isolator Error percent 24590

Z(1 ,60) Mismatch % error + power ratio 24600

44
TABLE 2 Z MATRIX continued

ELEMENT DESCRIPTION PROG LOCATION

Z(1 ,61 ) Ref 1 . coef . magnitude D.U.T. 6100

F ( 1 ,62) Re f 1 . coe f . Angl e D .

.T. 6110

Z(1 ,63) Ref 1

coef. real D.U. T . 6120

Z ( 1 ,64) Ref 1 . coef. imag. D.U .T . 6130

Z ( 1 ,65) Mismatch correction factor 6300

Z ( 1 ,66) Result Check standard 1 23590

Z ( 1 , 6 7 ) Result Check standard 2 23600

Z ( 1 ,68) Result Check standard 1 2 3630

Z ( 1 ,69) Result Check standard 2 23640

Z ( 1 ,70)

Z ( 1 , 7 1 ) Ratio P1/P2 set 1 23340

Z ( 1 ,72)

Z(1 ,73) P 7 s ura of PI set 2 23420

Z ( 1 , 74 ) P 8 s um of P2 set 2 23430

Z ( 1 ,75) P 9 sum of P3 set 2 23440

Z ( 1 ,76) W4 s um of sqrs PI set 2 23450

Z ( 1 , 77 ) W5 s um of sqrs P2 set 2 23460

Z(1 ,78) W6 s um of sqrs P3 set 2 23470

Z ( 1 ,79) Ratio P1/P2 set 2 2 3480

Z ( 1 ,80)

4 5
TABLE 3 F MATRIX

ELEMENT DESCRIPTION PROG LOCATION

F ( 1 , 1 ) Measurement frequency 4310

F ( 1 ,2) Space for # short pos analyzed

F ( 1 ,3) Real part system gamma (1) 1 1530

F ( 1 ,4) Space for std. dev. F(l,3)

F(1 ,5) Imag . part system gamma (1) 1 1540

F ( 1 ,6) Space for std. dev. F(l,4)

F ( 1 ,7) System refl. coef. angle (1) 11510

F ( 1 ,8) Space for std. dev. F(l,7)

F(1 ,9) System refl. coef. magnitude(l) 1 1 500

F ( 1 , 10) Space for std. dev. F(l,9)

F ( 1 , 1 1 ) Refl. coef. magnitude D.U.T. 5760

F(1 ,12) Refl. coef. angle D.U.T. 57 70

F ( 1 , 13) Real part F ( 1 , 1 1 ) 5780

F ( 1 , 1 4 ) Imag part F ( 1 , 1 1 ) 5790

F ( 1 , 15) Mismatch factor Mx 5930

46
TABLE 3

F MATRIX continued

ELEMENT DESCRIPTION PROG LOCATION

F ( 2 , 1 ) Measurement frequency 4310

F(2 ,2) Space for # short pos analyzed

F(2 ,3) Real part system gamma (2) 11590

F(2 ,4) Space for std. dev. F(2,3)

F ( 2 , 5 ) Imag. part system gamma (2) 11600

2(2,6) Space for std. dev. F(2,4)

F ( 2 , 7 ) System refl. coef. angle (2) 11570

F(2 ,8) Space for std. dev. F(2,7)

F ( 2 , 9 ) System refl. coef. magnitude(2) 11560

F ( 2 , 1 0 ) Space for std. dev. F(2,9)

F ( 2 , 1 1 ) Refl. coef. magnitude Cryo std. 5670

F(2 , 12) Refl. coef. angle Cryo std. 5680

F ( 2 , 1 3 ) Real part F( 2 , 1 1 ) 5690

F(2, 14) Imag part F ( 2 , 1 1 ) 5700

F ( 2 , 1 5 ) Mismatch factor Mx 5930
TABLE 3 F MATRIX continued

ELEMENT DESCRIPTION PROG

F ( 3 , 1 ) Measurement frequency 4310

F ( 3 , 2 ) Space for ft short pos analyzed

F ( 3 , 3 ) Real part system gamma (3) 57 30

F ( 3 , 4 ) Space for std. dev. F(3,3)

F ( 3 , 3 ) Imag. part system gamma (3) 5740

F ( 3 , 6 ) Space for std. dev. F(3,4)

F ( 3 , 7 ) System refl. coef. angle (3) 57 10

F ( 3 , 8 ) Space for std. dev. F(3,7)

F ( 3 , 9 ) System refl. coef. magnitude(3) 5720

F(3, 10) Space for std. dev. F(3,9)

F(3, 11 ) Refl. coef. magnitude Aux. 1 5670

F ( 3 , 1 2 ) Refl. coef. angle Aux. 1 5680

F ( 3 , 1 3 ) Real part F ( 3

, 1 1

)

5690

F ( 3 , 1 4 ) Imag part F ( 3 , 1 1

)

5700

F ( 3 , 15) Mismatch factor Mx 5930

LOCATION

48
TABLE 3 F MATRIX continued

ELEMENT DESCRIPTION PROG LOCATION

F(4 , 1 ) Measurement frequency 4310

F ( 4 , 2 ) Space for // short pos analyzed

F ( 4 , 3 ) Real part system gamma (4) 57 30

F ( 4 , 4 ) Space for std. dev. F(4,3)

F ( 4 , 5 ) Imag. part system gamma (4) 5 7 40

F ( 4 , 6 ) Space for std. dev. F(4,4)

F ( 4 , 7 ) System refl. coef. angle (4) 57 10

F(4,8) Space for std. dev. F(4,7)

F ( 4 , 9 ) System refl. coef. magnitude(4) 57 20

F ( 4 , 10) Space for std. dev. F(4,9)

F ( 4 , 1 1 ) Refl. coef. magnitude Aux. 2 5670

F ( 4 , 1 2 ) Refl. coef. angle Aux. 2 5680

F ( 4 , 1 3 ) Rea 1 part F ( 4 , 1 1 ) 5690

F ( 4 , 1 4 ) Imag part F ( 4 , 1 1

)

5700

F ( 4 , 1 5 ) Mismatch factor Mx 5930
C. NOISE EQUATIONS AND THEIR APPLICATION TO THE AUTOMATED

RADIOMETER

The end result of a noise measurement sequence is the

calculated noise temperature of the device tested and a summary

of known errors and system parameters. Certain equivalent

numerical relationships are essential to convert the intermediate

results obtained with the system hardware to the final form

tabulated at the conclusion of a measurement sequence. A summary

of these is presented here to provide a ready reference for the

theoretical work underlying the software. Documentation for this

summary may be found in the Noise Laboratory Notebook "AR2" [8].

This summary is not intended to be self-explanatory. In the

following, Tl, T2, and T3 are the noise temperatures of the

device under test, ambient standard, and cryogenic standard

respectively. Tx is the same as and used interchangeably with

Tl. Noise temperatures are expressed in Kelvins. Temperature in

degrees Celsius is converted to Kelvins by adding 273.15.

The notation used in this section is compatible with the

computer used. To avoid confusion, the following are defined:

(1) The denotes multiplication, (2) The denotes

exponentiation, (3) SQR denotes square root, (4) ABS denotes

magnitude, (4) LOG denotes logarithm to the base 10, and (5) Ln

denotes natural logarithm.

The noise power measured from the device under test is

designated Pi, that from the ambient standard as P2, and that

from the cryogenic standard as P3. The noise temperature of the

unknown, Tx , is then determined by first finding the power ratios

50
Y1 and Y3 and correlating them with the temperatures of the

standards to find Tx

Y1=P1/P2 (1)

Y3=P3/P2 (2)

Tx = T2+(T3-T2)*(Yl-l )/ (Y3-1 ) (3)

In a normal calibration, the determination of Tx is made 100

times and the average of these 100 determinations is reported as

is the standard deviation. Equation (3) is the basis for

calculating the noise temperature for the device tested, but

further enhancements are necessary for maximum accuracy. These

are as follows:

Noise Temperature, Tx , corrected for

mismatch is calculated using the following:

First the mismatch factor, Mx , between the device

under test and the appropriate system

port is fo und

Mxl = ( 1 -Gxm ~ 2 )*( 1 -Gs m

~ 2 ) (4)

Mx 2 = (l-Gxr*Gs r+Gx i *G s i)~2 + (Gxr*Gsi+Gxi*Gsr)~2 (5)

Mx = Mx 1 / Mx 2 ( 6 ) where

Gxm and Gsm are the magnitudes of the

reflection coefficients, Gx and Gs , of

the device under test and the system

ports respectively.

Gxr and Gsr are the real part of Gx and Gs

respectively

Gxi and Gsi are the imaginary part of Gx and Gs

51
respectively.

Then the mismatch factor, Ms, between the cryogenic

standard and appropriate system port is found:

Ms 1 = ( 1-Gxm' ~ 2 )*( 1-Gsm' ~ 2

)

Ms2=( 1 -Gxr ' *Gsr ' +Gx i '*Gsi')~2+(Gxr'*Gsi'+ Gxi'*Gsr'

)

Ms=Msl/Ms2

where

Gxm' and Gsm' are magnitudes of the reflection

coefficients, Gx'and G s '

, of the cryogenic standard

and system ports respectively.

Gxr' and Gsr' are the real parts of Gx' and

Gs ' respectively.

Gxi' and Gri' are the imaginary parts of Gx'

and Gs ' respectively.

The mismatch factor for use in correcting T1

is found by:

MF=Ms / Mx

Tx can now be obtained corrected for mismatch:

T x = T 2 +M F * ( T 3 - T 2

) * ( Y

1 - 1 ) / ( Y 3 - 1 )

Port Asymmetry is evaluated (see Appendix I)

as the ratio of the standard port noise efficiency

to the measurement port noise efficiency.

Let this ratio equal Al.

Then applying this term in (11)

T x = T 2 +MF * A 1 * ( T 3 - T 2 ) * ( Y 1 - 1 ) / ( Y 3— 1 )

(7)

( 8 )

(9)

( 10 )

(ID

( 12 )

52
Tx has now been corrected for asymmetry (signal

path efficiency) and mismatch.

For more accuracy, one further correction must be

made to the calculated noise temperature. This

is the quantum correction and is needed especially

for the ratios of frequency to temperature. This

correction is made as follows:

First the cryogenic standard temperature T3

is corrected

T3 '=Zeta*(T3+Dt

)

where Zeta=n/(EXP(n)-l),

Dt=the loss and mismatch corrections to the

cryogenic standard.

n=(0.0479932*F)/T3,

F=Frequency in GHz.,

and Tn=T3= the temperature of the termination

from equation (24).

Dl=2.64E-3*SQR(F)*Gs~2*(T2-Tn)

where now Gs is the reflection coefficient

magnitude of the cryogenic standard.

D2=.61 1-2 . 55E-3*(Tn-76 )+3 .82E-3*(Ta-297

)

D3=(0.6*sqr(F)+.011*F)/0.611

D t = D 1 +D 2 * D 3

T3', the quantum corrected value of T3 should

now be substituted for T3 in (12).

In a similar manner, a quantum correction is made

to T2 to yield:

(13)

(14)

(13)

(16)

(17)

(18)

53
T 2

' = Z e t a ' *T2 ( 1 ?)

Where Ze t a ' =

n

' / ( E x p ( n

' ) - 1 ) And n' =0.04799 3 2*F/T2 (20)

The quantum corrected T2' should now be substituted in (12) for T2 . This completes the

quantum correction for (12).

Some of the other quantities calculated during the course of

a measurement are:

The temperature of liquid nitrogen can be calculated

from atmospheric pressure by using the vapor pressure

equation for liquid nitrogen:

B 0 = ( B 1 /T+B2+B3*T+B4*( 12 6.2-T)~1 . 95+B5*T~3)

B0'=(B6*T~4+B7*T~5+B8*T~6+B9*Ln(T))

P=EXP ( B0+B0 ' ) (21)

wh ere

B 1 = 8 . 394409444E3; B2=- 1 . 89004 5259E3

B3=-7 . 282229 1 65 ; B4= 1 . 02 2 8 5 0 9 6 6 E-2

B 5 = 5 . 55606382 5E-4 ; B 6 = - 5 . 9 4 4 5 4 4 6 6 2 E-6

B 7 = 2 . 7 1 5433932E-8 ; B 8 = -4 . 8 7 9 5 3 5 90 4E - 1 1

B 9 = 5 . 095360824E2

Computation: 30 iterations (T= 55 for the

1st iteration) of (21) are performed to obtain

an accurate temperature output.

As part of the iteration process:

P= ( 7 6 0 *P ) -Pa t m (22)

where Patm = atmospheric pressure in mm

54
Then TO = T + ( 8

5 -T 0

) * AB S ( P ) / AB S ( P ) * 1 7 1 8 . 0 5 4 5 8 2 9 8 ) (23)

T = T 0 for the next iteration.

After iterating:

T 3 = I N T ( 100*(T0+ 0 .00 5 ) ) / 100 +.0 4

where the 0.04 K accounts for the average temperature

increase from the liquid nitrogen head above the load.

SYSTEM TEMPERATURE

Te=[T3-(Y3)*(T2) ] / (Y3-1 )

EXCESS NOISE RATIO dB

ENR=10*Log(Tx-290)/ (290)

where 290 is a defined quantity

RADIOMETER SYSTEM NOISE FIGURE dB

RST=10*Log ( l+Te/290

)

RADIOMETER SYSTEM GAIN

RSG=10*Log [ (7 .244 ) * ( 10~13)*(P2 )/ Bw/ (T2+Te)

]

where Bw is the system bandwidth in MHz.

and ( 7 . 244 ) * ( 1 0 ~ 1 3 ) is a noise constant

To Calculate the OUTPUT NOISE TEMPERATURE

of a Device when an adaptor has been used

in its calibration the following is utilized.:

Tx = Tx ' / A+T 2 * ( 1 / A- 1 ) where Tx' is the output noise temperature of the

device. Tx is the noise temperature with the adaptor

attached, T2 is the ambient temperature in K

(24)

(23)

(26)

(27)

(28)

(29 )

5 5
(the nominal value of T2 is 300 K ) , and A is the alpha for the attenuation present.

A is calculated by: A = 1 0 * ( -Los s in dB/10)

STANDARD DEVIATION is calculated by:

S . D . =Square root of ( (V-T*T/N )/ ( N — 1 )

)

where T is the sum of the individual measurements;

V is the sum of the squares of the individual

measurements, and N is the total number of

measurements

STANDARD ERROR OF THE MEAN is given by:

SEM=S . D ./ Square root of N

AMBIENT STANDARD UNCERTAINTY (U) is 0.5K

R8=(T2/Tx)*ABS(l-(Tx-T2)/(T3-T2)

DT2/T2=(0. 5/297 ) * 1 00 =0 . 17%

Let ES2=the error in % due to the ambient standard

in measuring the unknown.

E S 2 %= ( 0 . 1 7 *R8 )

CRYOGENIC STANDARD UNCERTAINTY (U) is 0.21%

R9=(T3/T1)*ABS((T1-T2)/ (T3-T2))

Let ES3=Error in % due to the cryogenic standard

uncertainty in measuring the unknown.

E S 3 % = 0 . 2

1 *R9

UNCERTAINTY IN MEASURING POWER RATIOS IS 0.01 dB.

Power Factor (U)=0.0023

A= 1 +T e / T

(30)

(31 )

(32)

(33)

(34)

(35)

(36)

(37)

56
B = 1 -T 2 / T 1 (38)

C= ( T 3+T e ) / (T3-T2

)

(39)

W here Te is defined as the radiometer system

temperature

Let EPR=Error due to the uncertainty in measuring

power ratio.

EPR%=0 . 23*ABS ( A-B*C) (40)

See the power equation for use with the NBS Type IV

power meter later in this section.

SYSTEM NONLINEARITY ERROR

Let the system non-line a riy error in p e r c e n t = E L 4 EL4%=(Tx-T2)*(Tx-T3)*(El)*100/Tx (41 )

where El=1.2862E-8

(See Measurement and Calculation of

System Non-linearity later in this section)

SWITCH ASYMMETRY ERROR AND PATH EFFICIENCY

(See Append ix I

)

Let ESA=The error in percent due to switch asymmetry.

Err or= 1 . 28*SEM (42)

Where SEM is the Standard error of the mean for

the actual measurements of the power ratios measured

when determining port asymmetry.

The factor 1.28 assures a 10 '/ confidence interval.

ESA%=(Error*( (T3-T2)/Tx)*100) (4 3)

Let ESI= the error due to less than infinite

isolation between the preamplifier and the

5 7
measurement ports. (The following error equation

is predicated on an isolation of 40 dB.)

Let A=the magnitude of (Tx-T2)/Tx

Let B=the magnitude of (Tx-T3)/Tx

Let C = the magnitude of the reflection coefficient of

the device under test.

Then : ESI%=0 .0258* ABS (A)+0 .0193* ABS (B)+l 43 . 6(C) /Tx (44)

Measurement and Calculation of System Linearity

Linearity of the measurement system is checked by

determining the noise temperature of a device at discrete power

levels selected to cover the linear operating range of the

measurement system. These power levels are set by varying the

settings of the system I. F. attenuator and, normally, settings

cover a 6 dB range in increments of 1 dB. 50 to 100

measurements are taken at each setting of the attenuator. All

measurements are repeated until enough samples of the system

output over the operating region are taken to provide a reliable

result. For analysis, the values obtained for the device under

test are paired. These pairs are then analyzed to determine how

much non-linearity exists between the system power levels they

represent. Results of all pairs analyzed are then combined to

determine the nonlinearity error constant, El, which is

subsequently used to evaluate system non-linearity in (41).

Let Tx' =nominal noise temperature of the device measured.

Let T2'=the nominal value of the ambient standard.

58
Let T3 /= the nominal value of the cryogenic standard.

(Nominally these values are 10,000, 300, and 77.)

Then

C=l/(Tx'-T2' )*(Tx'-T3' ) (45)

Let Pol and Po2 represent the two power levels

analyzed

Let Txl and Tx2=the measured noise temperatures

obtained at the respective power levels.

Let Dl and D2=the dial settings of the I.F.

attenuator used as a ratio to obtained Pol and Po2.

Then Er =C ( Tx 2 -Tx 1 ) / ( D

1 -D 2 ) (46)

Normally a minimum of 12 pairs are evaluated.

Then E1=ABS ( Average of Er)+0.64*SEM (47)

Where SEM=The standard error of the mean calculated

for Er. El is now used in equation (41) to determine

system non-linearity error. El was determined to be

1 . 2862E-8

Power Equation For Use With The NBS Type IV Power Meter

During a measurement, the desired port is selected and the

noise power from the device connected to that port is measured

under computer control using the Type IV power meter, reference

voltage generator, and digital multimeter. The reference voltage

output is adjusted to equal the power meter voltage with no rf

power applied to the thermistor mount before the measurements

begin. This zeros the instrument. (Refer to figure 7. Rf power

is removed from the thermistor mount by switching system switch

59
number 1 to its terminated port.) Power is then determined with

the scanner and system switches providing the proper conditions.

A normal computer controlled sequence is:

1) The power meter voltage (A) is measured with the rf power

of f .

2) The power meter voltage minus the reference voltage (B)

is measured with the power off.

3)

The power meter voltage minus the reference voltage (C)

is measured with the rf power on.

4)

The power meter voltage (E) is measured with the power

off to check, drift.

5) The power meter voltage minus the reference voltage (D)

is again checked with the power off.

6) Power (P) is then obtained by:

P=[ ( A+E )-C+(B+D)/2 ]

[ C - ( B+D ) / 2 ] / RO (49)

where RO is the resistance of the thermistor mount (normally

200 ohms) [6].

60
5. MAINTENANCE

A. EQUIPMENT DESCRIPTION

Since the measurement system is largely made up of

commercially available equipment, operating, periodic

maintenance, and troubleshooting instructions can be found in the

appropriate manuals supplied with the instruments. A list of the

equipment presently being used, the manufacturer, and the model

number follows:

******************************************************************

IMPORTANT NOTICE

The specific components selected for use with the system

were chosen on the basis of suitability, availability, and costat

the time of procurement. They do not necessarily represent the

only possible choice or even the best choice. The National

Bureau of Standards states only that they were used in the system

described here. Substitution of nominally equivalent components

meeting the same specifications should cause no difficulty;

however NBS has not tested all such possible choices. *****************************************************************

INSTRUMENT NAME MANUFACTURER MODEL

1. Controller Hewlett Packard Co . 9 8 4 5 B

2. Digital Multimeter John F . F 1 uke Co

8 3 0 2 A

3. Digital Multimeter Hewlett Packard Co . 3 4 5 6 A

4 . Scanner ( 2 ) Hewlett Packard Co . 3 4 9 5 A

5. Instrument Coupler (2) ICS Electronics Co r p . 4883

6. Synthesizer S y s t r o n Donne r Co r p . 16 18

6 1
INSTRUMENT NAME MANUFACTURER MODEL

7. 2-4 GHz Preamplifier Am p 1 i c a 6331SN

8 . Amp 1 i f i e r Ae r t e c h AM 1 1 0

9. Amplifier Avant ek A V -4

10. Power Supplies Power Mate Corp BP34D

11. Noise Standard NBS Cryogenic

12. Switch Driver Module (2) NBS 30-60

13. Power Meter NBS Type IV

Technical details, schematic diagrams, and parts lists for

the switch driver modules and the associated intercabling are

included in this manual.

B. SYSTEM CHECKS

A number of checks are performed automatically in the

process of making a measurement with the system and its software.

These include: 1) A check of system power measurements which is

made by running the system power set portion of the program at

the beginning of a measurement sequence. If the power meter,

reference generator, and digital multimeter are not performing

adequately, this fact will be made apparent by the values

displayed during this program segment. Erratic and obviously

wrong power values and large variations between consecutive

measurements are the usual indication of malfunction of these

instruments. Band and measurement port switches are also

exercised during this test, and defective switching can cause a either a substantial spread in measurement results, no change in

62
power when a measurement port is changed, or a null to be read at

one or more ports. 2) System voltage checks are made

automatically before the measurement sequence begins. The values

of these voltages are displayed . The operator must approve the

displayed values before measurements continue. These checks

reaffirm that the voltmeter portion of the digital multimeters

are working properly^ that intercabling between instruments is

intact, and that the system power supplies are adjusted and

functioning properly. 3) Large scatter in successive readings of

power taken during a calibration are an indication of erratic

switch operation or poor peripheral instrument performance.

Experience will dictate what this scatter should be for a given

item. Three times the standard error is normally below 1 percent

of the noise power measured.

In addition, system operation is verified in two other ways

during a measurement sequence.

1) Measurements of the device under test at two different

power levels are required and will pinpoint excessive system nonlinearity .

2) During a measurement sequence, automatic evaluation is

made of two check standards. If the results of the evaluation

are out of tolerance, applicable reference standards with

effective noise temperatures of 10,000 K, 6,000 K, 3,000 K , 377

K, and 77 K can be checked immediately to test system accuracy.

These measurements provide an excellent check of overall system

performance. Results obtained by measurement of the reference

standards are the single most important indicator of system

6 3
precision and accuracy. These results will show whether or not a major failure has occurred in such a subtle manner that the

failure was not detected by other checks.

If the system fails to perform properly during any of the

tests, try to pinpoint the location of the trouble by logically

analyzing in which test the trouble occurred, and working

backwards to isolate the instrument or component responsible for

the failure. For example, if a switch is intermittent, the tests

outlined will give an indication of the measurement port involved

(possibly a large scatter in power measured at one port).

Improper switch operation can then be isolated to the faulty

switch and/or driver card by parts substitution and in-circuit

testing. Software written specifically to exercise and test the

switches is available in a program named "SWITCH". This program

exercises all system switches and indicators connected with the

switch driver modules. To use this program, simply load "SWITCH"

and press run. All switches are exercised in a logical sequence,

and the system indicators along with measurements that can be

made at the switch terminals aid in finding faults in this

section of the measurement system. In the event that a major

repair is made on the system preamplifiers or input port

switches, a complete analysis of the impedance and noise figure

of the radiometer "front-end" should be made and parameters

contained in the Z-matrix changed if necessary. System linearity

and bandwidth should also be re-evaluated and the constants

relating to these parameters changed in the system software if a change in the constants occurred.

Diagnostic tests of commercial units, to which faults have

64
been isolated, can be performed by following the instructions

provided in the applicable operation and service manual.

With the exception of the switch test program, no

specialized diagnostic software has been written to aid in

troubleshooting the equipment because the above described tests

will isolate most faults to at least the instrument level.

C. COMPONENT DESCRIPTION AND TECHNICAL INFORMATION

For commercial equipment used in the system, this

information is available in manuals supplied by the manufacturer.

1. Switch Driver Modules

Two of these units are utilized. The first one controls

the switches contained in the 30/60 MHz radiometer and the noise

power measuring section shared by both systems; this unit is

comprised of power supplies, remote switches, a decoder card, LED

(light emitting diode) display, and switch driver output cards.

Two types of switch driver cards are used in this unit; one type

is used to control 15 V switches and the other type is used to

provide control for the 25 V programmable attenuator. This

switch driver module also contains an output display card with

its associated analog meter. This output display card is the

only card requiring adjustments and these are covered with the

description for this card. The second switch driver module

contains driver cards to control the measurement port,

reflectometer, and radiometer switches for all bands contained

in the automated radiometer from 0.35 to 12.0 GHz. Two types of

switch driver cards are used in this module also. One type,

identical to the second described for the first unit above,

65
controls the 15 V switches. The other type though, is completely

different and supplies the -28 V control for the Transco rotary

band switches used in the system. The modules are designed so

that if a card is of the same type, it can be interchanged

between modules. In the following descriptions, cards with a

first digit of 1 such as 110, 113, etc. are located in the first

module described. Cards with a first digit of 2 such as 210,

213, etc. are located in the second module.

a) Power Supplies and Switches

The switch driver modules contain one 5V power supply

which supplies operating voltage for the integrated circuits

on the decoder, switch driver, and output display cards.

15 V, 25 V , a n d -28 V drive voltages for the switches controlled

by the switch driver cards are also supplied to this unit from

external power supplies after passing through two remotely

controlled switches. This permits the drive voltage for the

system switches to be turned on and off by the controller.

Also present in one unit are the positive and negative 15V

supplies for the operational amplifiers on the output

display card.

b) Card 110, Decoder Card

This card uses a type 7442 decoder chip which is a BCD to

decimal decoder (1 of 10). Four of these elements are used;

one spare which is presently not used is supplied. Figure

12 shows the truth table for this type of decoder chip. In

Figure 12, the BCD (binary coded decimal) inputs labeled D,

C, B, A correspond to device pin numbers 15, 14, 13, and 12
respectively. The decimal outputs listed correspond, in

ascending order, to device pin numbers 1 through 10.

Inputs from the controller are sent to the decoder card via

the instrument coupler. These inputs are decoded and sent

to the proper switch driver card to achieve the desired

switch action. Referring to Figures 10 and 7, outputs from

pins 33, 35, 38, and 40 on this card control the switching

of ports 0, 1, 2, and 3. Outputs from pins 41 and 43 select

either the port 0-1 position or the port 2-3 position of

switch #6. Outputs from pins 46 and 48 position switch // 5

to connect ports 0-3 or port 4 to the remainder of the

measurement system. Outputs from pins 49 and 51 select

either the 30 MHz or the 60 MHz position of switches 4a and

4b. As can be seen in Figure 10, input pin 24 on the decoder

card is the "strobe” input for all of the decoder chips.

This signal is used to enable the decoder output. Removing

this signal provides for removing switch current wit h out

disturbing switch position. This signal is utilized in this

manner to prevent heating of the switches. Outputs from

pins 7 and 8 on this card are used to control the remote

switches for the 15 V and 25 V power supplies for the switch

drivers. The output from pin 9 on this card is used as a control bit for the thermistor mount switch and provides for

removing current from this switch after it is properly

positioned. The output from pin 6 on this card is the return

flag signal to the controller from this card.

The LF.D display on the front panel of the first switch
driver module is located on the decoder card. The upper 8 bits

of the display represent the digital input bits to the decoder

since a LED is connected to pins 10, 21, 12, 11, 14, 15,

16, and 17. The lower portion of the LED display is formed

by connecting a LED to each of the following output pins: 33, 34,

38, 40 , 41 , ^3, 46, 00 O' 51 , 54 , 56 , 7 ,8 , and 9

By

observing the lower portion of the display, the output o f

the decoder card can be determined a t any time. The LED display

o n the f ront panel of the second switch control module i s arranged in a different manner, but the operation is similar.

The control bits from the decoder card are routed to the LEDs o n

the front panel, and the front panel display is labeled to show

which port, strobe, or other function is enabled at the time.

Table 4 lists the instrument coupler control bits to the

110 decoder card and describes the switches controlled as well as

the connections to the computer to switch driver cable connector,

J 1 0 4 .

c) Card 210, Decoder Card

Physically, this card is identical to the 110 decoder card

except that the LED output display for this card is located on

the front panel of the switch control module number 2 instead of

being located on the front of the card.

Inputs to this card are received from the controller via

J204. Refer to Figures 10 and 3. The port control section on

this card is identical to that on the 110 card with outputs at

pins 33, 34, 38, 40, 41, 43, 46, and 48 providing control for

measurement port switches 24, 25, 23, and 22. In addition

outputs from pins 7, 8, and 9 provide control for

68
rad iome t e r / re f 1 e c t ome t e r switches 13a and 13b in the 2.0 to 4.0

GHz radiometer. Corresponding switches in the 0.33 to 0.50, 0.5

to 1.0, 4.0 to 8.0, 8.0 to 12.0 GHz radiometers are also

controlled by these outputs as well as the rotary band switches.

Table 5 lists the instrument coupler control bits to this card

and descr i b e s the s wit c hes controlled as well as the computer to

switch driver connector pins contained in J20

TABLE 4 COMPUTER TO SWITCH DRIVER CONTROL VIA INSTRUMENT COUPLER 1 INSTRUMENT COUPLER 1

GROUP

DIGIT

BCD —

J204 PIN

Q 4 - MS D - 842 1 - BCDE

Q3

MSD1

842 1 FHJK

Q2

MS D2

842 1 LNMP

Ql

M S D 3 842 1 RSTU

GROUP CPU BIT J 1 0 4 PIN BCD SWITCH CONTROLLED

1 5 B 8 NOT USED

14 C 4 NOT USED

Q4 1 3 D 2 PROG ATTEN 8DB

12 E 1 FROG ATTEN 4 DB

1 1 K

10 J

Q3 9 H

8 F

8 PROG ATTEN 2 DB

4 PROG ATTEN 1DB

2 SWITCH 1 0 A & 10B 3D B STEP

1 SWITCH 1 POWER MEASURE

Q2

76

54

L

M

N

P

8 +15 V 25 V CONTROL

4 CONTROL BIT (STROBE)

2 SWITCH 4 A AND 4B 30 OR 60 MHZ

1 SWITCH 5 PORT 4

3 R

2 S Q 1 1 T

0 U

8 SWITCH 8 & 6 PORT 3

4 SWITCH 8 & 6 PORT 2 2 SWITCH 7 & 6 PORT 1

1 SWITCH 7 & 6 PORT 0

69
TABLE 5 COMPUTER TO SWITCH DRIVER CONTROL VIA INSTRUMENT COUPLER 2 INSTRUMENT COUPLER 2

GROUP

DIGIT

BCD--

J2 04 PIN

Q6

- MS D

- 842 1 - BCDE

Q5

MSD1

842 1 FHJK

Q 4 MSD2

842 1 LNMP

Q 3 Q 2 Q 1 MSD3 MSD4 MSD5

8421 8421 8421

RSTU dcba jhfe

GROUP CPU BIT J 2 0

PIN BCD SWITCH CONTROLLED

23 B 8 SW. 1 6 A AND 16B

2. 0-4.0 RAD./REFL.

22 C 4 SW. 1 5 A AND 1 5 B Q6 1. 0-2.0 RAD./REFL.

21 D 2 SW. 21 & S 2 6 B , S26C, S26D

POS. 3; 8.0-12.0 BAND

20 E 1 SW. 20 & S 2 6 B , S26C, S26D

POS. 4; 4. 0-8.0 BAND

1 9 F 8 SW. 19 & S 2 6 B , S26C, S26D

POS. 2; 2. 0-4.0 BAND

l 8 H 4 S 2 6 A POS . 3; S26B, S26C,

Q5 S26D, POS. 1; 1. 0-2.0 BAND

1 7 J 2 S 2 6 A POS. 4; S26B, S26C,

S 2 6 D POS. 5; .5-1.0 BAND

1 6 K 1 S 2 6 A POS . 3 ; S26B , S26C

,

S 2 6 D POS. 6; .35-. 5 BAND

1 5 L 8 STROBE 2

1 4 N 4 STROBE 1

Q4 1 3 N 2 SW. 14A AND 1 4 B RAD./REFL.

0.5 -1.0 BAND

12 P 1 STROBE
TABLE 5 continued

COMPUTER TO SWITCH DRIVER CONTROL VIA INSTRUMENT COUPLER 2 INSTRUMENT COUPLER 2

GROUP Q 6 Q5 Q 4 Q3 Q2

DIGIT MS D MSD1 M S D 2 MS D 3 MS D4

BCD 842 1 842 1 842 1 842 1 842 1 J204 PIN BCDE FHJK LNMP RSTU dcba

GROUP CPU BIT J 2 04 PIN BCD SWITCH CONTROLLED

1 1 R 8 SW. 13A AND 13B

0.35-0.50 RAD./REFL.

10 S 4 SW. 22 PORT 4

Q3

9 T 2 SW. 23 AND 24 PORT 2

8 U 1 SW. 23 AND 25 PORT 1

7 d 8 SYNTHESIZER L.O TO FREQ LOCK

6 c 4 SW. 9 A AND 9 B 5/30 I.F.

Q2

5 b 2 SW. 18A and 18B 8.0-12

RAD./REFL.

4 a 1 SW. 17A AND 17B 4. 0-8.0

RAD./REFL.

3 j 8 SW. 1 1 A AND 1 1 B 94 GHZ STEP

2 h 4 SW. 27A AND 27B 94 GHZ RAD . Ql

1 f 2 SPARE

0 e 1 SPARE

Q1

MS D5

842 1 jhf e

71
"* 33 o CR3

“* 35 l CR 10

HO 3 CRiZ

=* HI 0-lCf^3

_,H3 2-3 CRH

48 M CP48

30 CRl7

„51 60 CRl8

^ 54 CR 23

56 CR 24

7

8

9

CR 19

CR 20

CR 21

S*£Tk FLS T g CR22

110-210 DECODER CARD 8 CHEMATSC DIAGRAM

FIGURE 10
10

7M00

M

7M0M

3

7M0M

' 9

TWM2

6

7MW2

7

7MMI

6

2

•7M6M

1

5

7<WZ

110-210 DECODER CARD PARTS PLACEMENT

FIGURE 11

73
D

0

0

0

0

0

0

0

0

1

1

1

1

1

1

1

1

SN7442

BCD INPUT DECIMAL OUTPUT

C B A 0123456789

0 1

1 0

1 1

1 1

1 1

1 1

1 1

1 1

0 1

1 0

1 1

1 1

1 1

1 1

1 1

1 0

1 1

1 1

1 1

1 1

1 1

0 1

1 0

1 1

1 1

1 1

1 1

1 1

1 1

1 1

1 1

1 1

1 1

1 1

1 1

1 1 1 1

DECODER TRUTH TABLE

FIGURE 12
d) Switch Driver Cards

The two switch driver modules use three different switch

driver designs. One is intended to use the decoder outputs

from cards 110 and 210 to control switching. This configuration

is found on cards 111, 112, and 113, and 211. The other model

uses a data bit and a control bit from the controller with no

decoder in between. This configuration is found on cards 114,

212, 213, and 214. Use of this card represents a hardware update

to utilize a design incorporated in the automated radiometer.

Referring to Figure 13, the cards are configured for the decoder

input model by installing jumper wires between points B and C,

and points D and E with no connection between points D and C and

points A and B. There are 4 complete switch driver circuits on a card; Figure 13 shows only one of these circuits for

illustration purposes with inputs and outputs for all four

circuits indicated by multiple pin numbers. Inputs are in pairs

and produce outputs in pairs (inputs of the proper polarity at

pins 46 and 48 produce outputs of opposite polarity at pins 9 and

7). Connected to opposite sides of a switch, these outputs cause

it to toggle with a change in polarity. Inputs which cause the

paired outputs to have the same polarity produce a positive

voltage which is applied to both sides of a switch. There is no

current flow, and as a result, the switch does not toggle. The

30/60 MHz system port switches // 7 and //8 shown in Figure 7 are

controlled by the outputs of driver card 111. The action of

switches #5 and #6 in Figure 7 is controlled by driver card 112.

The frequency selection switches //4a and //4b also shown in Figure
5v

rot*TM0* go rn"6' m 5 S § *> J

01 *° m i. M X S « D O X fe |l^ </>

©Oo<s

IAJ X©«<©

su> ©

UJ

G£3O o &m s „

ifiJ «- s -

fO r> ^ a

(*

a 3 O 7 6
7HOO

D50025

m

U \

US

7400.

U2 U3 UH

•DSO02S*

D Z D3 DH

8WITCH DRIVER CARD PART8 PLACEMENT

FIGURE 14

7 7
7 are controlled by the output from d river card 113. The .35 to

12.0 GHz radiometer port switches 22, 23, 24, and 25 shown in

Figure 3 are controlled by driver card 211. Card 114 is similar

to the other switch driver cards but, as previously mentioned, is

designed to operate without the decoder. To configure this

card, remove the jumpers described previously and install jumpers

between points A and B and points D and C. Binary bit 7 or decimal 128 from the decoder card is used as the enabling input

for the drivers on this card. It is applied to pin 19 on card

114. The source for this control bit is the controller. This

same configuration is used on cards 212, 213, and 214 to control

the radiometer/ reflectometer switches and some of the band select

switches on the .35 to 12.0 GHz automated radiometer system.

The 25 V switch driver cards 115, and 116 are identical to

card 111 except for the 25 V drive voltage output. This voltage

makes it necessary to use the DS0025 chip for a driver. In this

case the resistors must be shorted. Also, pin 11 of the 7400

chip should be bent up or tied high. This is necessary for the

switch driver to properly operate the programmable attenuator

switches

There is one other switch driver configuration used with

this system. It is used to control the Transco rotary band

switches. This configuration is shown in Figure 15. It is found

on cards 217, 218, 219, and 220. This switch driver is a reversed polarity model and the drive voltage controlled is -28V.

This requires a completely different design; silicon controlled

rectifiers are used as the switch instead of the clock driver

7 8
0

— 90

CM CM

in t*- — to

04 CM tO fO

inooh79

TRANSCO

SWITCH

DRIVER
TRANSCO SWITCH DRIVER PARTS PLACEMENT

FIGURE 16

80
chips used on the other cards. Control signals from the

controller are inverted by the hex inverter chips at the card

input and then decoded by the and gate logic which follows.

Outputs from the AND gates turn on the desired SCR (silicon

controlled rectifier) and this in turn provides a current path

for the -28 V drive voltage through the control winding of the

-Trans co switches. Current through this winding is quenched by

the opening of internal switch contacts which interrupt the drive

current. Care should therefore be exercised in programming these

devices since damage to the switch can occur if two inputs occur

simultaneously

.

e) 117 Output Display Card Operation and Adjustment

Figure 17 is the schematic diagram for this card. Figure

18 is the parts placement diagram, and Figure 19 is the schematic

diagram for the front panel connections. The output display

printed circuit card monitors the output of the diode detector.

The input on pin 13 is amplified by IC-501 and input to the

overload level comparator, IC-506, through the ove r 1 oad -ad j us

t

potentiometer "H" (R5). If the rf power exceeds 5 milliwatts the

overload comparator triggers and latches. This energizes the

sonalert alarm and overvoltage LED via Pin 52. The comparator

cannot be reset by pressing the reset button until the power

level has been reduced to a safe level.

The incoming signal level is also processed through a series of amplifiers to the front panel RF level meter. The

output of the log-amplifier, I C 5 0 1 , passes through a sample

and hold circuit, IC-502. The output of the sample and hold

81
circuit drives the log-amplifier, I C - 5 0 4 , to convert the

meter reading to a dB scale. IC-503 forms a constant current

source to set the zero reference of the log amplifier. The

output of IC-504 is connected to the input of the meter

driver amplifier, IC-505. The gain of this amplifier is

switched for gains of 10, 1, and .1 to obtain meter scales

of 1.0 decibel, 0.1 decibel, and 0.01 decibel. Potentiometer

"D" (R14) adjusts the times 1 scale zero reference.

Adjustment of the Output Display Card

This is the only card in the switch driver module which

requires adjustment. Adjustment is necessary only when the

circuit has been repaired. The adjustments establish the

logarithmic amplifier gain for the decibel scale on the

front panel signal level meter and set the overload alarm

threshold. Complete alignment requires two, 1 milliampere

constant current sources. Refer to Figure 16 when adjustment of

the 1700 card is performed. Adjustments should be made in

the following order:

1. Mount the 1700 printed circuit card on a PC extension

card and remove the signal input cable from the diode

detector to the front panel.

2. Connect an external voltmeter between TP 1 and ground.

Adjust "A" (R7), DC offset of first amplifier, for zero

on the voltmeter.

3. Connect the external voltmeter to TP V and adjust offset

control, "C" (R9) for a zero reading on the voltmeter.

4. Remove the jumper from test point V to test point W

82
Connect a temporary jumper from test point X to test

point Y. Adjust "E" (R19), DC offset of the first logamplifier, for a zero voltmeter reading.

5. Remove the temporary jumper from test point X to test

point Y. Remove the jumper from TP Z to TP Zl. Connect

one +1 milliampere constant current source into TP Zl

from ground. Connec the other +1 milliampere constant

current source into TP W from ground. Set both

current sources to 1 milliampere. (Place two suitable

current meters in series with the sources and adjust

the output of the current sources to 1 milliampere on

these meters.) Connect the external voltmeter between

TP 2 and ground. Adjust "F" (R20), % the DC offset

of the second stage of the log amplifier, for zero volts

on the voltmeter.

6. Remove both constant current sources. Replace the jumper

from test point V to test point W. Replace the jumper

between test point Z and test point Zl.

7. Connect a suitable cable between the DET IN jack on the

front panel and the system diode detector output

connector at one end of coaxial switch // 1 .

(a) Place a diode noise standard on port 0 and

apply voltage (normally 28volts) to it.

(b) After making sure all ports are properly

terminated, turn the measurement system on.

(c) Place the preamplifier voltage switch to the 30

MHz or up position.

83
(d) Turn on all system power supplies.

(e) Load the measurement program (30M20).

(f) Type the following on the 9845 keyboard:

OUTPUT 702 ; "0" , "0" , "7" , "0"

PRESS EXECUTE

(g) Remove the termination from the auxiliary port

on system switch // 1 . Place a suitable

thermistor count on this port and connect it to

an external power meter.

(e) Set attenuator A 2 for 1 milliwatt of system

output power at this port.

8. Connect an external voltmeter to TP 1. Adjust "B" (R6),

the first amplifier gain, for 1 volt on the

voltmeter.

9. Adjust system attenuator A2 to set the external power

meter reading to 2 milliwatts. Switch the meter range

selector on the front panel to the XI position. Adjust

"D" (R14), log reference zero offset, for a zero reading

on the front panel signal level meter.

10. Increase the setting of system attenuator A2 by 5 dB.

Adjust "G" ( R 2 1 ) , log- amplifier gain, for a front panel

meter reading of -5 divisions. Decrease the attenuator

A2 setting 10 dB and note the front panel meter

reading. Touch up "G" if necessary to obtain

approximately a +5 reading on the meter scale. Re check

the -5 reading.

11. Set the input attenuator for a power level of 1

84
milliwatt on the power meter. Readjust "D" for a +3

read ini’ on the front panel meter.

12. Adjust the front panel attenuators for a 5 milliwatts

( + 7 d B M ) power indication on the power meter. Adjust

"H" (R.5), overload threshold adjust , clock wise until

the alarm sounds. Now turn R5 1/2 turn counterclockwise. Reduce the input power and push the reset

button on the front panel. Slowly increase the power

to test the alarm threshold. The alarm should be

activated at the +5 milliwatt power level.

13. Adjust attenuator A2 until the external power meter

reads 2 milliwatts. Adjust "D" (R14), log reference

zero offset, for a zero reading on the front panel

signal level meter.

This completes the alignment of the Output Display Card.

These adjustments do not affect system operation or accuracy.

They do however, affect the quality of the information conveyed

by the display to the operator.

85
&e

I

86

JJO

JM

NO

4M

IDMOi
117 OUTPUT DISPLAY CARD PARTS PLACEMENT

FIGURE 18

8 7
FP tJ 117

©

^ U-II7- II

^ vn

K

x .01

X .1

X I

ti.ro shift

v

output

o

liv^l

Overload

=-oToRESET

45*,

iSv,

overload (r>

R.F.©H(G)

§>

26

28

{£>

30 '

23

43

£> 39

$> HI

27

-*J^>

32

3H

H9

-6> H7

5H

Iff OUTPUT DISPLAY CAP© FRONT PANEL CONNECTIONS

FIGURE 1®

8 8
2. INTERCONNECTION AND WIRING DIAGRAMS

The system interconnection cables include the IEEE 438 bus

cables which connect the controller to the scanner, digital

multimeter, and instrument coupler. In addition to the

instrument bus interconnection cables, the equipment is coupled

together by the following:

TABLE 6

SYSTEM CABLES--INSTRUMENTS TO SCANNER

Cable # Figure # Source Destination

1

.

Cable 1 20 DC Power Supplies Scanner 2

2 . Cable 1 a 20 Scanner DMM 1 Rear Panel

Input Connector

3 . Cable 2 20 Type IV Power Meter Scanner

4 . Cable 2a 20 Scanner Rear Panel

Input Connector

5 . Cable 3 2 1 Ambient Standard External

Te rminal Bd . On Scanner 1

7 . Cable 4 2 1 Cryogenic Standard External

Terminal Bd.

On Scanner 1

8 .. Cable 5 2 1 External Terminal

Board on Scanner

DMM Front

Input Terminals

9 . Cable 6 22 6-Por t Out put Scanner 2 Input

10 Cable 8 22 Scanner 2 DMM 2

The cables listed in Table 6 are those directly concerned

with the transfer of measurement information from the various

instruments t 0 the digital multimeters which act as central

processing points since they measure the cable outputs and send

the measured results back to the controller on the IEEE 488 bus.

89
Commands from the controller are sent to the switch control

modules via the instrument couplers. The switch control modules

then operate the system switches by accessing them through the

module to switch intercabling. Figures 23 through 50 detail the

pin connections of the output jacks on the switch driver modules.

Components numbered between 100 and 200 are associated with

switch driver module 1 while those numbered between 200 and 300

are associated with switch driver number 2. An overview of all

connections made to the switch driver module from the controller

and within the switch driver module number 1 to the various

switch driver cards is shown in Figure 22.

Figure 23 is a diagram of J104 which is the input cable from

the instrument coupler to the switch driver module number 1.

Figure 24 is a diagram of J102 which is the output jack from

the switch driver module to the system switches.

Figure 25 is a wiring list for J - 1 0 2 and its associated

cable

Figure 26 is a diagram showing the inputs and outputs to J

-

110, the decoder edge connector.

Figures 27 through 33 are diagrams of the switch driver card

edge connectors J-lll, J-112, J — 1 13, J-114, J — 1 15, J-116, and J117 contained in switch driver module 1.

Figure 34 is a listing of the connections to J-202.

Figure 35 details the switch driver module end of the

transco switch driver control cable.

Figure 36 details the connections to the switch driver

module from the computer.

Figure 37 shows the outputs from and inputs to the decoder

90
card in switch driver module 2 at J-210.

Figures 38-45 show the outputs and inputs to the switch

driver cards in switch driver module 2 at J - 2 1 1 , J - 2 1 2 , J - 2 1 3 , J

-

214, J - 2 1 5 , J-216, J - 2 1 7 , J-218, J - 2 1 9 , and J-220. Outputs from

these jacks control all radiometer switches associated with all

bands from .350 GHz to 12.0 GHz.

Figures 46-48 show the details of the interconnection

between the switch driver modules and the switches.

Figures 49 and 50 are diagrams showing the pinout of the

outputs from both instrument couplers. One output connector is

designated J-3a while the other is designated J - 3 b . They are the

instrument coupler outputs to switch driver module 1 and switch

driver module 2 respectively. The block on the right of each of

the figures is a listing of control bits applied to the connector

at the other end of the cable connected to J-3. This connector

(designated P-102 and P-202) plugs into the rear of each switch

driver module.

Figure 51 is a diagram showing the connections to the 6-port

output amplifiers.
SCANNER DECADE CLOW THERMAL) CHANNELS 10-19

SCANNER CONNECTIONS CABLE 1 (10-1S)

SCANNER CONNECTIONS CABLE f ClS-1?)

BOWER METER WIRING DIAGRAM AND SCANNER CONNECTIONS

FIGURE 20

9 2
• 4 OUTPUT

64

SE

W

GRD

TO onn I TO Dnn2

to Dnn 3

PLATINUM

THERMOMETER

^WWH

61-51 ». ,Sl-53 In n— *S*H AMBIENT CRYO

St-50 * —2 ,$l-52 „SML STD STD

CMM2- —3 -onn 2 3o— ,SMGRD r r r H L L

SCANNER

EXTERNAL TERMINAL

DMM FRONT

PANEL IN SE~I

rri

St-2 66*1 BETTT

4 St*S 6t-E

NOISE STAN D7k ADS WIAINO DIAGRAM AND SCANNER CONNECTIONS
M>tr as

sf

A

ft

«A

B

dsr ft fa

s

fc*

1

?i

a—

a

£

y.

= c

«0

««. «ywsSt^* raCT. c«^5itM©©O0©000««L**’

; |-W5j«yDt£ff^tfiS o

94

SYSTEM

CABLE

INTERCONNECTION

DIAGRAM
J-104

GKO j V

oo ts

j B SPAKE

DO IH c SPARE,

Do 13 D diu.-^

DO \Z E UUC-17

Do It F J USDO 10 H dllS-17

DOS C JIH-M3

DOB K JUM-J7

DO 7 L JilO-27

DOB V\ J 110-26

DOS N d 110-25

DOM' p J II0-2H

D03 R vl 110-23

DO 2 S d 110-22

DOI T d HO-21

DOO U d 110-20

‘Pcntl W dno-5

1/0 X 0110-28

TFUG r AA Jno- S

GND V _£l_ dllO-60

PIN CONNECTIONS FOR J104. SWITCH DRIVER MODULE INPUT

FIGURE 23
•Jioa

A

< d Sws-* J 112-15

JIII-21 $w?4 B e J 115-25

0 UM-21 C f

0 R

£ J SW5- J 112*39

0111-25 SW7- F K 0H5-39

0 US-25 H tn

xJ n

K p SV J 113-21

Oil |-35 6U8+ L r 0U6-2I

0HH-35 H %

N t

p V Sw - JM3-25

JIII-3R SWB- R V OHS- 25

JUS-31 S XU

T X

y M SPM*E 0113-35

v) 112-21 SW6+ V % 0116-35

J 115-21 w A A

X 6B

Y cc SPA*E 0H3-39

J 112-25 6W6- z DD 0H6-39

J i iS-25 a XX

b FT

LeJ -iHL

PIN CONNECTIONS FOR J102, SWITCH DRIVER MODULE OUTPUT

FIGURE 2 4

96
A

8RN B 0 HI-21 PORT-O SWT

BRH c

D

E

0-114- 2.1 RF ON 4

RED F J*1H* 25 POFT-S Sw7

RED H

0

K

Jl'4-25 RF OH

OR L J- 1 11-35 PORT-3 SW8

OR M

N

P

J-1W-35 REF •+

vel R J-lll-59 PORT-2 Sws

YEl S

T

u

J-II4-3B REF —

GRH V J- 112-21 TR-O*! SWG

GRN w

X

Y

J-U5-21 IdB 4-

BLU z J-U2-2S TR2-3 SV6

BIU a

t>

c

J-H5-25 IdBVIO

VIO

GRY

GRY

WHT

WHT

ELK

Blk

BRH

RED

d

e

£

h

3

K

m

n

£

r

s

t

Ti

V

*W

X

y

z

AA

BB

CC

DO

EE

f f

H H

J\12*35

J-U5-35

J-U2-39

J-M5-39

J-113-21

0-iie-El

J- 113-25

*116-25

0-113-35

J-U6-35

J-U3-39

J* 1 16- 35

PORT* 4 5W5

2dB +

PORTo-3 SV5

2dB **

60 MHz

4dB 4

30 MHz

H dB “

8 dB +

8dBCOMPLETE WIRING DIAGRAM FOR J102

FIGURE 2 5
tJ 110

1 31

2 32

45v / 3 33 j in -n

TB+ ^ 4 34

J | 0«f - w 5 35 0 1 1 1- 19

0 ion - AA 6 36

+ 25v SWITCH 7 37

* I5v SWITCH 8 38 J in-41

J Hi, lS,l€- Ml 419 3 39

ID 4o J III- 43

1

1 M 1 J 112-17

12 M2

J 3 43 J l 12- 19

1 4 4 4

1 5 45

1 6 H J M2-41

1 7 47

» 8 48 JllZ-45

19 49 J 1 13-17

0 104“ U 20 50

J 1 04 - T 21 51 J 1 13-19

d 104- s 22 52

J 104- R 23 53

J 104“ P 24 54 J 113-41

Jlo4- N 25 55

a S04” M 28 56 4113-43

0 l©4- L 27 57

J 104- X 28 58

23 59 1 -5 V 6ND

-20- 60 J TBJ110 DECODER INPUT AND OUTPUT CONNECTIONS

FIGURE 26

98
tJ III

J w o - 33

d 110-35

d 102-B

d 102-F

415V TB

1 31

2 32

3 33

H 3H

5 35

6 3G

7 37

e 38

9 39

ID MO

1 \ H I

1 z HZ

13 S3

14 H H

15 M5

IS MG

17 M?

IB M 6

13 MB

20 50

21 51

22 52

23 53

24 54

25 55

26 56

27 57

2B 59

29 59

_ia_ _£o_

“I5v TB

d I02~L

JI02-R

d 1 10-38

vJ 1 !O“M0

Tt

GND

Jill. SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS

FIGURE 27

99
rJ 112

J I IO"H\

d 110-43

JIOZ-V

J 102*2

+ 15 TB

1 Z\

z 32

3 33

H 34

5 35

6 36

7 37

8 36

9 39

10 HO

U 41

(2 42

S3 M3

SH 44

15 45

SB MB

17 47

18 MB

19 M9

20 50

21 51

22 52

23 53

24 54

25 59

2S 56

27 57

28 5©

£9 59

Z2_ 50

-I5TB

d 102 -a

v) 102-

J

JU0-H6

dllO-MB

6ND-TB

GND-TB

J112, SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS

FIGURE 28

100
v) 113

J i i

1 3\

2 32

3 33

4 34

5 35

6 36

7 37

8 3B

9 33

10 4 D

It Ml

12 M2

13 M3

14 44

15 MS

IB MB

J 110-49 17 47

18 MB

dUO-51 19 49

20 50

Jio2-t 21 51

22 52

23 53

24 5^

d 102 -jj 25 55

! 26 56

t 27 57

28 5B

-+l5VT£) 23 5^

3D 60

SWITCH DRIVER CARD INPUT AND

-15vT&

vJ 102-tf

01 O2-CC

J UO-Si

J 110-56

}

-TB

<»ND

FIGURE 2 9

10 1
d IOH-K

d i iO“9

tj )02‘C

d 102-H

-f 15 v

d 114 * fSvTB

d I02“M

J114 SWITCH DRIVER CARD INPUT AND CONNECTIONS

FIGURE 3 0

10 2
J-l\5

-25vTB 1

2

3

H

5

6

7

6

9

1©

1

12

13

14

55

16

JIOM-H 17

18

d 110-9 19

20

0 102-W 21

22

23

24

J 102-cu 25

26

27

28

*25v 29

30

31

32

33

34

55

36

37

38

39

HO

4 \ H 2

M3

H4

0 102-E

j 102-1:

d 110-9

U 10H-F

45

H 6

47

M 8

H9

50

5^

52

53

54

55

56

57

58

S3

60

-TB

GMD

J 1 1 5 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS

FIGURE 3 1

10 3
J 104- E

j no-3

J 102-3"

U102-V

+2Ev

J-K6

i 3 S »25vTB

2 32

3 33

H 34

5 35 J IOZ-£

9 36

7 37

8 38

9 39 d I02» DD

10 MO

si M 1 0 ISO-9

12 M2

13 M3 J 104-D

MM

15 M5

S6 M 6

17 M7

18 MS

19 49

20 50

21 5

22 52

23 53

2 4 54

25 55

28 56

27 57

28 58

29 59 )-TB

30 60 J GHO

J 1 1 6 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS

FIGURE 32

10 4
d 117

ANALOG GND 1 3!

K II Z 32 FP-47

3 33

4 34 FP-48

5 35

6 3B -ISv

7 37

e 38

9 39 TP- 44

10 HO

SHIELD XTALDET. 1

4 I FP-45

\Z H2

xtal det. 13 ±45 FP- 43

14 H H

15 45

1G 48

I? 47 FP- 5« LED H

18 46

19 H9 FP“50 RESET

20 50

21 5 1 22 52 iJ-IIH- |S

TP -HZ 23 53

2H 54 LED”GRN pp-52

25 55

TP* 31 2G 56

TP- MS 27 57

TP- HO 28 58 + 5 v 29 59 GMD

TP- M

60 18

J117 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS

FIGURE 33

105
J 202

J2I2-6 A OR VlO d J a 1 1 7

0211-21 B BRH e

C £

J2I4-25 D WH h J213-39

J2l2~ 15 £ Y£L gry i J2I | - 9

J2II-25 F RED K

H in

j 2 m- 2 i V n

J2I2- ? K Blu WH t> 3212-21

J 2 1 I -35 L OR r

M $

J2I2-©

M G^m t 32S3-B

P CRh blk V J2I2-25

J2S I -39 R YEl V

S U?

T BlU X J2I3- S5

J2S3-2I y ViO BRH M J2I2-35

J2II- 6 V GRH 2

w SRM AA J 2l4- 15

X V{© BE 3213- 7

J2I3-25 Y GRY RED C C J212-39

J2II-I5 z BLO 0 D

& 11

*> GRV FT J2I3-9

J213-35 ._£j Blk RED 3UL J2H-6

J2Q2 SWITCH DRIVER TO SWITCH CABLE CONNECTIONS

FIGURE 3 4

106
0 £03

J2I9-33 A REo

J2>7-25 B Blo OR e

J220-33 C Red OR £

J2I6-33 D RED V&L h

0219-31 E GRh i

J2I7-27 F OR VEl K

J £20 -31 H GRH VEl ?n

0218-31 0 GRh Blk n

0219- 19 K wn *

J £ 1 7 -31 L GRN BLK r

0220- 19 M WH blk s

J2IS- 19 N WH WH t

J2I9- 21 P GRH u

JS26A-K R BlK WH V

J220-2I S GRH WH vu

J2l8- Z\ T &RH brh X

0219- 27 U OR H

WH JS26A

V WH BRH z

0220-27 W OR BRn A A

J2I6- 27 X OR RED 8 B

0219-25 Y BlO c c

OR JS26A-M z 5>RH red DD

J220- 25 a BuO Red XI

J2l 8- 25 b B<JJ FF

GRllJ52£C- H _.-g OR

JS26D

J S 26 B - H

0S26C- 0

JS26D0

0S2GB- 0

JS26C- K

JS26D

0S26 B- K

0S26 C

OS 26 D

JS26B

JS26C

0S26D

0S26B-M

J526 C-N

0S26D

JS26B-N

+ 28 Vslts

28V Swd

Yel

BlU

vio

6«£-<

RIO

Blk

BRN

RED

OR

Y£L

&RN

BlU

V \0

GREY

WH

Blk

v»o

Switch drwer to transco switches

S 26A S 2&S S 26C S 2SD

FIGURE 3 5

107
J20H OUTPUT

Bit # Pin

GHD

J2I2-46

J2I2-II

J2I8-I9-20.-H9 J2I3-46

J2I8-I8-20.-H7 0213- II J2I6-I9-20j- II 02l4- 11 J2l8- 13-20/- 7 J2I7-45

J2 1 8-19-20,-45 0217-47

J2l6-l9-2Q,-39 J217- 49

J2I0-27

jz\o-ze

JZ 10-25

J2I0-24

3210-23

J2I0-22

J2I0-2I

J 210-20

GNO

J 210-

5

J2IO-28

J2i3- 17

J2I3-H3

0214- 17

A &UK. d

B RED e

C OR f

D YEl h

E GRH 4

F BO) X

H V so m

0 GRY n

K g>us p

L WH r

rv R££> s

N OR t

p YEl u

R CRM V

s aui UJ

T M\0 X

y azi SI V Bu<

w WH BRN A A

x DR 8 B

Y c c

z D D

a CRM E E.

b VI© F F

e iLH.

J 210-6

W XJ

1 - T

2 - S

3 - R

4 - P

5-

N

6-

tt

7- L

8- K

9-

J

10 - H

11- F

12- E

13- 0

14-

C

15- B

16

-

a

17- t>

16 -c

19-ct

PCNTL ~

W

i/d - x

PFLG - AA

COMPUTER TO SWITCH DRIVER CONNECTIONS

FIGURE 36

1 08
J2I0

. 3!

2 32

+5vTB 3 loR VEL 33

M- J 3M

J204-W 5 wrt grk 35

J204-AA 6 BRH 36

J212-M3 7 VIO 3?

J J2I2-13-I9- Ml* * M

8

8 G>RY &LU 38

JfclM-13, J213-I3--MS 8 WH 39

19 so BRW M 0

1

i* OR H 1

I 2 M2

13 LGRh M3

m MH

15 M 5

16 VIO 46

17 H7

15 cry M 8

10 WH 49

J20H-U 20 CRY 50

J20M-T 21 VIO 51

J20M-S £2 BLU 52

J20H-R 23 CRN 53

J2DM-P 2M YEL 5 M

J 2oq -

25 OR 55

J20M-n 26 REO 58

J20H- L 27 WH 57

J204-X 28 OR 58

29 r 59

^30_ L 60

J 211- 17

J2U-I9

0211 -Ml

J2U-M3

J 2ll- II

J2U- 13

J2U- MS

J2U-H6

J2l2- 17

5vGN0TB

J 2 1 0 DECODER CARD INPUT AND OUTPUT CONNECTIONS

FIGURE 37
0211

+5vTB

J2D2-V

J 202“

d

J202-

j

J 210-MI

J 2 10- M3

J2o2-

J 210-33

J2I0-35

J202-B

J202-F

+ l5vTB

1z

5

H

5

S

7

8

9

10

H

12

13

IH

15

ie

17

IB

SB

20

21

22

23

2M

25

26

27

26

ze

3o

grh

VID

GR'i

l OR

BLU

NEE

GRH

0RH

RED

OR

VEL

BUI

BRn

VlO

GRM

31

32

33

3H

35

36

37

3B

33

mo

Ml

M2

MB

MM

M5

MS

M7

MB

MB)

50

51

52

53

51

S 5

56

57

58

59

60

iSvGND TB

J 202-

J202-R

J2I0-3B

J 210- MO

J2IO-M8

J 2 10- H

8

3 GfiD TB 5 \i

J 2 1 1 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS

FS G U R E 3 8

1 1 0
J 212

J 2 1

12

BU<£ 31

32

+5vTB 3 Tor 33

M- J 34

5 Bfcrt 35

J202-A 6 OR 36

J B02-K 7 BLU 37

a 38

JZ02-P s GRN REo 39

J20M-C

10

OR

40

4 1 1

! 2 42

J 2 10-

8

13

GRV VIO 43

1 4 44

J202-E 15 VEL 45

16 46

J 2 1 0-49 17

IB

WM

GRV

47

48

10 49

20 SO

J202-P 21 WH Si

22 52

23 53

24 54

J202-U 25 BLK 55

26 56

27 57

23 58

-HSvTB 29

30 >» [

- 50

- 60

5 v GND TB

0 202-4

J 2 10- 7

J 2o4-

5v£NDTB

2 SWITCH DRIVER CARD INPUT ANDOUTPUT CONNECTIONS

FIGURE 39

1 1 1
J 213

i r

31

2 L 32

*Sv7B 3 h

33

M- j 34

5 Bik 35

J 202-t S GF« 36

0 202-BB ? V 6© 3?

a 38

J202-FF s GRY WH 39

10 H 0

J204-E ! ! CRN GRY H I 12 42

J2I0-9 S3 WH VlO 4 3

m 44

J202-X S 5 BLU 45

SG yel 46

J 2oS - cu 17 CRN 4 7

18 WH H8

J 2 10- 8 S 9 grv 49

20 50

J202-U 21 VlO 51

£2 52

23 53

24 54

J202-Y 2 S GRV 55

2 6 56

27 57

28 58

29 l r

59

*f ISvTB 30 J L 60

ISvTBGND

J 202-

C

0202-b

0210-8

J20Mb

J204-

0210-9

5vGN0TB

J2 13 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS

FIGURE 40

1

2
J 214

J2 1

12

Ej

31

32

+Ev TB 3

]

oR 33

H- 34

5 35

J202-HH 8 RED 36

? 3?

a 38

0 39

10 H 0

0 204-P 1 s BLU H S

I 2 H 2

J 2 10'S 13 WH 43

m 44

J202-AA 15 BRH 4 5

16 46

J2DM-C 17 47

IB 4 8

J2I0-9 10 49

20 SO

J2o2 0 2 S 58

22 52,

23 S3

24 5 H

J202D 25 55

26 56

27 57

28 58

23

Dred P 59

+l5vTB 30 L 60

15vQND TB

SvGNDTB

4 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS

FIGURE 41

1 1 3
J 257

J 2 1 7 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS

FIGURE 42

1 1 4
d 218

J 2 1 8 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS

FIGURE 43

1 1 5
xJ £ 19

J 2 1 9 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS

FIGURE 44

16
J220

J 203-

J 203» C

*SV OR

J 204-

+ EV

SVGKO

J 204“

J

J 204-

J 204-

0

CRN

Reo

&L.K

el*

GREV

GRN

YEL

J 2 2 0 SWITCH DRIVER CARD INPUT AND OUTPUT CONNECTIONS

FIGURE 45

1 1 7
ORIGIN ZZOZ SlG NAHE ORIGIN JZ02, SiG KAK\E

.TPlP-0 OR A 4 SW I5A + I56 .1211 “7 VIO FORTH 5W22

J2il-_2J B PORTO SvlZH e

C f

D -Sv,'«A*9 = 1213- 39 _ wh h -SWJ8ATJ8B

,1£l2- 15 V£L E -SWI5A+I5B ,1211-9 1 Rdrtso-3 Sv/22

J2l 1-25 F PORT ' SW2H X

H m

j 2 m- 2 1 tJ SB n

J2l£- 7 6LU K +SWI6A4 166 J212e21_ WVL

?> 4SV) I3A 4 13B

_j£ii-35 OR L Ports Sw25 _ r

n s

N JZI3-6 G5^ 4 SW £0

J2I2-9 G*W P -SW16A+16B J212-25 u -SW!3A4 13B . J2M-59 N£L R PQRT.3..SVJ25

j

“V 9 HJ

T J2I3- 15 Boo X -SW20

J2I3-2I VI

0

U TSWI7A4 17 B 0212-35 H +SW IHA 4 14B.

J 21 - R V Td-1 BW23 z

w J2IM- 15 BKN A A -SW 19

X ,1213- 7 U10 B B 4 SW 21

J2I5-25 GRS Y -SWI7A-H7B J2I2-39 red £ C -SWlHA* 1M B

J2ll-_I5_ Slo Z ^-3 SW23 mr

a E E

b J2I3-9 CsRN F F - SW 21

,7213-35 rSwiaA4 i8B J2lH- 6 RLO H H + SW 19

CONNECTIONS AND CONTROL F U N C T I O N S J 2 0

FI G U R E 4 6

1 1 8
CARO Function \NPJT SOURCE OUTPUT DfcST MOTION

Zll Port o SW2M n J2IO-33 £1 J 202 B

£11 Port \ sw24 l9 J2I0-35 25 J202 F

211 PORT 2 &W25 Ml J210-36 35 3202 L

zw PORT 3 SVJ2S M3 J210-H0 39 J202 R 1 z\\ BRANcho-i SW 23 U 0210-41 15 J202Z | 211 branch 2-3 Sw£3 >3 J2 10-43 I 6 3 202 V

211 Porto-3 Svj22 M6 J2IO-4G 9 J202 j | 211 Port h SW22 M8 J210-M8 ! 7 J 202 d

1 212 SWl5a + 15 b + 11 J204-C : 15

1

l J 202 E - - 13 J2I0” B s J 202 A

212 SWlGa-M6b + MS J 204-B 0 J 2o2 P

M8 3 210' 6 7 J202 K

212 SWl3a+|3b + 17 J 210- 49 25 J 2o2 u

— 19 J2I0- 6 21 3202 ?

212 SWl43.Tl4b + M3 J 210- 7 39 3 2o2 CC

Ml J2I0- 8 35 3 202 y

213 sw i7d+nb + 17 J204-a 25 J202-Y ! 19 J2I0-8 21 3 2o2-u | 213 SVi8a+l8b + Ml J 210-8 35 3 2o2-c

— M3 J 204-1. ' 39 3 2o2--h

j 213 SW 20 + 13 J2I0-9 e J2o2-t

II J204-E 15 J 202 ~ fp

213 SW 21 + 48 J 210-9 7 J202-6B

4£ J 204-

9 J2D2-FF

214 SW 19 + 13 J 210-9 6 ; J202-HH

n J 204- F 15 J Z02-AA

SWITCH CONTROL FUNCTIONS AND CONNECTIONS

FIGURE 47

1 1 9
Source J203 S1G NAME SOURCE JZ03

J 219 -33 A _ a$S 26C- F rf .1217-25 Su> p> JS 26 A- C J5 26D-W OR § JS26D

J 220- 33 K£s> c ,1526 0-F JS286-H PR f J326 B"

J

J2I8 -33 PTE£> p •JS26B-F JS26C-J . Y€l b JS26C-2

J2I0- 31 CArt F JS26C- E

0J

8217-27 0* F 3526AJ5 JS 28 D" J vet K JS26D-2

J220- 31 GRH H JS260-E JS26 6-J Y£L rn JS2GB-2

J21B- 31 GSM 0 _8S26B-_& JS26C-K ®LK n J526C-3

3219- 19 _ ww K JS2GC-A ?

3217-31 GW L •JS26A-E 3526D-K &LK r JS280-3

J220-J9 UH M JS26D

3S266-K. _ 6LK 3 JS26B-3

J2i8- 19 W'rt N JS26B-A J328P-L VJH t vJSZ6C- M

3219-21 GSM P JS26C-B u

JS26A-K BU H JS26A-3 JS26D-L Wtt *v JS26 D- M

3220-21 OSH $ 8526 D-B JS266-L WU LU JS26 B- 4

J2I6-21 JjM _X„ JS26 B- b JS26C-M X 0S26C-5

J2I9-27 oa _JLL J526C-P 4

J$26A~ L Wa V _ JS26A- *4 JS26D-M Z JS26D- 5

J220-27 C* W J5260-D JS26B-M A A J526 B-5

3218'2/L CA X JS26B-D JS28C- N 6 B JS26C-B

_J2i9-25 Y JS2SOC C C

j52EA-n ..£&^ z JS26A-5 JS26D-M Rfl> DD JS26D-6

_3ZZ0-25 &LU a JS2R0-C JS26B-N E E OS26B-0

J218-25 ftu) b JS26 B-C

j 26

V

? F 28 \j

JS26C-H OR JS26C- 1 i 2 COW GNE H H GttO

Sw ?0S 8 ND Pm

1 A

2 B

3C

M D

5 E

6 F

I H

2 d

3 K

H L

5 M

6 W

350-500 3 S

500- ! COD *4 5

1 000- 200© 5 8 2000- MOO© 2

M0OO-80O© M

8ooo-s2Hoo 3

NOTARY SWITCH CONTROL FUNCTIONS AND CONNECTIONS

FIGURE 4 8

12 0
SWITCH DRIVER 1

J IOH-V

IhSOZ- JIOM'P

fcHSDZ ^ J 10M-N

8HSD2- - J iOH-W

BMSD3 - J

"l JlOH-F

nsoi |

2 J l0H ’ H

1 jioh-j

.8 JIOH-K

fl JlOM«€

2 J 104-D

tA506

JlOZw

1 ©LK CLEAR -a, i 12 OR

O 1 32

z MEL 33

BRH 34

5

FEH-& 35

£ BUJ 36

7 SR 3?

e

GRH ww 38

a SlX - 6LJJ 39

10 WH CRH H 0

1

CRH 4 1 12 42

13 &LV 43

m &LK 44

i 5

VEL MS

1 £ &LK MS

17 47

18

Blk

H 8

10 M9

20 50

2!

CLEAR 51

22 52

23 &RH 53

24 54

2 S 55

26 56

27 57

28 58

29 59

30 60

J S04-U

J 104-T

JS04-S

s MSD3

V

HSD 5

6HD V

DC\5 6

DOW C

0013 D

D0I2 E

Don F

DOtO H

DO9 j

DO 8 K

DO 7 L

DO 6 M

DOB N

DOM P

DO 3 R

00 2 S

DO 1 T

DO 0 U

PCITT L W

I/O X

PFL6 AA

GND A

DO 16 &

DO 17 b

DO 18 C

DO 19 d

INSTRUMENT COUPLER OUTPUT J3A

FIGURE 49

1 2 1
SWITCH DRIVER 2

TO J-204 PIN # TO J-204 PIN *

nsoz

A1SDZ

MS 03

msds.

MSDS

Msvj

V

-p

-M

-M

MSD

MSD£

nsD^f

3 Blk clear i

1 1 3 1 GND V

2 OR 32 0015 6

3 ^EL 33 DOIM c

f 31 D013 D

5

.SSL^4 35 DO 12 E

6 BLU 36 D01I F

? BR 37 DCIO H

8 W m 38 5 009 j

8 BLX &LH 38 r ( NS D

3

DO 8 K

10 wh GRH 4 0 yj D07 L

n grh H I DO 6 n

12 M2 DOS N

13 H3 DOM P

m BlK Ml 003 R

IS V£L 45 6 C MSDi, DO 2 S

IS SLK MS * \

DO \ T

17 47 DOO U

15 Blk 48 PC(TIL W

18 49 I/O X

2D So PFLG AA

2!

CLEAR 51 GND A

Z2 52 DO 16 &

23 BRN 53 DO \1 b

21 SM DO 18 c

2 5 55 DO 19 d

2€ 56

27 57

28 58

29 59

30 60

INSTRUMENT COUPLER OUTPUT J3B

FIGURE 50

1 22
I'

I <0

1 2 3

PORT

OUTPUT

AMPLIFIER
4. PARTS LISTS

Information relating to the parts lists for the digital

voltmeter, scanner, instrument coupler, thermistor mount, power

meter, and power supplies can be obtained from the instrument

manual supplied by the manufacturer. The parts lists for NBS

manufactured equipment will be found in TABLE 8. Manufacturers

Codes used in these parts lists are tabulated in TABLE 7.

124
TABLE 7 MANUFACTURER'S CODE TABLE

3 M

AB

ALCO

AMPU

BRNS

BUD

CORG

DATL

DIAL

DUNC

3 M Company, Electronics Products Division

3 M Center

St. Paul, Minnesota 55101

Al len-Brad ley Company

1201 S. Second Street

Milwaukee, Wisconsin 53204 f

Alcoswitch Division of Alco Electronic Products,

P.0. Box 1348

Lawrence, Massachusetts 01842

Amphenol Connector Division

Bunker-Ramo Corporation

Broadview, Illinois 60153

Bourns, Incorporated, Trimpot Division

1200 Columbia Avenue

Riverside, California 92507

Bud Radio Incorporated

4605 East 355th Street

Willoushby, Ohio 44094

Corning Glass Works

Electronic Products Division

Corning, New York 14830

Datel Systems, Incorporated

1020 Turnpike Street

Canton, Massachusetts 02021

Dialignt Corporation

Division of North American Phillips Corporation

Brooklyn , New York 11237

Duncan Electric Company, Inc.

2865 Fairview Road

Lafayette, Indiana 47902

125

Inc .
T A B L E 7 MANUFACTURER'S CODE TABLE continued

GARY

ITSL

MOOT

MONO

MOT

NATL

MBS

S AMT

SC BE

Garry Manufacturing, Inc.

1010 Jersey Avenue

New Brunswick, New Jersey 08902

Intersil, Incorporated

10900 North Tan tau Avenue

Cupertino, California 95014

Modutec, Incorporated

18 Marshall Street

Norwalk, Connecticut 06854

Precision Mono lit hies, Inc.

1500 Space Drive

Santa Clara, California 95050

Hotorala Semiconductor Products,

2002 West 10th Place

Tempe, Arizona 85281

National Semiconductor Corp.

2900 Semiconductor Drive

Santa Clara, California 95051

National Bureau of Standards

325 Broadway

Boulder, Colorado 80302

Samtec, Incorporated

2652 Charlestown Road

New Albany, Indiana 47150

Scanbe Canos a Industries

3445 Fletcher Avenue

El Monte, California 91731

Incorporated
TABLE 7 MANUFACTURER'S CODE TABLE continued

S E AC

SPRG

TIIER

Seacor, Incorporated

598 Broadway

Norwood, New Jersey 07648

Sprague Electric Company

418 Marshall Street

North Adams, Massachusetts

Thermal loy Inc.

2021 West Valley View

Dallas, Texas 75284

012147

127
TABLE 8

PARTS LIST FOR SWITCH DRIVER MODULE COMPONENTS

DECODER CARD

( 110 , 210 ) Catagory 1 Resistors

R1 lea Resistor, Carbon, 0.25W 5% AB FSN 5905-681-6462

Catagory 4 Diodes

CR 1 -CR24

,

2 4 e a LED Indicator DIAL 550-0506

Catagory 5 UirCU-LLS

U1 , lea I . C . Hex Inverter T

S N 7 4 0 4 N U 2 , lea -L • C • Hex Inve r t er T

SN7404N

U 3 lea I . C . Hex Inverter T

SN7404N

U 4 lea I . C . Hex Inverter T

SN7404N

U 5 lea I . cDecoder TSN7442N

U 6 lea I . c

Decoder T I SN7442N

U 7 lea I . cDecoder TSN7442N

U 8 lea I . c

Decoder T I SN7442N

U 9 lea I . c

Decoder TSN7442N

U 10 lea I . c

Quad Nand Gate T

SN7400N

Catagory 6 Connectors

lOea DIP Socket 14 Pin THER 8 2

0

4 -N F -4 1 4 -

SWITCH DRIVER CARD

(111,112,113,114,115,116,117,211,212,213,214)

Catagory 1 -Resistors

R 1 4 ea Resistor, Carbon , 0 . 2 5W 5% , IK AB FSN 5905-681-6462

R 2 4 ea Resistor, Carbon

,

0. 2 5W 5% , IK AB FSN 5905-681-6462

R 3 4 ea Resistor

,

Carbon

,

0 . 2 5 W 5 Z , 1

AB FSN 5905-681-6462

R4 4 ea Resistor

,

Carbon , 0 . 25W 5 % , 1 K AB FSN 5905-681-6462

Catagory 4 Diodes

CR 1 4 ea Diode Rectifier M0T0 1 N 4 0 0 4

CR2 4 ea Diode Rectifier M0T0 1 N 4 0 0 4 CR 3 4 ea Diode Rectifier M0T0 1 N 4 0 0 4 CR4 4 ea Diode Rectifier MOTO 1 N 4 0 0 4

128
TABLE 8

PARTS LIST FOR SWITCH DRIVER MODULE COMPONENTS continued

Cat a gory 5 Integrated Circuits

U1 4 ea I. C. Quad Nand Gate TI SN7400N

U2 lea I. C. Hex Inverter TI SN7404N

U3 2ea I. C. M o s Memory Clock Driver NATL DS0U25C

U4 2ea I. C. Mos Memory Clock Driver NATL DS0025C

Catagory 6 -Connectors

5 ea 14 Pin DIP Socket THER 8204-NF-4 1 4-

4 ea 8 Pin DIP Socket THER 8204 -NF-4 0 8-1

OUTPUT DISPLAY CARD

(117)

Catagory 1 -Resistors

Rlea Resistor, Carbon, 0. 25W, 5%, 15K AB CB

R 2 2 e a Resistor, MF, 0 . 23W , 1 % , .IK C0RG NC 5 R 3 4 ea Resistor, MF, 0 . 25W , 1%, 10K C0RG NC 5 R4 lea Resistor, MF, 0 . 25W , 1%, 1 0 0 OK C0RG NC 5 R5 lea Resistor, MF, 0 . 2 5W , 1 % , 5 . IK C0RG NC 5 R 6 3 e a Resistor, Var , Trim , CERMET, 10K BRNS 3006WR 7 lea Resistor, Var , Trim , CERMET, 2 0 K BRNS 3006W-1

R8 Same as R6

R 9 2 e a Resistor, Var, Trim, CERMET, IK BRNS 3006WRIO 4 ea Resistor, MF, 0 . 23W

,

1 7o

, 200K CORG N C 5 R 1

Same as RIO

R 1 2 Same as RIO

R 1 3 Same as RIO

R 1 4 Same as R6

R 1 5 lea Resistor, MF, 0 . 2 5W , 1 % , 2 K C0RG NC 5 R 1 6 Same as R3

R 1 7 Same as R3

R 1 8 lea Resistor, MF

,

0 . 25W , 1%, 2 0 K CORG N C 5 R 1 9 2 e a Resistor, Var, Trim, CERMET , 2 K BRNS 300-62-

R 2 0 Same as R19

R 2 1 Same as R 9

R 2 2 lea Resistor, MF, 0 . 25W , 1 %, 51 IK CORG N C 5 R2 3 lea Resistor, MF, 0 . 2 5W

,

1 % , IK CORG N C 5 R 2 4 Same as R2

R 2 5 lea Resistor, MF, 0 . 2 5W , 1 % , .01K CORG N C 5 R26 lea Resistor, Carbon, 0. 25W, 5%, .IK AB CB

R 2 7 lea Resistor, Carbon, 0. 2 5 W , 5%, 2 . 7 K AB CB

R 2 8 Same as R3

R 2 9 lea Resistor, Carbon, 0. 2 5 W , 5%, 4 . 7 K AB CB

R 30 2 e a Resistor, Carbon, 0. 2 5W, 5%, 3 9 K AB CB

129
TABLE 8

PARTS LIST FOR SWITCH DRIVER MODULE COMPONENTS continued

OUTPUT DISPLAY CARD

(117)

R 3 1 Same as R 3 0

R 3 2 lea Resistor, Carbon, 0 . 25W , 5%, 2 7 K AB CB

R 3 3 lea Resistor, Carbon, 0 . 2 5W , 5%, 10K AB CB

R 34 lea Resistor, Carbon, 0 . 25W , 5%, IK AB CB

R 3 5 1 ea Resistor, Carbon, 0 . 2 5 W , 5 Zo

, 24 . 3

AB CB

Cat a gory 2 Capacitors

C 1 2 e a Capacitor, Disc, . 0 0 1 U F C 2 lea Capacitor, Disc, Ce ramie , . C 3 lea Capacitor, Polycarbonate,

C 4 2 e a Capacitor

,

Disk, . 0 1 UF

C 5 Same as C4

C 6 4 e a Capacitor

,

Tant, 35V, 2 2 U F C 7 lea Capaci tor, DIP, Mica, 1 50PF

C 8 2 e a Capac itor

,

Tant, 20V, 4 7 U F

C 9 Same as C8

CIO Same as C6

Cl 1 Same as C6

C 12 Same as C6

C 1 3 lea Capacitor , DIP, Mica, 1 00PF

C 14 3 e a Capacitor, HI -K MONO, 50V , C 1 5 Same as C14

C 1 6 Same as Cl

C 1 7 Same as C14

1UF

1UIF S E AC CMK

1UF SPRG 5C023 105X025053

Catagory 4

• -DiodesD 1 1 ea Diode , Silicon, 100V MOT 1N4 1 53

l. a l a g o i y

IC 1 lea I . C . Op Amp MONO OP-05C

I C 2 lea I . C . Sample and Hold DATL SHM-LM-2

I C 3 lea I . C . F ET , Op Amp NATL LH0042C

I C 4 lea I . C . Log Amp ITSL I CL 8048ECBE

I C 5 lea I . C . Op Amp NATL LM741C

130
TABLE 8

PARTS LIST FOR SWITCH DRIVER MODULE COMPONENTS continued

OUTPUT DISPLAY CARD

(117)

I C 6 2 e a I . C . Timer NATL LM 55 5

I C 7 Same as I C 6

I C 8 1 e a I . C . One Shot T

SN74121N

I C 9 lea I. C. Nand Drive T

SN7552N

IC 1 1 lea ' I . C. Hex Inverter T I SN74LS04N

Catagory 7 m • /

K 1 2 e a Socket

,

Round, DIP, 8Pin SANT

K2 lea Socket

,

Dual, In-line, DIP SANT IC-316-SC

K 3 Same as K 1 J 1 2 ea Jack, Jumper, IC, lPin GARY AA-C

J 2 Same as J1

T 1 lea Term, Test Point, lPin GARY AA-C

Catagory 10 Ha rdware

B 1 PC Brd , RF Process Ckt NBS PC-500

TRANSCO SWITCH DRIVER CARD

( 2 1 7 , 2 1 8,2 1 9,220 ) Catagory 1 Resistors

R1 8ea Resistor, 1/4 watt, carbon, IK, 5% AB CB

R2 Same as R1

R3 Same as Rl

R4 Same as Rl

R5 Same as Rl

R6 Same as Rl

R7 Same as Rl

R8 Same as Rl

Catagory 4 Diodes

SCR1 8ea Silicon Controlled Rectifier RCA COXO 448 40526

SCR2 Same as SCR1

SCR3 Same as SCR1

SCR4 Same as SCRl

SCR5 Same as SCRl

SCR6 Same as SCRl

131
T A B L E 8

PARTS LIST FOR SWITCH DRIVER MODULE COMPONENTS continued

TRANSCO SWITCH DRIVER CARD

(217,218,219,220)

Catagory 4 Diodes

SCR7 Same as SCRl

SCR8 Same as SCRl

Catagory 5 Integrated Circuits

IC1 lea I.C. Hex Inverter T I S N 7 4 0 4

I C 2 2 e a I. C. Quad 2 Input And Gate TI SN 7408

Catagory 10 Hardware

B 1 PC Brd, RF Process Ckt MBS PC-8-74

Front Panel and Chassis

Catagory 1 Resistors

R 1 lea Resistor, Var, 10 Turn, 10K DUNC 3253

Catagory 3 Diodes

D 1 lea LED, Green DIAL 9173

D 2 lea LED, . Red DIAL 550-0506

Catagory 6 Connectors

J

lea Connec tor , Panel, BN C AM P!I U 6 4 9 2 / U

J 102 lea Connector , Amp , 50 Pin AM PH AMP 2 0 0 2 7 7 2 J 104 lea Same as J 1 0 2 J 1 1 0 6 e a Edge Connector, PC, 50 Pin AM PH 261-10030

Jill Same a s J1 10

J 1 1 2 Same as J 1 10

J 1 1 3 S a m e as J1 10

J 1 1 4 Same as J1 10

J 1 1 7 Same a s J1 10

Catagory 8

S 1 lea Switch, AC Power, Toggle ALC0 M ST 1 0 5 D

S 2 lea Switch, Push Button ALC0 MSP 1 0 5 F S3 lea Switch, Rotary , 3Pole ALCO M R B - 3 - 3

C a t a g ory 9 Meters--

Ml lea Meter, Panel, 0 Center, 1 . 5 M a MODT 2 5 DMA 1 . 5U 1 .

132
TABLE 8

PARTS LIST FOR SWITCH DRIVER MODULE COMPONENTS continued

Ca tagory

Catagory

Ca t a g o ry

Front Panel and Chassis

10 Hardware

Plate, Front Panel 7"X9" BUD 91F363

Card Cage SC BE 6004 7

10 Hardware

Fuse holder Littlefuse 142001

1 1 — Miscellaneous

Power Supply 5V, 1A Standard SPS/ 1

133
ACKNOWLEDGMENTS

The existence of this measurement system is the result of a

joint effort involving cooperation of many people over a long

period of time. These include: Gerome Reeve for the original

system design; William C. Daywitt for the d e s i g n of the broad band

cryogenic standard, error analysis. and theoret ical support; and

Neil Larson and John Wakefield for the hardware design

refinements and technical support.

134
REFERENCES

1 Counas, G. J., T. H. Bremer; NBS 30/60 Megahertz Noise

Measurement System, Operation and Service Manual, NBSIR

81—1656; December 1981

2 Miller C. K. S., W . C. Daywitt , and M. G. Arthur; Noise

Standards, Measurements, and Receiver Noise Definitions;

Proc. IEEE. 55, pp. 365-877; June 1967

3 Wells J. S., W. C. Daywitt, and C. K. S. Miller;

Measurement of Effective Temperature of Microwave Noise

Sources; IEEE Trans, on I&M, IM-13, pp. 17-28; 'larch 1964

4 Daywitt, William C.; A Coaxial Noise Standard For The 1 GHz

To 12.4 GHz Frequency Range; NBS Technical Note, 1983

5 Hoer, Cletus A.; Using Six-Port and Eight Port Junctions To

Measure Active and Passive Circuit Parameters; NBS

Technical Note 673, September, 1975

6 Engen, Glenn F.; Calibrating the Six-Port Re f 1 e c t ome t e r by

Means of Sliding Terminations; IEEE Trans. on MTT, Vol.

MTT-26, No. 12; December 1978

7 Larson, N. T.; NBS Type IV Power Meter, Operation and

Maintenance Manual; NBSIR 77-866; October 1977

8 Daywitt, William C.; Private Communication

135
APPENDIX I

PORT ASYMMETRY MEASUREMENTS

NBS AUTOMATED RADIOMETER

2.0 TO 4.0 GHZ

136
PURPOSE OF TESTS:

The purpose of. the tests was to determine the error to be

expected due to port asymmetry of the NBS Automated Radiometer in

the 2.0 to 4.0 GHz frequency range.

DESCRIPTION OF TESTS:

The port asymmetry tests are based on an error model created

by W. C. Daywitt. To determine port asymmetry using this model

requires two noise sources and an ambient load. The noise

temperature of the two noise sources need not be known. Refer to

Figure 1A. This figure shows the system port arrangement used in

the tests. All ports used have type N coaxial connectors as did

the ambient load and two noise sources.

To evaluate the error due to port asymmetry, the two noise

sources (XI and X2 ) are connected to ports 0 and 1 respectively.

A special computer program is utilized which provides for the

determination of the complex reflection coefficients of the

system measurement ports and the two noise sources mentioned

previously

This program also accomplishes the automatic switching of

the port switches and measurement of the noise power at ports 0,

4, and I in that order. This is done a minimum of 25 times and

the ratio of power at port 0 (noise source 1) and the power at

port 4 (ambient load) is calculated for each switching cycle.

The same ratio is determined for noise power at port 1 (noise

source 2) and port 4 (ambient load). At the end of 25

measurements, the average of the two ratios is then calculated

and stored. The two noise sources are then interchanged and the

137
AMBIENT

LOAD

8

o=o

UiCO

I CPCM

I

I 80

CM

I

13 8

SYSTEM

PORT

SWITCHES

USED

IN

ASYMMETRY

TESTS
process repeated. Upon completion of the second set of

measurements , the port asymmetry is calculated as follows:

Refer to Figure 2A.

With source 1 at port U and source 2 at port 1:

XO = ( 1 -Mag ( G x 1 ) "2 ) ( 1 -.'lag (Gs 1 ) ~2.) ( 1 ) Y0=(l-GxlReal*GslReal+GxlImag*Gslimag)~2 (2)

ZO=(GxlReal*GslImag + G s 1 R e a 1 * G x 1 I m a g ) ~ 2 (3)

Mx 1 =X0 / ( YO + ZO ) (4)

Where Gxl=Complex reflection coefficient of the source at port 0

Gsl=Complex reflection coefficient of the system at port U

X 1 = ( 1 -M a g ( G x 2 ) ~ 2 ) ( 1 -M a g ( G s 2 ) ~ 2 ) (5 ) Yl=(l-Gx2Real*Gs2Real+Gs2Imag*Gx2lmag)~2 (6)

Z 1 = ( Gx2 Rea 1 *Gs 2 Imag+Gs 2 Re a 1 *Gx2 I mag

) ~ 2 (7)

Mx2=Xl /(Yl+Zl ) (8)

Where Gx2=complex reflection coefficient of source at port 1

Gs2=coraplex reflection coefficient of system at port 1 When the noise sources connected to ports 1 and 2 are

interchanged, llxl' and Mx 2

' are calculated using equations (1)

through (8). Gx2 is substituted for Gxl in equations (1) through

(3), resulting in Mxl / when solving equation (4). Gxl is

substituted for Gx2 in equations (5) through (7), resulting in

Mx2 ' when solving equation (8).

Then:

[ (Mxl *Mx2 ' ) / (Mx2*Mxl , )]*[(Yx2-l)/(Yxl , -l)]*l(Yx2 , -l)/Yxl-l)]=N ( 9 ) (Ns/Nx)‘2=N (10)

N s / N x= ( N

) ~ 1 / 2 (11)

Asymmetry indB=10*Ln(Ns/Nx) (12)

Where

139
Reference plane

i

SWITCH ASYMMETRY NS/NX

FIGURE 2 A

1 4 0
Yxl=Power measured at port 0/Power measured at port 4 (13)

Yx2=Power measured at port 1/Power measured at port 4 (14)

( Power measured at port 4 is ambient power)

And

Y x 1

' and Y x 2' are calculated with (13) and (14) after the

noise sources are interchanged.

MEASUREMENT RESULTS

Using the above procedures the following measurement results

were obtained with type N connectors and no adaptors were used.

FREQUENCY MHZ PORT ASYMMETRY DECIBELS

2000 0.0044

2250 0 . 0036

2500 0.0032

2850 0.0012

3000 0.0022

32 50 0 . 005 1 3500 -0.0021

3750 0.0017

4000 0.0078

Average 0.0030

These results remain essentially the same regardless of port

selection as long as the switches operate properly. Use of

various adaptors such as GR900 to N can result in asymmetry as

high as 0.015 dB. This suggests that asymmetry should be

evaluated for the specific adaptors used. As a part of this

test, ports with right angle N adaptors were evaluated, and found

to exhibit asymmetry in the range of 0.006 to 0.009 decibel at

2000, 3000, and 4000 Mhz

14 1
A P P E N n IX II

PROGRAM LISTINGS AND VARIABLE CROSS REFERENCE TABLES

This appendix contains the listing of the measurement

program, RAD7EF. This program is currently used to make

measurements with the automated radiometer. The program is

divided into segments and each segment listed in order. Each

segment listing is followed by the cross reference table for the

variables referenced.

1 4 2
A. PROGRAM RAD7EF

8 SEPTEMBER 1983

RAD7EF

10 ! REV 2 RAD7EF 7 SEPTEMBER 1983 GJC AVAIL MEM THIS VS 58176

20 ! THIS VS HAS CODE TO UTILIZE PORT 2 FOR UNK AND 3 FOR STD

30 ! QUANTUM CORRECTION IMPLEMENTED

40 ! RE -STORE" RAD 7EF : F8" ! 6 SEPTEMBER 1983 1015

50 OPTION BASE 1 60 COM F(4 , 1 5 ) ,Z ( 1

, 80 ) ,T1 , T2 , T3 ,Qr ( 1 2 ) ,Qi ( 1 2 ) ,Final(5

)

70 COM File, Flag

80 DIM H$[100],C$[100],G$[100],R$[100],V(20),C(16,4,10),Q(3,100)

90 ! OUTPUT 704 ; "000000000000000000000000000" ! CLEAR SYNTH

100 MAT F=ZER

110 MAT Q=ZER

120 MAT Z=ZER

130 P0$="N0M 1L7K7" ! SYNTHESIZER POWER TO 2MW

140 F r =

150 Cc = 1 160 CALL Volt(V(*),Fr,Cc,C(*))

170 Ae t = 1 180 PRINTER IS 16

190 DISP "INSURE THAT ALL PORTS HAVE DEVICES ATTACHED THEN PRESS CONT"

200 INPUT "AMBIENT TEMP " , Tt

210 T2 = 27 3 . 1 5+Tt

220 INPUT "STANDARD TEMP",T3

230 Tx = 0

240 P 0 = 1 250 ! SET SYNTHESIZER TO PROPER FREQUENCY AND LEVEL

260 OUTPUT 704 ; "00H0G260E0D0C0B0A0N0M2L5K5"

270 OUTPUT 1 0 0 3 ; " 8

"

, " 8

"

, "

? "

, " 0

"

, " 4

"

, " 2

280 OUTPUT 1 0 0 3 ; " 8

"

, " 8

"

, " 0

"

, " 0

"

, " 4

"

, " 2

290 OUTPUT 702 ; "0" , "8" , "7

"

, "0"

300 OUTPUT 702 ; "0" , "8" , "0" , "0"

310 PRINTER IS 16

320 FOR K= 1 TO 5 330 CALL Power(Pl ,P2,P3,P0,Aet)

340 Y1-P1/P2

350 Y3=P3/P2

360 Tx=Tx+(T2+(T3-T2)*(Yl-l )/(Y3-l ))

370 T4=(T3-Y3*T2 ) /(Y3-1

)

380 PRINTER IS 16

390 PRINT "T4 = " ; T4 , "Tx=>" ; Tx/K

400 G=10*L0G(7 ,244E13*P2/ • 9 5 / ( T 2+T 3 ) ) !30Mhz IF

410 PRINT "G AIN =* " ; G ; "d B"

420 PRINT Pl*1000 ,P2*1000 ,P3*1000

430 Ptest=Ptest+Pl

440 NEXT K

143
RAD7EF

450 P 1 =P t e s t / ( K- 1 ) 460 PRINTER IS 16

470 PRINT "AVERAGE POWER AT PORT 0 IS " ; P 1 * 1 000 ; "MILLIWATTS

480 PRINT "AVERAGE TEMP AT PORT 0 I S

" ; Tx / ( K- 1 )

; " KEL V I NS

490 PRINT "PAUSE 580"

500 PAUSE

510 MASS STORAGE IS ":F8"

520 LINPUT "AMBIENT STANDARD TEMPERATURE IN C",H$[1,10]

530 H $ [ 1 , 10]=VAL$(VAL(H$[1 , 10] )+273.15)

540 PRINT 11 $[1,101

550 LINPUT "BAROMETRIC P RE S S U RE " , H $ [ 1

1

, 2 0

]

560 INPUT "APPROXIMATE VALUE OF UNKNOWN TO BE TESTED", E7

570 INPUT "MAXIMUM DEVIATION FROM NOMINAL TO BE ALLOWED", E8

580 PRINTER IS 16

590 ! OUTPUT 9

; " S 04 : 2 6 : 1 5 : 2 3 : 0 0 " ! RESET REAL TIME CLOCK

600 Q=FNS(4

)

610 OUTPUT 9

; " R

620 ENTER 9 ; P $

630 PRINT TAB( 15) ,P$; " : 1983"

640 CALL Get_paramet ers ( C$ , G$ , R$ , F 1

, F2 , F3 , Fn ,N3 , N8

)

650 ! 660 ! START CAL OF SYSTEM DETERMINE PATH LOSS AND START CAL SELFCHECK

670 ! 680 I n i t = I 690 CALL Cal(C(*> , P0$ , Init ) 700 ! 710 Ae t = 1 720 CALL Corr2 ( Cl , C$ , G$ , R$ , E7 , E8 , Q( * ) , Ae t ) 730 ! 740 Init=2

750 CALL Cal(C(*),PO$,Init)

760 ! START CAL OF UNKNOWN

770 ! 780 Aet=2

790 CALL Out(Cl , C $

, G $ , H$ , R $ , E 7 , E 8 , Q

( * ) ,Aet)

800 ! 810 ! GOTO 100

820 ! STORE MEAS RESULTS AND DESCRIPTION OF DEVICE

n 3 0 ! 840 CALL Descr ( P$ ,C$ , G$ , R$ , H$ , F 1

, F2 , F 3 ,N 3, N8 , Q(* )

)

850 PRINT "PAUSE 1020 PROGRAM END PRESS CONT TO RESTART"

860 PAUSE

870 GOTO 90

880 END

MAIN

Ae t 170 330 7 1 0 720 780 790

c$ 80 6 4 0 720 790 840

c( 80 1 60 690 7 50

C 1 720 790

144
RAD7EF

Cc 150 1 6 0

E 7 560 720 7 90

E 8 570 720 790

F ( * 100

F 1 640 840

F 2 640 840

F 3 640 840

Fn 640

Fr 140 160

G 400 4 10

G $ 8 0 640 720 790 840

H $ 80 520 5 30 530 540 550 790 84 0

I n i t 680 690 740 7 50

K 320 3 90 440 450 480

N 3 640 840

N 8 640 84 0


 620 630 840

PO 240 330

PO$ 130 6 90 750

PI 3 30 340 420 430 450 470

P2 330 340 350 400 420

P 3 330 3 50 420

P t e s t 430 430 450

Q 600

Q ( 80 1 10 720 790 840

R$ 80 640 720 790 840

T 2 * 210 350 360 370 400

145
R4D7EF

T 3 * 220 3 60 370 400

T 4 370 390

Tt 200 2 10

Tx 2 30 360 3 60 390 4 80

v( 80 1 60

Y 1 3 40 360

Y 3 350 360 370 3 70

Z( * 120

146
RAD7EF

890 DEF FNB(Q) !

! ( FNB

)

900 OPTION BASE 1 910 COM F(* ) ,Z (* ) ,T1 , T2 , T3 ,Qr (* ) ,Qi (* ) ,Final(* ) 920 COM File, Flag

930 FOR 1=1 TO Q

940 BEEP

950 WAIT AB S ( 1 00 * ( I -4 )

)

960 NEXT I 970 RETURN 0

980 FNEND

FNB (

I 930 950 960

Q 890 930

147
RAD7EF

990 DEF FNN ( Q ) ! ! ( FNN ) 1000 OPTION BASE 1 1010 COM F ( * ) , Z ( * ) , T 1 ,T2,T3,Qr(*) , Qi ( * ) ,Final(*)

1020 COM File .Flag

1030 DISP "( =NC )

: " ; Q

1040 LINPUT B $

1050 IF B $ [ 1 , 1 ] = " " THEN 1070

1060 RETURN VAL ( B $

)

1070 RETURN Q

1080 FNEND

FNN (

B $ 1040 1050 1060

Q 990 1030 1070

148
RAD7EF

1090 DEF FN0(P$,Q$) !!(FNO)

1100 OPTION BASE 1 1110 COM F ( * ) , Z ( * ) ,T1 ,T2,T3,Qr(*) , Qi ( * ) ,Final(*)

1120 COM File, Flag

1130 IF 12=0 THEN 1180

1140 PRINT "( =NC )NOW : ";P$;

1130 LINPUT Q

$

1160 IF Q$=" " THEN 1240

1170 P $ = Q $

1180 PRINT "( =N C ) N 0 W : ";P$

1190 I0=FNS(1

)

1200 WAIT 50

1210 LINPUT Q $

1220 IF Q$=" " THEN 1240

1 230 P $ = Q $

1240 RETURN Q

1250 FNEND

FNO (

10 1190

12 1 1 30

P$ 1090 1140 1170 1 180 1230

Q 1240

Q$ 1090 1150 1160 1 170 1210 1220 1230

149
RAD7EF

1 260 DEF FNS (Q ) ! ! ( FNS

)

1270 OPTION BASE 1

1 280 COM F

( * ) , Z( * ) , T1 , T2 , T3 , Qr ( * ) ,Qi ( * )

, Final ( *

)

1 2 90 COM File, Flag

1300 FOR 1=1 TO Q

1310 PRINT

1320 NEXT I 1330 RETURN 0

1340 FNEND

FNS (

I 1300 1320

Q 1260 1300

150
R A D 7 E F

13 50 SUB Cal(C(*) ,PO$, Init)

13 6 0 OPTION BASF 1 1370 COM F(*),Z(*),Tl,T2,T3,Qr(*),Qi(*),Final(*)

1380 COM File, Flag

1390 DIM D$[50] ,P(16,4),Pdiode(6,4,21),Zdiode(2,4),Z$[ 10 0]

1400 DIM Gl(16),Gli(16),Glr(16),Pa(16,7),Gla(16),F$[50]

14 10 PRINTER IS 16

1420 ; 1430 ! GOTO 1750

1440 FOR C a 1 = 1 TO 2 1450 Prt =Cal

1460 Ca l 2 : ! 14 70 Re c a 1 = 0

1480 IF C a 1 = 1 THEN GOTO 1520

14 90 PRINT "CAL SEQ FOR STANDARD PORT"

1 500 Pout $ = "3"

15 10 GOTO 1540

1520 PRINT "CAL SEQ FOR MEASUREMENT PORT"

1530 Pout$="2"

1540 I 1=0

1550 F 1 =Z ( 1 ,37)

1560 F 2 =Z (1,38)

1570 F 3 =Z ( 1 , 39 ) 1580 Fn= ( F2-F 1 ) / F3 + 1 !=1

1590 F = F 1 1600 GOTO 3130 ! TH I S PATH FOR READ DATA ONLY

1610 GO SUB Zerdiode

1620 GOTO 1880

1630 j ******************* DIODE ZERO CHECK***************************

1640 Zerdiode: ! 1650 PRINTER IS 16

1660 » 1670 Ndiode=4

1680 C = 0

1690 Cc = 1 1700 Ccc = 1 1710 ! ENABLE SINGLE FREQUENCY

1720 F 1 = ( Z ( 1 , 3 8 ) - Z ( 1 , 3 7 ) ) / 2 + 1 1730 F n = 1 1740 PRINT "Fn=" , Fn

1750 OUTPUT 1003 ; "8" , "8" , "

? " ,Pout $, "4" , "2 " ! 30 IF PORT 0 AND 2-4 SYSTEM CC

1760 OUTPUT 1003 ; "8" , "8" , "0" , Pout $

, "4" , "0" ! 30 IF PORT 0 AND 2-4 SYSTEM CC

1770 P = 3 1780 P0$="N 1M4L9K9" ! MAX ATTEN MIN PWR FROM SYNTH

1790 M= 1 1800 PRINT "Dzero"

1810 GOSUB Meas

1820 PRINTER IS 16

1830 PRINT Zdiode(*

)

1840 OUTPUT 1003 ; "0" , "8" , " , Pout $

, "4" , "2

1850 OUTPUT 1003; "0

"

, " 8

"

, " 0

" , P o u t $

, " 4

" , " 2

" 1860 IF Re c a 1 = 1 THEN GOTO Resume

1870 RETURN

1880 ? ********************caL SEQUENCE***********************************
RAD7EF

1890 ! 1900 OUTPUT 1003 ; "0 " ,"8" ,"?" , P o u t $

, "4" , " 2

1910 OUTPUT 1003 ; "0 " , "8" , "0" , Pout$ , "4" , "2"

1920 OUTPUT 704 ; "00H0G2F0E0D0C0B0A0N0M4L0K4" 13000 MHZ1.5MW AT LO

1930 RESET 1022

1940 M = 1 ! RESET FOR FREQ SUB PROGRAM

1950 C = 1 ! Enables C MATRIX

1960 C c = 1 ! Ca 1 ITEM II) 1=0. U.T 2=OFFSET 3-9 = SLIDING SHORT 10-14=

SLIDING LOAD 1 5 = AMBIENT STD (7 SLIDING SHORT AND 5 SLIDING

LOAD POS)

1970 Ccc = 3 1980 » itiiiiiiiii !!!!!!!!! SET CAL POWER LEVEL *1*1111*111*11(1111

1990 F 1 = Z ( 1 ,37)

2000 F2=Z( 1, 38

)

2010 F 3 = Z (1,39)

2020 Fn= (F2-F 1 ) /F3+1 !=1

2030 P = 3

2 0,40 GO SUB Setpwr

2050 GOTO 2450

2060 ON Cal GOTO 2070,2090

2070 PRINT "PLACE NOISE STANDARD (D. U. T. ) ON PORT" ; Pout $; "PRESS CONT"

2080 GOTO 2100

2090 PRINT "PLACE CRYO STANDARD ON PORT";Pout$; "PRESS CONT"

2100 Cc= 1 2110 P = 3

2 120 M = 1 2130 PRINT "D.U.T Cc=" ; Cc

2 140 Q

= FN B ( 3 ) 2 150 PAUSE

2160 M 1 = 1 2 170 Seq = 4

2 1 80 GOSUB Meas

2 1 90 GOTO 3120

2200 M= 1 22 10 PRINT "PLACE OFFSET ON PORT 0 AND PRESS CONTINUE"

2220 Q

= FN B ( 3 ) 2230 PAUSE

2240 Se q = 3 2250 Cc = 2 2260 PRINT "OFFSET Cc = " ; Cc

2270 GOSUB Meas

2280 ! GOTO 2150

2290 PRINT "PLACE IMPED CK ON PORT AND PRESS CONT"

2300 M = 1 2310 Cc = 1 6

2320 S e q = 5

2 330 Q=FNB ( 3

)

2340 PAUSE

2350 GOSUB Meas

2 360 ON Init GOTO 2 370 , 2060

2370 PRINT "PLACE AUXILIARY NOISE SOURCE ON PO RT " ; P o ut $

; " AND PRESS CONT

2380 Q=Fnb ( 3

)

2390 M= 1 2400 Cc = 1 5 2410 S e q = 6

152
RAD7EF

2420 PAUSE

2430 GOSUB Meas

2440 GOTO 3120

2450 M =

2460 PRINT "PLACE SLIDING SHORT ON PORT 0 AND PRESS CONTINUE"

2470 N p = 1 2480 C p = 1 2490 Cc = 3 2500 PRINT "SLIDING SHORT Cc=3 POS 0"

2.510 S e q = 1 2520 S s = 1 ! 1 S T POSITION

2530 Q

= FN B ( 3 ) 2540 N 1 =7

2550 PAUSE

2560 GOSUB Meas

2570 ! SLIDING SHORT ROUTINE 7 POSITIONS

2580 S s $ = V AL $ ( S s ) 2590 Q$=" PRESS CONT"

2600 D$=" SLIDE POS"

2610 PRINT D $

; " ";Ss$;" ";Q$

2620 Q

= FNB ( 3 ) 2630 PAUSE

2640 M = 1 2650 Cc=Cc+l

2660 C p = 1 2670 Np= 1 2680 Ss=Ss+l

2690 PRINT Ss

2700 IF S s = 8 THEN 27 40

2710 PRINT "SS POS"&D$&Ss$ ; "Cc=" ; Cc

2720 GOSUB Meas

2730 GOTO 2580

2740 ! SLIDING LOAD 5 POSITIONS

27 50 M = 1 2760 PRINT "PLACE SLIDING LOAD ON PORT 0 AND PRESS CONT"

2770 N p = 1 2780 C p = 1 2790 Cc= 1 0

2800 S e q = 2 2810 S s = 0

2820 Q

= FNB ( 3 ) 2830 N 2 = 5 2840 PAUSE

2850 GOSUB Meas

2860 S s = 1 2870 S s $ = V AL $ ( S s ) 2880 Q $ = "P RE S S CONT"

2890 D $ = " SL I DE POS"

2900 PRINT D $

; " ";Ss$;" ";Q$

2910 Q

= FNB ( 3 ) 2920 PAUSE

2930 M=

2940 Cc=Cc+

2950 Cp=l

2960 Np=l

153
RAD7EF

2970 S s = S s + 1 2980 PRINT Ss

2990 IF S s = 6 THEN GOTO 2200

3000 GOSUB Meas

3010 GOTO 2870

3020 S e q = 1 3030 GOTO 3130

3040 PRINT "CRYO STANDARD PROGRAMMED FOR PORT 2"

3050 OUTPUT 1 003 ; "0” , "8" , "

? " , ”2" , ”4

"

, "0" ! 30 IF PORT 3 AND 2-4

3060 OUTPUT 1 00 3 ; "0 " , "8 " , "0 " , " 2 " , " 4 " , "0 " ! CC

3070 Q=FNB(3)

3080 Seq=6

3090 C p = 1 3100 N p = 1 3110 GOSUB Meas

3120 NEXT Cal

3130 INPUT "CMATRIX FILE NUMBER", Num

3140 MASS STORAGE IS " : F 8 , 1"

3150 Num=INT (Num

)

3160 F i 1 e $ = " CM AT " & V AL $ (Num)

3170 ! CREATE File$,80

3180 ASSIGN #1 TO File$

3190 ! PRINT #1;C(*) ,Zdiode(*) ,Z(*)

3200 READ #l;C(*),Zdiode(*),Z(*)

3210 ASSIGN #1 TO * 3220 FOR 1=1 TO 15

3230 FOR F r = 1 TO 2*Fn

3240 PRINTER IS 16

32 50 PRINT C(I,1 , F r )

; C ( I , 2 , F r ); C ( 1 , 3 , F r ); C ( I

, 4 , F r

)

3260 NEXT Fr

3270 NEXT I 3280 PRINT

3290 ! 7 SLIDING SHORT AND 5 SLIDING LOAD POS ARE USED

3300 ! *************

\

3310 PRINT "CAL#", Cal

3320 PRINT

3330 FOR Cal = 1 TO 2 3340 FOR Ck= 1 TO 15

3350 FOR F r = 1 TO 2*Fn

3360 PRINT C (Ck , 1 , Fr ) ,C(Ck , 2 , Fr ) ,C( Ck , 3 , Fr ) ,C(Ck , 4 , Fr ) 3370 NEXT Fr

3380 NEXT Ck

3390 PRINT

3400 PRINT

3410 NEXT Cal

3420 PRINTER IS 0

34 30 F 1 = Z ( 1 ,37)

3440 F2=Z(1 ,38)

34 50 F3=Z( 1 , 39 ) 3460 Fn=(F2-F 1 ) / F 3+

3470 F r = 1 3480 GOTO Calz

3490 Sel: ! 3500 A=0

3510 FOR D= 1 0 TO 13 IPROGRAM SCANNER CHANNELS
RAD7EF

3520 IF Ccc<>2 THEN 3550

3530 PRINT "PLACE SLIDING SHORT ON PORT 0 —SLIDE FOR MAX VOLTAGE"

3540 PRINT "PRESS CONTINUE WHEN MAX IS OBTAINED"

3550 Di-D-10+1

3560 OUTPUT 1007;D

3570 WAIT 125

3580 IF C cc= 1 THEN GOTO 3610

3590 WAIT 500

3600 GOTO 3620

3610 WAIT 500

3620 CALL Dmm ( V 1, C

( * )

, F r , Cc , C , Di

)

3630 IF CccOl THEN GOTO 3660

3640 Zdiode(Cal , Di ) = V 1 3650 GOTO 3770

3660 IF C a 1 > 1 THEN GOTO 3700

3670 C ( Cc , Di , F r ) = V

3680 C(Cc , Di ,Fr )=ABS (C(Cc , Di ,Fr)-Z diode (Cal , Di )

)

3690 GOTO 3730

3700 C ( Cc , Di ,F r+Fn ) =V

3710 C ( Cc , Di ,Fr+Fn)=ABS (C( Cc , Di ,Fr+Fn ) -Zd iode ( Ca 1, Di ) ) 3720 PRINTER IS 0

3730 PRINTER IS 16

3740 PRINT Cc , Seq , "FR=" ; Fr ; Cal

3750 PRINT C(Cc ,Di ,Fr) ;C(Cc ,Di ,Fr + Fn)

3760 PRINTER IS 16

3770 NEXT D

3780 RETURN

3790 Meas: ! 3800 PRINT "MEAS" ,F1 ,F2 ,Fn

3810 Ml =1

3820 IF Ccc= 1 THEN Fn=l

3830 FOR F r = 1 TO Fn

3840 CALL F r e q ( F , F $

, F 1 $ , P 0 $ , M , Cc c ) 3850 Q

= 5 3860 GOSUB Sel

3870 M=2

3880 F=F4=Fl*10~6+Fr*F3*10~6

3890 PRINT "F4" ,F4 , "F" ,

3900 NEXT Fr

3910 RETURN

3920 Setpwr: ! 3930 ON P GOTO 3940, 3960,3980,4000,4020,4040,4060

3940 P$="N0M3L6K0" ! - 3DBM P $ = "N 0M4L OK 0

39 50 GOTO 4070

3960 P$="N0M3L9K0" ! -6 . ODBM

3970 GOTO 4070

3980 P $= "N 0M4L 2K0

! - 1 3 DBM

3990 GOTO 4070

4000 P $ = "N 0M4L 5 KO

! -1 6 DBM

4010 GOTO 4070

4020 P $= "N 0M4L8K0

! -2 3 DBM

4030 GOTO 4070

4040 P $ = "N OM 5L 1 KO

! - 2 6 DBM

4050 GOTO 4070

4060 P$="N0M5L4K0" ! - 2 6 DBM

155
R A D 7 E F

4070 PRINT "P, P $ " ; P , P $

4080 P0$=P$

4090 RETURN

4100 Calz:! OPTION BASE 1 4 110 ! 4130 DIM A(5,5),B(20,5),Cm(5,20),U(8),V(8),W(l,l),X(20,l),Y(10,l),Zm(4,l

4 140 ! 4150 ! Read real time clock

4160 OUTPUT 9

; " R"

4170 ENTER 9;T$

4180 Date=830000+VAL(T$ [ 1,2] ) *100+VAL(T$ [4,5])

4 l 90 Time$ = T$ [ 7 ; 5

]

4200 ! Fn "FREQ I

# G HZ " , F r e q ! SET UP MULTIPLE FREQ INDEX Fn = lFr

4210 ! INPUT "NO. OF SHORT POSITIONS AND LOAD PO S I TI ON S

" , N 1

, N

4220 N 1 =7

42 30 N 2 = 5 4240 F r =

4250 0=0

4260 PRINTER IS 16 ! 7 & 9is HPIB, 0 is address of printer

4270 Dvm= 1022 ! HPIB + address 22

4280 Scanner=1007 ! HPIB + address 7 4290 INPUT "FREQUENCY # FOR C ALC UL AT I ON " , S e

t

4300 F 1 =Z ( 1 , 3 7 ) -Z ( 1 ,39)

4310 F (

1 , 1 ) = F ( 2 , 1 )=Fl+Set*Z(l ,39)

4320 F 1 = F = F ( 1,1)

4330 ! *******************************************************************

4340 ! Index 1=1 for D.U.T., 2 FOR OFFSET, 3-9 for sliding short,

10-14 for sliding load, AND 15 for AMBIENT STD.

4350 PRINTER IS 0

4360 F ( Fr , 1 ) = F 1 4370 F z = ( Z ( 1 ,38 ) — Z( 1

, 37 ))/Z( 1 , 3 9 ) + 1 4380 PRINT " DATE Date ;

TIME : " ; Time$

4390 PRINTER IS 16

44 10 ! 4420 ! Start calibration calculations

4430 Pout$="2"

4440 FOR P r t = 1 TO 2 44 50 IF P r t = 2 THEN Pout$ = "3"

4460 FOR C c = 1 TO 16

4470 Fn=Fz

4480 Fr=Set

4490 ON Prt GOTO 4500,4550

4 500 P ( Cc , 2 ) = C ( Cc , 2 , Set ) 4 5 10 P ( Cc , 4 ) = C( Cc , 4 , Set

)

4520 P ( Cc , 1 ) =C ( Cc , 1 , Set ) 4 5 30 P ( Cc , 3 ) = C ( Cc , 3 , Set ) 4540 GOTO 4590

4550 P (Cc , 2 )=C( Cc , 2 , Set+Fn)

4560 P(Cc ,4)=C(Cc ,4, Set+Fn)

4570 P(Cc , 1 )=C(Cc , 1 , Set + Fn)

4580 P( Cc , 3 )=C( Cc , 3 , Set+Fn

)

4590 NEXT Cc

4600 PRINT USING 4 6 1 0 ; P ( 1 , 4 ) , P ( 1 , 1 ) , P ( 1 , 3 ) , P ( 1 , 2 ) ! P 3

, P 5

, P 6 , P

4610 IMAGE 4(MDZ.5D11X)

156
R A D 7 E F

4 6 2 0

4 6 3 0

4 6 40

4 6 50

4660

46 7 0

4680

4 6 90

4700

47 10

47 20

47 30

4 7 40

47 50

4760

47 70

4 7 80

4790

4800

48 10

4820

4830

4840

4850

4860

4880

4890

4 9 00

49 10

4920

4940

49 50

4960

4970

4980

4990

5000

5010

5020

5030

5040

5050

5060

5080

5090

5100

5110

5120

C a 1 = 1 Fnn=F

F rt= 1 INPUT "1 FOR OPEN 2 FOR OF F S ET " , I m pe

d

! I m p r* d = 2 ON Imped GOTO 4680,4700

GO SUB Open

GOTO 4710

GOSUB Gamo

FOR F r = 1 TO Fn

RAD

F = F ( F r , 1 ) G 1 =Gr ( Fr ) G2 = G1( Fr ) PRINTER IS 0

PRINT "FREQUENCY:"

PRINT "Real ";G1,"

NEXT Fr

! GOSUB Pon

! DIODE 1 CHANNEL

! DIODE 2 CHANNEL

! DIODE 3 CHANNEL

! DIODE 4 CHANNEL

; F ( F r , Ca 1

)

I m a g ";G2; "MAG"; SQR(G1 ~ 2+G 2

! P UT POWERS IN P ARRAY IN

10 P 5 11 P 4 12 P 6

13 P 3

2 )

; "ANG" ; Ang( Fr

)

PROPER ORDERAUSE

! SOLVE ELLIPSE FOR SLIDING SHORT

PRINT

0 = FN A ( A , A

( * ) ,B,B(*),Cm,Cm(*),D,E,F,Fr > G,J,K,N,Nl,0,P,P(*),Q,W(*),X(*)

, Y(*)

)

? 0=FNA(A,A(*) , B , B

( * ) , C m , C m ( * ) ,D,E,F,G,J,K,N,N1 , 0 , P , P( * ) , Q , W( * ) , X ( * )

, Y(* ) ) 0=FNI(A,B,Cm,F,G,0,W(*) ,Fr)

PRINT

! CALC K,L,M,RE&IM(-N/M)

PRINT "ROOT RESIDUES="

0=FNBm(A,A(*),Al,B,B(*),Bl,Cm,Cm(*),Cl,D,E,F,G,H,I,J,K,L,Nl,N2,N3,0,P

,P(*),Q,Rl,R2,S,S0,Sl,S2,T,Wl,W2,W3,X(*),Y(*),Zm(*))

PRINT

PRINT "VALUES FOR R 1

, W 1, R2 , W 2, W

3

PRINT USING 5000;R1 ,W1 ,R2 , W 2 , W 3

IMAGE 5(MZ . 5D2X)

t

! REDUNDANCY APPLICATION

0=FNL( A, A(*) ,B ,B(*) ,Cm,Cm(*) ,Fr ,1 , J ,K,L,N1 ,N2 , 0, P , P(* ) ,Q, R1 , R2 ,T,W(*)

,W1 ,W2,W3,X(*) ,Y(*))

! 0=FNL ( A , A

( * ),B,B(*),Cm,Cm(*),Fr,I,J,K,L,Nl,N2,0,P,P(*),Q,Rl(*)

, R 2 ( * ) , T , W ( * ) , W 1 , W 2 , W 3 , X ( * ) , Y ( * ) ) PRINT USING 5000;R1 ,W1 , R2 ,W2 ,W3

PRINT

! COMP A 1 ,B1 ,C1 , A 2 , B 2 , C 2 0=FNC(A,A(*),Al,A2,B,B(*),Bl,B2,Cm,Cm(*),Cl,C2,D,E,F,G,H,I,J,K,Nl,N2,

N3,P,P(*),P3,P4,P5,P6,Q,R,R1,R2,S,S3,S4,S5,S6,T,W(*),W1,W2,W3,X(*)

, Y(*) ) PRINT USING 5110; "VALUE S FOR ( RC S

* 2 -RS ~ 2 )

, RC S X , RC S Y=

" , A 1 , B 1

, C

IMAGE 34 A , 3 (XZ . 5DX ) PRINT USING 5110; "VALUES FOR ( RCL ~ 2 -RL ~ 2 )

, RC LX , RCLY= " , A2 , B 2

, C

157
RAD7EF

5130 PRINT USING 5140;"SL APPROX G AMM 4 =

"

, S Q R ( ABS ( ( B

2

“ 2 +C 2“ 2 - A 2 ) / S QR ( B

1 “

+ C1 ~2-Al ) )

)

5140 IMAGE 1 6 A , XZ . 5 D

5 150 ! 5160 ! CALC B , ( C / A

)

5170 0=FND(A,Al,B,Bl,B8,B9,Cm,Cl,C8,C9,D,E,F,G,H,I,K,Nl,N2,0,P,P(*),P3,P4

,P5,P6,Q,R,R1,R2,S,S3,S4,S5,S6,T,W1,W2,W3)

5180 PRINT USING 5 2 0 0 ; S QR ( B

8

“ 2 +B 9

* 2 )

, ATN ( B 9 / B 8

)

5190 PRINT "TEST"; SQR(B8~2+B9~2 ) ,ATN (B9/B8)

5200 IMAGE "MAG & ARG B =

" 2 ( XMZ . 5DX

)

5210 PRINT USING 5 2 3 0 ; S QR ( C

8

~ 2 +C 9

“ 2 ), ATN ( C 9 / C 8

)

5220 PRINT "TEST 2" ; SQR(C8~2+C9~2 ) , ATN (C9/C8

)

5230 IMAGE "MAG & ARG C / A= " 2 ( XM Z . 5 DX

)

5240 ! 5250 ! CALC ( 1 / A

)

5 2 60 0 = FNE ( A, A 8 , A 9 , B,B8,B9,Cm,C8,C9,D,E,F,G,Gl,G2,H,I,K,0,P,P(*),P3,P4,P5

,P6,Q,R,R1,R2,S,S3,S4,S5,S6,T,W1,W2,W3,X,Y)

5270 PRINT USING 52 80 ; SQR ( A8 * 2+A9 ~ 2

)

5280 IMAGE "MAG 1/A="D.5D

5290 ! 5300 ! CALC 6-PORT PARAMETERS

5310 0=FNH(A,A8,A9,B,B8,B9,C8,C9,G,H,I,0,R,T,Wl,W2,W3,X,Y,Prt,Pout$)

5320 PRINT USING 5330

5330 IMAGE @ 5340 ! ************************************************************

5350 ! 5360 ! Start measurements

5 3 7 0 ! 5380 Rcoef: ! 5390 PRINTER IS 0

5400 PRIN'J’ "FREQUENCY-"; Z( 1

, 37 ); " PORT =";Pout$

5410 ! 5420 ! Measure Reflection Coefficient

5430 ! GOSUBRe f

5440 ! PRINT "PRESS CONTINUE TO MEASURE MORE REFLECTION"

5450 ! PAUSE

5460 ! GO TO Rcoef

5470 Goto=l

5480 ! Z:INPUT "Z Meas, input ID// other than 1-19 or 3-19 for SS and SL" ,11

5490 IF I n i t = 1 THEN GOTO 55 30

5500 FOR 11=1 TO 16

5510 IF (11=15) OR (11=2) THEN GOTO 5870

5520 GOTO 5550

5530 FOR 11=2 TO 16

5540 IF 11=2 THEN GOTO 5870

5550 It=I

5560 PRINT !"P(3)","P(5)","P(6)","P(4)"

5570 PRINT II

5590 P4=P(I1,2)

5600 P 3 = P ( I 1 , 4 ) 5610 P 5 = P ( I 1 , 1 ) 5620 P6=P(I1,3)

5630 C c = I 1 5640 0 = FNT(A, A8 , A9 , B ,B8 ,B9 ,Cm ,C8 ,C9 , D, E , F ,G, H, I ,K, 0,P, P (* )

, P3 , P4 , P5 , P6 , Q

,R,R1 ,R2 ,S ,S3,S4,S5,S6,T,W1 ,W2,W3,X,Y,Z8,Fr,Il , G 1 i

( * )

, G I r

( * )

, G I ( *

)

158
RAD7EF

, Gla ( * )

, Pout $

)

5650 ON Init GOTO 5660,5760

5660 IF 11015 THEN GOTO 5870

5670 F(Prt+2,ll )=G1(15)

5680 F(Prt+2 , 1 2 )=Gla( 1 5

)

5690 F ( P r t + 2 , 13)=Glr(15)

5700 F (Prt+2 , 14 )=Gli ( 1 5

)

5710 F(Prt+2,9)=F(Prt ,9)

5720 F ( P r t + 2 , 7 )=F(Prt ,7

)

5730 F(Prt+2 , 3 ) = F(,Prt ,T)

5740 F(Prt+2,5)=F(Prt ,5)

5750 GOTO 5870

5760 F(Prt , 1 1 )=G1 ( 1 ) 5770 F(Prt,12)=Gla(l)

5780 F(Prt , 13 )=Glr ( 1 ) 5790 F(Prt,14)=Gli(l)

5800 IF 11=16 THEN 5820

5810 GOTO 5870

5820 PRINTER IS 0

5830 PRINT "IMPEDANCE CK MAG , ANG , RE AL , IMAG"

5840 PRINT G 1 ( 1 6 ) ,Gla( 16) ,Glr(16) ,Gli( 16)

5850 PRINT

5860 PRINTER IS 16

5870 NEXT II

5880 Mismatchl:!

5890 PRINTER IS 0

5900 ON Init GOTO 6360,5910

5910 Ml = (l-F(Prt,ll)~2)*(l-F(Prt,9K2)

5920 M2=(l-F(Prt,13)*F(Prt,3)+F(Prt,14)*F(Prt,5))~2+(F(Prt,13)*F(Prt,5)

+F (Prt , 14 )*F(Prt , 3 ) ) "2

5930 F(Prt ,15 )=M1 /M2

5940 IF P r t = 1 THEN GOTO 6020

5950 FOR 1=1 TO 2 5960 PRINT

5970 PRINT F(I , 1 ) ,F(I ,2 ) ,F(I , 3) ,F(I ,4)

5980 PRINT F(I,5),F(I,6),F(I,7),F(I,8)

5990 PRINT F(I , 9 ) ,F(I , 10 ) ,F(I , 1 1 ) ,F(I , 12 ) 6000 PRINT F(I , 13 ) ,F(I , 14) ,F(I , 15)

6010 NEXT I 6020 PRINT

6030 PRINT "SYSTEM D. U. T. PORT 2"

6040 PRINT " | Gg | "

, " Ang g","Xg","Yg"

6050 PRINT F( 1 , 1 1 ) ,F( 1 , 12) ,F( 1 , 13) ,F( 1 , 14)

6060 PRINT

6070 PRINT " | G 2

| "

, " AN G 2","X2","Y2"

6080 PRINT F( 1 ,9) ,F(1 , 7 ) ,F(1 ,3) ,F( 1 ,5)

6090 PRINT

6100 Z ( 1 ,61 ) = F(1 , 13)

6110 Z( 1

, 62 ) = F( 1 , 14 ) 6120 Z( 1 ,63 ) = F( 1 , 12 ) 6130 Z( 1 ,64 ) = F( 1 , 1 1 ) 6140 IF Prt = 2 THEN GOTO 6160

6150 GOTO 6750

6160 PRINT "SYSTEM STD. PORT 0"

6170 PRINT " | G g

| " , " An g g","Xg","Yg"

159
RAD7EF

6180

6190

6200

62 10

6220

6230

6240

6250

6260

6270

6280

6290

6300

63 10

6320

6330

6340

6350

6360

6370

6380

6390

6400

64 1 0

6420

64 30

64 40

64 50

6460

6470

6480

6490

6500

6510

6 5 20

6530

6540

6550

6560

6570

6 5 8 0

6 590

6600

6610

6620

6630

6640

66 50

6660

6670

6680

6690

6700

67 10

PRINT F(2,11),F(2,12),F(2,13),F(2,14)

PRINT

PRINT " | G 2

| " AN

G

2

" , " X2 " , " Y 2 " PRINT F(2,9),F(2,7),F(2,3),F(2,5)

PRINT

PRINT "RESULT SET 1 M EQU AT I ON =Mx

PRINT F ( 1 , 1 5 ) PRINT "RESULT SET 2 M EQU AT I ON =Ms

PRINT F ( 2 , 1 5 ) PRINT "MISMATCH FACTOR Ms/Mx"

PRINT F ( 2 , 1 5)/F(l , 15)

Final(Set)=F(2,15)/F(l ,15)

Z ( S e t ,65 ) = Final (Set ) M o n e = A 8 S ( F ( 1 , 1 3

) -F ( 1 , 3

) -F ( 2 , 1 3 ) +F ( 2 , 3 ) ) ! ( | xx-x2-xs+x0 | ) Mtwo = 6*ABS(F( 1 , 14 ) + F ( 1 , 5

) -F ( 2 , 1 4) -F ( 2 , 5)) !

6

* ( | Yx+y2-Ys-y0 | ) Z ( S e t , 2 6

) = . 4 * ( Mo ne + M t wo ) [Mismatch / E r r o r = . 4 * ( Mo n e+M t wo

)

PRINT

GOTO 6570

PRINT

PRINT

Ml = (l-F(Prt + 2,llK2)*(l-F(Prt + 2,9)~2)

M2=( 1-F (Prt+2 , 1 3 )*F( Prt+2 , 3 )+F( Prt+2 , 14 )*F( Prt+2 , 5 ) ) ~2 + ( F(Pr t + 2 , 1 3

)

*F(Prt+2 , 5) +F (Prt+2 , 14)*F(Prt+2 , 3 ) ) ~ 2

F ( P r t + 2 , 1 5 )=M1 /M2

IF P r t = 1 THEN GOTO 67 50

PRINT "AUXILIARY STD #1 PORT 2"

PRINT " | G g

| ", " An g g" , "Xg" , "Yg"

PRINT F(3,11),F(3,12),F(3,13),F(3,14)

PRINT

PRINT " | G 2

| " ANG 2","X2","Y2"

PRINT F(3,9),F(3,7),F(3,3),F(3,5)

PRINT

PRINT "AUXILIARY STD #2 PORT 0"

PRINT " | Gg | "

, " Ang g","Xg","Yg"

PRINT F(4,11),F(4,12),F(4,13),F(4,14)

PRINT

PRINT " | G 2

| " AN G 2","X2","Y2"

PRINT F(4,9),F(4,7),F(4,3),F(4,5)

PRINT

PRINTER IS 16

LINPUT "CAL FREQ #",Cal$

ON Init GOTO 6590,6650

Cal$="AUX"&Cal$

CREATE C a 1 $ , 2 0

ASSIGN // 3 TO C a 1 $

PRINT # 3 ; F

( *

)

ASSIGN # 3 TO * GOTO 6760

Cal$="Cal"&Cal$

CREATE Cal $,20

ASSIGN #3 TO Ca 1 $

PRINT #3; F(*) ,Final(*)

ASSIGN # 3 TO * FOR 1=1 TO 5 PRINT "FREQ I

, "MISMATCH F ACTOR" ; F i na 1 ( I )

160
RAD7EF

6720 NEXT I 6730 ! RETURN

6740 PRINT

6750 NEXT Prt

6760 SUBEXIT

6770 ! 6780 Ntirae:! Gets new time from clock

6790 OUTPUT 9;"R"

6800 ENTER 9;Nt$

6810 Ne wt $ = N t $ [ 7 ; 5 ] 6820 RETURN

6830 ! 6840 Re f 1 : ! REFLECTION COEFFICIENT MEASUREMENT ROUTINE

6850 IF Re c a 1 = 1 THEN GOTO 6950

6860 PRINTER IS 16

6870 PRINT "DEVICE TO BE TESTED (D. U. T. ) ON PORT 0 PRESS CONT"

6880 Q=FNB ( 6

)

6890 PRINT "Zdiode"

6900 PRINT Zdiode(*)

6910 Recal=l

6920 F r = 1 6930 GOTO Zerdiode

6940 Resume : ! 6950 OUTPUT 1 00 3

; "0 "

, "8 ", "

? " , Pout $

, " 4

"

, "0 " ! 30 IF PORT 3 AND 2-4 REFL

6960 OUTPUT 1003 ; "0" , "8" , "0" , Pout $

, "4" , "0" ! 30 IF PORT 0 AND 2-4 REFL CC

6970 PRINT "CONNECT DEVICE TO BE MEASURED AND PRESS CONTINUE"

6980 GOSUB Ntime

6990 PRINTER IS 0

7000 PRINT TAB(40); "DATE:";Date;" TIME:";Newt$

7010 F=F ( Fr , 1

)

7020 LINPUT "DEVICE DESC",P$

7030 PRINT P$

7040 F 9 = Z ( 1 , 3 7 ) 7050 F 1 =F 9

7060 F 2 =F

7070 Cc = 1 1 = 16

7080 F 3 = 1 7090 Fn=

7100 M = 1 7110 Ccc = 3

7120 C =

7130 P = 3 7140 GOSUB Setpwr

7150 GOSUB Meas

7160 FOR D i = 1 TO 4

7170 Vl=C(Cc ,Di ,Fr)

7180 P ( Cc , Di ) = V 1 7190 PRINTER IS 0

7200 PRINT P ( Cc , Di

)

7210 0=FNT(A,A8,A9,B,B8,B9,Cm,C8,C9,D,E,F,G,H,I,K,0,P,P(*),P3,P4,P5,P6,Q

,R,Rl,R2,S,S3,S4,S5,S6,T,Wl,W2,W3,X,Y,Z8,Fr,Il,Gli(*),Glr(*),Gl(*>

, Gla ( * )

, Pout $ ) 7220 PRINTER IS 16

7230 NEXT Di

7240 RETURN !!!!!!!!!!! LOOP FREQ IN CALLING ROUTINE

161
RAD7EF

7 2 60

7 2 7 0

7 280

7 2 90

7 300

73 10

7 3 20

7 3 30

7 340

7 350

7 360

7 3 7 0

7 380

7 390

7400

74 10

7420

7 4 30

7440

74 50

7460

74 70

7480

7490

7 500

7510

7 520

7 5 30

7540

7 550

7 560

7 570

7 5 80

7590

7600

7610

7620

76 30

7640

7 6 50

7660

7670

7680

7690

7700

77 10

77 20

7 7 30

7 7 40

7 7 50

7 7 60

7 7 70

7780

7 790

Open: ! CALCULATES R AMD I PARTS AND ANG OF OPEN Z

F n = 1 PRINTER IS 0

PRINT "FREQUENCY=" ; F ( 1

, 1 )

; "MHZ"

Co=.1635*lE-12

FOR 1=1 TO Fn

F = F(Prt ,1 ) * 1 E 6

Cr(I)=(l-(50*2*PI*F*Co)~2)/(l+(50*2*PI*F*Co)~2)

Gi( I ) = -100*2*PI*F*Co/( l + (50*2*PI*F*Co)'> 2 ) DEG

An g ( I ) = ATN ( - 1 00 * 2 * PI * F * Co / ( l-(50*2*PI*F*Co)~2 )

)

NEXT I RETURN

;

! SUB Garao CALCULATES SKIN DEPTH AND LOSS OF OFFSET SHORT VS FREQUENCY

! REFLECTION COEFFICIENT; ANGLE; REAL AND IMAGINARY PARTS ARE CALCULATED

USING THE LOSS.

! SKD(*)=SKIN DEPTH VS FREQ

! Ac(*)=LOSS DB/CM VS FREQ

! Gam( *

) = GAMMA OF OFFSET VS FREQ

! Ang ( * ) = G AMMA ANGLE OF OFFSET VS FREQ

! Gr(*)=REAL PART OF GAMMA VS FREQ

! Gi(*)=IMA GINARY PART OF GAMMA VS FREQ

Gamo: ! G1,G2=RE&IM Parts of Z-Std

PRINTER IS 16

DIM Skd( 1 05 ) , Ac( 105 ) ! , Ang( 1 05 ) ,G 1 ( 1 0 5 ) , G 2 ( 1 0 5 )

, Ga m ( 1 0 5 )

! Calculations for impedance std (offset short) 6 port r e f 1 e c t ome t e

r

! RE -SAVE" SUBG" ! June 30, 1982 0645

! ATTENUATION RESULTING FROM CONDUCTOR LOSSES

PRINTER IS 16

PRINT

! 7mm LINE IS CHARACTERIZED FOR GOLD; 14mm LINE FOR COPPER

! INPUT "1 FOR 7mm OR 2 FOR 14mm LINE", Line

L i ne = 2 ON Line GOTO 7600,7630

Lineloss=2.21*10~(-6)

PRINT "7mm LINE (GOLD)"

GOTO 7650

Line loss= 1 .72*10~(-6

)

PRINT "14mm LINE (COPPER)"

1=0

PRINT

PRINT " FREQ";" SKIN DEPTH";" LOSS DB/CM"

PRINT

F=Fc = F(Prt , 1 ) * 1 E 6

Fn= 1 FOR Fr=l TO Fn

1=1 + 1 Skd(Fr)=5033*SQR(Lineloss)/SQR(F)

Mu = 1 E = SQR ( 1 . 0005 ) 0 r = 1 . 4287 5 /2

1 r = . 6203696 /2

Nnl=l /Or ! 1 /

B

N n 2 = 1 +0 r / I r 11+B/A

162
R A D 7 E F

7800 N3=L0G(0r/lr) ! 1 n ( 13 / A ) 7810 0 = 29 97 9 3000* 100 ! CM/ SEC

7820 Ft=F

7 3 30 Ac ( Fr ) = 1 3 . 6 4 3 8 * ( S k d ( F r ) * Mu / ( C / F t ) ) *N n 1 *N n 2 * ( E / N 3 ) 7340 PRINT USING 7 8 5 0 ; F / 1 E 6 , Sk rl ( F r ) , Ac ( Fr ) 7 8 5 0 IMAGE 2 X , 4 D , 5 X , M D . 9 D , 5 X , M D . 9 D 7860 IF IO10 THEN GOTO 7890

7870 PRINT

7880 1=0

7890 NEXT Fr

7900 PRINT

7910 PRINT

7920 DEG

7930 ! INPUT "LENGTH OF OFFSET IN CM",L

7940 L=299 79300000/ 3000000000/4

7950 FOR F r = 1 TO Fn

7960 Mul t=C/Fc/360

7970 Delta=C/Fc/2-2*L

7980 IF D e 1 1 a > 0 THEN GOTO 8020

7990 IF D e 1 1 a = 0 THEN GOTO 8040

8000 Ang(Fr)=0-Delta/Mult

8010 GOTO 8050

8020 Ang(Fr)=0+Delta/Mult

8030 GOTO 8050

8040 Ang ( Fr ) =0

8050 Fc = F( Prt , 1 ) 8060 NEXT Fr

8070 PRINTER IS 0

8080 PRINT " FREQ GAMMA";" ANGLE";" GAMMA R";" GAMMA i"

8090 PRINT

8100 F=F (Prt , 1 ) 81 10 FOR 1 = 1 TO Fn

8120 Los s = Ac ( I

) *2 *L

8130 Gara(I )=10~(-Loss/20)

8140 G 1 ( I ) = Gatn( I ) 8150 G2(I ) = A n g ( I ) 8160 Gr ( I ) = G1 (I )*C0S (G2 (I ) ) 8170 Gi(I)=Gl(I)*SIN(G2(I))

8180 Gmag=SQR(Gr(I ) ~ 2+Gi ( I ) ~ 2 ) 8190 PRINT USING 82 00 ; F , Gam ( I )

, Ang ( I )

, Gr ( I ), Gi ( I ) 8200 IMAGE 2X , 4 D . DDD , 2X , MD . 5D , 2X , M 3D . 2 D , 2X , M D . 5D , 2X , M 3 D . 2

8210 PRINT "CALCULATED MAGNITUDE IS:";Gmag

8220 ! F=F1+I*F3

8230 NEXT I 8240 RAD

8250 RETURN

8260 ! ! *******************************************************************

8270 ! Calculation Functions

8280 !

S Ca 1 (

3500 4890 4910 4960 5030 5090 5170 5260

5310 5640 72 10

163
RAD7EF

A ( 4 1 30 4890 4960

A 1 4960 5 0 9 0 5 100

A 2 5090 5 120 5 130

A8 5260 52 70 53 10

A9 5260 5 2 7 0 53 10

Ac ( 7 500 7830 7 840

Ang ( 4780 7 36 0 8000

B 4890 49 10 4960

53 10 5640 72 10

B ( 4 1 30 4890 4 9 6 0

B 1 4960 5090 5 100

B 2 5090 5 120 5130

B 8 5170

72 10

5180 5180

B 9 5 170

72 10

5 180 5180

C 1680 1950 3620

c( 1350 3200 3250

3360 3360 3620

3680 3700 37 10

4 520 4 530 4 550

4570 4 580 7 170

Cl 4960 5090 5 100

C 2 5090 5 120 5130

C 8 5170 52 10 52 10

5640 72 10

C 9 5170 52 10 52 10

5640 72 10

Cal 1440 1450 1480

34 10 3640 3660

4620 4 7 70

C a 1 $ 6 570 6590 6590

Ca 1 2 : 1460

50 30 5090

5 1 30 5 170

5640 72 10

5640 72 10

8120

8020 -8040 8150 8190

5030 5090 5 170 5260

5030 5090

5 1 30 5 170

5 190 5 190 5260 5310 5640

5 1 90 5 190 5260 5310 5640

7 1 20 7810 7830 7 960 7 970

32 50

3670

3250

3680

3250 3360 3360

37 10 37 50 3750 4500 4510

4560

5130 5170

5220 5220 5260 5310

5220 5220 5260 5310

2060

3680

3120

37 10

3310

3740

3 330

6600 6610 6650 6650 6660 6670

164
RAD7EF

Ca 1 z : 4100 3480

Cc 1690 1960 2100

2400 2490 2650

2940 3 6 20 3670

3710 3740 37 50

4510 4510 4 5 20

4550 4560 4560

4590 5630 7070

Cc c 1700 1970 3520

Ck 3340 3360 3360

Cm 4890 4910 4960

72 10

Cm ( 4130 4890 4960

Co 7 300 7 3 30 7 330

Cp 2480 2660 2 780

D 3510 3550 3560

5170 5260 5640

D $ 1390 2600 2610

Date 4180 4380 7000

Delta 7970 7980 7 990

Di 3550 3620 3640

3700 3710 37 10

7170 7 1 80 7200

Dvm 4270

E 4890 4960 5090

F 1590 3840 3880

4960 5090 5170

7 330 7 330 7 340

7820 7840 8100

F $ 1400 3840

F ( * 43 10 4310

5680 5690 5700

5730 5740 5740

5910 5920 5920

5920 5930 5970

5980 5980 5990

6000 6050 6050

2 130

2650

3680

3750

4520

4570

7170

2250

2710

3680

4460

4530

4570

7 1 80

2260

2 790

3700

4500

4 5 30

4580

7200

2310

2940

3710

4500

4550

4580

3580 3630 3820 3840 7 1 10

3360 3360 3380

5030 5090 5170 5260 5640

5030 5090

7340 7340 7 360 7 360

2950 3090

3 7 70

72 10

4890 4960 5090

27 10 2890 2900

8000 8020

3670 3680 3680 3680

37 10 3 7 50 37 50 7160

72 30

5170 5260 5640 72 10 7 7 50 7 830

3890 4 320 47 30 4890 49 10

5260 5640 7010 72 10 7 320

7 340

8190

7 360 7 360 7 690 7 7 30

4320 4360 47 30 4 7 70 5670

57 10 57 10 57 20 57 20 5 7 30

5760 57 70 5 780 5790 5910

5920 5920 5920 5920 5920

5970 5970 59 7 0 5980 5980

5990 5990 5990 6000 6000

6050 6050 6080 6080 6080

165
RAD7EF

6080 6100 6 110 6 120 6130 6 1 80 6 1 80 6180

6180 62 10 6210 62 10 62 10 6240 6260 6280

6280 6290 6290 6310 6310 63 10 63 10 6320

6320 6320 6320 6380 6380 6390 6390 6 3 90

6390 6 3 9 0 6390 6 390 6390 6400 6440 6440

6440 6440 6470 6470 6470 6470 6510 6510

65 10 6510 6540 6540 6540 6 540 6620 6680

7010 7 290 7 320 7690 8050 8100

F 1 1550 1580 1590 1720 1990 2020 3430 3460

3800 3880 4 300 4310 4 3 20 4360 7050

FI $ 3840

F 2 1560 1 580 2000 2020 3440 34 60 3800 7 060

F 3 1570 1580 2010 2020 3450 3460 3880 7080

F4 3880 3 8 90

F 9 7040 7050 7060

Fc 7690 7960 7970 8050

F i 1 e $ 3 160 3180

F i n a 1 ( * 6290 6 300 6680 6710

Fn 1580 1730 1740 2020 3 2 30 3350 3460 3700

37 10 3710 37 50 3800 3820 3830 4470 45 50

4560 4570 4580 4630 4640 4710 7090 7 2 70

7 3 10 7 700 77 10 7 9 50 8110

Fn b ( 2380

Fn n 4630

Fr 32 30 3250 3 2 50 3250 3250 3260 3350 3360

3360 3360 3360 3 370 3470 3 6 20 3670 3 680

3680 3700 3710 3710 3 7 40 37 50 3750 3 830

3880 3900 4240 4 360 4480 47 10 4 7 30 4740

4 7 50 4 7 70 4780 4790 4890 4910 50 30 5640

6920 7010 7 170 72 10 7710 7 7 30 7830 7830

7840 7840 7890 7 9 50 8000 8020 8040 8060

Ft 7820 7830

Fz 4370 4470

G 4890

72 10

4910 4960 5090 5 170 5 2 60 53 10 5640

G 1 4740 4780 4 780 5260

Cl ( 8140 8160 81 70

166
RAD7EF

G 2 47 50 4780 4780 5260

G2 ( 8150 8 160 8170

Gara( 8130 8140 8190

Gamo : 7480 4700

Gi( 47 50 7 340 8170 8180 8190

G 1 ( 1400 5640 5670 5760 5840 72 10

Gla ( 1400 5640 5680 5770 5840 72 10

Gli ( 1400 5640 5700 5790 5840 7210

Glr ( 1400 5640 5690 5780 5840 72 10

Gmag 8180 82 10

Goto 5470

Gr ( 4740 7 330 8160 8180 8190

H 4960 5090 5170 5260 5310 5640 72 10

I 3220 32 50 3250 3250 3250 3270 4960 5030

5090 5170 5260 5310 5640 5950 5970 5970

59 70 5970 5980 5980 5980 5980 5990 5990

5990 5990 6000 6000 6000 60 10 6700 6710

67 10 6720 72 10 7310 7 330 7 340 7 360 7 370

7650 7 7 20 7 720 7860 7880 81 10 8120 8130

8140 8140 8150 81 50 8160 8160 8160 8170

8170

82 30

8170 8180 8180 8190 8190 8190 8190

1

1

1 540 5500 5510 5510 5530 5540 5550 5570

5590 5600 5610 5620 5630 5640 5660 5800

5870 7070 72 10

Imped 4650 4670

I n i t 1350 2 360 5490 5650 5900 6580

Ir 7 7 70 7 790 7800

It 5550

J 4890 4960 5030 5090

K 4890 4960 5030 5090 5170 5260 5640 72 10

L 4960 5030 7940 7970 8120

167
RAD 7 E F

Line 7 580 7 590

L 1 n e 1 o s s 7600 76 30 7 7 30

Loss 8 120 8130

M 17 90 1940 2 1 20 2200 2 300 2390 2450 2640

2 7 50 2930 3840 3870 7100

Ml 2 160 3810 59 10 5930 6380 6400

M2 5920 59 30 6 390 6400

Meas : 37 90 18 10 2 180 2 2 70 2 350 2430 2 560 2720

2 8 50 3000 3 110 7 1 50

Mismatchl5880

Mon e 63 10 6330

Mt wo 6 320 6 330

Mu 7 740 7830

Mult 7 960 8000 8020

N 4890

N 1 2 540 4 2 20 4890 4960 5030 5090 5170

N 2 2830 42 30 4960 5030 5090 5 170

N 3 4960 5090 7800 7830

Nd i ode 1670

N e wt $ 6810 7000

Nn 1 7780 7830

N n 2 7 7 90 7 830

N p 2470 2670 2 7 70 2960 3100

Nt $ 6800 6810

Ntime

67 80 6980

N 1131 3130 3 1 50 3 1 50 3 160

0 42 50 4890 4890 4910 4910 4960 4960 5030

5030 5090 5 170 5170 5260 5260 5310 5310

5640 5640 7210 72 10

Open : 7260 4680

168
RAD'/ R F

Or 7 7 60 7 7 80 7 7 90 7800

P 1770 2 0 3 0 2 110 39 30 4070 4 8 90 4960 5030

5 0 90 5 170 5 2 6 0 5 6 40 7 1 30 72 10

P$ 3 940 3960 3980 4 0 0 0 4020 4040 4060 4070

4080 7020 7030

P( 1390 4 500 4 5 10 4 5 20 4 5 30 4 550 4 560 4 5 70

4 580 4600 4 6 00 4 6 00 4 600 4890 4960 5 0 3 0

5090 5 170 5260 5 590 5 6 00 5610 5620 5640

7 180 7 200 72 10

P0$ 13 50 1780 3840 4 0 80

P 3 5090 5170 5260 5 6 00 5640 72 10

P4 5090 5 170 5 2 60 5 590 5640 7210

P 5 5090 5 170 5 2 60 56 10 5640 72 10

P 6 5090 5 170 5260 5620 5640 72 10

Pa ( 1400

Pd i od e

(

1390

P o ut $ 1500 1530 1750 1760 1840 1 8 50 1 900 1910

2070 2090 2 3 70 4 4 30 4450 5310 5400 5640

6950 6960 72 10

Po ut $ : 0 44 50

Prt 14 50 4440 4 4 50 4490 5310 5670 5680 5690

5700 57 10 57 10 5720 57 20 5 7 3 0 5 7 30 5 7 40

5740 5760 5 7 70 5780 5 790 59 10 5910 59 20

5920 5920 5920 59 20 5920 5920 5920 5930

59 40 6 140 6 380 6380 6 3 90 6390 6390 6390

6 3 90 6390 6 390 6390 6 4 00 64 10 6750 7 320

7690 8050 8100

Q 2140 2 2 20 2 3 30 2 380 2530 2620 2820 2910

3070 3850 4890 4960 50 30 5090 5 170 5260

5640 6880 72 10 2 5 90 2610 2880 2900 5090

5 170 5260 5310 5640 72 10

R

1

4960 4990 5030 5050 5090 5 170 5260 5640

R2 4960 4990 5 0 30 5050 5090 5 170 5260 5640

Rcoe f : 5 3 80

Rec al 1470 1860 6850 6910

72 10

7 2 10

169
R A D 7 E F

Ref 1 : 6840

Resume: 6940 1860

S 4 9 60 5090 5 170 5 2 60 5640 7 2 10

SO 4960

S 1 4960

S 2 4960

S3 5090 5 170 5 2 60 5 6 4 0 7 2 10

S 4 5090 5 170 5260 5640 7 2 10

S 5 5 0 90 5 170 5260 5640 72 10

S 6 5090 5 170 5 2 60 5640 72 10

Scanner 4280

Sel : 34 90 3860

Se q 2 170 2 240 2 3 20 24 10 25 10 2800 3020 3080

Set 4 2 90 4310 4480 4 500 4510 4 5 20 4 5 30 4550

6300 6330

Se t pw r

3920 2040 7 140

Skd ( 7 500 7 7 30 7830 7840

Ss 2520

2870

2580

2970

2680

2970

2680

2980

2690

2990

•2 7 00 2810 2860

S s $ 2580 2610 27 10 2 8 70 2900

T 4960 5030 5090 5 170 5260 5310 5640 72 10

T $ 4 170 4 180 4 180 4 190

T i me $ 4 190 4 380

U( 4130

V( 4 1 30

VI 3620 36 40 3670 3 7 00 7 170 7 180

w( 4 1 30 4890 4910 5030 50 90

W1 4960

5640

4990

72 10

50 30 5050 5090 5170 5260 53 10

3 7 40

4 560

170
RAD7EF

W2 4960 4990 5030 5050 5090 5170 5260 5310

5640 72 10

W3 4960 4990 5030 5 0 50 5090 5 170 5260 5310

5640 72 10

X 5260 5310 5640 72 10

x( 4130 4890 4960 5030 5090

Y 5 2 60 5310 5640 72 10

Y( 4130 4890 4960 5030 5090

Z$ 1390

z( 1550 1560 1570 1720 1720 19 90 2000

2010 3200 3430 3440 3450 4300 4300 4310

4370 4370 4370 5400 6100 6110 6 120 6130

6 300 6330 7040

Z8 5640 72 10

Zd i od e ( 1390 1830 3200 3640 3680 37 10 6900

Zerd lode : 1640 1610 6930

Zm( 4 1 30 4960

171
RAD7EF

8290 DEF FNA(A,A(*),B,B(*),Cm,Cm(*),D,E,F,Fr,G,J,K,N,Nl,0,P,P(*),Q,W(*)

,X(*) , Y ( * ) ) 8300 ! DEF FN A ( A , A

( * )

, B , B

( * )

, C , C

( * )

, D , E , F , G , J , K , N , N 1

, 0 , P , P

( * ) , Q , W

( * ) ,X(*) , Y ( * ) ) 8320 OPTION BASE 1 8330 COM F

( * )

, Z

( * ) ,T1 ,T2,T3,Qr(*) , Q i ( * ) ,Final(* ) 83 AO COM File, Flag

8330 REDIM A ( 3 , 3 ) , B ( 7

, 3 ), Cm ( 3

, 7 )

, X ( 7 , 1 ) , Y ( 3 , 1 ) 8360 N 1 =7

8370 N 2 = 5 8380 F =0

8390 FOR J=1 TO N1

8400 K = J + 2 8410 X(J, 1 ) = P ( K , 2 ) 8420 F =F + X ( J , 1

)

84 30 B ( J , 1 ) = P ( K , 1 ) 8440 B ( J , 2 ) = P (K , 3 ) 8450 B(J,3)=P(K,4)

8460 NEXT J

8 4 7 0 N = 3 8480 COSUB 8780

8490 D = S Q R ( Cm ( 1

, 1 ) ~2+Cm( 2

, 1

) ~2+Cm( 3

, 1

) ~2 ) 8500 P = Cm( 1 , 1 )/ Cm (3,1)

8510 Q

= Cm( 2

, 1 ) / Cm ( 3 , l ) 8520 REDIM A ( 5 , 5 )

, B ( N 1

, 5 ), Cm ( 5 , N 1 )

, Y ( 5

, 1

)

8530 F = 0

8540 FOR J=1 TO N1

85 50 K. = J + 2 8560 G=P(K,2)~2

8570 F=F+G

8580 X(J, 1 ) = -

G

8590 B(J,1)=P(K,1)“2

8600 B ( J , 2 ) = 2*P (K , 1 )*P (K , 3 ) 8610 B(J,3)=P(K,3)~2

8620 B(J ,4)=2*P(K, 1 )*P(K,2)

8630 B( J , 5 ) = 2*P (K , 3 )*P (K , 2 ) 8640 NEXT J

8 6 5 0 N = 5 8660 COSUB 8780

8670 A=Cm ( 1,1)

8680 B=Cm(2 , 1

)

8690 Cm=Cm ( 3,1)

8700 D=Cm ( 4 , 1

)

8710 E = Cm ( 5 , 1 ) 87 20 E f ( Fr ) =E

8730 G = SQR( 1 -4*(A*Cm-B*B)*( 1+P*P+Q*Q) / ( Cm+Cm* P * P + A + A *Q *Q - 2 * B* P *Q

) ~2

)

8740 PRINTER IS 16

8750 PRINT USING 87 60 ; SQR ( ( 1 +Gf ( Fr ) ) / (

1 -Gf ( Fr ) )

)

8760 IMAGE "RMAX/RMIN FOR 3D E LL I PS E = " , DD . 4

8770 RETURN 0

8780 MAT Cm=TRN ( B

)

87 90 MAT Y = Cm* X

8800 MAT A = Cm* B 8810 MAT A=INV(A)

1 7 2
RAD7EF

8820 REDIM Cm(N,l)

8830 MAT Cm= A*

Y

8 84 0 RE DIM A ( N 1 , 1 )

, Y ( 1, N 1 ) 8850 MAT A=B*Cm

8860 MAT A= A-X

8870 MAT Y = T RN ( A

)

8880 MAT W = Y * A

8890 RETURN

8900 ! 8910 !

FNA (

A 8290 8670 87 30 87 30 8730

A ( 8290 8350 8520 8800 8810 8810 8830 8840

8850 8860 8860 8870 8880

B 8290 8680 8730 8730 87 30

B ( 8290 8 3 50 8430 8440 8450 8520 8590 8600

8610 8620 8630 8780 8800 8850

Cm 8290 8690 87 30 8730 8730

Cm ( 8290 8 3 50 8490 8490 8490 8500 8500 8510

8510 8520 8670 8680 8690 8700 8710 8780

8790 8800 8820 8830 8850

D 8290 8490 8700

E 82 90 8710 8720

Ef ( 87 20

F 8290 8 3 80 8420 8420 8530 8570 8570

Fr 8290 8720 87 50 8750

G 8290 8 560 8570 8580 8730

Gf ( 87 50 87 50

J 8290 8390 8400 84 10 8420 84 30 8440 8450

8460 8 540 8 550 8580 8590 8600 8610 8620

8630 8640 8290 8400 8410 8430 8440 8450

8550 8 560 8590 8600 8600 8610 8620 8620

8630 8630

N 8290 8470 8650 8820

N 1 8290 8360 8 3 90 8520 8 520 8540 8840 8840

N 2 8370

173
R A D 7 E F

0 8290 8380 8 7 70

p 82 90 8 500 87 30 87 30 8730 8730 87 30

P( 82 90 84 10 84 30 8440 84 50 8560 8590 8600

8600 86 10 8620 8620 8 6 30 8630

Q 82 90 8510 87 30 87 30 8730 87 30 8730

w( 8 2 90 8880

X( 8290 8 3 50 84 10 8420 8580 8790 8860

Y( 82 90 8 3 50 8 520 8790 8830 8840 8870 8880

174
R A D 7 E F

8920

8 9 3 0

8 9 4 0

89 50

89 6 0

8970

8980

8990

9000

90 10

90 20

9030

9 04 0

9050

9060

9070

90 8 0

9090

9 100

9110

9120

9 1 30

9140

9150

9160

9 170

9180

9 190

9200

92 10

9220

9230

9240

92 50

9260

9270

9280

9290

9300

9310

9320

9330

9340

9 3 50

9360

9370

9380

9390

9400

9410

9420

9430

9440

OR F FN Bm ( A , A

( * ) , A 1 , B , B( * ) , B 1 , Cm , Cm ( * ) , C 1 , D , E , F , G , H , I , J , K , L , N 1

, N 2 , N 3

, 0 , P , P ( * ) , Q , R 1 , R 2 , S , S 0 , S 1 , S 2 , T , W 1 ,W2,W3,X(*) , Y

( * ) , Z m ( * ) ) OPTION BASE 1 COM F(*),Z(*),Tl,T2,T3,Qr(*),Qi(*),Final(*)

COM File, Flag

! CALC R 1, W 1, R2 ,W2 ,W3 —I N P U T ( A , B , C , D, E)************ **********

! A1=RCS~2-RS~2

! Bl ,C1=RCSX,RCSY

! Rl , R 2 = Z F, T A & R H 0

! W 1 , W 2 , W 3 =AB S ( W 1 ) , RE& I M ( W2 ) F = A* Cm- B * B G = D

II = E D = S QR ( ABS ( A - G * G ) /F)

A 1 =S QR ( AB S ( Cm-H*H ) / F

)

A = ( B*G - A* H ) / F Cm= ( B*H-Cm*G ) / F B = ( G * H - B ) / F T= 1 E 50

N 3 = INT ( ( N 1 +N 2 ) / 2 ) RE D IM A ( 4 , 4 ) , B ( N 3 , 4 )

, Cm ( 4 , N 3 )

, X ( N 3 , 1 ), Y ( 4 , 1 ) FOR 1 = 1 TO N 3

J = 2 * I +

1

B ( I , 3 ) = P ( J ,4)

B ( I ,4) = P(J , 2)

X(I , 1 ) = P(J , 1 ) NEXT I FOR K= 1 TO 2 FOR L = 1 TO 2 G = ( Cm- A 1 ) / ( A-D ) C 1 = ( B-D * A 1 ) / ( A-D ) H=SQR(C1

)

Bl=(Cm+Al+2*Cl-( A+D )*G)/4/H

C 1 =S QR ( ( Cm+Al ) /2-B 1 *B1

)

FOR 1 = 1 TO N 3 J = 2 * I + 1 P=(P ( J , 1 )+H*H*P ( J , 2 )-G*P ( J , 3 ) ) /H

B(I , 1 )=P

IF J <N 1+2 . 5 THEN 9320

B(I , 2 )=SQR( ABS(4*P( J , 1 )*P( J , 2 )-P*P)

)

GOTO 9330

B(I,2) = (A1*P(J,2)+P(J, 1 ) - P * B 1 ) / C

1

NEXT I MAT Cm=TRN ( B

)

MAT Zm=Cm*X

MAT A = Cm* B

MAT A=INV(A)

MAT Y = A* Zm

Q

= SQR(ABS(1 + (Y(1 ,1 ) ~ 2 +Y (2,1)~2)/Y(4,1)))

PRINT USING 9 4 1 0 ;

Q

IMAGE Z.5D

IF Q>T THEN 9490

T = Q

R 1 =G

175
RAD7EF

9450 W 1 =H

9460 W 2 = Y ( 1 , 1 ) 94 7 0 W 3 = Y ( 2 , 1 ) 9480 R 2 =Y (3,1)

9490 S=0

9500 FOR 1=2 TO 2+N1+N2

95 10 S 0 = ( P ( I , 1 )+H*H*P ( I, 2 )-G*P ( I , 3 ) ) / H

95 20 S 1 = P ( I , 1 ) 9530 S2=W2 “2+W3 ~ 2 9540 S = S + ( ( S 0 * W 2 + P ( I , 4 ) * R 2 - P ( I , 2 ) * S 2 - 8 1 ) ~ 2 - ( 4 * 8 1 * P ( I , 2 ) - 8 0 ~ 2 ) * W 3

~ 2 ) ~ 2 9550 NEXT I 9560 D = -

D

9570 NEXT L 9580 A 1 =- A 1 9590 NEXT K 9600 RETURN 0

9 6 10 ! 9620 !

FN Bm (

A 89 20 90 10 9 040 9060 9060 9 2 0 0 92 10 9 2 30

A ( 89 20 9 110 9 3 6 0 9 3 70 9 3 7 0 93 80

A 1 892 0 9050 9 2 00 92 10 9 2 30 92 40 9 3 2 0 9 5 80 9 580

B 89 20 90 10 9010 9060 9 0 7 0 9080 9 0 8 0 92 10

B ( 8920 9 110 9 140 9 1 50 9280 9 3 00 9 3 20 9 3 40 9 3 6 0

B 1 8920 92 30 9 2 40 92 40 9320

C 1 8920 92 10 9220 92 30 9240 9 3 20

C m 8920 90 10 90 50 9070 9070 9200 9 2 30 9240

Cm ( 89 20 9 110 9 340 9 3 50 9 3 60

D 89 20 9020 9 040 9 2 00 92 10 92 10 9 2 30 9 560 9 560

E 8920 9030

F 8920 90 10 9040 9050 9060 9070 9 080

G 89 20 90 2 0 9 0 4 0 9040 9 06 0 9070 9080 9200

9 2 30 92 70 9440 95 10

H 89 20 9030 9050 9 0 50 9 0 60 9070 908 0 92 20

92 30 92 70 92 70 92 70 94 50 9510 95 10 9510

I 8920 9 120 9 1 30 9 140 9 1 50 9 1 60 9 170 9 2 50

9260 92 80 9300 9 3 20 93 30 9 500 95 10 9510

9 5 10 9 520 9 540 9 540 9 5 40 9550

1 76
R \ D 7 E F

J 8920

92 70

9 1 30

92 90

9 140

9 3 00

9 1 50

9 3 00

9 1 60

9320

9260

9 3 20

92 70 92 70

K 89 2 0 9 1 80 9 590

L 89 2 0 9 1 90 9 5 7 0

N 1 8920 9 100 92 90 9 500

N 2 8920 9 100 9 5 0 0

N 3 8-9 2 0 9 100 9 110 9 110 9 110 9 120 92 50

0 8920 9600

P 89 20 9 2 70 92 80 9 3 00 9 300 93 20

P( 89 2 0

9 3 00

9 540

9 140

9 3 20

9 5 40

9 1 50

9 3 20

9 1 60

9 5 10

9 2 70

9510

92 70

95 10

92 70

9 520

9300

9 540

Q 8920 9 3 9 0 9 4 00 94 20 9 4 30

R 1 8920 9440

R 2 8 9 2 0 9480 9 540

S 8920 9 4 90 9 540 9 5 4 0

SO 8920 9510 9540 9 540

S 1 8920 9 5 20 9 540 9 540

S 2 8920 9 5 30 9 540

T 8920 9090 9 4 20 94 30

W1 8920 94 50

W2 8920 9460 9 5 30 9540

W 3 89 2 0 9470 9 5 30 9 540

X( 8920 9 110 9 1 60 9 3 50

Y( 8920 9 110 9 3 80 9 3 90 9 3 90 9 3 90 9460 94 70 9480

Zm ( 8920 9 3 50 9 380

177
RA07EF

96 30

9640

9650

9660

9670

9680

9700

97 10

97 20

97 30

9740

97 50

9760

97 70

9780

9790

9800

9810

9820

9830

9840

9850

9860

9870

9880

9890

9900

99 10

9920

99 30

9940

9950

9960

99 70

9980

9990

10000

10030

10040

100 50

10060

10070

10080

10090

10 100

10 110

10120

10130

10140

DEF FNC(A,A(*) ,A1 , A 2 , B , B ( * ) , B 1 , B2 , Cm , Cm( * ) ,C1 , C 2 , D , E , F , G , H , I , J , K. , N 1 ,N2,N3,P,P(*),P3,P4,P5,P6,Q,R,R1,R2,S,S3,S4,S5,S6,T,W(*),W1,W2,W3,

X(*) ,¥(*))

OPTION BASE 1 COM F(*),Z(*),Tl,T2,T3,Qr(*),Qi(*),Final(*)

COM File, Flat?

! SOLVE FOR SLIDING SHORT & LOAD-INPUT P ( )

, D 7 , D8 , D9 , E 6 , E 7 , E8 , E 9

* * * *

! OUT ( A 1 , B 1

, C l , A 2 , B 2 , C 2 ) RE DIM A(3,3),B(Nl,3),Cm(3,Nl),X(Nl,l),Y(3,l)

PRINT "SS RE SIDUES = " N 3 =N 1 FOR 1=3 TO Nl+2

J = I - 2 GOSUB 10030

PRINT USING 9 7 7 0 ;

IMAGE XD.DDEX

NEXT I GOSUB 10090

A1 =Cm( 1,1)

B

1 =Cm ( 2 , 1 ) C 1 =Cm ( 3 , 1 ) PRINT USING 9840 ; " SS CIRCLE RESIDUAL = " ,SQR(W(l,l)/Nl)/(Bl'*2+Cl“2-Al)/2

IMAGE 1 9 A , Z . 6

RE DIM A(3,3),B(N2,3),Cm(3,N2),X(N2,l),Y(3,l)

N 3 =N 2 PRINT

PRINT "SL RESIDUES="

FOR I =N 1+3 TO N1+N2+2

J = I -N 1-2

GOSUB 10030

PRINT USING 97 7 0 ;R

NEXT I GOSUB 10090

A'2 = Cm ( 1,1)

B 2 =Cm ( 2 , 1 ) C 2 =Cm ( 3,1)

PRINT USING 9840; " SL CIRCLE RES IDUAL="

,SQR(W( 1, 1 )/N2)/(B2~2+C2~2-A2)/2

PRINT

RETURN 0

0=FNG(A,B,C,D,E,F,G,H,I,K,P,P(*),P3,P4,P5,P6,Q,R,R1,R2,S,S3,S4

, S5 , S6 , T,W 1

, W2 , W3 , I 1

)

X ( J , 1 )=G*G+H*H

B ( J , 1 )=-l

B ( J , 2 ) = 2 *G

B ( J , 3 ) = 2 *H

RETURN

MAT Cm=TRN ( B

)

MAT Y = Cm* X

MAT A = Cm* B MAT A=IN V ( A

)

REDIM Cm ( 3 , 1 ) MAT Cm= A*

178
RAD7EF

10150 REDIM A(N3, 1 ) ,Y( 1 ,N3)

10160 MAT A = B * Cm

10170 MAT A= A-X

10180 MAT Y=TRN ( A

)

10190 MAT W = Y *

A

10200 RETURN

10210 ! 10220 !

FNC (

A 9630

A ( 9630

10160

A 1 9630

P 96 30

P( 96 30

P3 9630

P4 9630

P 5 9630

P 6 9630

Q 96 30

R 9630

R

1

9630

R2 9630

S 9630

S3 9630

S 4 9630

S 5 9630

S 6 9630

T 9630

w( 9630

W1 9630

10030

9700 9850 10110 10120

10170 10170 10180 10190

00 10030

10030

10030

10030

10030

10030

10030

10030

9760 9920 10030

10030

10030

10030

10030

10030

10030

10030

10030

9830 9980 10190

10030

10120 10140 10150

179
RAD7EF

W 2 96 30 10030

W 3 9630 10030

x( 9 6 30 9700 9850 10040 10 100 10 170

Y( 9630 9700 9850 10 100 10140 10150 10180 10190

180
RAD7EF

10230 DEF FND(A,Al,B,Bl,B8,B9,Cm,Cl,C8,C9,D,E,F,G,H,I,K,Nl,N2,0,P

,P(*),P3,P4,P5,P6,Q,R,R1,R2,S,S3,S4,S5,S6,T,W1,W2,W3)

10240 OPTION BASE 1 10250 COM F(*) ,Z(*) ,T1 ,T2,T3,Qr(*) ,Qi(*) ,Final(*)

10260 COM File, Flag

10270 ! CALC B ,( C / A

) --I N PUT ( A 1 , B 1

, C 1, A2 , B 2 , C 2 )****************** *** 10280 ! 1/31/77 THIS MODIFIC FOR USE IF GAMMA SLIDING LOAD IS VERY SMALL**

102 90 B 8 = 0

10300 B 9 = 0

10310 ! B8=RE(B) ,B9=IM(B)

10320 ! C8=RE (C/A) ,C9=IM(C/A)

10330 FOR I=N 1+3 TO N1+N2+2

10340 0=FNG(A,B,Cm,D,E,F,G,H,I,K,P,P(*),P3,P4,P5,P6,Q,R,Rl,R2,S,S3,S4,S5,

S 6 , T , W 1 , W 2 , W 3 , I 1 ) 10350 B8=B8+G/N2

10360 B 9 = B 9+H /N 2 10370 NEXT I 10380 A=B 1 -B8

10390 B = B 9- C

1

10400 Cm=Al-B 1*B8-C 1*B9

10410 D=B 1 *B9-C 1 *B8

10420 E=Cm~2+D~2

10430 C8= ( A*Cm+B*D ) /E

10440 C9=(B*Cm-A*D)/E

10450 RETURN 0

10460 ! 10470 !

FND (

A 10230 10340 10380 10430 10440

A 1 10230 10400

B 102 30 10340 10 3 9 0 10430 10440

B 1 10230 10380 10400 10410

B 8 10230 10290 10350 10350 10380 10400 10410

B 9 1 0230 10300 10360 10360 10390 10400 10410

Cl 10230 10390 10400 104 10

C 8 10230 10430

C9 10230 10440

Cm 10230 10340 10400 10420 10430 10440

D 10230 10340 10410 10420 10430 10440

181
RAD7EF

E 10230 1 0340 1 0420 10430 10440

F 10230 1 0340

G 102 30 1 0340 1 0350

H 10230 10340 10 3 5 0

I 102 30 1 03 30 1 0 3 4 0 10370

I 1 10340

K 1 0230 10340

N 1 1 02 30 1 0330 1 03 30

N 2 1 02 30 10330 1 03 50 10360

0 1 0230 10340 1 04 50

P 1 02 30 1 0340

P( 1 02 30 1 0340

P 3 1 0230 1 0340

P 4 1 02 30 1 0340

P 5 1 02 30 1 0340

P 6 1 02 30 1 0340

Q 10230 1 0340

R 1 0230 10340

R 1 1 0230 10340

R 2 10230 1 0340

S 10230 1 0340

S3 1 0230 10340

S 4 1 0230 1 0340

S 5 1 0230 1 0340

S 6 1 0230 10340

T 10230 10340

W1 1 0230 1 0340

182
R A D 7 R F

W 2 1 0 2 30 1 0 3 4 0

W 3 1 0 2 3 0 1 0 3 4 0

183
RAD7EF

10480

10490

10500

10510

10520

10530

1 0540

10550

10560

10570

1 0580

10 5 9 0

10600

106 10

10620

10630

10640

10650

10660

10670

10680

10690

10700

107 10

10720

107 30

10740

107 50

10760

10770

10780

10790

10800

10810

10820

DEF FNE(A,A8,A9,B,B8,B9,Cm,C8,C9,D,E,F,G,Gl ,G2,H,I,K,0,

P,P(*),P3,P4,P5,P6,Q,R,R1,R2,S,S3,S4,S5,S6,T,W1,W2,W3,X,Y)

OPTION BASE 1 COM F(*),Z(*),Tl,T2,T3,Qr(*),Qi(*),Final(*)

COM File, Flag

! CALC (1/A) INPUT(B8,B9,C8,C9,G1 ,G2, ); OUT ( A 8 , A 9

) *****

1 = 2

! REVISED SUBROUTINE FOR Z CALC. -- INPUT P

( * ) , B 8 , B 9

, C 8 , C 9

, D8 , D 9

OUTPUT A ,

! REVISED 1/28/77

RAD

0=FNG(A,B,Cm,D,E,F,G,Il,I,K,P,P(*),P3,P4,P5,P6,Q,R,Rl,R2,S,S3,S4,

S 5 , S6,T,W1,W2,W3,I1)

Cm = G-B 8

D = H - B 9 E = 1 -G * C 8 + H *C 9

P=-H*C8-G*C9

B = E

~ 2 +P ~ 2 A= ( Cm* E + D *P ) /B

B=(D*E-Cm*P)/B

IF 1=2 THEN 10750

X=A* A8-B* A9

Y = A * A 9 + B * A8

R = S QR ( X *X+Y * Y

)

T = ATN (Y/X )* 180/PI

IF X>0 THEN 10750

IF Y >0 THEN 10740

T=T-1 80

GOTO 10750

T=T+ 1 80

! A8=RE ( 1 /A) , A9=IM( 1 /A)

Cm=A~2+B~2

A-8= ( A*G 1 +B*G 2 )/Cm

A9= (A*G2-B*G1 ) /Cm

PRINT "PAUSE 12352 A8;A9";A8,A9

RETURN 0

i

FNE (

A 10480 1 0570 10630

A8 10480 10660 1 0670

A9 10480 10660 10670

B 10480 10570 10620

10760 1 07 70 1 0780

B 8 1 0480 10580

B 9 1 0480 10590

10660 10670 10760 10770 10780

1 07 70 107 90

10780 1 0790

1 0630 10640 10640 10660 10670

184
RAD7EF

C8 10480 10600 10610

C9 10480 10600 10610

Cm 10480 10570 10580 10630 10640 10760 10770 10780

D 10480 10570 10590 10630 10640

E 10480 10570 10600 10620 10630 10640

F 10480 1 0570

G 10480 10570 10580 10600 10610

G 1 10480 10770 10780

G 2 10480 1 0770 1 0780

H 10480 1 0570 10590 10600 10610

I 10480 1 0530 1 0570 1 0650

I 1 10570

K 10480 1 0570

0 10480 10570 10800

P 10480 10570 10610 10620 10630 10640

P( 10480 1 0570

P 3 10480 1 0570

P4 10480 10570

P 5 10480 1 0570

P6 10480 10570

Q 10480 10570

R 10480 10570 10680

R 1 10480 10570

R2 10480 10570

S 10480 1 0570

S3 10480 1 0570

S 4 10480 10570

185
RAD 7 E

S 5 10480 10570

S 6 10480 10570

T 10 4 8 0 10570 10690 1 0720 10720 10740

W1 10480 10 570

W 2 10480 1 0570

W 3 10480 1 0570

X 10480 10660 10 6 8 0 10680 10690 10700

Y 10480 1 0670 10680 10680 10690 107 10

10740

186
RAD7EF

10830 DEF FNF(A,A8,A9,B,B8,B9,Cm,C8,C9,D,E,E4,E5,F,F3,G,G5,H,I,K,N3,

0,P,P(*),P2,P3,P4,P5,P6,Q,R,R1,R2,S,S3,S4,S5,S6,T,W1,W2,W3,Z1,

Z 2 , Z 3 ) 10840 OPTION BASE 1 10850 COM F(*) ,Z(*) ,T1 ,T2,T3,Qr(*) , Q i

( * ) ,Final(*)

10860 COM File, Flag

10880 Cm=A8~2+A9~2

10890 D=Cm-C8*C8-C9*C9

10900 Zl=(B8*Cm-C8)/D

10910 Z 2 = ( B 9 * Cm+C 9 ) /

D

109 20 Z 3 = ( ( 1 - B 8 *C 8 + B 9 * C 9

) ~ 2+ ( B 8 * C 9 + B

9 *C 8

) ~ 2 )*Cm/D/D

10930 1=1

10940 0=FNG ( A, B,Cm,D,E,F,G,H,I,K,0,P,P(*),P3,P4,P5,P6,Q,R,Rl,R2,S,S3,

S 4 , S 5 , S 6 , T , W1 , W2 , W 3 ) 10950 ! NET POWER IN STD=G5

10960 G5=P2/N3

10970 F3=l - ( ( G-Z 1 K2+ (H-Z2)~2)/Z3

10980 E4=G5/F/F3

10990 E 5 = G 5 / P ( 1

, 2 ) / F

3

11000 RETURN 0

11010 ! SUBROUT INE FOR Z CALC. -INPUT P (*), B8 , B9 , C8 , C 9 , D8 , D9 ; OUTPUT A ,

B

11020 ! REVISED 1/28/77

11030 0=FNG(A,B,Cm,D,E,F,G,H,I,K,0,P,P(*),P3,P4,P5,P6,Q,R,Rl,R2,S,S3,S4,

S 5 , S 6 , T , W 1 ,W2,W3)

1 1040 C m = G - B 8

11050 D=H-B9

1 1060 E = 1 -G * C 8+H * C

9

11070 P=-H*C8-G*C9

1 1080 B =E ^ 2 +P * 2

1 1090 A=(Cm*E + D*P )/B

11100 B = (D*E-Cm*P ) / B 11110 IF 1=2 THEN 11210

11120 X=A*A8-B*A9

11130 Y = A* A9 + B * A8

11140 R = S OR ( X*X+Y * Y

)

11150 T=ATN(Y/X)*180/PI

11160 IF X>0 THEN 11210

11170 IF Y >0 THEN 11200

11180 T = T - 1 8 0

11190 GOTO 11210

1 1 200 T =T+ 1 80

11210 RETURN

1 1 220 ! 11230 !

FNF (

A 10830 10940 11030 11090 11120 11130

A8 10830 10880 11120 11130

A9 1 0830 10880 11120 11130

187
RAD7EF

B 10 8 3 0

11130

10940 11030 1 1080 1 1090 11100 11100 11120

B 8 1 0830 10 9 0 0 1 0920 1 0920 1 1040

B 9 1 0 8 3 0 10910 1 0920 10920 11050

C 8 1 0830 10890 10890 10900 10920 10920 11060 11070

C 9 1 0830 10890 10890 10910 10920 10920 11060 1 1070

Cm 1 0830

1 1040

10880

1 1090

10890

11100

10900 10910 10920 10940 1 1030

D 10 8 3 0

1 1050

10890

1 1090

10900

11100

10910 1 0920 10920 10940 1 1030

E 10830 10940 1 1030 1 1060 1 1080 1 1090 11100

E 4 10830 10980

E 5 1 0830 1 0990

F 10830 10940 10980 1 1030

F 3 1 0830 10970 10980 10990

G 10830 10940 1 0970 11030 1 1040 1 1060 11070

G 5 10830 10960 10 9 8 0 10990

H 10830 10940 10970 11030 1 1050 11060 11070

I 10830 1 0930 10940 1 1030 11110

K 1 0830 10940 1 1030

N 3 10830 10960

0 10830 10 9 4 0 10940 1 1000 1 1030 11030

P 1 0830 10940 11030 1 1070 1 1080 1 1090 11100

P( 10830 10940 10990 1 1030

P 2 1 0830 10960

P 3 10830 10940 11030

P 4 10830 10940 11030

P 5 10 8 3 0 10940 11030

P 6 10830 10940 1 1030

188
R \ D 7 E F

Q 1 0 8 3 9 1 0 9 4 0 110 3 0

R 10830 1 0940 110 3 0 1114 0

R 1 1 0 8 3 0 1 0 9 4 0 11030

R 2 1 0830 1 0 9 4 0 11030

S 1 0 8 3 0 10 9 4 0 1 1030

S3 1 0830 10 9 4 0 11030

S 4 1 0 8 3 0 10940 110 3 0

S 5 1 0830 10940 110 3 0

S 6 10830 10 94 0 110 3 0

T 1 0 8 3 0 1 0940 11030 11150 11180 11180 11200 112 0 0

W1 1 0 8 3 0 1 0940 11030

W 2 1 0 8 3 0 1 0940 1 1030

W 3 10830 1 0940 11030

X 11120 11140 11140 11150 11160

Y 1113 0 11140 11140 11150 11170

Z 1 10 8 3 0 10900 10970

7 2 10830 10910 1 0970

Z 3 1 0830 10920 10970

189
RAD7EF

1 1240

11250

1 1260

11270

1 1280

11290

1 1300

113 10

11320

11330

1 1340

1 1350

1 1360

1 1370

1 1 380

1 1 390

1 1400

11410

1 1420

11430

114 4 0

11450

1 1460

1 1470

1 1480

1 1490

1 1500

11510

115 2 0

11530

1 1 540

11550

1 1560

11570

1 1580

1 1 590

116 0 0

116 10

1 1620

11630

11640

11650

11660

11670

1 1680

1 1690

11700

117 10

11720

117 30

11740

11750

11760

11770

DEF FNH( A , A8 , A 9, B , B 8

, B 9

, C 8 , C 9 , G , H , I, 0 , R , T , W 1, W 2

,

W 3 , X , Y , P r t , Po u t $ )

! CALC GRIG PARAMETERS*************

OPTION BASE 1 COM F

( * ) , Z ( * ) ,T1 ,T2,T3,Qr(*) , Q i

( * ) , Final ( * ) COM File, Flag

PRINTER IS 16

1 = 0

PRINTER IS 0

PRINT

PRINT "FREQUENCY =";F(1,1)

X=A9*B9-A8*B8

Y=-A8*B9-A9*B8

G j c = 3 GOSUB 11960

PRINT USING 11390;" Q5=",R,T

IMAGE 1 1 A , X Z . 5 D X , XM 3 D . D D

! PRINT " 10285 -B/A Q 3 R E AL AND IMAG"

! PRINT "REAL" ; Qr ( 3 )

; "IMAG" ; Qi ( 3 ) A = A 8 * A 8+A 9 * A 9 X = - ( A8*C8+A9*C9 ) /

Y=(A9*C8-A8*C9 ) / A

! PRINT X ,

G j c = 4 GOSUB 11960

PRINT USING 11390;" G 2I=";R,T

IF V AL (Pout$ )<>2 THEN GOTO 11560

F ( 1 , 9 ) = R

F ( 1 , 7 ) = T

DEG

F( 1 , 3 )=F( 1 , 9 )*COS( F( 1,7))

F(1,5)=F(1,9)*SIN(F(1,7))

RAD

F ( 2, 9 ) = R

F ( 2

, 7 ) = T

DEG

F(2,3)=F(2,9)*COS(F(2,7))

F(2,5)=F(2,9)*SIN(F(2,7))

RAD

G j c = 5 G = W 1

11 = 0

GOSUB 11860

Qr( 5 ) = X

Qi ( 5 ) = Y

! PRINT "10553 -F/E Q5 REAL AND IMAG"

! PRINT "REAL" ; Qr ( 5 )

; "IMAG" ; Qi ( 5 ) PRINT USING 11390;" Q6=";R,T

G = W 2 H = W 3 G j c = 6

GOSUB 11860

Qr ( 6 ) = X

Qi ( 6 ) =

! PRINT "10403 -H/G Q6 REAL AND IMAG"

190
RAD7EF

11780 ! PRINT "REAL" ; Qr ( 6 )

; "IMAG" ; Qi (6

)

11790 PRINT USING 11390;" Q3=";R,T

11800 PRINT

11810 PRINTER IS 16

11820 RETURN 0

1 1 830 ! SUBROUTINE FOR Z CALC. -INPUT P

( * )

, B 8 , B 9 , C 8 , C 9 , D8 , D9 ; OUT P UT A , B 11840 [REVISED 1/28/79

1 1850 0 = FNG(0 )

1 1 860 Cm = G -B 8

1 1 870 D =H -B 9

11880 E=1-G*C8+H*C9

11890 P=-H*C8-G*C9

11900 B=E~2+P~2

11910 A=(Cm*E+D*P)/B

11920 B= ( D*E-Cm*P ) /

B

11930 IF 1=2 THEN 12050

11940 X=A*A8-B*A9

11950 Y=A*A9+B* A8

1 1960 R = S QR ( X *X+Y * Y

)

11970 T=ATN(Y/X)*180/PI

11980 Qr(Gjc)=X

1 1 990 Qi (G jc )=Y

12000 IF X>0 THEN 12050

12010 IF Y >0 THEN 12040

12020 T = T - 1 8 0

12030 GOTO 12050

12040 T=T+1 80

12050 RETURN

12060 ! 12070 !

FNH (

A 1 1240 11420 1 1430 1 1440 11910 1 1940 11950

A8 11240

1 1950

1 1340 11350 11420 11420 114 3 0 11440 11940

A9 1 1240

11950

1 1340 11350 11420 11420 11430 11440 1 1940

B 1 1240 1 1900 11910 1 1920 1 1920 1 1940 1 1950

B8 1 1240 1 1340 11350 1 1 860

B9 1 1240 1 1340 11350 1 1870

C8 1 1 240 11430 1 1440 1 1880 1 1890

C9 1 1240 11430 1 1440 1 1880 1 1890

Cm 11860 119 10 1 1920

D 1 1870 11910 1 1920

191
RAD7EF

E 1 1 880 1 1 900 11910 1 1920

F( * 115 4 0

1 1600

11330

1 1540

11600

1 1500

115 6 0

11510

11570

11530

1 1590

11530

1 1590

1 1530

1 1590

1 1540

11600

G 1 1240 1 16 30 117 10 11860 1 1880 l 1890

G j c 113 6 0 1 1460 11620 11730 1 1980 11990

H 1 1240 116 4 0 11720 1 1870 11880 1 1890

I 11240 1 1 300 11930

0 1 1240 1 1820 11850 11850

P 11890 1 1 900 11910 11920

Po ut $ 1 1240 11490

Pr t 1 1240

Qi ( * 11670 11760 1 1 990

Q r ( * 1 1660 117 50 1 1980

R 11240 113 8 0 1 1480 115 0 0 1 1 560 11700 11790 1 1960

T 1 1240

1 2020

1 1380

1 2020

11480

1 2040

11510

1 2040

115 7 0 1 1700 11790 11970

W1 1 1240 11630

W 2 1 1240 117 10

W 3 1 1240 11720

X 112 4 0

11970

113 4 0

1 1980

11430

1 2 000

1 1660 11750 1 1940 11960 11960

Y 1 1240

11970

11350

1 1990

1 1440

12010

11670 11760 11950 1 1960 11960

192
RAD7EF

12080 DEF FNI(A,B,Cm,F,G,0,W(*) ,Fr)

12090 ! CALC&PRINT RMAX/RMIN FOR ELLIPSE INPUT ( A , B , C )********

12100 OPTION BASE 1 12110 COM F(* ) ,Z(* ) ,T1 ,T2 , T3 ,Qr(* ) ,Qi (*) .Final (* ) 12120 COM File, Flag

12130 PRINT USING 1 2 1 4 0 ; S QR ( W ( 1

, 1 ) / F

)

12140 IMAGE "COV ELLIPSE = " , Z . 5D

12130 RETURN 0

12160 ! 12170 !

FNI (

A 12080

B 12080

Cm 12080

F 12080 12130

Fr 12080

G 12080

0 12080 12 150

w( 12080 12 130

193
RAD7EF

12180 DEF FNL(A,A(*),B,B(*),Cm,Cm(*),Fr,I,J,K,L,Nl,N2,0,P,P(*),Q,

R 1 , R 2 , T , W ( * ) , W 1 , W 2 , W 3 , X ( * ) , Y ( * ) ) 12190 OPTION BASE 1

1 2 200 COM F (*) ,Z (*), T1 , T2 , T3 , Qr( *) ,Qi (*) .Final (* ) 12210 COM File, Flag

12220 ! SOLVE REDUNDANCY EQUATION*************

1 2230 W 3 =W 3 * W 3 12240 PRINT "RESIDUAL FROM REDUNDANCY EQN=

12 2 3 0 RE DIM A ( 5

, 5 ), B ( 1 +N 1+N 2 , 5 ), X ( 1+N 1 +N 2 , 1 ) , Y ( 5 , 1 )

1 2 260 T= l E 50

1 2270 FOR K= 1 TO 10 , 12280 FOR 1=1 TO 1 +N 1 +N 2 12290 J = I + 1 1230 0 A=(Rl*P(J, 3

) -P ( J , 1 ))/Wl -W 1 *P ( J , 2 ) 12310 B = P ( J , 1 ) + ( W 2 * W 2 +W 3

) * P ( J , 2 ) + A * W 2 - R 2 * P ( J ,4 )

1 2 320 Cm = A*A-4*P ( J , 1 )*P( J , 2 ) 12330 P=2*(B*W2+A*W3)

12 340 X(I , 1 ) = B * B +W 3 * C m 12350 B(I , 1 )=P*P(J, 3)/Wl

1236 0 B(I , 2 ) = P*(-A/W1-2*P ( J , 2 ) )

1 2 370 B(I , 3 ) = -2*B*P( J ,4 ) 12380 B ( I ,4)=2*B*(2*W2*P(J,2)+A)

12390 B( I , 5 )=2*B*P ( J , 2 )+Cm

12400 NEXT I 12410 REDIM A ( 1

, N 1+N 2+1

)

1 2420 MAT A = T RN ( X )

1 24 30 MAT W = A * X

12440 Q=SQR(W( 1,1))

1 2450 PRINT USING 1 2 4 6 0 ; Q

12460 IMAGE Z.5D

12470 IF Q>T THEN 12670

1 2480 IF Q / T > . 9 9 THEN 1 2650

12490 T=Q

12500 REDIM A( 5

, 5 ) ,Cm( 5, 1+N 1+N2

)

12510 L=0

12520 MAT Cm=TRN(B)

1 2530 MAT Y = Cm* X

1 2 540 MAT A = Cm* B 12550 MAT A=INV(A)

1 2560 REDIM Cm( 5 , 1 )

1 2 570 MAT Cm= A*

1 2580 R 1 =R 1 -Cm ( 1,1)

1 2 590 W 1 = W

1 -Cm ( 2 , 1 )

1 2600 R2=R2-Cm( 3 , 1 ) 126 10 W2=W2-Cm(4 , 1 )

1 2620 W 3 =W 3 -Cm ( 5 , 1 ) 12630 NEXT K

12640 ! FOR REVERSED P3&P5 CHANGE SIN OF E7

1 2650 W3=SQR(W3 ) 12660 RETURN 0

12670 L=L+

1 2680 IF L > 3 . 5 THEN 1 2650

1 2690 R 1 =R 1 +C (

1 , 1 )/3

12700 W 1 =W 1 +Cm ( 2 , 1 ) /

3

194
RAD7BF

12710 R2=R2+Cm( 3

, 1 ) /3

12720 W2=W2+Cn(4 ,

l ) / 3

1 2 7 30 W 3 = W 3 + Cm ( 5, 1 )/3

12740 GOTO 12280

12750 ! 12760 !

FN L (

A 12 180 1 2 3 0 0 12 3 10 1 2 320 1 2 3 20 1 2 3 30 1 2 360 1 2 380

A ( 12 180

1 2 5 5 0

1 22 50

1 2 5 7 0

124 10 1 2420 1 2 4 3 0 1 2 500 1 2 5 4 0 1 2 5 5 0

B 12 180 12 3 10 1 2 330 1 2 3 4 0 1 2 3 4 0 1 2 370 1 2380 1 2 390

B ( 12 180

1 2 5 4 0

1 2250 1 2 3 5 0 1 2 360 1 2 37 0 1 2 380 1 2390 1 2 520

c( 1 2 690

Cm 12 180 1 2 320 1 2 340 1 2 3 9 0

Cm ( 12 180

1 2 590

1 2500

1 2600

1 2520

12610

1 2 5 3 0

1 2 6 2 0

1 2540

1 2700

1 2 560

12710

1 2570

1 2 720

1 2580

1 2 7 30

Fr 12 180

I 12 180

1 2 390

1 2280

1 2400

1 2290 1 2 340 1 2350 1 2 3 6 0 1 2 3 70 1 2 380

J 12 180

1 2320

1 2290

1 2 3 2 0

1 2300

1 2 350

1 2300

1 2360

1 2300

1 2370

12310

1 2380

12310

1 2 390

12 310

K 12 180 1 2270 1 2630

L 12 180 125 10 1 2670 1 2670 1 2680

N 1 12 180 1 2250 1 2250 1 2280 12410 1 2500

N 2 12 180 1 2250 1 2250 1 2280 124 10 1 2500

0 12 180 1 2660

P 12 180 1 2 3 3 0 1 2 3 5 0 1 2360

P( 12 180

1 2320

1 2300

1 2350

1 2 300

1 2360

1 2 300

1 2 3 7 0

12310

1 2 380

12310

1 2390

12 3 10 1 2 320

Q 12 180 1 2440 1 2450 1 2470 1 2480 1 2490

R 1 12 180 1 2 300 1 2580 1 2580 1 2690 1 2690

R 2 12 180 12310 1 2600 1 2600 127 10 127 10

195
RAD7EF

T 12 180 1 2 260 1 2 4 7 0

w( 12 180 1 2 4 3 0 1 2 4 4 0

W1 12 180 1 2 3 0 0 1 2 3 0 0

1 2700

W 2 12 180 123 10 12310

1 2 720 1 2 7 20

W3 12180 1 2230 1 22 30

1 2620 1 2650 1 2650

X( 12 180 1 22 50 1 2 3 4 0

12 180 1 22 50 1 2 530

12480 12490

1 2 3 5 0 12 3 60 1 2 5 9 0 1 2 5 9 0 1 2 700

12310 1 2 3 3 0 1 2 3 8 0 12 6 10 12 6 10

1 2 2 3 0

1 2 7 30

12 3 10

1 2 7 30

1 2 3 3 0 1 2 3 4 0 1 2 6 2 0

1 2420 1 2 4 30 1 2 5 3 0

1 2 570

196
RAD7EF

1 27 70

1 2780

12790

12800

12810

1 2820

1 2830

1 2840

1 2850

12860

12870

1 2880

12890

12900

12910

12920

1 2930

12940

12950

12960

1 2970

12980

1 2990

1 3000

13010

1 3020

1 3030

1 3040

13050

1 3060

13070

13080

13090

13100

13 110

13120

13130

13140

13150

13160

13170

13180

13190

13200

13210

1 3220

1 3230

13240

13250

1 3260

13270

13280

13290

DEF FNG ( A, B,Cm,D,E,F,G,H,I,K,P,P(*),P3,P4,P5,P6,Q,R,Rl,R2,S,S3,

S4,S5,S6,T,W1 ,W2,W3, II

)

OPTION BASE 1 COM F(*),Z(*),Tl,T2,T3,Qr(*),Qi(*),Final(*)

COM File, Flag

JAPPLY LEAST SQUARES TO DATA, IN ( KLMNO )

, OUT B 4

* 2 , RE& IM ( B 3 / B4

)

! F=(B4~2) , G,H=RE&IM(B3/B4)

IF 11=1 THEN GOTO 12850

GOTO 12860

1 = 1 1 P 3 =P ( I , 1 ) ! P5 on 6po rt

P4=P ( I ,2

)

P5=P(I,3) ! P6 on 6port

P6=P(I,4) ! P3 m 6 port

IF I > 1 5 THEN 12930

PRINTER IS 16

GOTO 12940

PRINTER IS 16

PRINT P(I,4),P(I,1),P(I,3),P(I,2)

PRINTER IS 16

S=(P3+P4+P5+P6)/100

S 3 = S + P 3 S4=S+P4

S 5 = S+P 5 S 6 = S+P 6

G=(W1+(P3-R1*P5)/P4/W1 )/2

H=((W2*W2+W3*W3+(P3-R2*P6)/P4 ) /2-G*W2 ) /W3

P3 =P 3 / S 3 P4 =P 4 / S 4

P5=P5*R1 /S5

P 6 =P 6 *R2 / S 6

P=P3*P3+P4*P4+P5*P 5+P6*P6

T= 1 E 5 0

FOR K= 1 TO 6

Cm=(G*G+H*H)/S3

D=( (G-Wl ) ~2+H*H ) / S 5 E = ( ( G-W 2)~2+(H-W3)~2)/S6

F=P/(Cm*P3+P4/S4+D*P5+E*P6)

Cra = Cm-P 3 /

F

D=D-P5/F

E=E-P6/F

R=SQR(( (

1 -P ( I

, 2)/F)/S4)~2+Cm*Cm+D*D+E*E)/S/25

IF R/T>.99 THEN 13310

T = R

Q

= Cm/ S3+D/S 5+E / S 6

A=G*Q-W1 *D/S5-W2*E/S6

B = H *Q -W 3 *E / S

6

D=G*P3 /S3+(G-W1 )*P5/S5+(G-W2)*P6/S6

E=H*P3/S3+H*P5/S5+(H-W3 )*P6/S6

Cm = Q + 2 * ( (G/S3)^2 + ((G-W1)/S5)^2+((G-W2)/S6)"2-D*D/P)

D=2*(G*H/S3/S3+(G-W1)*H/S5/S5+(G-W2)*(H-W3)/S6/S6-D*E/P)

E=Q+2*(H*(H/S3/S3+H/S5/S5 )+( (H-W3)/S6)"2-E*E/P)

G=G-(A*E-B*D)/ (Cm*E-D*D)

H=H-(B*Cm-A*D)/ (Cm*E-D*D)

197
RAD7EF

13300 NEXT K

13310 RETURN 0

13320 ! 13330 !

FNG (

A 1 2 7 70 132 10 1 3280 1 3290

B 1 2 7 70 1 3220 1 3280 1 3290

Cm 1 2 7 70

1 32 50

13 100

1 3280

13 130

1 3290

13140

1 3290

1 3140 13 170 13170 1 3200

D 1 2 7 70

132 10

1 3280

13110

1 3230

1 3290

13130

1 3 250

1 3290

13150

1 32 50

1 3290

13150

1 3 2 60

13170

1 3260

13170

1 3280

1 3200

1 3280

E 1 2 7 70

132 10

1 3280

13120

1 3220

1 3290

13130

1 3240

13160

1 3260

1316 0

1 32 70

13170

1 32 70

13170

1 3270

1 3200

1 3280

F 1 2 7 70 13 130 13140 13 150 13160 13 170

G 1 2 7 70

1 3230

1 3260

13 010

1 3230

1 3280

1 3020

1 32 30

1 3280

13100

1 3250

13100

1 3 2 5 0

13110

1 32 50

13120

1 3 2 6 0

132 10

1 3260

H 1 2 7 7 0

1 3240

1 3 2 7 0

1 3020

1 3240

1 32 70

13100

1 3240

1 3290

13100

1 32 60

1 3290

13 110

1 3 2 6 0

13110

1 3260

13 12 0

1 3270

1 3220

1 3270

I 1 2 7 70

1 2940

1 2850

1 2940

1 2860

1 2940

1 2870

13 170

1 2880 1 2890 1 2900 1 2940

I 1 1 2 7 7 0 1 2830 1 2 8 5 0

K 1 2 7 7 0 1 3090 1 3300

P 1 2 7 70 1 3 0 7 0 13 130 1 3 2 5 0 1 3260 1 32 70

P( 1 2 7 70

1 2940

1 2 8 6 0

13 170

1 2 8 7 0 1 2880 1 2890 1 2940 1 2940 1 2940

P 3 1 2 770

1 3070

1 2860

1 3070

1 2960

13 130

1 2970

13 140

13010

1 3 2 3 0

1 3020

1 3240

1 3030 1 3030

P 4 1 2 7 7 0

1 3070

1 2870

1 3 0 7 0

1 2960

13 130

1 2980 13 010 1 3 0 2 0 1 3040 1 3040

P 5 1 2 7 70

1 3070

1 2880

13 13 0

1 2 9 6 0

13150

1 2990

1 32 30

13 0 10

1 3240

1 3 0 5 0 1 3050 1 3070

198
RAD7EF

P 6 1 2770

1 3070

1 2890

13130

1 2960

13 160

1 3000

1 3230

1 3020

1 3240

1 3060 1 3060 1 3070

Q 1 2 770 1 3200 13210 1 3220 1 3250 1 3270

R 12770 13170 13180 13190

R 1 1 2 770 13010 1 3050

R2 1 2 770 1 3 0 2 0 1 3060

S 12 770 1 2960 1 2970 1 2980 1 2990 1 3000 13170

S3 1 2 770

1 3260

1 2970

1 3260

1 3030

1 3270

13100

1 3270

1 3200 1 32 30 1 3240 1 3250

S 4 1 2770 1 2980 1 3040 13130 13170

S 5 1 2 770

1 3250

1 2990

1 3260

1 3050

1 3260

13110

1 3 2 7 0

1 3200

1 3270

132 10 1 3230 1 3240

S 6 1 27 70

1 3240

1 3000

1 3250

1 3060

1 3260

13120

1 3260

1 3200

1 3270

132 10 1 3220 1 3230

T 1 2 770 1 3080 13180 13190

W1 1 2 7 70 130 10 13010 13110 132 10 1 3230 1 3250 1 3260

W2 1 2770

1 3 2 6 0

1 3020 1 3020 1 3020 13120 132 10 1 3230 1 3250

W3 1 2770

1 3270

1 3020 1 3020 1 3020 13120 1 3220 1 3240 1 3260

199
R A D 7 E F

13140 DR F FNT(A,A8,A9,B,B8,B9,Cm,C8,C9,D,E,F,G,H,I,K,0,P,P(*),P3,P4,

P5,P6,Q,R,Rl,R2,S,S3,S4,S5,S6,T,Wl,W2,W3,X,Y,Z8,Fr,Il,Gli(*),

Glr(*),Gl(*),Gla(*),Pout$)

13350 OPTION BASE 1 13360 COM F(*),Z(*),Tl,T2,T3,Qr(*),Qi(*),Final(*)

1 3370 COM File, Flag

1 3 380 IF I 1 > 1 THEN 1 = 11

13390 GOSUB 13530

13400 PRINTER IS 16

13410 PRINT " PORT" , "MAG(REFL CO E F

) ", " ARG ( RE F L COEF)"

1 3420 PRINT USING V3490 ; VAL (Pout $ ), R ,

13430 DEG

1 3 4 4 0 G 1 ( I 1 ) = R

1 34 50 Gla ( I 1 )=T

1 3460 Glr ( I 1 )=COS (T )*R

1 3470 Gli ( I 1 ) = S I N ( T )*R

13480 RAD

1 3490 IMAGE XM4 D , 1 4 XZ . 5 D , 1 1 XM 3 D . 3

13500 Z 8 = R

13510 PRINTER IS 16

13520 RETURN 0

13540 0=FNG(A,B,Cm,D,E,F,G,H,I,K,P,P(*),P3,P4,P5,P6,Q,R,Rl,R2,S,S3,S4,

S 5 , S 6 , T , W 1

, W 2 , W 3 , I 1 )

1 3550 Cm = G - B 8

1 3 560 D = H - B 9

1 3570 E = 1 -G * C 8 + H * C 9

13580 P=-H*C8-G*C9

13590 B = F,~2+P~2

13600 A=(Cm*E+D*P)/B

13610 B = ( D *E -Cm* P ) /

13620 IF 1=2 THEN 13720

1 3630 X = A* A8- B * A9

13640 Y=A*A9+B*A8

1 3650 R = S0R(X*X+Y*Y ) 13660 T=ATN(Y/X)*1 80/PI

13670 IF X>0 THEN 13720

1 3680 IF Y >0 THEN 13710

13690 T=T - 1 80

13700 GOTO 13720

13710 T=T+1 80

13720 RETURN

13730 !

1 3740 !

FNT (

A 1 3 3 4 0 1 3540 13600 13630 13640

A8 1 3340 1 3630 1 3640

A9 1 3340 1 3630 1 3640

200
R \ D 7 E F

B 13 14 0 1 3 5 4 0 1 3 590 1 3 6 0 0 1 16 1 0 13 6 1 0 136 10 1 1 6 4 0

B 3 1 3 3 4 0 1 3 5 5 0

R 9 1 3 3 4 0 1 3 5 6 0

C<8 1 3 340 1 3 57 0 1 3 5 8 0

C 9 1 3 3 40 1 3 5 7 0 1 3 5 8 0

Cm 1 3 3 4 0 1 3 5 4 0 1 3 5 5 0 1 3 60 0 13610

0 1 3 3 4 0 1 3 5 4 0 1 3 5 6 0 1 3 6 0 0 13 6 10

E 1 3 3 4 0 1 3 5 4 0 1 3 570 1 3 5 9 0 1 3600 13 6 10

F 1 3 340 1 3 5 4 0

Fr 1 3 3 4 0

G 1 3 3 4 0 1 3 540 1 3 5 5 0 1 3 5 70 1 3 5 8 0

Cl( 1 3340 1 3440

G 1 a ( 1 3 340 1 34 50

Gli ( 1 3 3 4 0 1 3 4 7 0

Glr ( 1 3 3 4 0 1 3460

H 1 3 340 1 3 5 4 0 1 3 5 6 0 1 3 5 7 0 1 3580

I 1 3340 1 3380 1 3540 1 3620

11 1 3340 1 3380 1 3380 1 3440 1 34 50 1 3460 1 3470 1 3540

K 1 3340 1 3540

0 1 3340 1 3520 1 3540

P 1 3340 1 3540 1 3580 1 3 5 9 0 1 3600 13 610

P( 1 3340 1 3540

P 3 1 3340 1 3540

P 4 1 3340 1 3540

P 5 1 3340 1 3540

P 6 1 3340 1 3540

Po ut $ 1 3 3 4 0 1 3420

Q 1 3340 1 3 540

201
RAD7EF

R 1 3 340 1 3 4 2 0 1 3440 1 3 4 6 0 1 3 4 7 0 1 3 5 0 0 1 3 5 4 0 1 3 6 5 0

R 1 1 3340 1 3 3 4 0

R2 1 3 3 4 0 1 3540

S 1 3 3 4 0 1 3 5 4 0

S3 1 3340 1 3540

S 4 1 3340 1 3 5 4 0

S 5 1 3340 1 3 5 4 0

S 6 1 3 3 4 0 1 3540

T 1 3340 1 34 20 1 3 4 5 0 1 3460 1 3 4 7 0 1 3540 1 3660 1 3690

1 3690 137 10 13 7 10

W1 1 3340 1 3 540

W 2 1 3 3 4 0 1 3540

W 3 1 3340 1 3540

X 1 3340 1 3630 1 3650 1 3 6 5 0 1 3660 1 3670

Y 1 3340 1 3640 1 3 6 5 0 1 3650 1 3660 1 3680

Z 8 1 3340 1 3 500

202
RAD7EF

13750 DEF FNU(A,B,Cm,D,E,F,F3,G,H,I,K,0,P,P(*),P3,P4,P5,P6,Q,R,Rl,R2,

S , S 3 , S 4 , S 5 , S 6 , T , W 1 , W 2 , W 3 , Z 1 , Z 2 , Z 3 ) 13760 OPTION BASE 1

1 3770 COM F(* ) ,Z (*) ,T1 , T2 , T3 ,Qr(* ) ,Qi (*), Final (* )

1 3780 COM File, Flag

13790 ! SOLUTION FOR NET POWER

13800 0=FNG( A, B , Cm,D,E,F,G,H,I,K,0,P,P(*),P3,P4,P5,P6,Q,R,Rl,R2,S,S3,

S4,S5,S6,T,W1 , W 2 , W 3 ) 13810 F3=1-((G-Z1 )~2+(H-Z2) ~2 )/Z3

13820 RETURN 0

1 3830 RE-SAVE " CORR" , 1 3 8 3 0 , 1 5 7 6 0 ! 2 2 MARCH 1 983 0930 GJC

FNU (

A 1 3 7 5 0 1 3800

B 1 3 7 50 1 3800

Cm 1 3750 1 3800

D 1 3750 1 3800

E 1 37 50 1 3800

F 1 37 50 1 3800

F 3 1 37 50 13810

G 1 3 7 50 1 3800 13810

H 1 3 7 50 1 3800 13810

I 1 3 7 50 1 3800

K 1 37 50 1 3800

0 1 37 50 1 3800 1 3800

P 1 37 50 1 3800

P( 1 3 7 50 1 3800

P 3 1 37 50 1 3800

P 4 1 37 50 1 3800

P 5 1 37 50 1 3800

P 6 1 37 50 1 3800

Q 1 37 50 1 3800

R 1 37 50 1 3800

203
RAD7EF

R

1 3 7 5 0 1 3800

R 2 1 37 50 1 3800

S 1 37 50 1 3800

s :3 1 37 50 1 3800

S 4 1 37 50 1 3800

S 5 1 37 50 1 3800

S 6 1 37 50 1 3800

T 1 3 7 50 1 3800

W1 1 37 50 1 3800

W 2 1 37 50 1 3800

W 3 1 37 50 1 3800

Z 1 1 37 50 13 810

Z 2 1 3750 13810

Z 3 1 37 50 13 810

204
RAD7EF

13840 SUB Corrl (Cl , P0 , E 7

, E 8 , Q

( * ) ,Aet)

13850 OPTION BASE 1

1 3860 COM F(* ) ,Z (* ) , T1 , T2 ,T3 , Qr (* ) ,Qi (*) ,Final(*

)

1 38 70 COM File.Flaq

1 3880 DIM A $ [ 1 0 0 ] 13890 FI =Z (1,37)

1 3900 F2=Z( 1

, 38 ) 13910 F 3 = Z ( 1 ,39)

1 3 9 2D N 3 = 5

1 3930 N 8 = 2 13940 PRINT N8,N3,"N8,N3"

13950 PRINTER IS 0

13960 PRINT "************************************************************"

13970 PRINT

13980 IF P0=2 THEN GOTO 14000

13990 PRINT "PLACE STANDARDS ON PORTS 2 AND 0, PRESS CONTINUE"

14000 OUTPUT 9

; "R"

14010 ENTER 9 ; P $

14020 PRINT TAB ( 20 ) , "DATE : " ; P $ [ 1 , 2 ] ; ; P$ [ 4,

5

] ; "- 1 982" ; " TIME : " ; P $ [ 7 , 1 4

}

14030 PRINT

14040 PRINTER IS 16

14050 Z9=T7=T8=T9=P7=P8=P9=0

14 060 W 4 =W 5 = W 6 = 0

14070 ! 14080 C = 0

14090 M = 1 ! SET VALUE FOR Freq SUBROUTINE

14 100 Fn=(Z(l , 3 8 ) - Z ( 1 ,37))/Z( 1

, 3 9 ) +

1

14110 PRINT Fn

14120 PO$="NOM2L5K5"

14130 F1=F1*10~6

14140 F = F 1 14150 OUTPUT 704 ; "0 OH 0 " & V AL $ ( F 1 )&P0$

14160 ! CALL Fre q ( F , F $ , F 1 $ , P0$ , M , Ccc

)

14170 PRINT F , FI

14180 M=2

14 190 X8 = V 2 = T 1 =T 8 = T 9 = T 7 = P 7 = P 8 = P 9 = P 4 = P 5 = P 6=W4 = VJ 5 =W 6 = W 1 = W 2 =W 3 = Z = 0

1 4200 FOR J 8= 1 TO N8+1

14210 T 1 =T 4 = V 2 =P 4 =P 5 = P 6 = W 1 = W 2 =W 3 = 0

14220 PRINTER IS 0

14230 FOR Z 2 = 1 TO N3

14240 IF P 0 = 0 THEN P0 = 1 14250 CALL Powe r ( P 1

, P2 , P 3 , PO , Ae t ) ! CALL POWER SUBROUTINE

1 4260 Y 1 =P 1 / P 2 14270 Y3=P3/P2

14280 X8 = (Y3-1 )/ ( Y 1 — 1

)

14290 IF J 8 = 1 THEN GOTO 14 380

14300 IF ABSCX8-E9 )> . 560 THEN GOTO 14330

14310 GOTO 14350

14320 PRINTER IS 16

14330 PRINT "DEV EXC EE DS " ; E 9

; " RE PE AT I NG MEASUREMENT"

14340 GOTO 14250

14350 PRINTER IS 16

14 3 60 PRINT E

9

14370 PRINTER IS 0

205
RAD 7 E F

14380

1 4390

14400

14410

14420

14 4 3 0

14440

14450

14460

14470

14480

14 4 9 0

1 4500

14510

14520

14 5 3 0

1 4 540

14550

14560

1 4 570

14580

1 4 590

14600

146 10

14 6 2 0

1 46 30

14640

146 50

14660

14670

14680

14690

14700

147 10

14720

1 47 30

14740

1 4 7 50

14 7 6 0

1 4 7 70

1 4780

1 4790

14800

14810

1 4820

1 4830

14840

14850

1 4360

14870

1 4 8 8 0

1 4890

14900

149 10

14920

PRINT X8;P1*1000;P2*1000;P3*1000

IF J 8 = 1 THEN 144 30

Z = Z - 1

! PAUSE

PRINTER IS 0

T 1 =T 1 + X 8

T4=T4+(T3-Y3*T2)/(Y3-1)

DISP "T4",T4

V 2 = V 2 +X 8 *X 8

P4 =P 4 + P

P 5 =P 5 + P 2

P 6 =P 6 + P 3 Wl=Wl+Pl*Pl

W2=W2+P2*P2

W 3 =W 3+P 3 *P 3

NEXT Z 2 T 4 =T 4 /N

3

S=SQR((V2-T1*T1/N3)/(N3-1))

T 1 =T 1 /N 3

E 9 = T 1

i

! PLOT AVERAGE OF 5 MEASUREMENTS

iPRINTER IS 0

IF J 8 > 1 THEN 14 940

I 6 = T 1 Q 5 = 1 0 0

I5=Q5/25

IMAGE 5X,”TX(K) =",M7D. ,"SIG(K) =",M5D.

IMAGE /,/,/,/

D9= 1 Q

= FNS ( 2 ) F = F ( 1 , 1 ) ! Z( 1

, 37 ) — 30

PRINT F

; "MHZ" , "I .F . FREQUENCY MHZ: 30", "LO FREQ MHZ:";F

PRINT USING 14670

IMAGE 1 7 X , " # OF PTS IN AVE =",M3D

IMAGE 7 X , " UN I T

=

" , M 9 D . D

, " P W R RATIO",/

PRINT USING 1 4 7 3 0 ; N 3 PRINT USING 14 7 4 0 ; 15

PRINT

IF Q 5 >= 1 0 THEN 14 830

PRINT USING 1 4 820 ; -Q5 , -3*Q5/5 , -Q5/5 , Q5/5 , 3*Q5/5 , Q5

GOTO 14840

IMAGE 4 X , M 5 D ,4X,M5D ,4X,M5D ,4X,M5D ,4X,M5D ,4X,M5D ," KELVINS"

IMAGE 5X,M1DE,4X,M1DE,4X,M1DE,4X,M1DE,4X,M1DE,4X,M1DE," KELVINS"

PRINT USING 1 48 1 0

; -Q5 , -3*Q5/5 , -Q5/5 , Q5/5 , 3*Q5/5 , Q5

A$=

PRINT TAB(8),A$

IMAGE "# /TIME" , 2 IX , "ZERO-" ,M5D ," PWR RATIO"

IF (Tl>=100) AND (T1<=1E5) THEN 14910

PRINT USING 1 4 890 ; I 6

IMAGE "# /TIME" , 2 IX , "ZERO=" ,M1D . 2DE , " PWR RATIO"

GOTO 14930

PRINTER IS 0

PRINT USING 1 4 8 6 0 ; I 6

! SUM OF Tx

! SUM OF Te

! SUM Tx ~ 2

! SUM PI

! SUM P 2

! SUM P 3

! S UM P

1 ~ 2

! SUM P 2

~ 2

! SUM P 3

~ 2

! AVE Te

!S.D. OF Tx

! AVE Tx SET OF 5

206
RAD7E

F

14930

14 9 4 0

14 950

1 4960

1 4970

14980

1 4990

1 5 0 0 0

15010

l 5020

1 5030

1 5040

1 5050

1 5060

1 5070

1 5080

1 5090

15 100

15 11 0

15120

15 130

15140

15 150

15 160

15 170

15180

15 190

1 5200

15 2 10

1 5220

1 52 30

1 5240

1 5250

1 5260

1 5270

1 5280

1 5290

15300

15 310

1 5320

15330

1 5340

1 5 350

1 5 360

1 5 370

1 5380

1 5390

1 5400

154 10

1 5420

1 5430

1 5440

1 5 4 5 0

1 5460

1 5470

GOTO 15010

I 6 = T 1 IMAGE M 3 D , 4X

PRINTER IS 0

PRINT USING 14950; J 8-1

PRINT USING 1 4 9 9 0 ; T 1 , S IMAGE 2 X , M 5 D ,2X,M5D

GOTO 15040

PRINT T A B ( 8 )

, A$

IF J 8 > 1 THEN 1 5040

GOTO 15140

T 1 = T 1 *N 3 T 8 = T 8+T 1 T 9 = T 9 + T 4 T7=T7+V2

P 7 = P 7 -PP 4

P 8 = P 8 + P

5

P 9 = P 9 + P 6

W 4 =»W4+W 1 W 5 =W 5+W 2 W6 = W 6+W 3 NEXT J 8

T 1 =T 8 / (N8*N 3

)

T 4 =T 9 /N 8

S1=SQR((T7-T8*T8/(N8*N3))/(N8*N3-1))

IF P0=1 THEN 15330

! SUM OF T

1

! SUM OF T4

! SUM OF Tl~2

! SUM OF PI

! SUM OF P2

! SUM OF P 3

! S UM OF PT2

! SUM OF P 2

~ 2

! SUM OF P 3

~ 2

! AVE VALUE TX 1 FULL SET

! AVE VALUE Te 1 FULL SET

! S . D Tx 1 FULL SET

STORE VALUES IN Z MATRIX

Z ( 1 , 7 ) = T2

Z( 1 , 8 ) = T3

Z ( 1 , 9 ) = T 1 Z( 1 , 10 )=S 1 Z ( 1 , 1 1 )=T4

Z( 1 , 12 )=P8/(N8*N3)

B 6 = T 7 Z ( 1 , 4 1 ) = B 6 B 8 = T 8

Z ( 1 , 42 ) = B8

GOTO 15480

Z ( 1 , 1 )=T2

Z( 1 , 2 )=T3

Z ( 1, 3

) =T 1 Z( 1 ,4)=S1

Z (

1 , 5 )=T4

Z( 1 ,6)=P8/(N3*N8)

B 5 = T 7 B 7 =T 8

Z( 1

, 4 3 ) = B 5 Z ( 1 , 4 4 ) = B 7

! REM B 5 AND B6 = SUM OF SQRS-B7

! SET 2

! SUM OF SQRS TX SET 2

! SUM OF Tx SET 2

! SET 1

! SUM OF SQRS TX SET 1

! SUM OF TX SET 1

AND B 8 = S U M OF T1

PRINT RESULTS OF FULL SET

PRINTER IS 0

207
RAD7EF

1 5480 PRINT " RATIO AVE STI) DEV " 15490 PRINT

1 5 5 0 0 PRINT USING 1 5 5 1 0 ; T 1 , S 1 15 5 10 IMAGE 5 X ,

1 D . 5 D , 2 X , 7 D . 5 D 15520 PRINT

15510 PRINT

1 5540 PRINT "PI AVE MW = " ; P 7 / ( N 3 *N 8 )

; " P 2 AVE MW = " ; P 8 / ( N 3 *N 8 ) ; "P '1 AVE MW = "

; P 9 / ( N 3 * N 8 ) 15550 PRINT

1 5 560 PRINT "STANDARD ERROR OF M E AN = " ; S 1 / S Q R ( N 8 *N 3 ) 15570 PRINT

! A V E

! AVE

! AVE

OF

OF

P 1 P 2 P 3SET 1 SET 1 SET 1

15580 PRINT

15590 7, = 3 * S 1 15600 PRINTER IS 16

15610 IF P 0 = 2 THEN 1 5650

1 56 20 Z ( 1 , 45 ) = P7/ (N3*N8 ) 15610 Z( 1 , 4 6 ) = P8/ (N3*N8 ) 15640 Z( 1 ,47 )=P9/(N3*N8)

1 5650 IF P 0 = 1 THEN 15710

15660 ! B 5 AND B6 = SUM OF

15670 Z ( 1 ,48)=P7/(N3*N8)

1 5680 Z( 1 , 49 ) = P8/(N3*N8 ) 15690 Z(1,50)=P9/(N3*N8)

15700 Q=FNB ( 1

)

15 7 10 Z 8 =

1 5720 IF P 0 = 2 THEN GOTO 1 5 7 50

15730 PRINT "INTERCHANGE DEVICES ON PORTS AND PRESS CONT"

15740 PAUSE

SQRS Tl; B 7 AND B 8 = S U M OF

SAVE OF

! AVE

! AVE

OF

OF

Tl

PI

P 2 P 3

SET 2

1 57 50

1 5 7 6 0

1 5 7 7 0

M = 2 SUBEND

RE-SAVE "Corr 2

"

,

15780,16970

S Co r r 1 (

A $ 1 3880 14840 14850

Ae t 1 3840 1 4250

B 5 1 5 390 154 10

B 6 1 5 2 8 0 1 5 2 9 0

B 7 1 5400 1 5420

B 8 1 5300 15310

C 14080

C 1 1 3840

D 9 1 4680

E 7 1 3840

208
RAD7EF

E 8 13840

E9 1 4300 1 4330 1 4 3 6 0 1 4570

F 14 140 14 170 1 4 700 14710 147 10

F ( * 1 4 700

FI 1 3890 14 13 0 14 13 0 14140 14 150 14170

F 2 1 3900

F 3 13910

Fn 14100 14 110

15 1 4650 1 4 7 6 0

16 1 46 30 1 4880 1 4920 1 4 9 4 0

J 8 14200 1 4290 1 4 3 9 0 1 4620 1 4 9 7 0 1 5020 15140

M 14090 14180 1 57 50

N 3 1 3920 1 3940 1 4 2 3 0 1 4 5 4 0 1 4 550 1 4550 1 4560 1 47 50

1 5040 15150 15 170 15170 1 52 70 1 5380 1 5540 1 5540

1 5540 1 5560 1 5620 1 5630 1 5 6 4 0 1 5670 1 5680 1 5690

N 8 1 3930 1 3940 1 4200 1 5150 15 160 15170 15170 1 5 2 7 0

1 5380 1 5540 1 5540 1 5540 1 5560 1 5620 1 5630 1 5640

1 5670 1 5680 1 5690

P$ 140 10 14020 14020 14020

P0 1 3840

1 57 20

1 3980 1 4240 1 4240 1 4 2 5 0 15180 15610 1 5650

P0$ 14 120 14 150

PI 14250 1 4260 14380 14470 14500 14 500

P2 14250 1 4260 1 42 70 1 4380 14480 14510 14510

P 3 1 4250 1 42 70 1 4380 14490 14520 1 4520

P 4 14190 142 10 1 4470 1 4470 1 5080

P 5 14190 142 10 14480 14480 1 5090

P 6 14 190 142 10 1 4490 1 4490 15100

P 7 1 4050 14190 1 5080 1 5080 1 5 540 1 5620 1 5670

P 8 1 4050

1 5680

14 190 1 5090 1 5090 1 5270 1 5380 1 5540 1 5630

209
RAD7EF

P 9 14050 14190 15100 15100 1 5540 1 5640 1 5690

Q 14690 1 5700

Q ( 1 3840

Q5 14640

14790

1 4650

14 8 3 0

1 4780

1 4830

1 4790

14830

1 4 7 9 0

1 4830

14790

14830

14790

1 4830

14790

s 14550 14980

S 1 15170 1 5250 1 5360 1 5500 1 5560 1 5590

T 1 *

1 4560

1 5040

14 190

14570

1 5050

142 10

1 4630

15 150

144 30

1 4870

1 5240

1 4430

1 4870

1 5350

1 4550

1 4940

1 5500

1 4 5 5 0

1 4980

1 4560

1 5040

T 2 * 14440 1 5220 1 5330

T 3 * 14440 1 52 30 1 5340

T 4 142 10

1 5260

14440

1 5 370

14440 1 4450 1 4540 1 4540 1 5060 15160

T7 14050 14190 1 5070 1 5070 15 170 1 5280 1 5390

T8 1 4050

1 5400

14 190 1 5050 1 5050 15150 15170 15170 1 5300

T9 1 4050 14190 l 5060 1 5060 15160

V2 14190 142 10 1 4460 1 4460 1 4550 1 5070

W1 14 190 14210 14500 14500 15 110

W2 14190 142 10 14510 14510 15120

W 3 14 190 142 10 1 4520 1 4520 15130

W4 1 4060 14 190 15110 15 110

W 5 1 4060 14190 15120 15120

W6 14060 14190 15130 15130

X8 14 190 14280 1 4300 1 4380 1 4430 14460 1 4460

Y 1 1 4260 14280

Y 3 1 4270 1 4280 1 4440 1 4440

Z 14 190 1 4400 14400 1 5 590

2 10
RAD7EF

z( * 1 3890 1 3900 13910 14100 14100 14 100 1 5220

1 52 30 1 5240 1 52 50 1 5260 1 52 70 1 5290 153 10 1 5330

1 5340 1 5350 1 5360 1 5370 1 5 380 154 10 1 5420 1 5620

1 5630 1 5640 1 5670 1 5680 1 5690

Z 2 1 4230 1 4530

ZB 15710

Z 9 14 0 5 0

2 1 1
R A D 7 E F

15780 EUR Corr2(Cl,C$,G$,R$,E7,E8,Q(*),Aet)

15790 OPTION BASE 1 15800 COM F ( * ) , Z ( * ) ,T1 ,T2,T3,Qr(*) , Q i

( * ) , F i n a I ( * ) 15810 COM File, Flag

15820 PRINTER IS 16

1 58 30 F

1 =Z (

1 , 37 ) 15840 F2=Z(1 ,38)

1 58 50 F3 = Z( 1

, 39 ) 15860 N 3 = Z ( 1 ,25)

1 5870 N8 = Z ( 1

, 40 )

1 5880 Fn= (F2-F 1 ) / F 3 + 1

1 5 890 Q

= F N S ( 4 ) 15900 F 1 =F 1 -F 3 15 910 FOR F r = 1 TO Fn

15920 F=F 1 +Fr*F3* 1 E6

1 5930 FOR P 0 = 1 TO 2 15940 ON PO GOTO 15970,16030

15950 ! 15960 ! 15970 PRINT "STARTING PROGRAM CORR2 15730"

15980 REM LEVEL LOOP

1 5990 ! N3 = Z( l ,25)

16000 ! N 8 = Z ( 1 ,40)

16010 N 3 = 5 16020 N 8 = 2 16030 N=N3*N8*2

1 6 040 Z( 1 , 3 1 )=N

16050 CALL Cor r 1 (Cl , PO , E7 ,E8 , 0( * )

, Aet ) ! MEASUREMENT OF THE TEMP OF UNKNOWN

16060 NEXT PO

16070 ! !!!!!!!! READ DATA FROM CAL MATRIX HERE!!!!!!!!!!!!!!!

16080 MASS STORAGE IS ":F8,1"

16090 LINPUT "FILE #",Fcal$

16 100 C a 1 $ = " A U X "&Fcal$

16110 ASSIGN #1 TO Cal$

16 12 0 READ // 1 ; F ( * ) 16130 P r t = 1 16140 Tlave=(Z( 1 , 3 ) +Z ( 1 , 9 ) ) / 2 SAVE VALUE OF T1

16150 Ml=(l-F(3,ll)"2)*(l-F(3,9)"2)

16 160 M2 = ( 1 -F( 3 , 1 3 )*F( 3 , 3 )+F( 3 , 1 4 )*F( 3 , 5) ) ~2+(F( 3 , 1 3 )*F( 3 , 5)-t-F( 3 , 14 )*F(3 , 3 ) ) "2

16170 M x 1 = M 1 / M 2 16 18 0 P r t = 2 16190 Ml=(l-F(4, ll)~2)*(l-F(4,9)~2)

1 6 200 M 2 = (

1 -F ( 4 , 13 ) * F ( 4

, 3 ) + F ( 4 , 1 4

) * F ( 4 , 5 )

) ~ 2 + ( F ( 4 , 1 3 ) * F ( 4 , 5 ) + F ( 4 , 1 4 ) * F ( 4 , 3 ) ) ~ 2 16210 Mx2 = M 1 / M2

1 6 2 2 0 M l = (l-F(4,ll)*2)*(l-F(3,9)~2)

16 230 M 2 = (

1 -F(4 ,

1 3 )*F( 3, 3 )+F(4 , 14 )*F( 3 , 5 )

) ~2 + (F(4 , 1 3 )*F( 3 , 5 )+F(4 , 14 )*F( 3 , 3 ) ) ~2

16240 Mx3=Ml/M2

16 2 5 0 Ml = (l-F(3, 11 ) ~ 2 ) * ( 1-F(4,9)"2)

16 260 M 2 = ( 1 - F ( 3 ,

1 3

) * F ( 4 , 3 ) +F ( 3 , 1 4) * F ( 4 , 5 )

) ~ 2 + ( F ( 3 , 1 3

) * F ( 4 , 5 ) +F ( 3 , 1 4

) * F ( 4 , 3 ) ) ~ 2

1 62 70 M x 4 = M 1 / M 2 1628 0 Re s u 1 1 = S OR ( Mx 1 *Mx3 / ( Mx2 *Mx4 )*Z( 1 , 3 ) * 7 ( 1 , 9 ) ) 16 2 9 0 Z ( 1 , 5 7 ) = A e t a r a t i o = R e s u 1

1 6 300 T 2 a v e = ( Z (

1 , 1 )+Z ( 1 , 7 ) ) / 2 16310!

2 1 2
RAD7EF

1 6 320

1 6 3 3 0

1 6340

16350

1 6360

1 6 3 7 0

16380

16390

16400

16410

1 6420

16430

16440

16450

16460

16470

16480

16490

16500

16 5 10

16 520

16 530

1 6 540

1 6 550

16 5 6 0

1 6 5 70

16580

1 6 590

1 6600

166 10

16620

16630

16640

16650

16660

16670

1 6680

1 6690

1 6 700

16710

1 67 20

1 67 30

1 6740

1 67 50

16 7 60

1 6 7 70

1 67 80

1 67 90

16 8 0 0

16810

1 6820

1 6830

1 6840

REM PRELIMINARY RESULTS!

! A$ = " N = N 3*N8*2

PRINTER IS 0

! PRINT PAGE

Q

= F N S ( 1 0 ) PRINT TAB( 2 3 ), "MEASUREMENT RECAP"

Q

= FN S (10)

PRINTPRINT TAB( 6 ) , "FREQUENCY-" ; F ( 1 , l ) ; "MHZ IF F REQ IJ E NC Y = 3 0

" ; "MUZ

Z( 1 , 58 ) = F=F( 1 , 1

)

PRINT

PRINT T A B ( 6 ) ,A$

Q=FNS ( 2

)

PRINT TAB(ll), "Mx 1

, Mx2 ,Mxl ' ,Mx2 ' " FIXED 11

PRINT TAB( 1 1 ) ,Mxl ; " ";Mx2;" ";Mx3;" " ; Mx4

PRINT

PRINT TAB( 1 1 )

, "Aeta ratio ";TAB(26) ," Sa"

FIXED 5 PRINT T A B ( 6 ) , " " PRINT TAB(8),Z(l , 3);TAB(26),Z(1 ,4)

PRINT TAB( 8 ) ,Z ( 1 , 9 )

; TAB( 26 ), Z ( 1, 10

)

PRINT

PRINT "Aeta Ratio WITH Mismatch Terms="

PRINT " [ M x 1 / M x 2 ) ( Mx 1

' / Mx 2' ) ( Y x 2 - 1 ) / ( Yx 1 - 1 ) ( Yx 2

' - 1 ) / Y x 1

' - 1 ) ] *

1 / 2

; Result

PRINT "DB FOR R AT 1 0 = "

; 1 0 *LGT ( Re s u 1 1

)

PRINT TAB(6),"3 * SEM FOR ENTIRE SET OF MEASUREMENTS WAS ";Z(1,

PRINT TAB(6),A$

PRINT

STANDARD

N 9 = Z ( l

, 3 1 ) PRINT TAB ( 6 )

, " AVE POWER IN MILLIWATTS P1.P2.P3 DEV 1"

PRINT TAB (6 ) ,Z( 1 , 4 5 )*1000 , Z( 1 , 4 6 )*1000 ,Z( 1 , 4 7 )*1000

PRINT TAB(6),"4VE POWER IN MILLIWATTS P1.P2.P3 DEV 2"

PRINT TAB(6),Z(1,48)*1000,Z(1,49)*1000,Z(1,50)*1000

FIXED 4 PRINT T A B ( 6 ) ,A$

PRINT

PRINT "AMBIENT STANDARD TEMPERATURE: ";T2

PRINT

Aeta = Z( 1 , 57 ) = Result

N 1 =N 3 *N 8

Y 1 a = Z ( 1 , 4 5 ) / N 1 / ( Z ( 1 , 4 6 ) / N 1 ) Y l b = Z ( 1 , 4 8 ) / N 1 / ( Z ( 1 , 4 9 ) / N 1 ) Y 1 c = Z ( 1 . 47 )/N 1 / (Z( 1 , 46 )/N 1 ) Yld = Z( 1 , 50 )/N 1/(Z( 1 ,49)/N 1 ) PRINT " END OF MEASUREMENT

FIXED 0

MASS STORAGE IS ":F8,1"

PRINT "PLACE CAL DISC IN F8

PAUSE

LINPUT "FILE NAME, CORR+# "

! RATIO DEVICE 1 TO AMBIENT PORT

! RATIO DEVICE 2 TO AMBIENT PORT

! RATIO DEVICE 2 TO AMBIENT PORT

! RATIO DEVICE 1 TO AMBIENT PORT 3

II

1 PRESS CONT"

Co r r $

13)

2 SET 1 2 SET 2

3 SET 1 SET 2

2 1 3
RAD7EF

16850 CREATE Corr$,10

16860 ASSIGN #1 TO Corr$

16870 Pa 1 =Z ( 1 , 46 ) /N 1 ! PWR A SET 1 16880 Pa2=Z ( 1

, 49 ) /N 1 ! PWR A SET 2 16890 Pc 1 =Z( 1 , 45 )/N 1 ! PWR PORT 2 SET 1 16900 Pc2=Z( 1 ,48)/Nl !PWR PRT 2 SET 2 16910 Pc3=Z( 1

, 47 )/N 1 !PWR PORT 3 SET 1 16920 Pc4=Z(l , 50 ) /N 1 ! PWR PORT 3 SET 2 16930 PRINT #1 ; Ae ta , Yl a , Y1 b , Y1 c , Y1 d , Pa 1 , Pa2 , Pc 1 , Pc2 , Pc3 , Pc4

16940 ASSIGN //I TO * 16950 SUBEXIT

16960 PRINTER IS 16

16970 SUBEND

16980 RE-SAVE "SData " . 1 6 9 8 0 . 1 9 1 1 0 ! J AN U AR Y 15. 1982 0832

S Co r r 2 (

A $ 1 6440 16600 16690

Act 1 5780 1 6050

Ae t a 1 67 30 1 6930

Aetarat io 16290

C$ 1 5780

Cl 1 57 80 1 6050

Ca 1 $ 16 100 16110

Co r r $ 1 6840 16850 16860

E7 1 5780 1 6050

E 8 1 5780 1 6050

F 1 5920 1 6420

F ( * 16120 16150

16190 16200

16230 16230

16260 16260

F 1 1 5830 15880 15900

F 2 1 5840 1 5880

F 3 1 5850 15880 15900

F c a 1 $ 1 6090 16100

F n 1 5880 15910

16150 16160 16160 16160 16160

1 6200 16200 1 6200 1 6200 1 6200

1 6230 1 6230 1 6230 1 6230 16230

1 6260 1 6260 16260 16410 1 6420

15900 15920

1 5920

16160

1 6200

16250

2 14
RAD7EF

Fr 15 9 10 1 5920

G$ 1 5780

Ml 1 6 1 50 16 170 16 190 162 10 1 6220 16240 1 6250

M2 16 160 16170 1 6200 162 10 1 62 30 1 6240 1 6260

Mx r 16170 1 6280 1 6480

Mx 2 162 10 1 6280 1 6480

Mx 3 1 6240 1 6280 1 6480

Mx 4 1 6 2 7 0 1 6280 1 6480

N 1 6030 1 6040 1 6340

N 1 1 6740 1 6 7 5 0 1 67 50 1 6760 1 6760 1 6770 1 67 70

1 6780 1 6870 1 6880 1 6890 1 6900 16910 1 6920

N 3 1 5860 16010 1 6030 1 6340 1 6740

N 8 1 58 70 1 6020 1 6030 1 6 340 1 6740

N 9 1 66 30

P0 1 5930 1 5940 1 6050 16060

Pa 1 1 6870 1 6 9 3 0

Pa 2 1 6880 1 6930

Pc 1 1 6890 1 6930

Pc 2 1 6900 1 6930

Pc 3 16910 1 6930

Pc4 1 6920 1 6930

Prt 16130 16180

Q 1 5890 1 6370 1 6390 1 6450

Q ( 1 57 80 16050

R$ 1 5780

Result 16280 1 6290 1 6570 1 6580 1 67 30

T 1 a ve 16140

T2 * 167 10

T 2 a v e 16300

1 6270

1 6270

16780

2 1 5
R \ D 7 E F

Y 1 a 16 7 5 0 16 9 0 0

Y 1 b 1 6 7 6 0 1 6 9 0 0

Ylc. 1 6 7 7 0 l 6900

Y 1 d 1 6780 1 69 00

z( * 1 58 00 1 5840

16 14 0 1 6280 1 6 2 8 0

16 5 0 0 1 6540 16 5 4 0

1 6 6 7 0 1 6 6 7 0 1 6 6 7 0

1 6 7 7 0 1 6 7 7 0 1 6 7 8 0

16 910 1 6920

l 5850 1 5 8 6 0 1 5 8 7 0 1 604 0 16 140

1 6290 1 6 0 0 0 1 6 0 0 0 1 6420 1 6 5 00

1 6 5 9 0 1 6 6 0 0 1 6 6 5 0 1 6650 1 6650

1 67 30 1 6 7 5 0 1 67 50 1 6 7 6 0 1 6760

1 6 7 8 0 1 6 8 7 0 1 6 8 8 0 1 6 8 9 0 1 6900

2 1 6
RAD7EF

16990 SUB Report(P$,C$,G$,R$,H$,Fl , F 2 , F 3 , N 3 , N 8 , Q ( * ) ,Set)

17000 OPTION BASE 1 17010 COM F (*) ,Z (*), T1 , T2 , T3 , Qr (*), Qi (*), Final (* ) 17020 COM File, Flag

17030 DIM A $ [ 1 0 0 ] 17040 S e t = 1 17050 ! GOTO 17590

17060 ! MASS STORAGE IS " : F 8 , 1"

17070 ! INPUT "TAPE //.FILE NAME ",T,Q$

17080 ! ASSIGN //I TO Q$

17090 ! READ # 1

; P $ , C $, G $, R $ , H $, F 1, F 2, F 3

, N 5

, N 8 , C 1

, C 2 , Z

( * ) , Q( * )

, F

( *

)

17 100 ! ASSIGN //I TO * 17110 REM PRELIMINARY RESULTS

17120 A $ = " " 17130 PRINTER IS 0

17140 ! PRINT PAGE

17150 Set=

1

17160 FIXED 2 17170 PRINT

17180 OUTPUT 9

; " R

17190 ENTER 9 ; P $

1 7200 PRINT TAB( 20 )

, "DATE : "

; P $ [ 1

, 2 ] ;

; P$ [ 4 , 5 ]

; "-1 983" ; " TIME : " ; P $ [ 7 , 1 4 ] 17210 PRINT

17220 PRINT T AB ( 6 )

, A$

17230 ! PRINT TAB(6),"TAPE #: ";T," FILE:" ;Q$;TAB(50);R$[ 1,19]

17240 PRINT TAB( 6 ), "TEMPERATURE OF WATER B ATH " ; H $ [ 1, 1 0

]

17250 PRINT TAB( 6 ), "BAROMETRIC PRESSURE MM MERCURY H$ [ 1 1

, 20

]

17260 FOR 1=1 TO 8

17270 PRINT

17280 NEXT I 17290 PRINT TAB( 23 ), "MEASUREMENT RECAP"

17300 PRINT TAB( 30 )

, "AND"

17310 PRINT TAB(22 ) ."PRELIMINARY RESULTS"

17320 FOR 1=1 TO 7 17330 PRINT

17340 NEXT I 17350 Z( 1 , 34 ) = F(Set , 1 ) 17360 K = S e t 17370 PRINT TAB(8),"FREQUENCY=";F(K, 1 ) / 1000; "GHZ"

17380 PRINT

17390 PRINT

17400 PRINT TAB(6),A$

17410 PRINT TAB( 1 1 ) , "TX" ; TAB( 2 1 )

, "SX" ; TAB( 34 ), "TE"

17420 PRINT TAB ( 6 ) , " " 17430 PRINT TAB(8 ) ,Z(K, 3 )

; TAB( 20 ), Z(K, 4 )

; TAB( 32 ), Z (K, 5 )

; "( 1ST 50

MEASUREMENTS )

17440 PRINT TAB(8 ) ,Z (K , 9 )

; TAB( 20 ), Z (K, 10 ); TAB( 32 ) ,Z(K, 1 1 )

; " ( 2ND 50

MEASUREMENTS )

17450 PRINT

17460 PRINT TAB(6),A$

17470 PRINT

17480 PRINT T AB ( 8 )

, " AVE Tna ","AVE Tne"

17490 FIXED 0

17500 PRINT TAB(8),(Z(K,3)+Z(K,9))/2,(l-Mga~2)*Z(l,35)

217
RAD7EF

17510 PRINT

17520 FIXED 4

17530 PRINT T A B ( 3 ) , " REFLECTION COEFFICIENT MAGNITUDE OF DEVICE

TESTED="; Z(Set ,64

)

17540 FIXED 2

1 7 550 PRINT TAB ( 8 )

, " REFLECTION COEFFICIENT ANGLE OF DEVICE TESTED*";

Z (Set ,63 )

; "DEGREES"

17560 PRINT

17570 PRINT " STANDARD CK 1 =

" ; Z ( 1

, 6 6 )

; "K

17580 PRINT " STANDARD CK 2 =

" ; Z (

1

, 6 7 )

; "K

17 590 PRINT T A B ( 6 ) , A $

17600 STANDARD

17610 N 9 = Z ( K , 3 1 )

1 7620 N =N 9 17630 FIXED 2 17640 PRINT T AB ( 9 )

, " AVE POWER IN MILLIWATTS P1,P2,P3"

1 7650 PRINT USING 1 7 6 6 0 ; Z ( 1

, 4 5 ) / N 9 * 1 0 00 , Z ( 1

, 4 6 ) / N 9 * 1 0 00 , Z ( 1, 4 7 ) /N 9 * 1 00

0

1 7660 IMAGE 8 X , M D . 4 D , 5 X , M D . 4 D , 5 X , M D . 4 D

17670 S 1 =.000006 ! SQR( ( Z(K, 48 )-Z(K, 45 )*Z(K, 45 ) /N ) / (N-l )

)

17680 S2=. 0000006 !SQR((Z(K,49)-Z(K,46)*Z(K,46)/M)/ (N-l ))

17690 S3=. 0000007 !SQR((Z(K,50)-Z(K,47 )*Z(K,47 )/N)/ (N-l ))

17700 FIXED 8

17710 PRINT USING 1 7 7 2 0 ; Z ( K , 3 1 ) , S 1 * 1 00 0 , S 2 * 1 00 0 , S 3 * 1 0 00

1 7 720 IMAGE 8X,"SD Pl,P2,P3 (# OF M E A S = " , M DD D / 8 X , M D . D D D D , 3 X , M D . D D D D

,

3 X , M D . DD D 17730 PRINT TAB( 6 )

, A$

17740 PRINT

17750 PRINT

17 760 Q

= FN S ( 8 ) 17770 Tna = Z(Set ,35)

1 7780 Mga=SQR(Z(Set ,61 )“2+Z(Set ,62 )~2 ) ! | GAMMA

|

17790 Z(Set ,34 ) = Tne = Tna*( 1 -Mg a

~ 2

)

17800 PRINT USING 17810

17810 IMAGE "FREQ GHZ",5X,"Tna K",5X,"Tne K",5X,"E1 K",5X,"3Sx K",5X,

"ENR DB" , 5X , " E 2 DB"

17820 PRINT USING 17830

1 7830 IMAGE " ",5X," "

, 5X , " ",5X," ",5X," ",5X,

" "

, 5 X , " " 17840 K$=VAL$ ( INT(Tna )

)

17850 IF Tna-10000<0 THEN GOTO 17930

17860 IF VAL ( K $ [ 5 , 5 ] ) > = 5 THEN GOTO 1 7890

1 7870 K $ [ 5

, 5 1 = " 0

" 17880 GOTO 17910

1 7890 K $ [ 5

, 5 ] = " 0

" 17900 K$ [4 , 4

] =VAL$ (VAL(K$ [ 4 , 4 ] ) + l ) 17910 K = V AL ( K $ ) 17920 GOTO 17990

1 7930 IF VAL(K$ [ 4, 4 ] )>=5 THEN GOTO 1 7960

1 7940 K $ [ 4, 4 ] = "0

17950 GOTO 17980

1 7960 K $ [ 4, 4 ] = "0

17970 K$[ 1 ,3]=VAL$(VAL(K$[ 1

, 3] )+l

)

17 980 K = VAL ( K $

)

17990 L$=VAL$(Z(1 ,36))

18000 IF V A L ( L $ [ 3

, 3 ] ) > 5 THEN GOTO 1 8020

2 18
RA.D7EF

18010

18020

18030

18040

18050

18060

18070

18080

18090

18100

18 110

18120

18130

18140

18150

18160

18170

18180

18190

18200

18210

18220

18230

18240

18250

18260

18270

18280

18290

18300

18310

1 8320

18330

18340

18350

18360

18380

18390

18400

18410

18420

1 8430

18440

18450

18460

18470

1 8480

18490

18500

18510

1 8520

18530

18540

GOTO 18050

L $ [ 3 , 3 ] = "0 " L $ [ 3

, 3 ]=VAL$ (VAL(L$ [ 3

, 3 ] ) + l

)

GOTO 18070

IF VAL(L$ [ 3

, 3 ] ) >0 THEN L$[3,3]="5"

IF VAL ( L $ [ 3, 3 ] ) =0 THEN L$[3,3] = "0"

L = V AL ( L $ ) N$=VAL$(INT(Tne )

)

IF Tne- 1 0000<0 THEN GOTO 18190

IF VAL(N$ [ 5 , 5 ] )>=5 THEN GOTO 18130

N $ [ 5 , 5 ] = "0 " GOTO 18150

N $ [ 5 , 5 ] 3 "0 " N$ [4 ,4 ]=VAL$ (VAL(N$ [4 , 4 ] ) + l ) Ne=VAL(N$)

IF VAL (N$[4,4])>=5 THEN GOTO 18190

N $ [ 4 , 4 ] = "0 " GOTO 18210

N$ [ 4 , 4 ] = "0"

N$[3,3]=VAL$(VAL(N$[3,3])+1)

Ne=VAL(N$)

F = F(Set , 1 )/1000

F = F ( S e t , 1 )/1000

PRINT USING 1 8250;F , K,Ne ,L, Z( 1, 13 ) ,Z( 1, 14 ) ,Z( 1, 1 5

)

IMAGE MD.2I),7X,M5D,4X,M5D,4X,M3D,5X,M2D,8X,M2D.2D,3X,M2D.2D

PRINT

PRINT T AB ( 6 )

, A$

PRINT USING 18290

IMAGE "GAMMA OF D.U.T.-- REAL IMAGINARY"

PRINT " " PRINT USING 18320;Z(Set ,61 ) , Z ( Se t ,62)

IMAGE 16X,M . DDDD, 5X ,M. DDDD

PRINT

FIXED 2 PRINT

PRINT F ( 1 , 1 ) ; Z ( 1 , 3 5 ) ; Z (

1 , 34 ) ; Z ( 1

, 3 6 ) ; Z ( 1 , 1 3 ) ; Z ( 1 , 1 4 ) ; Z ( 1

, 1 5 ) PAUSE

! PRINT PAGE

F = Z( 1

, 37 ) PRINT USING 1 84 2 0 ;

F

IMAGE 25X , "FREQUENCY =

" , M4 D .

, "MHZ

If = 30

PRINT TAB(26),"I. F. FREQUENCY 3 30 MHZ"

! PRINT T A B ( 2 6 ) , "I. F. FREQUENCY 3 5 MHZ"

PRINT

PRINT

K = S e t PRINT USING 18500; Z(K, 35 ) ,Z (K , 36 ) ,Z(K, 1 3 ) IMAGE 10X, "NOISE TEMPERATURE 3 " , M 5 D . 2 D

, " K +-",M3D.2D,

"K(BIAS) +-" ,M3D . 2D , "K (3*SEM)"

IF Z(K, 52)<220 THEN 18540

PRINT USING 18530;Z(K, 14) ,Z(K, 15)

IMAGE 10X, "EXCESS NOISE RATIO 3 " ,M3D . 2D ,"DB +-",MD.2D , "DB( BIAS+3*SEM)

PRINT USING 18550;Z(K, 16)

219
RAD 7 E F

18550 IMAGE

18560 PRINT

18570 IMAGE

18580 FIXED

18590 PRINT

18600 PRINT

18610 PRINT

18620 PRINT

18630 PRINT

18640 PRINT

18650 PRINT

18660 PRINT

18670 PRINT

18680 PRINT

18690 IMAGE

18700 PRINT

18710 IMAGE

18720 PRINT

18730 IMAGE

18740 PRINT

18750 IMAGE

18760 PRINT

18770 IMAGE

18780 PRINT

10X , "RADIOMETER SYSTEM TEMPERATURE =",4D,"K"

USING 18570 ;Z(K, 18)

10X, "RADIOMETER GAIN =",M3D.1D ,"DB"

2

" RADIOMETER NOISE BANDWIDTH-" ; Z ( K , 56 ); "MHZ"

TAB ( 28 ), "ERROR SUMMARY"

TAB( 5 ), "SOURCE OF ERROR" ; TAB( 35 ), " SOURCE" ; TAB ( 58 ), "% ERROR IN"

TAB ( 3 4 ) ."UNCERTAINTY" ;TAB( 55) , "NOISE TEMPERATURE"

USING 1 8690 ; Z ( 1 , 20 ) 6X , "CRYOGENIC S T AN D ARD "

, 1 OX , " . 7 7 K" , 1 6 X , M4 D . 3

USING 18710; Z (1,22)

6X, "AMBIENT STANDARD" , 1 2X , "0 . 50K" , 1 5X , M4D.3D

USING 18730; Z (1,24)

6 X, "POWER RATIO" , 1 7X , "0 . 0 1 DB" , 1 4X , M4D . 3D

USING 1 8 7 5 0 ; Z ( 1,26)

6X, "MISMATCH" , 2 OX , "0 . 005+0 . 005 J

"

, 12X,M .3D

USING 1 8770; Z (

1

, 28 ) 6X, "NON-LINEARITY" , 14X, " 1.42E-8",13X,M4D.3D

USING 1 8790 ; Z ( 1 , 29 ) 18920 PRINT

18930 PRINT

18940 PRINT

18950 PRINT

18960 PRINT

18970 PRINT

18980 PRINT

18990 PRINT

19000 PRINT

19010 PRINT

19020 PRINT

19030 PRINT

19040 PRINT

19050 PAUSE

1 9 060 Z 6 = 1

T A B ( 6 )

, "CUSTOMER ' S STATION TAB ( 30 ) ,C$ [ 30 , 60 ] TAB( 6 )

, " CUSTOMER'S ADDRESS:" ;TAB(30),C$[ 61, 99]

T A B ( 6 )

, "SOURCE MANUFACTURER :";TAB(30),G$[1,39]

TAB( 6 ), "SOURCE TYPE : " ; T AB ( 30 ), G$ [ 40 , 79 ] TAB( 6 ), "SOURCE MODEL : " ; TAB ( 30 )

, G$ [ 80 , 8 9 ] TAB( 6 ) , " SOURCE SERIAL:";TAB(30),G$[90,99]

T AB ( 6 )

, " DATE OF C AL I BR AT I ON : " ; T A B ( 3 0 ) , R $ [ 1 , 1 9 ] TAB( 6 ), "CALIBRATION TEST #

: " ; TAB ( 30 )

, R$ [ 20 , 39

]

TAB ( 6 )

, "RE Q OR REF #

: " ; TAB ( 30 )

, R$ [ 40 , 69

]

"PAUSE 19172"

19070 MASS STORAGE IS ":F8,1"

19080 PRINT PAGE

1 9090 CALL Descr(P$,C$,G$,R$,H$,Fl , F 2, F 3, N 3

, N8 , Q

( * ) ,Set)

19100 SUBEXIT

19110 SUBEND

19120 RE-SAVE " Fre q

" , 1 9 1 20 , 1 9600 ! 1 5 JANUARY 1 982 0840

S Re p o r t (

A $ 1 7030 17 12 0 1 7 2 20 1 7400 17460 17590 17730 18270

c$ 1 6 9 9 0 18910 1 8 9 2 0 1 8 9 3 0 1 9090

F 1 8 2 2 0 1 8 2 3 0 1 8240 1 8400 184 10

220
RAD 7 E F

F ( * 1 7 3 50 1 7 370 1 8220 1 8230 18360

FI 1 6990 1 9090

F 2 1 6990 1 9090

F 3 1 6990 1 9090

G$ 1 6990 1 89 50 1 8960 1 8970 1 8980 1 9090

H $ 1 6990 1 7240 1 7250 1 9090

I 1 7 260 1 7280 1 7 320 1 7340

If 1 8430

K 1 7 360 1 7 370 1 7430 1 7430 1 7430 1 7440 1 7440 1 7440

1 7 500 1 7 500 17610 17710 17910 1 7980 1 8240 18480

1 8490

18590

1 8490 1 8490 18510 1 8520 1 8520 1 8540 1 8560

K$ 1 7840 1 7860 1 7870 1 7890 1 7900 1 7900 17910 1 7930

L 1 8070 1 8240

L$ 1 7990 1 8000 18020 1 8030 1 8030 1 8050 1 8050 18050

Mg a 1 7 500 1 7 780 1 7 790

N 1 7 620

N $ 1 8080 18 100 18110 18130 18140 18140 18150 18160

18170 18190 18200 1 8200 182 10

N 3 1 6990 1 9090

N 8 1 6990 1 9090

N 9 17610 1 7 620 1 76 50 1 7650 1 7650

N e 18150 182 10 1 8240

P$ 1 6990 17 190 1 7 200 1 7200 1 7200 1 9090

Q 1 7 760

Q ( 1 6990 1 9090

R $ 1 6 9 9 0 1 9000 190 10 1 9020 1 9090

s 1 1 7670 17710

S 2 1 7680 17710

22 1
RAD7EF

S3 17690 17710

Set 16 9 9 0 1 7040 17 150 1 7 3 50 1 7 360 1 7 530 1 7 550 1 7 7 70

1 7 7 80 1 7 7 8 0 1 7 7 90 1 8220 1 82 30 183 10 18310 1 8480

1 9090

Tna 1 7 7 7 0 1 7 790 1 7840 1 78 50

Tn e 1 7 7 90 1 8080 1 8090

z( * 1 7 3 50 1 7 4 30 1 7 4 30 1 7430 1 7440 1 7440 1 7440

1 7500 1 7 500 1 7 500 1 7 5 30 1 7 5 5 0 1 7 57 0 1 7 580 17610

1 7 6 50 1 7 6 50 1 7 6 50 177 10 1 7 7 7 0 1 7 780 1 7 780 1 7 790

1 7 9 9 0 1 8240 1 8240 1 8240 18310 183 10 1 8360 1 8360

1 8360 1 8360 1 8360 1 8360 1 8400 1 8490 1 8490 1 8490

18510 1 8 520 1 8 5 2 0 1 8540 1 8560 1 8590 1 8680 1 8700

1 8720 1 8 7 4 0 1 8760 1 8780 1 8800 1 8830 1 8850 1 8850

1 8880

Z 6 1 9 0 6 0

222
R A D 7 E F

1913 0

19 14 0

19 15 0

19 16 0

19 170

19 180

19 190

1 9200

19 2 10

1 9220

1 9 2 30

1 9 2 4 0

1 9 2 5 0

1 9 2 6 0

1 9 2 7 0

1 9280

1 9290

1 9 300

19 310

1 9320

1 9330

1 9 3 4 0

1 9350

1 9360

1 9 3 7 0

1 9380

1 9 3 9 0

1 9400

19410

1 9420

1 9430

1 9440

1 9450

19460

1 9470

19480

1 9490

19500

19 5 10

1 9520

19530

1 9540

1 9550

1 9560

1 9570

1 9580

1 9590

19600

196 10

SUB F r e q ( F , F $ , H $ , P 0 $ , M , C c c ) OPTION! BASE 1 OO’l F ( * ) , Z( * ) , T1 , T2 , T3 , Qr ( * ) ,Qi ( * ) , Final ( * ) COM File,Flna

DIM FOS [ 5 0 ] , S0$ [ 5 0 ] PRINTER IS 16

F 1 = Z ( 1 ,37)

F2=Z( 1 , 38 ) F 3 = Z (1,39)

! IF C c c. < 3 THEN GOTO 15010

IF F n = 0 THEN Fn=l

i

! SET START FREQ

1IF M > 1 THEN 1 9 380

H=F2-10000

IF H > 0 THEN H = 1 IF H < 0 THEN H = 0

H$="H"&VAL$ (H ) ! S ET 10 GHZ BIT

! P 0 $ = "N OM 2 L 7 K4 " ! POWER OUT OF 2MW FROM SYNTH

F 4 = F 1 * 1 000000

IF F4<1000000000 THEN GOTO 19370

S0$ = "00"&H$&VAL$ ( F 4 )&P0$ ! SET START FREQ +POWER STRING

GOTO 19380

S 0 $ = " 0 0 " & 11 $ & " 0 " & V AL $ (F4 ) & P 0 $

ON M GOTO 19390, 19440

F =0 ! SET F TO 0 1ST TIME THROUGH USE 2-n TIMES WITHOUT RESET

OUTPUT 704 ; "0 0 HOGOF OE OD OC 0 BO AON OM 2 L 7 K4

OUTPUT 7 0 4 ; S 0 $

WAIT 1000

SUBEXIT

PRINT F

t

! FREQ LOOP

iF 0 =F

IF F<1000000000 THEN GOTO 19520

F0$="00"&H$&VAL$(F)

GOTO 19550

F0$ = "00"&H$&"0"&VAL$ (F ) GOTO 19550

PRINT FO

F$="00"&H$&"G"&F0$[5,5]&"F" &F0$[6,6]&"E"&F0$[7,7]&"D"&F0$[8,8]

&

,, C"&FO$ [ 9 , 9 ] &"B"&FO$ [ 10, 10 ] &"A"&FO$ [ 1 1 , 1 1 ] 1100 MHZ OR MORE

PRINT F $

OUTPUT 7 0 4 ; F $

WAIT 1000

SUBEXIT

SUBEND

RE-SAVE "SUB G" , 1 96 1 0 , 20550 ! JANUARY 1 5 , 1 982 0840

S Freq (

22 3
RAD7EF

Cc c 19 13 0

F 19 13 0 1 9 3 9 0 1 9 4 4 0 1 9480 1 9 4 9 0 1 9 5 0 0 1 9 5 2 0

F $ 19130 1 9 5 50 1 9 5 6 0 1 9 5 7 0

FO 1 9480 1 9540

F 0 $ 19170

1 9 5 50

1 9 500

1 9550

1 9 5 2 0 1 9 550 1 9 5 5 0 1 9 5 50 19550 19550

F 1 19190 1 9 3 3 0

F 2 1 9200 1 9 2 8 0

F 3 192 10

F 4 1 9 330 1 9 3 4 0 1 9 3 50 1 9 3 70

Fn 1 9230 1 92 30

H 1 9280 1 9290 1 9290 1 9300 1 9 3 0 0 19310

H $ 19130 19310 1 9 350 1 9370 1 9 5 00 1 9520 1 9550

M 19 130 1 9 2 70 1 9380

P0$ 19 130 1 9350 1 9 3 7 0

S0$ 19 170 1 9350 1 9370 194 10

z( * 19 190 1 9200 192 10

224
RAD7EF

19620 SUB Get_parameters(C$,G$,R$,Fl , F 2 , F 3 , F n , N 3 , N 8 )

!

19630 OPTION BASE 1!

19640 COM F(* ) ,Z(* ) ,T1 , T2 , T3 , Qr (* ) ,Qi ( * )

, Final ( *)

1 9650 COM File, Flag

19660 DIM P$ [ 100 ] ,Q$ [ 100 ] 19670 PRINT

19680 PRINT

19690 PRINTER IS 16

19700 LINPUT "0 TO SKIP , SPACE TO CONTINUE", Q$

19710 IF Q $= "0 " THEN 20360

1 9720 IF Q $= " " THEN 19730

19730 PRINT "CUSTOMER?"

19740 P$=C$ [1,29]

19750 IF 12=0 THEN 19820

19760 PRINT "NOW: ";P$;

19770 LINPUT Q$

19780 IF Q $ = "0 " THEN 20320

1 9790 IF Q $ = " " THEN 1 9870

19800 C$[ 1 , 2 9

] =Q $

19810 GOTO 19880

19820 PRINT "NOW: ";P$

19830 LINPUT Q$

19840 IF Q $ = "0 " THEN 20 320

1 9850 IF Q $= " " THEN 1 9870

1 9860 C$ [ 1 , 29 ]=Q$

19870 ! Q-FNS(l)

19880 PRINT "CUST'S ADDRESS —STREET ?"

19890 P $ = C $ [30,60 ] 19900 Q=FNO(P$,Q$)

19910 C$[30,60]=P$

19920 Q=FNS(1

)

19930 PRINT "CUST'S ADDRESS? —CITY , STATE , ZIP ?";

19940 P$ = C$ [61 ,99 ] 1 9950 Q

= FN 0 ( P $ , Q $ ) 19960 C$ [61 , 99 ]=P$

19970 Q

= FN S ( 1 ) 19980 PRINT "SOURCE MANUFTR? "

;

19990 P $ = G $ [ 1 , 3 9 ] 20000 Q

= FN 0 ( P $ , Q $

)

20010 G $ [ 1 , 39 ]=P$

20020 Q=FNS( 1

)

20030 PRINT "SOURCE TYPE ? 20040 P$=G$[40,79]

20050 Q

= FN 0 ( P $ ,Q$

)

20060 G$ [ 40 , 79 ] =P$

20070 Q

= FN S ( 1

)

20080 PRINT "SOURCE MODL // ?";

20090 P$=G$[80,89]

20100 Q

= FNO ( P $ , Q $

)

20110 G$ [ 80 , 89 ]=P$

20120 Q-FNS(l)

20130 PRINT "SOURCE SER. // ?";

20140 P$=G$ [90,99

]

201 50 Q

= FNO ( P $ , Q $

)

22 5
RAD7EF

20160 G$[90,99 ]=P$

20170 Q-FNS(l)

20180 PRINT "DATE OF CALIBRATION"

20 190 P $ = R $ [ 1,19]

20200 Q

= FN0 ( P $ , Q $

)

202 1 0 R$ [ 1 , 19 ]=P$

20220 Q

= FN S ( 1

)

20230 PRINT "CALI B . TEST # ?";

20240 P$=R$[20,39]

20250 Q=FN0(P$,Q$)

20260 R$[20,39]=P$

202 70 Q

= FN S ( 1 ) 20280 PRINT "REO OR REF # ? 20290 P$=R$ [40,69]

20300 Q

= FN0 ( P $ , Q $

)

203 10 R $ [ 4 0 , 6 9 ] = P$

20320 12=12+1

20330 IF 12=1 THEN 19670

20340 Z1=Z1+1

20350 Q

= FN S ( 2 )+FNB ( 1 ) 20360 ! GET PARAMETERS (FNJ2)

20370 Q

= FN S ( 2

)

20380 INPUT "START, STOP, AND STEP FREQ IN MHZ ", F 1, F 2 , F

3

20390 Fn= ( F2-F 1 ) /F3+1

20400 F 0 = 1 20410 FOR 1=1 TO Fn

20420 Q

= FNS(1 ) 20430 N 3 = 5 20440 N 8 = 1

0

20450 Z(I ,37 )=F1

20460 Z(I,38)=F2

20470 Z(I,39)=F3

20480 Z(I,25)=N3

20490 Z(I,40)=N8

20500 Z(I ,31 )=N3*N8*2

205 10 Z ( 1 , 5 5 ) = 3 . 6 ! BANDWIDTH 5MHzIF

20520 Z ( 1 ,56)=. 95 IBANDWIDTH 30MHz IF

20530 Z( 1 , 27 )= 1 . 418426E-8

20540 NEXT I 20550 SUBEND

20560 ! SAVE "SUB M", 16560, 19080 ! 1

5

JANUARY 1983 08 55

S Get parameters

(

C$ 1 9620 1 9 7 4 0 1 9800 19860 19890 19910

1 9960

FO 20400

FI 1 9620 20380 20390 20450

F 2 1 9 6 2 0 2 0 3 8 0 20390 2 0 4 6 0

F 3 1 9620 2 0 3 8 0 20390 204 70

1 9 9 4 0

2 26
RAD7EF

Fn 19620 20390 20410

G$ 1 9620

20160

1 9990 200 10 20040 20060 20090 20110 20140

I 204 10 20450 20460 20470 20480 20490 20500 20540

I 2 1 9 7 50 2 0 3 2 0 20320 20330

N 3 1 9620 20430 20480 20500

N 8 1 9620 20440 20490 20500

P$ 1 9660 1 9740 1 9760 1 9820 1 9890 1 9900 19910 1 9940

1 9950 1 9960 1 9990 20000 20010 20040 20050 20060

20090 20 100 20 110 20140 20150 20160 20190 20200

202 1 0 20240 20250 20260 20290 20300 203 10

Q 19900 1 9920 1 9950 1 9970 20000 20020 20050

20070 20100 20120 20 150 20170 20200 20220

202 50 20270 20300 20350 20370 20420

Q$ 1 9660 1 9700 19710 1 9720 1 9 770 1 9780 1 9790

1 9800 1 9830 19840 1 9850 19860 1 9900 19950

20000 20050 20100 20150 20200 202 50 20300

R$ 1 9620 20190 202 10 20240 20260 20290 20310

Z( * 204 50 20460 20470 20480 20490 20500

205 10 20520 20530

Z 1 20340 20340

227
RAD7EF

20 570 SIJB Me a s ( C 1 , P 0 , E 7 , E 8 , Q ( * ) , I , Ae t ) 20580 OPTION BASE 1 20590 COM F (*), Z (*), T 1

, T2 , T3 , Qr (*), Qi (*) .Final (*

)

20600 COM File, Flat*

20610 DIM A $ [ 10 0 ] 206 20 FI =7.(1, 87)

20680 F

2 =7 (1,38)

20640 F 3 =7 (l, 39)

20650 N 8 = Z (1,25)

20660 N 8 = 7 ( 1,40)

20670 PRINTER IS 0,

20680 PRINT '• ************************************************************’?

20690 PRINT

20700 OUTPUT 9;"R"

20710 ENTER 9 ; P $

207 20 PRINT TAB ( 2 0 )

, "DATE : " ; P $ [ 1 , 2 ] ;

; P $ [ 4 , 5

]

;

98 2

"

; " TIME : " ; P $ [ 7 , 1 4

]

20730 PRINT

20740 PRINTER IS 16

207 50 IF E 7 > 0 THEN GOTO 207 90 ! NOMINAL VALUE OF TX USED IN MAX DEVIATION

ROUTINE

20760 E 8 = 6 00 !MAX DEVIATION ALLOWED IN DEV ROUTINE

20770 E 7 = 9 6 0 0

20780 PRINT "DEFAULT VALUE OF E7 BEING USED )"

20790 79=T7=T8=T9=P7=P8=P9=0

20 800 W 4 = W 5 = W 6 = 0

20810 INPUT "TEMPERATURE OF AMBIENT STANDARD IN DEGREES CELCIUS",T2

20820 T 2 =T 2 + 2 7 3 . 15

20830 Qua=.0479932*F( 1 , 1 )/T2

20840 Quaa=Qua/ (EXP(Qua)-l )*T2

20850 C = 0

20860 T = 5 5 20870 Bl=8 . 394409444E3

20880 B 2 =- 1 . 89004 52 59E3

20890 B3=-7. 282229165

20900 B4 = l . 022850966E-2

20910 B5=5 . 556063825E-4

20920 R6=-5 . 944544662E-6

20930 B7=2 . 7 1 5433932E-8

20940 B8=-4 . 879535904E-1

209 5 0 B9=5 .095360824E2

20960 INPUT "PRESSURE IN MM OF HG", Pressure

20970 T 0 = 5 5 20980 FOR N = 1 TO 30

20990 P = EXP ( B 1 /T + B2 + B 3*T + 34* ( 1 26 . 2-T ) ~ 1 . 9 5 + B 5*T~ 3 + B6*T~4 + B 7 * T~5+B8*T~6+B9*LOG(T))

2 1 000 P = 7 6 0 *P

21010 P=P-Pressure

21020 TO =T0+(85-T0 )* A3 S(P)/(ABS(P)+1718. 05458298)

2 1 030 T = T 0

21040 NEXT N

21050 T3=INT( 100*(T0+.005 ) ) /100 1CRYO STD TEMP

21060 Qua=.0479932*F( 1, 1 )/T3

21070 Quas=Qua/ (EXP (Qua )-l

)

2 1080 F =F ( 1,1)

228
RAD7EF

21090

21100

21110

21120

21130

2 1140

21150

21160

2 1170

21180

21190

21200

21210

21220

21230

21240

21250

21260

21270

21280

21290

21300

21310

21320

21330

21340

21350

21360

2 1370

21380

21390

21400

21410

21420

21430

21440

21450

21460

21470

21480

21490

21500

21510

21520

21530

21540

21550

21560

21570

21580

21590

21600

21610

21620

21630

T a = 30 0

Tdl=2.64E-3*SQR(F)*F(2,ll)~2*(Ta-T3)

Td2=. 611-2. 55E-3*(T3-76)+3.82E-3*(Ta-297)

Td3=(.6*SQR(F)+.011*F)/.611

Tdelta=Tdl +Td 2 *Td 3 Tn = Quas*(T 3+T delta)

T3=Tn

PRINT "NITROGEN TEMP I S

" ; T 3

; "KEL VIN

PRINT

PRINT T 2, T

3

LINPUT "ENTER 4 FOR 30MHzIF,0 FOR 5MHz IF",Iff$

M = 1 ! SET VALUE FOR Freq SUBROUTINE

Fn- ( Z ( 1, 38 )-Z ( 1 ,37 ))/Z(l , 39 )+l

PRINT Fn

LINPUT "ENTER CORR FILE ,C0RR+#",Fr$

MASS STORAGE IS ":F8,1"

! OTO 21390

ASSIGN #1 TO F r $

READ #l;Aeta,Yla t Ylb,Ylc,Yld,Pal,Pa2,Pcl,Pc2,Pc3,Pc4

ASSIGN #1 TO * LINPUT "ENTER CAL FILE Cal + //",Fr$

ASSIGN #1 TO F r $

READ #1;F(*) .Final

Mismatch=Final

PO $ = "N 0M2L 5K 5

F 1 =Z ( 1, 37 ) F =F 1 CALL Freq(F,F$,H$,PO$,M,Ccc)

OUTPUT 704 ;"00H0"&" 2600000000 "&P0$

; M = 2 X8=V 2 =T 1 =T8 = T9 = T7 = P7 = P8 = P9 = P4 = P5 = P6=W4=W5=W6=W1=W2=W3 = Z = 0

FOR J 8= 1 TO N8+1

T 1 =T4=V2 =P4=P 5 = P6=W 1 =W2=W3 = 0

PRINTER IS 0

FOR Z 2 = 1 TO N 3 CALL Power (Pi ,P2,P3,P0,Aet , I f f ) ! CALL POWER SUBROUTINE

IF J 8= 1 THEN GOTO 21560

Z = Z+1

IF POM THEN GOTO 21530

Q ( 1 ,Z) = P1

Q ( 2 ,Z) = P2

Q(3,Z)=P3

GOTO 21560

Q (

1

, Z+N 3 *N 8 ) = P

1

Q (2 , Z+N 3*N8 ) = P2

Q ( 3 , Z+N 3*N 8 ) = P 3

Y 1 =P 1 /P2

Y3=P3/P2

T 2 -Quaa

X8=T2+Mismatch*( ( T 3-T 2

) * ( Y1 - 1 ) / ( Y 3 - 1 )*Aeta) ’TEMPERATURE Tl IS X8

PRINTER IS 0

PRINT X8;P1*1000;P2*1000;P3*1000

IF J 8= 1 THEN 21730

E 6 = X8-9 600

229
RAD7EF

21640 IF AB S(E6 )< = 600 THEN 21730

21630 DISP "DEV EXCEEDS MAX —REDO LAST TEMP"

21660 PRINTER IS 16

21 670 PRINT E 6 , E 7 ,E8

21680 PRINT X8,E7

21690 Z=Z-1

21700 ! PAUSE

21710 PRINTER IS 0

21720 GOTO 21450

21730 T 1 =T 1 +X8

2 1 740 T4=T4+(T3-Y3*T2)/(Y3-1 ) 21750 DISP "T4",T4

2 1 760 V 2 = V 2+X8*X8

2 1 770 P4 =P 4+P

2 1 780 P 5 = P 5+P 2

2 1 790 P6=P 6+P 3

21800 W1=W1+P1*P1

21810 W2=W2+P2*P2

21820 W3=W3+P3*P3

21830 NEXT Z2

2 1840 T 4 =T 4 /N 3 21850 S=SQR((V2-T1*T1/N3)/(N3-1 ))

2 1860 T 1 =T 1 /N 3

2 1 870 ! 21880 ! PLOT AVERAGE OF 5 MEASUREMENTS

21890 ! 21900 PRINTER IS 0

21910 IF J 8 > 1 THEN 22230

2 1 920 I 6 = T 1 2 1 930 Q 5 = 1 00

21 940 I 5 = Q 5 / 2 5 21950 IMAGE 5X,"TX(K) =",M7D. ,"SIG(K) =",M5D.

21960 IMAGE /,/,/,/

2 1 970 D9= 1 21 980 Q

= FN S (

) 2 1 990 F = 3 2 5 0 ! Z(l,37)-30

22000 PRINT F

; "MHZ" , "I .F . FREQUENCY MHZ: 30", "LO FREQ MHZ:

22010 PRINT USING 21960

22020 IMAGE 1 7 X

, " // OF PTS IN AVE =",M3D

22030 IMAGE 7X,"UNIT =",M9D.D," KELVINS",/

22040 PRINT USING 22020;N3

22050 PRINT USING 22030;I5

22060 PRINT

22070 IF Q 5 >= 1 0 THEN 22120

22080 PRINT USING 2 2 1 1 0

; -Q 5, - 3 *Q 5 / 5, -Q 5 / 5 , Q 5 / 5 , 3 *Q 5 / 5 , Q

5

22090 GOTO 22130

22100 IMAGE 4X,M5D ,4X,M5D ,4X,M5D ,4X,M5D ,4X,M5D ,4X,M5D

22110 IMAGE 5X.M1DE ,4X,M1DE ,4X,M1DE ,4X,M1DE ,4X,M1DE ,4X,M1DE

22 1 20 PRINT USING 2 2 1 00 ; -Q 5 , - 3 *Q 5 / 5

, -Q 5 / 5 , Q 5 / 5

, 3 *Q 5 / 5 , Q

5

22 1 30 A $ = "!.... ! !....! ! ! !....!

22140 PRINT TAB(8),A$

22150 IMAGE "# /TIME " , 2 IX , " ZERO-" , M5D ," KEL V IN S

" , 1 6 X

, " TX ( K

)

22 1 60 IF ( T 1 >= 1 00 ) AND (TK-1E5) THEN 22200

22170 PRINT USING 22180;I6

22 180 IMAGE"// /TIME" , 2 IX, "ZERO = "

, MD . 2DE , " KELVIN" , 1 5X, "TX(K)

! SUM OF Tx

! SUM OF Te

! SUM Tx ~ 2

! SUM PI

! SUM P2

! SUM P 3

! SUM PI “2

! SUM P 2

~ 2

! SUM P 3

~ 2

! AVE Te

! S . D . OF Tx

! AVE Tx SET OF 5

3220"

," KELVINS"

," KELVINS"

. ! "

" ,3X," SIG(K)"

" , 3X, "SIG(K)"

230
RAD7EF

22190

22200

22210

22220

22230

22240

22250

22260

222 70

22280

22290

22300

223 10

22320

22330

22340

22350

22360

22370

22380

22390

22400

22410

22420

22430

22440

22450

22460

22470

22480

22490

22500

22510

22520

22530

22540

22550

22560

22570

22580

22590

22600

226 10

22620

22630

22640

2650

22660

22670

22680

22690

22700

227 10

22720

22730

GOTO 22220

PRINTER IS 0

PRINT USING 2 2 1 5 0 ; I 6

GOTO 22560

I 6 = T 1 IMAGE M 3D ,4X

PRINTER IS 0

PRINT USING 22240; J 8-1

X3=INT ( (ATl- 1 6 )/l 5 ) + 2 5 X4=INT(S/I5)

IF X3 >0 THEN 22 320

PRINT "< " ; T AB ( 5 1 ) , GOTO 22480

IF X3 <50 THEN 22 350

PRINT T AB ( 4 7 ) >";

GOTO 22480

X 3 = X 3

IF ( X3-X4 >0 ) AND (X3+X4<50) THEN 22380

GOTO 22400

PRINT TAB(X3-X4 TAB(X3 )

, "+" ; TAB(X3+X4 TAB ( 5 1 )

,

GOTO 22480

IF (X3-X4>0) AND (X3<50) THEN 22420

GOTO 22440

PRINT TAB(X3-X4 TAB(X3 TAB( 51

)

, GOTO 22480

IF ( X 3 >0 ) AND ( X3 + X4 <50 ) THEN 22470

PRINT TAB(X3 )

, "X" ; TAB( 5 1 ) , GOTO 22480

PRINT TAB(X3 )

, " + " ; T AB ( X 3 + X4 TAB ( 5

1

) , IF (Tl>=100) AND (T1<=1E5) THEN 22520

IMAGE 2X.M1D.2DE ,2X,M1D.2DE

PRINT USING 22490;T1,S

GOTO 29748

PRINT USING 22530;T1,S

IMAGE 2X,M5D ,2X,M5D

! IF ( J8-1 )/20-INT( ( J8-1 )/20)>0 THEN 20359

GOTO 22590

PRINT TAB ( 8 )

, A$

IF J 8 > 1 THEN 22 590

GOTO 22690

T 1 =T 1 *N 3 T8=T8+T

1

T9 = T 9+T4

T 7 =T 7 + V2

P 7 = P 7 + P 4 P 8 = P 8+P 5 P9=P9+P6

W 4 =W4+W

1

W 5=W 5+W 2 W 6 =W 6+W 3 NEXT J 8

T 1 =T 8 / ( N 8 *N 3 ) T4=T9/N8

S1=SQR((T7-T8*T8/(N8*N3))/(N8*N3-1 )) !S.D Tx 1 FULL SET

IF PO = 1 THEN 22 880

! SUM OF Tl

! SUM OF T4

! SUM OF T1'2

! SUM OF PI

! SUM OF P 2

! SUM OF P 3

! SUM OF PI ~2

! S U M OF P2~2

! S UM OF P 3

~ 2

! A VE VALUE TX 1 FULL SET

! A V E VALUE Te 1 FULL SET

23 1
RAD7EF

22740 ! 22750 ! STORE VALUES IN Z MATRIX

22760 ! 22 7 70 Z(I ,7 ) = T2

22780 Z(I , 8 ) = T 3

22790 Z ( I , 9 ) = T

22800 Z(I,10)=S1

2281 0 Z(I , 1 1 ) =T

! S E T 2

22820 Z(I , 12 ) = P8/(N8*N3)

22830 B 6 = T 7 ! S UM OF SQRS TX SET 2 22840 Z ( I ,41 ) = B

6

2285 0 B 8 = T 8 ! SUM OF Tx SET 2 22860 Z(I,42)=B8

22870 GOTO 23030

22880 Z ( I , 1 ) =T

22890 Z(I,2)=T3

22900 Z ( I , 3 ) = T 1 22910 Z(I,4)=S1

22920 Z(I , 5 ) =T

! SET 1

22930 Z(I , 6 ) = P8/(N3*N8 ) 22940 B 5 = T 7 22950 B 7 =T 8

! SUM OF SQRS TX SET 1

! SUM OF TX SET 1 22960 Z(I,43)=B5

22970 Z ( I , 4 4 ) = B 7 22980 ! REM B5 AND B6=SUM OF SQRS-B7 AND B8=SUM OF T1

23000 ! PRINT RESULTS OF FULL SET

23020 PRINTER IS 0

23030 PRINT " TX AVE STD DEV TE"

23040 PRINT

23050 PRINT USING 2 3 0 6 0 ; T 1 , S 1

, T4

23060 IMAGE 5X , 1 OD . D , 5X , 7 D . 2 D , 5X , 7 D . 2

23070 PRINT

23080 PRINT

23090 PRINT "Pi AVE MW= "; P 7 / ( N 3 *N 8 )

; "P 2 AVE MW= "

; P 8 / ( N 3 *N 8 )

"P 3 AVE M W = " ; P 9 / ( N 3 * N 8 ) 23100 PRINT

23110 Se 1 =S 1 /SQR(N8*N 3

)

23120 PRINT "STANDARD ERROR OF MEAN=";Sel

23 1 30 Z (

1 , 1 3 ) = S e 1 23140 PRINT

23150 PRINT

23 1 60 Z = 3 * S 1 23170 Mismatchckl=F(l , 1 5 ) / F ( 3 , 15)

231 80 Mismatchck2=F(l , 1 5 ) / F ( 4 , 15)

23190 Mla=(l-F(3,ll) - 2)*(1-F(4,9)“2)

23200 M 2 a = (

1 -F ( 3

, 13)*F(4,3 ) + F (3, 1 4

) * F ( 4 , 5))~2+(F(3, 1 3 ) * F ( 4 , 5) + F ( 3 , 14)*F(4,3))~2

23210 Mlb=(l-F(4, 11 )"2)*(1-F(3,9)"2)

23220 M 2 b = ( 1 - F ( 4 , 1 3

) * F ( 3

, 3 ) +F ( 4 , 1 4

) * F ( 3 , 5 ) ) ~ 2 + ( F ( 4 , 1 3

) * F ( 3

, 5

)

+ F(4, 14)*F(3,3))“2

2 32 30 M 1 f = M 1 a / M 2 a 23240 M 2 f = M 1 b / M 2 b

23250 Misraatchck3=F( 1 , 1 5 ) / M 1

2 3 260 Mismatchck4=F(l , 1 5 ) / M 2

23270 PRINTER IS 16

2 32
RAD7EF

23280

23290

23300

23 3 1 0

23320

23330

23340

23350

23360

23370

23 380

23390

23400

234 10

23420

23430

2 3 4 4 0

23450

23460

23470

2 3 4 8 0

23490

23500

235 10

23520

23530

23540

23 550

23560

2 3 5 7 0

23580

23 590

23600

236 10

23620

2 3630

23640

23650

23660

23670

23680

23690

23700

237 1 0

23720

237 30

23740

237 50

23760

IF P0 = 2 THEN 23380

Z ( 1

, 2 )=T3

Z ( 1, 1

) =T 2 Z(I,45)=P7 ! SUM OF PI SET 1 Z ( I

, 46 ) = P8 ! SUM OF P2

Z(I ,47 ) = P9 ! S UM OF P3

Z(1 ,71 ) = P7/(N3*N8)/(P8/(N3*N8)) 1RATIO P1/P2 SET 1 Z(I,43)=W4 ! SUM OF Pl~2 SET 1 Z ( I ,49 ) =W 5 ! SUM OF P2~2

Z ( I, 50 )=W6 ! S UM OF P3~2

IF P 0 = 1 THEN 235 1 0

! 85 AND B 6 = SUM OF SQRS T 1 ; B7 AND B8 = SUM OF T1

Z( 1 , 8 ) = T3

Z ( 1 , 7 ) = T 2 Z(I , 73 )=P7

Z ( I , 7 4 ) = P 8

Z ( I , 7 5 ) = P 9 Z ( I

, 7 6 ) = W4

Z ( I , 7 7

) =W 5 Z ( I , 78 )=W6

Z(1,79)=P7/(N3*N8)/(P8/(N3*N8))

IF P 0 = 1 THEN GOTO 23 5 10

Q

= FN B ( 1 ) PRINT

Y 3 c = Z ( 1 , 7 1 ) Ck 1 =T 2+Mis matchckl*( (Z( 1

, 3

) -T 2

)

Ck2 =T 2+Mis matchck2*( (Z( 1 , 3 ) - T 2 ) IF P0= 1 THEN GOTO 23590

Y 3c = Z ( 1 , 79 ) Ck3=T 2+Mis mat chck3*( ( Z( 1

, 9 )-T2

)

C k4 = T 2+M ismatchck4*( ( Z ( 1 , 9 ) - T 2 ) Z ( 1

, 66 ) = Ck 1 Z ( 1 , 67 ) = Ck 2 PRINTER IS 0

IF PO = 1 THEN GOTO 23670

Z ( 1

, 68 ) = Ck 3 Z ( 1 ,69 ) = Ck4

PRINT "STANDARDS Ck 3=";Z(1,68)

Z ( 1 , 1 3 ) = 3 * ( Z ( 1 , 1 3 ) / 2 ) PRINT "STANDARDS Ck 1=";Z(1,66)

PRINTER IS 16

Z 8 = 1

! INPUT "ENTER 0 TO REPEAT 1 TO

! IF Z 8 = 0 THEN 6311

M = 2

! NEXT Fr

SUBEXIT

! S UM OF PI SET 2

! SUM OF P 2

! SUM OF P

3

! SUM OF P

1 ~ 2 SET 2

! SUM OF P2~2

! SUM OF P 3

~ 2

! RATIO P1/P2 SET 2

(Yla-1 ) / ( Y 3 c- 1 )

) * Ae t a !Auxl SET1

(Ylc-1 )/(Y3c-l ) ) * Ae t a !AUX2 SET1

(Yld-1 ) / ( Y 3c - 1 ) ) * Ae t a !AUX1 SET2

(Ylb-1 )/(Y3c-l )

) * Ae t a !AUX2 SET2

"STANDARDS Ck 4=";Z(1,69)

"STANDARDS CK 2=";Z(1,67)

CONTINUE" , Z 8

SUBEND

RE-SAVE "SUBO" , 23760 , 25460 ! MARCH 1 5 1 983 0900

S leas (

A $ 20610 22130 22140 22560

233
R A D 7 E F

A e t 20370 2 1450

Ae t a 2 12 7 0 2 1 590 2 3 5 30 2 3540 2 3570 23580

B 1 2 0 8 7 0 20990

B 2 2 0 8 8 0 2 0 9 9 0

B 3 20890 2 0 9 9 0

34 20900 2 0 9 9 0

B 5 2 0 9 1 0 20990 2 2940 22960

B 6 20920 2 0 9 9 0 2 2 8 3 0 2 2840

B 7 2 0 9 3 0 2 0 9 9 0 2 29 50 2 2 970

B 8 20940 2 0 9 9 0 2 2 8 50 22860

B 9 209 50 20990

C 208 50

Cl 20570

Cc c 2 1 360

Ckl 2 3 5 3 0 2 3590

Ck 2 2 3540 2 3600

Ck 3 2 3570 2 3630

Ck4 2 3580 2 3640

D 9 2 1970

E 6 2 1630 2 1640 2 1670

E 7 20570 207 50 207 70 2 1670 2 1680

E 8 20570 20760 2 1670

F 2 1080 2 1100 2 1120 2 1120 2 1350 2 1360 2 1990

U- <jy 2 13 6 0

F ( * 20830 2 1060 2 1080 21100 2 13 10 23170

23180 23 180 23190 23190 2 3200 2 3200 2 3200

23200 2 3200 2 3200 2 3200 2 32 1 0 2 32 1 0 2 3 2 2 0

2 3220 2 32 20 2 3220 2 32 20 2 3220 23220 2 32 50

F 1 20620 2 1340 2 1350

22000

23170

23200

23220

23260

234
R A D 7 F F

F 2 2 0 6 3 0

F 3 20640

Final 2 13 10 2 1320

Fn 2 12 10 2 1220

F r $ 2 12 3 0 2 12 6 0 2 1290 2 13 0 0

H $ 2 13 6 0

I 2 0 5 7 0 2 2 7 7 0 2 2 7 80 2 2 7 9 0 2 2 8 0 0 2 2 8 1 0 2 2 8 2 0

2 2 8 6 0 2 2 8 8 0 22890 22900 2 2 9 1 0 22920 2 2 9 3 0

22970 2 3 3 1 0 2 3 3 2 0 2 3 3 30 2 3 3 5 0 2 3360 2 3 3 70

2 3430 2 3 4 4 0 2 3450 2 3460 2 3 4 7 0

15 2 1940 2 2 0 5 0 2 2 2 70 22280

16 2 1920 2 2 17 0 2 2 2 1 0 222 30 2 2 2 7 0

Iff 2 1450

If f $ 2 1190

J8 2 14 10 2 14 6 0 2 1620 2 19 10 22260 2 2 5 7 0 22690

M 21200 2 13 6 0 2 1390 2 3 7 20

H 1 a 23 190 2 3 2 30

Ml b 2 32 1 0 2 3240

Mlf 23230 2 3250

M2 a 2 3 2 0 0 2 3 2 3 0

M2 b 2 3 220 2 3240

M2 f 2 3 2 4 0 2 3260

Mismat ch 21320 2 15 9 0

Mismatchckl 23170 2 3530

Mismatchck2 2 3180 2 3540

Mis mat chc k3 2 3 2 5 0 2 3 5 7 0

Mismatchck4 2 3260 2 3580

N 20980 2 1040

N 3 20650 2 1440 2 1530 2 1 540 2 1550 2 1840 21850

2 1860 22040 22590 2 2 7 0 0 22 720 22720 22820

2 2840

22960

2 3420

2 1850

22930

235
RAD7EF

2 3 0 9 0 2 3 0 9 0 2 3 0 9 0 2 3 110 2 3 3 4 0 2 3 3 4 0 2 3 4 8 0 2 3 4 8 f)

N 8 2 0 6 6 0

2 2 7 2 0

23340

2 14 10

2 2 8 2 0

2 3480

2 15 30

2 2 9 3 0

2 3 4 8 0

2 15 4 0

2 3 0 9 0

2 15 5 0

2 3 0 9 0

2 2 7 0 0

2 30 9 0

2 2 7 1 0

2 3 11 0

2 2 7 2 0

2 3 3 4 0

P 20990 2 10 0 0 2 10 0 0 2 10 10 2 1 0 1 0 2 1020 2 1020

P$ 207 1 0 2 0 7 2 0 2 0 7 2 0 2 0 7 2 0

PO 20570

23620

2 1450 2 14 8 0 2 27 30 2 3 2 8 0 2 3 3 8 0 2 3 4 9 0 2 3 5 5 0

PO$ 2 13 3 0 2 13 6 0 2 13 7 0

PI 2 14 50 2 1490 2 15 3 0 2 15 6 0 2 1610 2 17 7 0 2 18 0 0 2 1800

P 2 2 14 50

2 1810

2 1 500 2 15 4 0 2 15 6 0 2 1570 2 16 10 2 1780 2 1810

P 3 2 1450 2 1510 2 1 5 5 (3 2 15 7 0 2 16 10 2 1790 2 18 2 0 2 1820

P 4 2 1400 2 1420 2 17 7 0 2 17 7 0 2 2 6 3 0

P 5 2 1400 2 14 2 0 2 17 8 0 2 1780 2 2 6 4 0

P 6 2 1400 2 1420 2 1790 2 1790 2 2 6 5 0

P 7 20790

23480

2 1400 2 2 6 3 0 2 2630 2 3 0 9 0 2 3 3 10 2 3 3 4 0 23420

P 8 20790

23340

2 1400

2 34 30

22640

2 3480

22640 22820 2 29 30 23090 2 3 3 2 0

P 9 20790 2 1400 22650 2 2 6 5 0 23090 2 3 330 2 3 4 4 0

Pa 1 2 1270

Pa 2 2 1270

Pc 1 2 1270

P c 2 2 1270

Pc 3 2 1270

P c 4 21270

Pressure 2 0 9 6 0 2 10 10

Q 2 1980 2 3 500

Q ( 20570 2 1490 2 1 500 2 15 10 2 1530 2 1540 2 15 5 0

Q5 2 1930 2 1940 2 2 0 7 0 2 2 0 8 0 22080 22080 22080 22080

236
RAD7EF

22080 22 120 22 120 22120 22120 2 212 0 22 120

Qua 20830 20840 20840 2 1060 2 1070 2 10 7 0

Qua a 20840 2 15 8 0

Qua s 21070 2 1140

S 2 1850 2 2280 2 2500 22 520

S 1 22720 22800 2 2 9 1 0 2 3050 2 3 110 23160

Se 1 23110 2 3 12 0 2 3 1 30

T 20860

20990

20990

2 10 3 0

20990 20990 20990 20990 20990 20990

TO 20970 2 1020 2 1020 2 1020 2 10 3 0 2 1050

T 1 *

2 1860

22500

2 3050

2 1400

2 1920

2 2520

2 14 2 0

22 160

22 590

2 1730

22160

22590

2 1730

2 2 2 3 0

22600

21850

22270

2 2 700

2 1850

22480

2 2 7 9 0

2 1860

22480

2 2 900

T 2 *

2 1590

2 3 530

20810

2 1590

2 3 5 4 0

20820

2 1740

2 3540

20820

2 2 7 70

2 3 5 7 0

20830

22880

2 3 5 7 0

20840

2 3300

2 3 580

2 1180

2 34 10

23580

2 1580

2 3 5 3 0

T 3 *

2 1180

2 1050

2 1590

2 1060

2 1740

2 1100

2 2 780

2 1110

22890

2 1140

2 3290

2 1150

2 3400

2 1160

T 4 2 1420

22810

2 1740

2 2920

2 1740

2 3050

21750 2 1840 2 1840 226 1 0 22 7 1 0

T7 207 90 2 1400 22620 22620 2 2 7 20 2 2830 2 2 9 4 0

T8 20790

22950

2 1400 2 2600 22600 22700 22720 22 720 22850

T9 20790 2 1400 2 26 10 2 26 1 0 227 1 0

Ta 2 1090 2 1100 2 1110

Td 1 2 1100 2 113 0

Td 2 2 1110 2 1130

Td 3 2 1120 2 1130

Tde 1 ta 2 1130 2 1140

Tn 2 1140 2 1150

V2 2 1400 2 1420 2 1760 21760 2 1850 22620

237
RAD7EF

W1 2 1400 21420 2 1800 2 1800 22660

W2 2 1400 2 1420 2 1810 21810 22670

W3 2 1400 2 1420 2 1820 2 1820 22680

W 4 20800 2 1400 22660 22660 23350 23450

W 5 20800 2 1400 22670 22670 23360 23460

W6 20800 2 1400 22680 22680 23370 23470

X3 22270 22290 22320 22350 22350 22360 22360 22380

22380 22380 22400 22400 22420 22420 22440 22440

22450 22470 22470

X4 22280

22470

22360 22360 22380 22380 22400 22420 22440

X8 2 1400 2 1590 2 1610 2 1630 21680 2 1730 21760 21760

Y 1 2 1560 2 1590

Y 1 a 21270 2 3530

Ylb 21270 2 3580

Ylc 2 1270 23540

Yld 2 1270 23570

Y 3 2 1570 2 1590 21740 2 1740

Y 3c 23520 2 3530 23540 23560 23570 23580

Z 21400 2 1470 2 1470 21490 21500 2 1510 2 1530 21540

2 1550 2 1690 21690 23160

z( * 20620 20630 20640 20650 20660 2 1210 21210

2 12 10 2 1 340 2 2 7 70 22780 22790 22800 22810 22820

22840 22860 22880 22890 22900 229 10 22920 22930

22960 22970 23130 2 3290 23300 233 10 23320 23330

2 3340 23350 23360 2 3370 23400 234 10 23420 23430

2 3440 23450 23460 2 3470 23480 23520 23530 2 3540

2 3560 23570 23580 23590 2 3600 23630 2 3640 23650

23650 23660 23660 23670 23670

Z 2 2 1 4 A 0 2 1830

Z 8 2 36 90

Z 9 20790

238
RAD7EF

23770 SUB Out (Cl ,C$ ,G$ , H$ ,R$ ,E7 ,E8, Q(* )

, Aet ,If f $ ) 23780 OPTION BASE 1 23790 COM F(* ) ,Z(* ) ,T1 , T2 , T3,Qr (*) ,Qi (* ) .Final (*)

23800 COM File, Flag

23810 DIM A $ [ 1 0 0 ] 23820 PRINTER IS 16

23830 F 1 =F=Z( 1 , 37 ) 23840 F2=Z(1,38)

23830 F 3 = Z ( 1 , 39 ) 23860 N 3 = Z ( 1,25)

23870 N 8 = Z ( 1 ,40)

23880 Fn=(F2-Fl ) / F 3+

1

23890 Q=FNS(4)

23900 Startmeas : ! 23910 INPUT " CALIBRATION FREQUENCY NUMBER", Fr

23920 F=Z(Fr,37)

23930 FOR P0=1 TO 2 23940 ON PO GOTO 23970,24010

23950 ! 23960 ! 23970 PRINT "STARTING PROGRAM OUT"

23980 1=1

23990 N3 = Z( I , 25 ) 24000 N8 = Z(I ,40)

24010 N=N 3*N 8*2

24020 Z ( I , 3 1 ) =N

24030 CALL Me a s ( C 1

, P 0 , E 7, E 8 , Q

( * )

, I, Ae t ) ! MEASUREMENT UNKNOWN TEMP

24040 NEXT PO

24050 1=1

24060 Tlave=(Z(I , 3 )+Z(I ,9 ))/2 !AVE VALUE OF T1

24070 Z ( I , 5 2 ) = Z ( I, 35 )=Tx = T 1 =T lave

24080 T2ave=(Z(I , 1 )+Z(I,7))/2

24090 Z ( I , 53 )=T2ave

24 100 T3ave=(Z(I , 2 )+Z ( I ,8) )/2

24110 Z(I,19)=.77! CRYO SOURCE ERROR

24120 R9=T3ave/Tlave*ABS((Tlave-T2ave)/(T3ave-T2ave))

24130 Z( 1

, 20 )=Z( 1, 19 )*R9*100/T3ave

24140 Z ( I ,21 )=.5 ! AMB S OURCE ERROR

24150 R8 = T2ave/Tlave*ABS(l-(Tlave-T2ave) / ( T 3a v e-T 2a ve ) ) 241 60 R9 = Z( 1 , 2 1 )/297 *1 00 !Dta/Ta=.l7

24170 Z( 1, 22 )=R8*R9

24180 Z (I, 23)=. 01

24 1 90 Z ( I

, 54 ) = T 3a ve

24200 IF V AL ( I f f $ )>0 THEN GOTO 24240

24210 Ifreq=5

24220 Bw=Z(l,55)

24230 GOTO 24260

24240 Ifreq=30

242 50 B w = Z ( 1 , 56 ) 24260 T4ave = Z(I , 16 )= ( Z ( I , 5 ) + Z(I , 1 1 ) ) /2

24270 T 7 = Z (

1 ,41 )+Z(l ,43)

24280 T 8 = Z (

1 , 42 )+Z ( 1

, 44 ) 24290 T8=T8“2/N

24300 S1 = (T7-T8)/(N-1 )

239
R A D 7 E F

24310 S1=S0R(S1)

24 320 Z ( 1 , 1 3 ) = 3 * ( S 1 / S Q R ( N ) ) 24330 Z ( I

, 14 )=10*LGT((Tlave-290)/290)

24340 Z(I,16)=T4ave

24 3 50 0 = . 0 0 2 3 2 4 360 Q0=1+Z( I , 16 ) / Z ( I , 52 ) !1+Te/Tx

2437 0 01=1- Z (I, 5 3 )/Z (I, 52) Jl-TA/TX

2 4 380 Q2= ( Z( I , 5 4 )+Z ( I , 1 6 ) ) / ( Z( I

, 5 4 )-Z ( I , 5 3 ) ) ! ! [ T S+T E ] / [ T

S -T A

]

24 3 90 Q3 = .23*(Q0-Q1*Q2 ) 24400 Z ( I ,23)=. 01 iSOURCE ERROR PWR RATIO

244 10 Z(I,24)=Q3 ! % E R RO R POWER RATIO

24420 Rnoisef i«»=10*I,GT(l+T4ave/290 ) ! SYSTEM N.F. IN dB

24430 PRINT "PAUSE 24500"

24440 PAUSE

2445 0 Z(I,17)=Rnoisefi!>

24460 0 a i n = 7 . 244E l3*T2ave*Bw/ ( T 2 a v e +T 4 a v e ) 24470 Gaindb= 10*LGT(Galn) ! SYSTEM GAIN IN dB

24480 Z(I,18)=Gaindb

2449 0 Nlin=(Tlave-T2ave)*(Tlave-T3ave)*Z( 1 , 27 )*100/Tlave

24 500 Z ( 1 ,28) = N I in ! NON-LINE ARITY %E R ROR

24 5 10 Z (

1 , 32 ) = Z( 1 , 1 3 ) / Z ( 1 , 52 )* 1 00 ! % E R R 0 R 3*SEM

24 5 20 A= 1 +T 4 a v o / T 1 a v

e

24530 B=l-T2ave/Tlave

24540 C=(T3ave+T4ave) / (T3ave-T2ave)

24 550 Z( 1 , 29 ) = . 2 3 * AB S ( B ) * AB S ( A- B * C ) ! % E R RO R SWTCH ASYMMETRY

2456 0 Se t =

24 570 Z ( 1 , 2 6 ) = 0 ! TERROR FOR MISMATCH

2 4 580 Isolator= . 02 58*ABS ( (T lave-T2ave ) /Tx) + . 01 93*ABS ( (T lave-T3ave ) /Tx)

TABS ( 1 4 3 . 6 * Z ( 1 , 6 1 ) /Tx ) ! % E R R 0 R ISOLATOR

2459 0 Z ( I , 59 ) = Isolator ! ERROR IN PERCENT

2 4 600 Z( I

, 60 ) = Z( I

, 2 6 )+Z( I

, 2 4 ) 2 4 6 1 0 Z ( I , 3 0 ) = Z ( I , 2 0 ) +Z ( I , 2 2 ) +Z ( I , 2 4 ) +Z ( I , 2 8 ) +Z ( I , 5 9 ) +Z ( 1 , 2 6 ) +Z ( 1 , 2 9 ) 24620 Z ( I , 33 ) = Z ( I , 32 )+Z ( I , 30 ) !SUM OF BIAS +3SEM=L INEAR SUM%

24630 Z(1,36)=Z(1,30) !BIAS ERROR SUM %

24640 Temp = Tlave*Z( 1,30) / 100

24650 Templ=Temp/(Z(l,52)-290)

24660 Temp2=l+ABS(Templ)

24670 Z(I , 15 )=10*LGT(Temp2) ! LINEAR SUM IN DB

24680 ! PRINT PAGE

24 6 90 Q

= F N S ( 3 ) 24700 REM PRELIMINARY RESULTS!

247 1 0 A $ = " 24 7 20 N = N 3 * N 8 * 2 24730 PRINTER IS 16

24740 PRINT PAGE

24750 Q=FNS( 10)

24760 PRINT T AB ( 2 3 )

, "ME AS UREMENT RECAP"

24770 PRINT T A B ( 3 0 )

, " AN D

24780 PRINT TAB( 2 2 ), "PRELIMINARY RESULTS"

24790 Q=FNS(5

)

24800 IF T 1 <2 20 THEN GOTO 24830

24810 PRINT TAB( 6 ), "AVERAGE VALUE OF Tx=";Tx

24820 PRINT T AB ( 6 )

, " E XC E S S NOISE RATIO*" ; Z ( 1

, 1 4

)

24830 PRINT

24840 PRINT TAB ( 6 )

, " RADI OMETER SYSTEM TEMPERATURE-" ; Z( 1

, 1 6

)

240
RAD7EF

24850

24860

24870

24880

24890

24900

249 1 0

24920

24930

24940

24950

24960

24970

24980

24990

25000

25010

25020

25030

25040

25050

25060

25070

25080

25090

25100

25110

25120

25130

25140

25150

25160

25170

25180

25190

25200

252 10

25220

25230

25240

25250

25260

25270

25280

25290

25300

253 10

25320

25330

25340

25350

25360

25370

25380

25390

PRINT TAB(6) ."RADIOMETER GAIN dB=";Z(l,18)

PRINT TAB(6 ), "RADIOMETER NOISE BANDWIDTH =";Bw;"MHZ"

PRINT

PRINT

PRINT TAB(6 ) ,"FREQUENCY=";F1 ; "MHZ IF FREQUENC Y=" ; I f r e q

; "MHZ

PRINT TAB(28),"L. 0. FREQUENC Y= "; F

1

Z ( I , 5 8 ) = F 1 PRINT

PRINT TAB(6),A$

Q

= FN S ( 2 ) PRINT TAB( 1 1 )

, "TX" ; TAB( 2 1 ), "SX" ; TAB( 34 ), "TE" , " AVERAGE TX"

FIXED 2 PRINT TAB ( 6 ) , " " PRINT TAB(8),Z(I,3);TAB(20),Z(I,4);TAB(32),Z(I,5);(Z(I,3)+Z(I,9))/2

PRINT TAB (8 ) ,Z(I , 9 )

; TAB( 20 ) ,Z(I , 10 )

; TAB( 3 2 ) ,Z(I , 1 1 ) PRINT

PRINT TAB(6),"3 * SEM FOR ENTIRE SET OF MEASUREMENTS WAS " ; Z ( I , 1 3 ) PRINT TAB(6).A$

PRINT

STANDARD

N =N 9 = Z ( I , 31 ) PRINT TAB ( 6 )

, " AVE POWER IN MILLIWATTS P1.P2.P3"

PRINT TAB(6) ,Z(I ,45)/N*1000,Z(I ,46)/N*1000,Z(I ,47 )/N*1000

Y = Z(1 ,45)/Z(l ,46)

S1=SQR((Z(I , 48 ) - Z ( I ,45)*Z(I ,45)/N)/ (N-l ))

52 = SQR( ( Z(I ,49 )-Z(I ,46 )*Z(I ,46 )/N )/ ( N — 1 ) ) 53 = SQR((Z(I ,50)-Z(I ,47 )*Z(I ,47 )/N)/(N-l ))

FIXED 4

PRINT TAB(6),"SD Pl,P2,P3 (# OF ME AS = " ; N

; ") " ; S 1 * 1 0 0 0 ; S 2 * 1 0 0 0 ; S 3 * 1 00

0

PRINT TAB(6 ) ,A$

PRINT

PRINT " AMBIENT STANDARD TEMPERATURE: ";T2

PRINT " TRANSFER STANDARD TEMPERATURE: ";T3

PRINT " STANDARDS CK 1;2;3;4"

PRINT " ";Z(1 ,66) ,Z( 1 ,67 ) ,Z(1 ,68) ,Z(1 ,69)

PRINT TAB(6 ) ,A$

PRINT

PRINT TAB( 6), "CUSTOMER:"; TAB ( 30 ),C$[1 ,29]

PRINT TAB(6 ), "CUSTOMER'S ST AT I ON : " ; T AB ( 3 0 ) , C $ [ 3 0 , 5 9 ] PRINT TAB(6) ."CUSTOMER'S ADDRESS TAB ( 30 ), C $[ 60 , 99 j PRINT

PRINT TAB(6 ) ."SOURCE MANUFACTURER :"; TAB ( 30 ), G$ [ 1

, 39

]

PRINT TAB( 6 ), "SOURCE T YPE : " ; TAB ( 3 0 ) , G $ [ 4 0 , 7 9 ] PRINT TAB(6 ), "SOURCE MODEL : " ; T AB ( 3 0 ) , G $ [ 80 , 8 9 ] PRINT TAB(6) ."SOURCE SERI AL : " ; TAB ( 30 )

, G$ [ 90 , 99 ] PRINT

PRINT TAB ( 6 )

, "DATE OF C ALI BRATI ON : " ; T AB ( 3 0 )

, R $ [ 1, 1 9

]

PRINT TAB(6 ) ."CALIBRATION TEST #

: " ; TAB ( 30 )

, R$ [ 20 , 39 ] PRINT TAB(6),"REQ OR REF #

: " ; TAB ( 30 )

, R$ [ 40 , 69

]

PRINT

Q

= FN S ( 8 ) PRINT T AB ( 6 )

, A$

PRINT

F=F+F3

PRINTER IS 16

241
RAD7EF

25400 PRINT " END OF MEASUREMENT PRESS CONTINUE FOR FULL REPORT"

25410 PAUSE

25420 PRINTER IS 16

25430

25440

25450

25460

25470

25480

25490

CALL Report(P$,C$,G$,R$,H$,Fl

,

GOTO Startmeas

SUBEXIT

SUBEND

RE-SAVE " PWRFL"

! USES HP I B ADDRESS 1003 FOR

! USES NEW FLUKE PWR ROUTINE

F 2 , F 3 , N 3

! AUGUST

SWITCH

, N 8 , Q ( *

5 1982

DRIVERS

) .Set)

12 12 GJC

S Out (

A 24520 24550

A $ 2381 0 247 1 0 24930 2 5020 25140 25200 25360

Ae t 2 3770 24030

B 24 530 24550 24550

Bw 24220 24250 24460 24860

C 24 540 24550

c$ 237 70 25220 2 5230 25240 25430

Cl 2 3 7 70 24030

E 7 2 37 70 24030

E8 23770 24030

F 23830 23920 25380 25380

FI 23830 23880 24890 24900 249 10 25430

F 2 23840 23880 25430

F 3 23850 23880 2 5380 25430

Fn 23880

Fr 239 1 0 2 3920

G $ 23770 2 5260 25270 25280 25290 25430

Gain 24460 24470

Ga i ndb 24470 24480

H $ 2 3770 25430

I 23980 2 3990 24000 24020 24030 24050 24060 24060

242
RAD7EF

24070 24070 24080 24080 24090 24 100 24100 24 110

24 140 24 180 24190 24260 24260 24260 24 330 24 340

24360 24360 24370 24370 24380 24380 24 380 24 380

24400 244 1 0 24450 24480 2 4 5 9 0 24600 24600 24600

24610 24610 246 1 0 246 1 0 246 1 0 246 1 0 24620 24620

24620 24670 249 10 2 4 9 8 0 24980 2 4 9 8 0 24980 24980

24990 24990 24990 2 50 10 25050 2 5 0 7 0 25070 25070

25090

25 110

25090 2 5090 25 100 25100 25 100 25 110 25 110

If f $ 2 3 7 70 24200

I f r eq 242 1 0 24240 24890

Isolator 24580 24 590

N 240 1 0 24020 24290 2 4 3 0 0 24 320 247 20 2 5 0 5 0 2 5070

25070

25130

2 5070 2 5 090 2 5090 2 5 10 0 25100 25 110 25 110

N 3 2 3 860 2 3 9 9 0 24010 247 20 2 5430

N 8 2 3 8 7 0 24000 2401 0 24720 254 30

N 9 2 5050

N 1 i n 24490 24 500

P$ 254 30

PO 2 3930 2 3940 24030 24040

Q 23890 2 4 3 5 0 24690 247 50 2 4 7 9 0 24940 2 5 350

Q ( 23 7 70 24030 2 54 30

QO 24 360 24390

Q1 24370 2 4 3 90

Q2 2 4 380 24 390

Q3 2 4 3 9 0 244 10

R$ 2 3 7 70 2 5 3 1 0 25320 2 5 3 30 2 5430

R8 24 150 24 1 70

R9 24 120 24 1 30 24 160 24 170

Rnoisef ig 24420 24450

S 1 24300 24 3 1 0 24 3 10 2 4 3 2 0 2 5090 25 130

S 2 25100 25 130

243
RAD7EF

S3 25110 2 5 13 0

Set 24560 254 30

Startmeas

2 3 9 0 0 2 5 4 4 0

T 1 * 2 4 0 7 0 2 4 800

T 1 a v e 24060

24490

24070

24490

24 120

24520

T 2 * 25 160

T 2 a v e 2 4 080

2 4 4 6 0

24090

24490

24 120

24 5 30

T 3 * 25 170

T 3a v e 2 4 10 0

24540

24 120

24580

24 120

T 4 a v e 24260 24 340 2 4 4 2 0

T 7 2 4 2 7 0 24 300

T 8 24280 24290 24290

Temp 2 4 6 4 0 246 50

Tempi 2 46 50 2 46 60

Te m p 2 2 4 6 6 0 2 4 6 7 0

Tx 24070 24580 2 4 5 8 0

Y 2 5080

z( * 24000

2 4 0 9 0

24 170

24270

2 4 3 6 0

244 1 0

24 5 50

2 4 6 1 0

2 4 6 2 0

2 4 8 4 0

24990

2 5080

2 5 110

23830

2 4 0 2 0

2 4 10 0

24 180

24270

2 4 3 7 0

244 50

24 5 70

2 4 6 1 0

24620

24850

24990

2 5080

25110

2 3 840

2 4 0 6 0

2 4 10 0

2 4 19 0

24280

24 370

24480

2 4 5 8 0

246 1 0

2 4 6 3 0

2 4 9 1 0

2 4 9 9 0

2 5 0 9 0

25110

24 120

24 530

2 4 15 0

24 580

2 4 15 0

24 580

24 3 30

24640

24490

24 120

24 540

2 4 15 0

2 4 5 8 0

24 150 2 4 15 0 24460

24 1 30 24 150 24 190 2 4 4 9 0 24540

24460 24 520 24 540

24300

24 580 248 10

2 3 8 5 0 2 3 8 6 0 2 3 8 7 0 2 3 9 2 0 2 3 9 9 0

2 4 0 6 0 2 4 0 7 0 24070 2 4 0 8 0 24080

24 110 24 130 24 130 2 4 14 0 24 160

24 2 20 2 4 2 5 0 24260 24260 24260

24280 24320 2 4 3 3 0 24 340 2 4 3 6 0

24 380 24380 24 3 80 24380 24400

2 4 4 9 0 24 500 24 5 1 0 24 5 1 0 2 4 5 1 0

24 590 2 4 6 0 0 2 4 6 0 0 2 4 6 0 0 2 4 6 1 0

2 4 6 1 0 2 4 6 10 246 1 0 246 1 0 2 4 6 2 0

2 4 6 3 0 2 4 6 4 0 2 4 6 5 0 2 4 6 7 0 24820

2 4 980 2 4 9 8 0 2 4 9 8 0 24980 24980

2 50 1 0 2 5 0 5 0 2 5 0 7 0 2 5070 25070

2 5090 2 5 0 9 0 25 100 2 5 10 0 25 100

2 5 19 0 2 5 19 0 25190 25 190

244
RAD7EF

25500

25510

25520

25530

25540

25550

25560

25570

25580

25590

25600

25610

25620

25630

25640

25650

25660

25670

25680

25690

25700

257 10

25720

25730

25740

257 50

25760

25770

2 57 80

25790

25800

25810

25820

25830

25840

25850

25860

25870

25880

25890

25900

259 10

25920

25930

25940

25950

25960

25970

25980

25990

26000

26010

26020

26030

SUB Power(Pl ,P2,P3,P0,Aet ,If f$)

OPTION BASE 1 COM F(*),Z(*),Tl,T2,T3,Qr(*),Qi(*),Final(*)

COM File, Flag

DIM Po ( 6 ) PRINTER IS 16

!Q=FNX(Q7

)

! 0 POWER TO MOUNT

! CCONTROL

! 0 POWER TO MOUNT

! 0 POWER TO MOUNT

Q

= 0

Pout $ = "2"

ON Aet GOTO 25600,25590

ON PO GOTO 25600,25640

OUTPUT 7 0 2 ; "0 "

, " 1 ", " 7 " , " 3 " WAIT 50

OUTPUT 70 2

; "0 "

, "

1 ", " >

" , " 3

GOTO 25670

OUTPUT 70 2 ; "3 "

, " 1 " , "7 ", " 3 " WAIT 50

OUTPUT 702 ; "3" , "1 "3"

OUTPUT 1003 ; "8" , "8" , " ?" ,Pout$ , If f $

, "2"

WAIT 50

OUTPUT 1003 ; "8" ,"8" ,"0" ,"Pout$" , If f $

, "2"! CCONTROL

WAIT 250

OUTPUT 709; "C" ! CLEAR SCANNER

OUTPUT 709; 15 ! CHANNEL 15

OUTPUT 701; "VRF 2T2H0 ? " {VOLTS FILTER #SA

ENTER 701; VO {VALUE OF BRIDGE POWER OFF

PRINT "BRIDGE PWR OFF=";VO

! OUTPUT 709; 16 ! CHANNEL 16

! WAIT 300

! OUTPUT 701 ; "VRF2S5?" {OUTPUT FLUKE

! ENTER 701 ; V 1 {VALUE OF REF

! PRINT "VALUE OF REF=";V1

! PAUSE

OUTPUT 7 0 9 ; 17

WAIT 300

OUTPUT 701 ; "VRF2T2H0?"

ENTER 7 01 ; V 3 {BRIDGE -REF WITH NO POWER

PRINT "BRIDGE -REF NO PWR=";V3

FOR Loo p= 1 TO 3

ON Loop GOTO 25890,25910,25930

Pout $ = "2 " ! UNKNOWN PORT

GOTO 25940

Pout $ = "4 " ! AMBIENT PORT

GOTO 25940

Pout $ = "3" ! TRANSFER STD PORT

OUTPUT 100 3

; "8" ,"8" ,"?" ,Pout$ , If f $

, "2" ! SYS , 2-4 , STR, PORT, 30 IF

WAIT 50

OUTPUT 1003 ; "8" ,"8" , "0" ,Pout$ , If f $

, "2" ! CC

ON Aet GOTO 25990,25980

ON PO GOTO 25990,26020

OUTPUT 702 ; "0" , "0" , "7

"

, "3" {POWER APPLIED TO MOUNT

OUTPUT 702 ; "0" ,"0" ,">","3" {CCONTROL

GOTO 26050

OUTPUT 7 0 2

; "

3

"

, " 0

"

, "7 "

, "

3 " {POWER APPLIED TO MOUNT

WAIT 50

245
R A D 7 E F

26040 OUTPUT 7 0 2 ; " 3 " , " 0

"

, ">

"

, "3 " ! CCONTROL

26050 WAIT 150

26060 OUTPUT 7 0 1 ; " V RF 2 T 2 H 0

? " 10UTPUT FLUKE

26070 ! WAIT 600

26080 ENTER 7 0 1 ; V 4 ! ENTER BRIDGE -REF WITH POWER

26090 PRINT "BRIDGE -REF PWR=";V4

26100 Po(Loop)=V4

26110 NEXT Loop

26120 Pout$="0

26130 OUTPUT 7 0 2

; "0

"

, " 1" , "7 ", " 0

" 1POWER REMOVED FROM MOUNT

26140 WAIT 150

26 1 50 OUTPUT 7 0 2 ; " 0," , " 1" , " > "

, " 0

" 26 1 60 OUTPUT 1 0 0 3 ; "8 "

, " 8 " , " ? "

, P o ut $ , I f f $ , " 2

" '.SET PORT TO 0

26170 OUTPUT 1 0 0 3

; " 8

"

, " 8

"

, " 0

" , P o ut $ , I f f $

, "2

" ! CCONTROL

26180 WAIT 150

26190 OUTPUT 70 1

; " VRF 2T 2H0 ? " 10UTPUT FLUKE

2 6 200 ENTER 7 0 1

; V 5 ! RE CHECK BRIDGE -REF PWR OFF

26210 PRINT "BRIDGE -REF PWR OFF";V5

26220 OUTPUT 709 ; 1 5 26230 WAIT 300

26240 ! OUTPUT 701 ; "VRF2T2HO?" 10UTPUT FLUKE

26250 ! WAIT 600

26260 ! ENTER 7 0 1

; V 6 ! RE CHE CK BRIDGE WITH POWER OFF

6270 V6 = VO

26280 DISP "BRIDGE NO PWR";V6

26290 ! 26300 ! OUTPUT POWER FROM VOLTAGE

26310 ! 26320 E 6 = V 0 +V 6

26 3 30 DISP " E 6 = "

; E 6

26340 E 7 = ( V 3 +V 5 ) /

26350 DISP " E 7 = " ; E 7 26360 FOR 1=4 TO 6

26370 E8=E6-Po ( 1-3 )+E7

26380 DISP " E 8 = " ; E 8

26390 E9 = Po ( 1-3 )-E7

26400 DISP "E 9 = " ; E 9

26410 Po(I)=E8*E 9/200

26420 NEXT I 26430 Pl=Po(4 ) 26440 P2 = Po( 5 ) 26450 P3=Po(6)

26460 PRINTER IS 0

26470 SUBEND

26480 RE-SAVE "SUB V " , 2 6 4 8 0 , 2 6 9 2 0 ! JAN 13 1982 1430

S Po we r (

Ae t 25500 2 5 580 2 5970

E 6 26320 26 3 30 26370

E7 26340 2 6 3 50 26370 26390

246
R \ D 7 E F

E 8 2 6 2 7 0 2 6 2 8 0 2 6 4 1 0

E 9 2 6 2 9 0 2 6 400 2 6 4 1 0

I 2 6 2 6 0 2 6 2 7 0 2 6 2 9 0 2 6 4 1 0 2 6 4 2 0

I f f $ 2 5 500 2 5 6 7 0 2 5 6 9 0 2 5 9 4 0 2 5 9 6 0 26 160 2 6 17 0

Loon 2 5 8 7 0 2 5 8 8 0 2 6 10 0 2 6 110

PO 2 5 500 2 5 590 2 5 9 8 0

PI 2 5 500 2 6 4 2 0

P 2 2 5 500 2 6 4 4 0

P 2 2 5500 2 6 4 5 0

Po ( 2 5 540 2 610 0 26270 2 6 3 9 0 2 6 4 1 0 2 6 4 3 0 2 6 4 4 0 2 6 4 5 0

P o u t $ 2 5 5 70

26 160

25670

2 6 17 0

25890 259 1 0 2 5 9 3 0 25940 2 5 9 6 0 26 120

Q 2 5560

VO 25740 2 57 50 26270 26320

VI 2 5 8 5 0 2 5 8 6 0 26340

V 4 26080 26090 26100

V 5 2 6200 262 1 0 26340

V 6 26270 2 62 80 2 6 3 2 0

247
RAD7EF

26490

26 500

26 5 1 0

26 520

26530

26540

26550

26560

265 70

26580

26 590

2 6 6 0 0

266 1 0

26620

2 6 6 3 0

26640

26650

26660

26670

26680

26690

26700

2 6 7 1 0

26720

267 30

26740

267 50

26760

267 70

26780

26 7 90

26800

26810

26820

26830

26840

26850

26860

26870

26880

26890

25900

269 10

26920

Fr,Cc,C,Di)

SUB Volt(V(*),Fr,Cc,C(*))

PRINTER IS 16

OPTION BASE 1 COM F(*),Z(*),Tl,T2,T3,Qr(*),Qi(*),Final(*)

COM File, Fla»

OUTPUT 1 0 0 7 ;

C

CLEAR 1022

FOR 1=20 TO 27

OUTPUT 1007 ;

PRINT I WAIT 50

C =0

CALL Dmm ( V 1

, C( * ) V( 1-1 9 ) = V

NEXT I OUTPUT 9

; " R"

ENTER 9 ; Y $

PRINTER IS 0

PRINT

PRINT

PRINT

PRINT

PRINT

IMAGE

IMAGE

IMAGE

IMAGE

IMAGE

IMAGE

IMAGE

IMAGE

IMAGE

IMAGE

PRINTER

! PRINT

"DATE AND TIME Y $ YEAR 1982 F R E Q

= ' MHZ "

IX , "VOLTMETER ZERO

IX, "15 VOLT SUPPLY

VOLT SUPPLY

VOLT SUPPLY

VOLT SUPPLY

VOLT SUPPLY

VOLT SUPPLY

VOLT SUPPLY

VOLT SUPPLY

VOLT SUPPLY

IX

IX

IX

IX

IX

IX

IX

IX

, "20

,"28

, "28

,"15

, "28

,"15

,"15

, "2 5 IS 0

USING

CHECK ", 2 1 X , DD . DDD , 5X , "CHANNEL 28"

(PREAMP 2-4 )", 1 5X , DD . DDD , 5X , "CHANNEL 20"

ANZAC AMPS", 17X.DD . DDD. 5X "CHANNEL 21"

A V E N T E K

AVENTEK

S W . DR.

TRAN SCO

SW. DR.

SW. DR.

WEINSCHEL ATTN

I", 18X,DD.DDD,5X, "CHANNEL 2

2

II" , 17X, DD. DDD, 5 X," CHANNEL 23"

TABLE", 1 4X, DD . DDD, 5X," CHANNEL 24"

SWITCH" , 1 2X , DDD. DDD , 5X, "CHANNEL 25

1 3 X, DD . DDD , 5X , "CHANNEL 26"

1 3X, DD*. DDD , 5X, "CHANNEL 26"

. 1 2X . DD . DDD , 5 X

, "CHANNEL 27 1

OUTPUT"

OUTPUT"

9810; V(9 ) PRINT

PRINT

PRINT

PRINT

PRINT

PRINT

PRINT

PRINT

SUBEND

USING

USING

USING

USING

USING

USING

USING

USING

26 7 30

267 40

267 50

26760

267 7 0

26780

26800

V ( 1 ) V ( 2 ) V ( 3 ) V ( 4 ) V ( 5 ) V ( 6 ) V ( 7 ) 268 1 0 ; V(8 )

2 6 9 3 0 RE-SAVE "DESCR" , 26930 , 27080

S V o 1 1 (

C 26 540 26600 266 1 0

c( 26490 266 1 0

Cc 26490 266 1 0

! J ANU ARY 1 5 1 982 0905

248
RAD7EF

Di 26610

F 26690

Fr 26490 266 10

I 26560 26570 26580

V( 26490

26900

26620

2691 0

26840

VI 2661 0 26620

Y$ 26650 26690

26620 26630

26850 26860 26870 26880 26890

249
RAD7EF

26940 SUB Descr(P$,C$,G$,R$,H$,Fl , F 2 , F 3 , N 3 , N 8 , Q ( * ) ,Set)

26950 COM F(*),Z(*),Tl,T2,T3,Qr(*),Qi(*),Final(*)

26960 COM File, Flag

26970 LINPUT "DESCRIPTION FILE ME AS+ Desc$

26980 MASS STORAGE IS " :F8,1"

26990 CREATE Desc$,80

27000 OUTPUT 9;"R"

27010 ENTER 9;P$

27020 ASSIGN #3 TO Desc$

27030 PRINT #3;P$,C$,G$,R$,H$,F1,F2,F3,N3,N8,C1,C2,Z(*),Q(*),F(*)

27040 ASSIGN it 3 TO * 27050 ASSIGN it 3 TO I)esc$

27060 READ #3;P$,C$,G$,R$,H$,F1,F2,F3,N3,N8,C1,C2,Z(*),Q(*),F(*)

27070 PRINT P$;":1983"

27080 SUBEND

27090 RE-SAVE " DMM "

, 2 7 0 9 0 , 2 7 3 1 0 ! 2 1 JANUARY 1982 GJC 1330

S De s c r

(

c$ 26940 2 7 0 3 0 2 7060

Cl 27030 27060

C 2 2 7 0 3 0 2 7060

De s c $ 269 70 26990 27020 2 7 0 5 0

F ( * 2 7 0 3 0 2 7060

F 1 26940 2 7 0 3 0 27060

F 2 26940 2 7030 27060

F 3 26940 27030 27060

G $ 26940 2 7030 2 7 0 6 0

H $ 26940 2 7 0 3 0 2 7060

N 3 26940 2 7 0 3 0 2 7 0 6 0

N 8 26940 27030 27060

P$ 2 6 9 4 0 2 70 1 0 27030 27060 27070

Q ( 26940 2 7030 2 7060

R$ 26940 2 7030 2 7 0 6 0

Set 26940

z( * 2 7 0 3 0 2 7 0 6 0
RAD7EF

27100 SUB Dmm (Vl,C(*),Fr,Cc,C,Di)

27110 OPTION BASE 1 27 1 20 COM F(* ) ,Z (*) ,T1 , T2 , T3 , Qr( *) ,Qi (*) .Final ( *)

27 1 30 COM File, Flag

27 1 40 DIM Rv$ ( 1 00 ) , Va ( 50 ) 27150 MAT Va=ZER

27160 RESET 1022

27 1 70 FOR V = 1 TO 5 27180 OUTPUT 1022;"S0 FI Rl T4 LI RSI SM020 QX1"

27190 TRIGGER 1022

27200 ENTER 1022 BINT N OF ORM AT ; R v $ ( V

)

27 2 10 STATUS 1 0 2 2 ; S 27220 IF S = 0 THEN 27 2 50

27230 PRINT "PAUSE 1720"

27240 PAUSE

27 250 Va(V )=VAL(Rv$ (V ) ) 27260 NEXT V

27270 V 1 =S UM ( Va ) /

5

27280 MAT Va=ZER

27290 IF C=0 THEN 27310

27300 ! C(Cc,Di,Fr)=Vl

27310 SUBEND

27 320 RE-SAVE "SUB Vt : F 8 , 1" , 2 7 3 2 0 , 2 7 6 8 0 !JUNE 1 , 1 982 1 545 GJC

S Dmm (

c 27 100 2 7 290

C( 27 100

Cc 27 100

Di 27 100

Fr 27 100

Rv $ ( 27 140 2 7200 27 2 50

S 272 10 2 7 2 20

V 27 170 2 7200 272 50 27250 27260

VI 27 100 2 72 70

Va ( 27 140 27150 2 7 2 50 2 72 70 27280

251
RAD7EF

273 3 0 SUB V t ( C

( * ) , F r , C c , C , Di , Mean, Ret)

27340 OPTION BASE 1 27 350 COM F (*), Z (*), T1 , T2 , T3 , Qr (*) ,Qi (*), Final (* ) 27 360 COM File, Flag

27370 DIM I n $ [ 1 2 8 ] , 0 u t ( 3 2 ) 27 380 IF Re t > 1 THEN GOTO 27 4 1 0

27390 OUTPUT 1 0 2 2

; "P 1 F 1 R 4 0 S TD 10STI32 STNS01T3"

27400 GOTO 27420

27410 OUTPUT 1 0 2 2

; " P 1 F 1 R 3 0 S T D FL1 10STI32 STNS01T3"

27420 ENTER 1022 BFHS 128 NOFORMAT ; In$

27430 CALL Un pk 5 6 ( I n $ , Ou t

( * ) ) 27440 FOR 1=1 TO 32

27450 ! PRINT "NUMBER" ; I

, "VOLT AGE RE ADING " ; Out ( I ) 27460 NEXT I 27470 M ean = SUM(Out ) / 3 2 27480 PRINT Mean

27490 IF C = 0 THEN GOTO 26980

27500 C(Di,Fr,Cc) =M e a n 27510 SUBEXIT

27520 SUBEND

S Vt (

c 2 7 3 3 0 2 7490

C( 27 3 30 2 7 500

Cc 27 330 2 7 5 0 0

Di 27 330 2 7 5 0 0

Fr 27 3 30 27 500

I 2 7 4 4 0 2 7460

In $ 2 7 370 27420 2 7 4 30

Mean 2 7 330 2 7470 2 7480

Out ( 2 7 3 70 2 7430 2 7470

Re t 2 7 330 2 7 380

2 7 500

252
RAD7EF

27530 SUB Unpk56(In$,0ut(*))

27 540 INTEGER N , J , I , B 1 , B 2 , B 3

, B

4

27550 N=LEN (In$

)

2755 0 J = 0

27570 FOR 1=1 TO N STEP 4 27580 J = J + 1 2 7 590 B 1 =NUM ( I n $ [ I

]

) 27600 3 2 =N UM ( I n $ [1 + 1 1

)

276 1 0 B 3 = N U M ( I n $ [ 1+2 ]

)

27620 B4=N'JM( In$ [ 1 + 3 ] ) 27 6 30 Out (J )=. l*BIT(Bl ,0) + .01*S!IIFT(B2,4) + .001* B IN AN D ( B 2 , 15) + . 00 01 *SHIFT (B3 , 4 ) + . 00 001 * BIN AND (B3 , 15 ) + . 000 00 1 *SHIFT( B4 , 4

)

+ . 0 0 0000 1 * BIN AND ( B4 , 1 5

)

27640 Out(J)=Out(J)*(l-2*BIT(Bl,l))*10~((l-2*BIT(Bl,7))

* SH IF T ( B IN AND ( B 1

, 1 2 4 ) , 2 ) ) 27650 NEXT I 27660 RESET 1022

27670 SUBEXIT

27680 SUBEND

S U n p k 5 6 (

B 1 2 7 540 2 7 590 27630 2 7640 2 7640 27640

B 2 2 7 540 2 7 600 27630 2 7 6 3 0

B 3 2 7 540 2 76 1 0 2 7630 2 7630

B 4 2 7 5 4 0 2 7620 27 630 2 7 6 30

I 27 540 2 7 5 70 27 590 2 7 6 0 0 2 76 1 0 2 7 6 2 0 2 7650

I n $ 2 7 5 30 2 7 5 50 2 7 5 9 0 2 7600 276 1 0 27620

J 27540 2 7 560 2 7 5 8 0 2 7 5 8 0 27630 27640 2 7 6 4 0

N 27 540 2 7 5 50 2 7 5 70

Out ( 2 7 5 30 2 7 6 3 0 2 7 640 2 7640

253
RAD7EF

GLOBAL NAMES

* F ( 60 910 10 10 1110 12 80 1370 83 30 8940

9650 1 02 50 10500 1 0850 112 7 0 12 110 1 2200 1 2 790

1 3360 1 37 70 1 3860 1 5800 17 010 19150 1 9640 20590

2 3 7 9 0 2 5 520 2 6 5 20 2 6 9 5 0 27 120 2 7 3 5 0

* File 70 920 1020 112 0 1290 1 3 80 8 3 40 89 50

9 6 60 1 0 2 6 0 10510 10 8 6 0 1 1280 12 120 12210 1 2 800

1 3 3 7 0 1 37 80 1 3 8 7 0 15810 1 7 0 2 0 1916 0 1 9650 20600

2 3 8 0 0 2 5 5 3 0 2 6 5 3 0 2 6 9 6 0 2 7 13 0 2 7 3 6 0

* F i n a 1 ( 6 0 9 1 0 1010 1110 12 80 13 70 8 3 30 8940

9 6 50 1 0250 1 0 5 0 0 10 8 5 0 112 7 0 12 110 1 2200 1 2 790

1 3 3 6 0 1 3 7 70 1 3 8 6 0 1 5 800 17 010 19 150 1 9640 20590

2 3 7 9 0 2 5 5 2 0 26520 26950 2 7 12 0 2 7 3 50

* Flag 70 920 1020 1 120 1290 1380 8340 8950

9660 10260 10510 10860 11280 12 120 122 10 1 2800

1 3 370 1 3780 1 3 8 7 0 15810 1 7 0 2 0 19 160 1 9 6 50 2 0 6 0 0

2 3 800 2 5 530 2 6 5 30 26960 27 130 27 360

* Q i ( 60 910 1010 1110 1280 1370 8 3 30 8 9 4 0

96 50 1 0250 10 5 00 1 08 50 112 7 0 12 110 1 2200 1 2 790

1 3 360 1 3 7 70 1 3 8 6 0 1 5 8 0 0 17010 19 15 0 1 9640 20590

2 3790 2 5 520 2 6 5 2 0 2 69 50 27 120 2 7 3 50

O' * 6 0 9 1 0 1010 1110 1280 1370 83 30 8940

9 6 50 1 02 50 10500 10850 11270 12 110 1 2200 1 2 790

1 3 3 6 0 1 3 7 7 0 1 3860 1 5800 17010 19150 1 9640 2 0 5 9 0

2 3790 2 5 5 20 2 6 5 2 0 2 6 9 5 0 27120 2 7 3 50

* Tl 60 910 1010 1110 1280 1370 8 3 30 8 94 0

9650 102 1 3 5 4 0 1 3800

FN!{ ( 11240 5 3 10

FNI ( 1 2080 4910

FNL ( 12 180 5030

FNN ( 990

FNO ( 1090 1 9900 1 99 50 20000 20050 20 100 20 1 50 20200

20250 20300

FNS ( 1260 600 1 190 1 4690 1 5 8 9 0 1 6370 1 6390 1 6450

1 7 760 1 9920 1 99 70 20020 2 0 0 7 0 20120 20170 2 0 2 2 0

20270 20 350 20 3 70 2 0 4 2 0 2 1980 2 3890 24690 247 50

2 4 7 9 0 2 4 9 4 0 2 5 3 5 0

FNT ( 1 3 340 5640 72 10

254
RAD7EF

FNU ( 137 50

S Cal ( 1350 690 750

s Corr 1

(

1 3 840 16050

s Co r r 2 ( 1 5 7 80 720

s De s c r ( 26940 840 1 9 0 9 0

s Dmm ( 27 100 3620 266 10

s Freq ( 19 130 3840 2 1 360

s Get parameter 1 9620 640

s M e a s ( 20570 24030

s Out ( 23770 790

s Po we r ( 25500 3 30 14250 21450

s ReDo r t ( 16990 2 5430

s Unpk 56 ( 27 5 30 27430

s Volt ( 26490 160

s Vt( 27 3 30

255
NBS-H4A (REV. 2-80

U.S.*s DEPT. OF COMM.

BIBLIOGRAPHIC DATA

1. PUBLICATION OR

REPORT NO.

2. Performing Organ. Report No. 3. Publication Date

SHEET (See instructions) NBSIR 83-1697 January 1984

4. TITLE AND SUBTITLE

2.0 GHZ TO 4.0 GHZ AUTOMATED RADIOMETER

OPERATION AND SERVICE MANUAL

5. AUTHOR(S)

George J. Counas

6. PERFORMING ORGANIZATION (If joint or other than NBS, see in struction s) 7. Contract/Grant No. national bureau of standards

DEPARTMENT OF COMMERCE 8. Type of Report & Period Covered

WASHINGTON, D.C. 20234

9. SPONSORING ORGANIZATION NAME AND COMPLETE ADDRESS ( Street , City , State, ZIP)

10. SUPPLEMENTARY NOTES

_2) Document describes a computer program; SF-185, FlPS Software Summary, is attached.

11. ABSTRACT (A 200-word or less factual summary of most si gnificant information. If document includes a significant

bibliography or literaibre survey, mention it here)

The equipment described by this manual is the 2.0 to 4.0 GHz subsystem of the

automated radiometer. This section of the multiband automated radiometer is a co- axial total power radiometer which implements a six-port reflectometer for impedance

characterization and correction and utilizes a newly developed broadband cryogenic

noise standard. NBS noise measurement capability in this frequency band has been

expanded by the addition of this system which adds continuous frequency coverage

to existing services along with the capability to measure cryogenic noise sources.

This manual describes the 2.0 to 4.0 GHz frequency band of the NBS automated radiometer and provides operation and service information.

12. KEY WORDS (Six to twelve entries; alphabetical order; capitalize only proper names; and separate key words by semicolons)

automated; broadband cryogenic noise standard; six-port refl ectometer

radiometer

; total power

13. AVAILABILITY 14. NO. OF

[X^ Unlimited

PRINTED PAGES

| J For Official Distribution, Do Not Release to NTIS

Order From Superintendent of Documents, U.S, Government Printing Office, Washington, D.C. 20402.

264

15. Price

QX] Order From National Technical Information Service (NTIS), Springfield, VA. 22161 $22.00

U S. GOVERNMENT PRINTING OFFICE:19B4—777-837 / 9160 USCOMM-DC 6043-P 80