Phase Angle Calibration Services

1 Page 1 U.S.DepartmentofCommerce NationalBureauofStandards NBSMEASUREMENTSERVICES specialPublication25(K26 NBSPHASEANGLE CALIBRATIONSERVICES R.S.Turgei,J.M.Mulrow,andD.F.Vecchia Open at page → 2 Page 2 INTTRODUCINGTHECENTERFORELECTRONICSANDELECTRICALENGINEERING TheCenterforElectronicsandElectricalEngineering(CEEE)isthecomponentofthe NationalBureauofStandardschargedwithprovidingBureauactivitiesandservices supportingelec... Open at page → 3 Page 3 NBSMEASUREMENTSERVICES: NBSPhaseAngleCalibrationServices R.S.Turgel Electrosystems Division CenterforElectronicsandElectricalEngineering NationalEngineeringLaboratory NationalBureauofStandards Gaithersburg,MD20899 J.M.Mu... Open at page → 4 Page 4 LibraryofCongressCatalogCardNumber:88-600501 NationalBureauofStandardsSpecialPublication250-26 Natl.Bur.Stand.(U.S.),Spec.Publ.250-26,114pages(May1988) CODEN:XNBSAV U.S.GOVERNMENTPRINTINGOFFICE WASHINGTON: 1988 Forsaleby... Open at page → 5 Page 5 PREFACE CalibrationsandrelatedmeasurementservicesoftheNationalBureauof Standards(NBS)providethemeansforindustry,governmentagencies,academia, andotherstorelatethemeasurementstheymaketonationalstandardsand,by extension,tot... Open at page → 6 Page 6 ListofTables page Table1. EstimatedPhaseAngleUncertainty 4 TableA-1CriticalValues ^a/l^^^ °fStudent's tDistribution 21 ListofFigures Figure1.Diagramofthecalibrationcurveforaphasemeter 5 Figure2A.Differences BetweenMeasur... Open at page → 7 Page 7 NBSPHASEANGLECALIBRATIONSERVICE Abstract TheNational Bureau ofStandards (NBS) offers a calibration serviceforaudio-frequencyphasemeters. Thecalibrations arebasedonaphaseanglestandard developedatNBSthatgenerates twosinuso... Open at page → 9 Page 9 1 .INTRODUCTION Themeasurement ofphaseangle isimportant inmanyapplications encompassing diverse areassuchaspowersystems, navigation, satellite tracking, andservocircuitdesign. Modernphasemetersarecapableof resolutionof0.... Open at page → 10 Page 10 combinetheirattributesanddevelopaphase-calibrated signalsource. The reasonsforchoosingthisparticularimplementation, whichisembodiedinthe NBSPhaseAngleStandard,arediscussedin[1]. 4.DESCRIPTIONOFTHESYSTEM TheNBSPhaseAngleS... Open at page → 11 Page 11 Allreadings arerecordedonmagnetic tapeordisk,whetherentered manually orautomatically viathebus. Forthepurposes ofcalculation, angleslyingbetween359and361degreesareconvertedtocorrespondingvalues intherangeof-1to+1degrees.... Open at page → 12 Page 12 Table1.EstimatedPhaseAngleUncertainty 60Hz 400Hz 5kHz 15kHz 30kHz 50kHz (UnitsofMillidegrees) Auto-ZeroCorr.* 1 2 5 6 12 20 Linearity 2 2 3 10 15 20 7:1VoltageRatio 1 2 3 10 20 40 *Theuncertaintyduetofrequencyadjustment... Open at page → 13 Page 13 30 90 150 210 270 330 NBSValuex ,Degrees Figure 1.Diagramofthecalibrationcurveforaphasemeter 7.1SimpleLinearModel Theprocedures andanalyses discussed below areappropriate for calibrating phase meters that have anessentia... Open at page → 14 Page 14 ' 7.2LeastSquaresFit Givenphasemetermeasurements yj^j corresponding toNBSphaseangle valuesX ,whereiistheindexoftheselectedphaseangleandjdenotesthe repetition, asimplemodeltodescribethephasemeterbehaviorisgivenby: / i=1,... Open at page → 15 Page 15 shouldberandomlydistributed aboutahorizontal linethroughzeroasin Figure2B .Thusthephaseanglemeasurements inFigure2Ashowthataslope ofthecalibration curvedifferent fromone(b 1)willbenecessary to correctthephasemeterreading... Open at page → 16 Page 16 0.10 0.05 - cm ^ 0.00 - X I -0.05 - -0.10 30 90 150 210 270 NBSValuex ,Degrees 330 Figure2A. DifferencesBetweenMeasuredPhaseAnglesandCorresponding NBS Values,PlottedAgainstNBSValues(Example1). C3fl 0) Q X I 0.10 0.05 - 0... Open at page → 17 Page 17 30 90 150 210 270 NBSValuex ,Degrees 330 Figure3A.MeasuredPhaseAnglesPlottedAgainstCorresponding NBSValues (Example 3) -0.10 -0.15 -0.20 30 90 150 210 NBSValuex ,Degrees 270 330 Figure3B.Differences BetweenMeasuredPhaseA... Open at page → 18 Page 18 7.3TestofModelAdequacy Beforeproceedingwiththetestsfortheslopeandintercept, itis confirmedthatasimplelinearfunction isadequate torelatephasemeter measurements totheassignedvaluesoftheNBSPhaseAngleStandard. Aplot ofthedev... Open at page → 19 Page 19 theassociatedhypothesis isnottenable. Forinstance, inthelack-of-fit test, acomputed significance levelforF'of0.004wouldleadtothe conclusion thattheobserved departure fromlinearity wasstatistically significantatthe0.004le... Open at page → 20 Page 20 7.5OffsetinCorrectedValues Thefollowingprocedure canbethoughtofasadetermination ofthe practical,ratherthanthestatistical, significance oftheoffsetofaphase meterfromtheNBSassignedvalues. Forexample, testsontheslopeand int... Open at page → 21 Page 21 curve,notmerelyfortheexpectedoffsetcorresponding toasinglephase angle. Therefore, theinitialsteptowardestimatingoffsetsforanyphase anglexistocomputestatisticalconfidencebandsappropriate forthewhole calibrationcurveoverth... Open at page → 22 Page 22 u(xt) -i(X|-), isdifferentforeachvalueofx^,butthelargestdistance occursatx^-=0°orx^=360° . Toestimatetheoffsetofaphasemeter,thecalculations foreachlevel ofcorrectioninvolvesimplealgebraicexpressionsderivedfromequation(2)... Open at page → 23 Page 23 LEVEL2.CONSTANTCORRECTION: Offsetin(y+A2) Ifweignorethepossibledifference intheslopeofthecalibration curvefromitsidealvalue{b= 1 ;therefore, wesetB2(= ^/h^ =1).but correctforthedisplacement oftheline,estimatedbyA2=x - y,... Open at page → 24 Page 24 magnitudeoftheoffsetis : ^LEVELS =maximumof {lR(0°)/b| ,|R(360°)/b| ) . Resultsofthecalculations discussedinthissectionareillustrated in twosampleReportsofCalibrationgiveninAppendix B.Inthefirstexample, acomparisonofthet... Open at page → 25 Page 25 standarddeviation. Astandarddeviationbasedonasfewastwodatapointscanbecombined withothersimilarestimatesthathavebeenobtainedonseparateoccasionsor atdifferentphaseanglestocalculatewhatiscalleda"pooled"standard deviation. I... Open at page → 26 Page 26 greatestwhenthecoupledsignalcomponentisoutofphase,atanominalphase angleof0°or180°andleastwhenthecoupledcomponent isinphaseat90° and270°asshowninthefigure. Anothertypeofnonlinearity canariseifthedigitalreadoutofthe phasem... Open at page → 27 Page 27 0.05 I • I • I • 1 ' 1 • r 30 90 150 210 270 330 NBSValuex ,Degrees Figure5.Changesincalibrationcurvefromrepetitiontorepetition 19 Open at page → 28 Page 28 9.REFERENCES Turgel, R.S.;Oldham, N.M. ;Stenbakken, G.N. ;Kibalo ,T.H.; "NBS PhaseAngleCalibrationStandard,"Nat.Bur.Stand.(U.S.)TechnicalNote 1144,July1981. Laug, 0.B.,"AWide-Band Transconductance Amplifier forCurrent Ca... Open at page → 29 Page 29 APPENDIXA.CriticalvaluesofStudent's tDistribution TableA-1 CriticalValues ^(^f^^^^ °fStudent's tDistribution V a==0.05 a==0.01 u a==0.05 a=0.01 2 4.303 9.925 62 1 .999 2.657 4 2.776 4.604 64 1 .998 2.655 6 2.447 3.707 66... Open at page → 30 Page 30 APPENDIXB.SampleCalibrationReports TheresultsofanNBScalibrationarereportedtothecustomerinaform similartotheexamplesshowninthisappendix. Thereissomevariationin thewaythetestisconductedandtheresultsarereporteddependingonth... Open at page → 31 Page 31 U.S.DEPARTMENTOFCOMMERCE NATIONALBUREAUOFSTANDARDS GAITHERSBURG,MD20809 REPORTOFCALIBRATION PhaseMeter Model ,SerialNo. Submittedby P.0.box ThephasemeterwastestedinApril1987usingtheNBSPhaseAngleCalibration Standard.^ The... Open at page → 32 Page 32 PhaseMeter Model SerialNo. -2 - Thesystematicuncertainty inthevalueoftheNBSPhaseAngleStandard is estimated tobelessthan0.003degrees atthecurrents, voltages, and frequencies usedinthistest. Forthepresentdata,basedonreplic... Open at page → 33 Page 33 PhaseMeter Model SerialNo. -3 - ReferenceSignalVoltage: VariablePhaseSignalVoltage: Frequency: 30.00V 30,00V 60Hz CorrectedPhaseAngle:* x'= -0.019407+1.000251y TableofCorrectedPhaseAngles(x')inDegrees' OBSERVED PHASEANGL... Open at page → 34 Page 34 PhaseMeter Model SerialNo UnprocessedCalibrationDataforRange: ReferenceSignalVoltage: 30.00V VariablePhaseSignalVoltage: 30.00V Frequency: 60Hz NBSSTANDARD METERUNDERTEST NBSSTANDARD METERUNDERTEST (Degrees) (Degrees) (D... Open at page → 35 Page 35 PhaseMeter Model SerialNo. -5 - Appendix Thecalibrationofthisphasemeterprovidesanequationtocorrectthe readingobtainedfromthephasemetersothattheresultofthemeasurement willbecloseinagreementwiththecorresponding valuesuppli... Open at page → 36 Page 36 U.S.DEPARTMENTOFCOMMERCE NATIONALBUREAUOFSTANDARDS GAITHERSBURG,MD20899 REPORTOFCALIBRATION PhaseMeter Model ,SerialNo, Submittedby Street ThephasemeterwastestedinAugust 1982usingtheNBSPhaseAngle Calibration Standard.^ T... Open at page → 37 Page 37 PhaseMeter Model SerialNo. -2 - Thesystematicuncertainty inthevalueoftheNBSPhaseAngleStandard is estimated tobelessthan0.004degrees atthecurrents, voltages, and frequencies usedinthistest. Forthepresentdata,basedonreplic... Open at page → 38 Page 38 PhaseMeter Model SerialNo. -3 - ReferenceSignalVoltage: VariablePhaseSignalVoltage: Frequency: 5.00V 100.00V 60Hz Nocorrection isneededtobringtheobservedphaseanglereading into agreementwiththeNBSstandard. 722- -82 30 Open at page → 39 Page 39 PhaseMeter Model SerialNo. UnprocessedCalibrationDataforRange: ReferenceSignalVoltage: 5.00V VariablePhaseSignalVoltage: 100.00V Frequency: 60Hz NBSSTANDARD (Degrees) METERUNDERTEST (Degrees) NBSSTANDARD (Degrees) METERU... Open at page → 40 Page 40 PhaseMeter Model SerialNo. -5 - Appendix Thecalibrationofthisphasemeterprovidesanequationtocorrectthe readingobtainedfromthephasemetersothattheresultofthemeasurement willbecloseinagreementwiththecorresponding valuesuppli... Open at page → 41 Page 41 APPENDIXC ComputerProgramforPhaseMeterCalibration Acomputerprogramhasbeendeveloped toimplement theprocedures and calculationsgiveninthisNBSTechnicalNote. TheprogramsetstheNBSPhase Standardtothedesiredoperatingconditionsa... Open at page → 42 Page 42 Afterallthereadingsforonerangehavebeentaken,thedataarestored withthe"Save"selectionfromthemenu. Anoptionalerrorplotcanthenbe obtainedtocheckforoutliersorerrorsindataentry. Ifthedatai.eem satisfactory, the"Fit"optioncanbe... Open at page → 43 Page 43 o 4-) CD-M 03 S- a>J2 00 n3 (13 -M> fO o o -t-> o ^- -o fT3+-> ra -M-a U OJO) o O-l-> U00 +-> oo00 <D -Mo Q. M O)o 00u 00 o OO -M 4-><DU Cr—O) 1-JDS- S_n3 Q.-Mo u oo -MU 13-r- O-M 00 -M-r- C-M •r-fO S_+-> CLOO 00 -a OJ 2... Open at page → 44 Page 44 to MU :3 X o-M (/)-a -(-> c 4-> CD Q. s- -t-> Q. 10 C/1 4-> c o Oo 4-> QJu q; JD S- S- fO S- CL 4->o u c: o -M •r— +j o 4->u i_ zs OD cCLO Ol S- S-+J D. c +J S- o Q. CL re -l-> O) 4-> 00 tes S- o M- CU+-> S-^ 13O -l-J+->... Open at page → 45 Page 45 100 105 110 115 120 Thisprogramsetsthedateandtimeanddispatchestheuser fromthemainmenutothecalibrationroutines. JUL87 PhaseMeterCalibrationProgram 125ONKEY#1,"MENU"GOTO225 130OPTIONBASE1@INTEGERBl(100),B2(100) 135COMC$[60... Open at page → 46 Page 46 370 ! 375 !Editheader,ranges,auto-zerodata,testdata,andcheckdata. 380 ! 385CALL"EDITFI" (C$, A() ,Bl (),B2(),C (,) ,D(,),DO$,MO,N$, R(,) ,Sl$,T0$ ) 390SCRATCHSUB"EDITFI" ?GOTO225 395 ! 400 !Listrangeparameters. 405 ! 410... Open at page → 47 Page 47 635 ! 640 !Plotcheckdata. 645 ! 650CALL"PLOT" (C$,C( ,) ,R( ,) ,B2( ),R1,S1$,0,T0$,D0$ ) (3GOTO630 655 ! 660 !Savefile. 665 ! 670CALL"STORE" ( C$,A( ),R( ,),D( ,),C( ,),B1 (),B2( ),DO$,TO$ ) 675SCRATCHSUB"STORE" (3GOTO22... Open at page → 48 Page 48 VAR OCCURSINLINE Bl( ) 130 ,350 5385 ftJJ 625 130 ,320 1-JOJ 465495 ,n3J ,520,600 650,670 c$ 135,145,320,355 355,355 ,355 ,360 385,555,595,600 625,650,670 R (.)135,170,320,350 360,385,415,415 415,415,520,555 595,600,625,... Open at page → 49 Page 49 100SUB"A-ZERO"(A,R,D(,),F) 105 ! 110 !Thisprogramtakesauto-zerosamplestofindthespanand 115 !average. Atuser'srequestitwillrecordthespanand 120 !thelastcorrection. JUL87 125 ! 130 !INPUT:D(,)=data,F=flagtoskipinitialpromp... Open at page → 50 Page 50 100SUB"CHKRNG"(Z,A(),R(,)) 105 ! 110 !Thisprogramwilldeletethepresentrangeifitstest 115 !pointsoverflowthedataarrays. JUL87 120 ! 125OPTIONBASE 1 130Z=l@IFA(l)<=91THENSUBEXIT 135Z=0 (BA(1)=R(A(2),1) (3R( A(2),2),R(A(2),3... Open at page → 51 Page 51 100SUB"DATA"(D( ,),B( ),N$) !JUL87 105 ! 110 !Thisprogramdisplaysphaseangleandauto-zerodata. 115 ! 120N$="" (3OPTIONBASE l(aDIMM$[40] 125 ! 130 !Haveuserselectwhichdatatosee. 135 ! 140SARRAYM$@SLETM$(l) ="AngleData"@SLET... Open at page → 52 Page 52 355ONCGOTO360,345,185 360IFD(92,R)=0THENDISP (3DISP"NODATAAVAILABLEFORTHATRANGE"@WAIT2000 (3GOTO185 365CLEAR@DISPUSING370 ;R 370IMAGE /"Range",D,"Auto-ZeroData"//"Sample Span FinalCorn." // 375FOR 1=1TO4 (aDISPUSING380 ;... Open at page → 53 Page 53 100SUB"EDIT"(R(,),D(,),B(),N$,J) 105 ! 110 !Thisprogramallowstheusertochangerangesandtestand 115 !checkdata. JUL87 120 ! 125 !INPUT:J=ltoeditranges;J=2toeditdatapoints. 130 ! 135OPTIONBASE 1 140N=0 145ONJGOTO165,230 150... Open at page → 54 Page 54 VAR OCCURSINLINE R(.)100,300 D(,)100,340,340,340 345,350,360 B(,)100,340,345,345 360,360,365 N$ 100 J 100,145 N 140,230,230,235 245,245,340,340 340,340,345,345 345,350,350,360 360,360,365,365 X 165,170,210,210 235,240,27... Open at page → 55 Page 55 100SUB"EDITFI"(C$.A( ),B1 (),B2( ) .C( , ),D( ,),DO$,MO,N$,R( ,),S1$,T0$) !JUL87 105 ! 110 !Thisprogramdispatchescontroltotheroutinesthatallow 115 !theusertoedittestdataandinformation. JUL87 120 ! 125OPTIONBASE 1(9DIMM$[... Open at page → 56 Page 56 100SUB"ENTER" (R (,) ,D( ,),B1 () , S() ,N,K,A,B,X, Y,S,S1,S2,T1,T2,F1,R1 ) 105 "ENTER"computesfittedintercepta-hat,fittedslopeb-hat, standarddeviationofreadings s,goodnessoffitF',intercept teststatistic tlandslopetestst... Open at page → 57 Page 57 350 ! 355 !looptofindSSR 360 ! 365 !S(7)=SSR=^[y-(fitted y)]''2 370FORC=lTOL@RJ=C1(C) @FORI=R(R1,1)TOR(R1+1,1)-1 0FORJ=2TOB1(I)+1 375S(7)=S(7)+(FND(D(I ,J))-(A+B*D(I,1)))^2 0NEXTJ0NEXT I0NEXTC 380 ! 385 !computes,S(a-hat... Open at page → 58 Page 58 VAR OCCURSINLINE R(0 100,230,295,295 arrayofrangeparameters. (seemainprogram 335,335,370,370 xref ) D (,) 100 ,300,300,300 testorcheckdata. (seemainprogramxref) 300,340,340,340 345,345,375,375 Bl( ) 100,295,335,370 , rea... Open at page → 59 Page 59 100SUB"FIT"(C$.R(,),D(,),B1(),S1$,T0$,D0$,H1) 105 ! 110 !Thisprogramdispatchescontroltovariousprogramsthat 115 !analyzedata. JUL87 120 ! 125OPTIONBASE 1 !JUL07-87 130SCRATCHSUB"READAT" 135SCRATCHSUB"ENTER" 140DIMS(10) 14... Open at page → 60 Page 60 350 ! 355 !Printalldata. 360 ! 365DISP"Pleasewait..." (aGOSUB420 370CALL"PDATA" ( R( ,),D( ,),B1( ),A,B,R1 ) 375SCRATCHSUB"PDATA" 380GOTO170 385 ! 390 !Printtheheader. 395 ! 400GOSUB420 (9GOTO170 405 ! 410 !Routinetoprin... Open at page → 61 Page 61 100SUB"F_TABL"(A,V1,V2,F) 105 ThisprogramcalculatestheF-statisticthrough abinary searchoftablevaluesfiguredintheINVFprogram.JUL87 150 160 165 170 175 110 115 120 125 130 135 140 145F1,F2=1 INPUT:A=upperpercentpoints; VI,... Open at page → 62 Page 62 100SUB"GET_DATA" (R,B1 (),B2( ),T1,A1,A2,A3,F2,F3,I2$,I3$,P2,P3,S1$,D0$,Z) 105 ! 110 !"GET_DATA"initializes thestandardphasemetertoagiven 115 !range,optionallyrecordsauto-zerosampledata,automatically 120 !selectsandsetst... Open at page → 63 Page 63 350 !thelastangle. Iisthetestpointofthatreading. 355 I=IP(S1*RND)+R(A(2),1) (3IFB1(I)>S2THEN355 360IF1=11THEN355ELSE11=1 365 ! 370 !Showthepresenttestpoint. 375 ! 380PRINTUSING390 ; I,B1( I) ,D( 1 , 1) ,A(4) 385CLEAR (3D... Open at page → 64 Page 64 605D(I,8)=Q/B1(I) @GOTO730 610ONRGOTO615,575,720 615Q=D3 (3GOSUB7600ONYGOTO575,635,720 620 ! 625 !Storecheckreadingandnewaverage,andupdatereadingcount. 630 ! 635C(I,B2(I)+2)=D3 (3Q=0 640FORK=2TO7@Q=Q+FND(C( I,K))@NEXTK 6... Open at page → 65 Page 65 VAR OCCURSINLINE R 100.175,240,500 no.ofrangetofill 510,575,610 Bl(.) 100,300,355,380 no.ofreadingsateachpointoftestmeter 385,535,545,545 545,590,590,590 595,605 B2(.) 100 645 ,635,645,645 no.ofreadingsateachpointofcheck... Open at page → 66 Page 66 100SUB"GET_PARAMS" (R, A(),T1,T0$ ,Al,A2,A3,F2,F3,12$,I3$,P2,P3) 105 Thisprogrampromptstheuserfortheparametersneeded toconduct atestandtakedata. JUL87 INPUT:TO$()=testandcheckmeterinfo;OUTPUT:R,A(2)=range tofill;A(3)=rea... Open at page → 67 Page 67 355 !InitializeFLAGs. 2and3aredescribedatthebeginningof 360 !thisprogram. 4willbesetbyendofprompts ifadditions 365 !aremadetothemeterinfofile. 370CFLAG2@CFLAG3@CFLAG4 372A2,A,M,P=0 375F=2@I$="TEST" &GOSUB430@A2=A@F2=M0I2... Open at page → 68 Page 68 VAR OCCURSINLINE R 100,190,195,210 A ( )100,190,200,200 210,210,210,220 230 Tl 100,240,245,250 250,250 T0$ 100,470,470,530 535 Al 100,345,345,350 350,3^0,350,460 A2 100,372,375,460 A3 100,385 F2 100,375 F3 100,385 12$ 10... Open at page → 69 Page 69 100SUB"GETRNG" (A{ ),C (,),D (,) , R(,) ,Bl () ,B2() ) 105 Thisprograminitializes rangesandidealreadingsfor theirdata. AUG87 Determinerangetosetup. 110 115 120 125 130 135OPTIONBASE 1 140 ! 145 !Findafreerange,ifany. 150... Open at page → 70 Page 70 350 ! 355 !Automatically setidealreadings. 360 ! 365FORN=STOESTEP I0D(A(1),1)=S @C(A(1),1)=S (3S=S+I 370A(1)=A(1)+1 @R(A(2)+1,1)=A(1) @NEXTN0GOTO440 375 ! 380 !Manuallysetidealreadings. 385 ! 390CLEAR@DISP"Enterphaseangl... Open at page → 71 Page 71 VAR OCCURSINLINE A ( ) 100,150,150,155 160,160,160,165 165,175,190,205 205,205,230,230 265,300,300,300 300,300,345,345 365,365,370,370 370,370,395,400 400,410,410,415 415,415,415,435 c(.) 100,240,365,410 D(,)100,240,365,... Open at page → 72 Page 72 100SUB"HEADER"(C$,S1$,R1,R( ,),N0,N1,MO,TO$,DO$) 105 ! 110 !Thisprogramhandlesallheaderinteraction. Onentry, 115 !N0=1toeditthetestmeterheader, 2toeditthecheck 120 !meterheader,and3toprinttheexistingheaders. AUG87 125 !... Open at page → 73 Page 73 355 !Gettheserial#. 360Z$=GET$(T0$(I+3)) (3GOSUB510 (aCALL"QUERY" (GET$(P$(4))&GET$(P$(3) ),R,Z,T 9$ ) 365ONRGOTO370,215,375 370SLETT0$(I+3) =T9$ (3GOTO215 375M0=10SUBEXIT 380M0=0 (aSUBEXIT 385 ! 390 !Printtheheader. 395... Open at page → 74 Page 74 VAR OCCURSINLINE C$ 100 ,225,225,255 270280,290,420 Sl$ 100210,410 Rl 100 ,465,465,480 485 ,490,490,490 R (,)100 ,480,485,490 490 ,490 NO 100 ,170 Nl 100 ,400 MO 100 ,375,380 T0$ 100 ,240,320,330 340 ,350,360,370 425430,... Open at page → 75 Page 75 100SUB"INITAR" (A( ) ,Bl () ,B2(),C (,),D (,),R( ,) ,T0$ ) 105 1 110 !Thisprograminitializes alldataarraystozero. JUL87 115 ! 120OPTIONBASE 1(3CLEAR (aDISP"Program isbeinginitialized." 125FOR1=1TO6@SLETTO$(I) = "" @NEXT... Open at page → 76 Page 76 360SUB"INV_F"(F,V1,V2,P) 361 ! 362 !Thisprogramcalculatestheupper%pointsfortheF 363 !statistic FwithdegreesoffreedomVIinthenumerator 364 !andV2inthedenominator. 365X=1/(V1/V2*F+1) @Y=l-X@P1,P2=10U1=V1 (?U2=V2 370IFVIMOD2... Open at page → 77 Page 77 VAR OCCURSINLINE Fstatistic degreesoffreedominnumerator degreesoffreedomindenominator upperpercentagepoints 435,440 Ul 365,390,390,390 U2 365,380,380,380 430,435,435,435 z 380,380,380,390 390,390,410,410 410,410,425,425... Open at page → 78 Page 78 100SUB"INV_T"(F,T,P) 105 ! 110 !ThisprogramcalculatestheStudent's TstatisticforP 115 !%pointswithFdegreesoffreedom. 120 ! 125 !fromTECHNOMETRICS Vol.8,No.2,May1964,"Approximation 130 !totheCumulativet-Distribution"byC.Y.... Open at page → 79 Page 79 100SUB"LOAD"(C$,A(),R(,),D(,),C(,),B1(),B2(),D0$,T0$) 105 ! 110 !Haveuserselect atesttoloadandthenloadit.AUG87 115 ! 120OPTIONBASE10Q$=".CALDAT" 0DIML(16),S$[30],T$[960] 1251=0 130 ! 135 !Allowusertosearchtestsforspecifi... Open at page → 80 Page 80 VAR OCCURS I^1LINE C$ 100,295 testinfofromTOC(seemainprogramxref) A ( ) 100,285 testinfoarray(seemainprogramxref) R (.) 100,285 rangeparameters (seemainprogramxref) D(,)100,285 testmeterdata,(seemainprogramxref) c(,)100,... Open at page → 81 Page 81 100SUB"MENU"(R,A$,P) 105 ! 110 !Thisprogramhastheuserselectanoptionfromamong a 115 !listofoptions. JUL87 120 ! 125DIML$[10] 130 ! 135 !Showthemenu. 140 ! 145ALPHA 1 (9CLEAR@P=0@K0=0 150FOR1=1TOR 155DISPUSING"10X,15A" ;GE... Open at page → 82 Page 82 100SUB"PDATA" (R( ,),D( ,),B1 (),A,B,R1 ) 105 ! 110 !Thisprogramprintsrawdatatotheinternalprinter. 115 ! 120OPTIONBASE 1 125PRINT (aPRINT " (I) Y(I) YHATRESIDUALS" 130PRINT"DEGREESDEGREESDEGREESMILLIDEG" 135PRINT 140FORI... Open at page → 83 Page 83 100SUB"PGHEAD"(T0$) !JUL87 105 ! 110 !ThisprogramprintsthepageheadingtotheQumeprinter. 115 ! 120OPTIONBASE1?T=13@CONTROL10,3 ;150PRINTERIS10,92 125CLEAR (aCALL"QUERY" ("Enterpagenumber. ",R,P,Z$ ) 130ONRGOTO135,125,155 1... Open at page → 84 Page 84 100SUB"PLOT"(C$,D(,),R(,),B(),R1,S1$,N1,T0$,D0$) 105 ! 110 !Thisprogramgraphsdataforvisualanalysis. JUL87 115 ! 120OPTIONBASE 1 125DIMM2$[100] 130SARRAYM2$ 135 ! 140 !Haveuserselectmethodofgraphing. 145 ! 150ALPHA 1@CLEA... Open at page → 85 Page 85 375NEXTA 380FORY=-(.8*C1) TO.8*C1STEP.2*C1 385IFY=0ORY=.2*C1THEN395 390MOVE20,Y-.05*C1 0LDIR0 (3LABELVAL$(Y) 395NEXTY 400 ! 405 !Graphaveragereadings. 410 ! 415IFFLAG(44)THEN460 420FORI=R(R1,1)TOR(R1+1,1)-1 425X=D(I,1)-1... Open at page → 86 Page 86 VAR OCCURSINLINE c$ 100,580 D(,)100,425,425,425 470,470470470 470535535 R ( )100 ,305,420 ,420 460,460,530,530 580 100,465 Rl 100 ,240,245,245 300,300,305,420 420,460,460 ,530 530,580 $1$ 100,580 Nl 100,580 T0$ 100,580 D... Open at page → 87 Page 87 100SUB"QUERY"(Q$,R,N,I$) !JUL87 105OPTIONBASE 1(3DIMT$[30] 110LINPUTQ$,T$ (3IFT$= "" THENR=20SUBEXIT 115IFT$[1,1]=CHR$(128) THENR=3(3SUBEXIT 120ONERRORGOTO125 (3N=VAL(T$) 125OFFERROR (3R=l@I$=T$@SUBEND VAR OCCURSINLINE Q... Open at page → 88 Page 88 100SUB"RANGE"(R(,)) 105 ! 110 !Thisprogramdisplaythelistofranges. 115 ! 120OPTIONBASE 1 125DISP"RANGER(,)" (aDISP 130FORA=lTO8 135DISPUSING140 ;A,R(A, 1) , R (A,2) ,R(A,3) ,R(A,4) 140IMAGE3D,2X,3D,2X,3D.D,2X,3D.D,2X,5D 1... Open at page → 89 Page 89 100SUB"REG"(A,B) !FEB13-86 105 ! 110 !Printestimatedfitforanglesatregularintervals. JUL87 115 ! 120OPTIONBASE 1 125 ! 130 !Promptuserforparameters. 135 ! 140CLEAR@CALL"QUERY" ("Enterstartingphaseangle. ",R,S9,Z$ ) 145ONR... Open at page → 90 Page 90 CalibrationReportProgram Thisprogramdisplaysthemainmenuanddispatchescontrol tothevariousreportprintingroutines. AUG87 100 105 110 115 120 125OPTIONBASE10INTEGERBl(100),B2(100) 130COMR(10,4),C(100,8),D(100,8),A(5),T0$[100... Open at page → 91 Page 91 380 ! 385 !Printthelistofaveragereadingsforeachtestpoint. 390 ! 395GOSUB530 (aCALL"RPTAVG" ( R( ,) ,D( ,) ,M( ),R5,R1,L ) 400SCRATCHSUB"RPTAVG"@GOTO480 405 ! 410 !Printthelistofalltestmeterreadingsthatweretaken. 415 ! 42... Open at page → 92 Page 92 VAR OCCURSINLINE Bl() 125 550 ,230,305,420 B2() 125,230,305 R(,)130,230,305,375 395 550 ,420,450,510 c(,)130,230,305 D(,)130,230,305,395 420,550 A ( )130,230,305 T0$ 130 350 ,155 ,530 ,230,305 C$ 135,230,240,255 295,295,... Open at page → 93 Page 93 100SUB"RPTAPP" (R(,),S(),N,K,A,B,X,Y,S,S1,S2,T1,T2,F1,R1,L) 105 ! 110 !Thisprogramprintsthestatistical infoofthe,calibration , 115 !whichformstheappendixinthetestreport. JUL87 120 ! 125OPTIONBASE1?CONTROL10,3 ;150PRINTER... Open at page → 94 Page 94 305IMAGE12X,"Lacl<-of-fit",24X,"F'=",DZ.3D 310IMAGE12X,"Significance 1evel " ,5A,19X, " ( ",Z.3D, " ) " 315IMAGE17X,"withoutcorrections",8X, " (x '=y)",12X,3DZ.3D,6X,9A 320IMAGE17X,"with aconstantcorrection (x'=y",A,DZ.3... Open at page → 95 Page 95 VAR OCCURS I^ 1TMC LINE R (.) inn lUU s ( ) 100 O "7C ,2/b O "7 fT ,275 OOA ,280 N 100 ,245 ,245 of"r~ ,255 K 100 occ ,255 A A 100 o0n ,240 B 100 O0c ,Jb ,^40 X 100 o7n O "7C ,2/5 Y 100 O "7C ,Z/b S 100 ,2bb,255 SI 100 o... Open at page → 96 Page 96 100SUB"RPTAVG" (R( ,),D( , ),M( ),R5,R1,L) !July1987 105 ! 110 !Thisprogramprintstheaveragereadingsforeachtest 115 !point. JUL87 120 ! 125OPTIONBASE 1 130 ! 135 !Thisfunctionrounds Xtothethousandths place. 140 ! 145DEFFN... Open at page → 97 Page 97 100SUB"RPTFIT" (R( ,) , S{ ),R1.A,B,L ) 105 ! 110 !Thisprogramprints alistoffittedanglesforangles 115 !readonthemeter. JUL87 120 ! 125OPTIONBASE 1 130 ! 135 !Queryuserfornecessityoffit. 140 ! 145CLEAR (3DISP"LimitstoOffs... Open at page → 98 Page 98 355PRINTUSING360 ;I,Y1,I+D1,Y2 (3GOTO400 360IMAGE24DZ.3D,10DZ.3D,16DZ.3D,10DZ.3D 365ONDGOTO370,380,390 370PRINTUSING375 ;I,Y1 (aGOTO400 375IMAGE25DZ.D ,1IDZ.2D 380PRINTUSING385 ;I,Y1@GOTO400 385IMAGE24DZ.2D,IIDZ.3D 390PR... Open at page → 99 Page 99 VAR OCCURSINLINE R {.)100 ,475 rangeparameters (seemainprogramxref) s ( )100 ,145,145,145 intermediate suras(seeENTERxref) Rl 100 ,475 rangeno. A 100 ,250,260,320 a(fittedy-intercept) 325 B 100 ,250,255,260 b(fittedslope... Open at page → 100 Page 100 100SUB"RPTRAW" (R( ,),D( ,),B1 (),R1,L ) 105 ! 110 !Thisprogramprintsatableofallthereadingsina 115 !givenrange.JUL87 120 ! 125OPTIONBASE 1 130 ! 135 !Promptuserforinfoaboutthistable. 140 ! 145CLEAR0CALL"QUERY" ("Enterran... Open at page → 101 Page 101 355PRINTUSING360 ;D(K1 , 1),D(Kl ,Jl)@GOTO375 360IMAGE22DZ.3D,12DZ.2D 365PRINTUSING370 ;D(Kl,1) , D (Kl ,J 1 ) (3GOTO375 370IMAGE22DZ.3D,12DZ.3D 375NEXT I 380 ! 385L=L+19 390SUBEND VAR OCCURSINLINE R (.) 100,195,230 D(.)... Open at page → 102 Page 102 100SUB"RPTRNG"(R(,),R1) 105OPTIONBASE 1 110Tl$= "Voltage: " @T2$="Current: " (aT3$=T1$ 115Ul$="V" (3U2$="A" (3U3$=U1$ 120IFR(R1,2)<0THENT1$=T2$ (PU1$=U2$ 125IFR(R1,3)>0THENT2$=T3$ (9U2$=U3$ 130T3$="Frequency :" (aU3$="Hz... Open at page → 103 Page 103 100SUB"SEL"(A,B) 105 ! 110 !Thisprogramprintsthefittedanglesforselectedtest 115 !meterangles. JUL87 120 ! 125OPTIONBASE 1 130 ! 135 !Printthetableheader. 140 ! 145PRINT0PRINT " OBSERVED CORRECTED" 150PRINT " DEGREES DEGR... Open at page → 104 Page 104 100SUB"SELECT"(I,N,L(),T$) 105 ! 110 !ThisprogramhastheuserselectatestfromtheTOC. 115 !AUG87 120 ! 125OPTIONBASE 1 130 ! 135 !Clearall4screens. 140 ! 145FOR 1=1TO49STEP160OFFCURSOR@ALPHA I (3CLEAR (3NEXT I@ALPHA 1@CR TOF... Open at page → 105 Page 105 VAR OCCURSINLINE I 100 ,145,145,145 200,205,240,240 245,245,250,270 270,275,275,280 285,310 N 100,165,245,275 100,170 T$ 100,170,170,170 170 p 165,170,170,170 170,170,170,170 170,170,180 K$ 200,210,220 K 210,220 Q 285,28... Open at page → 106 Page 106 100SUB"STAT"(S(),N,K,A,B,X,Y,S,S1,S2,T,T1,T2,F,F1,0) 105 "STAT"determinestheapplicability ofthelinearmodel, determinesthesignificance ofdifferences betweenfitted andstandardinterceptsandslopes,determinesthelimit totheoff... Open at page → 107 Page 107 380 ! 385 !calculatelimittooffsetateachlevel 390 ! 395CALL"F_TABL" (.05,2,N-2,F2 )0SCRATCHSUB"F_TABL" 400 !nocorrection 405L1=FNL(0) 410 !constantcorrection 415L2=FNL(X-Y) 420 !fullcorrection 425Q,L3=0 430FOR1=1TO4 435L=... Open at page → 108 Page 108 VAR OCCURSINLINE s ( ) 100,320,450,450 intermediate sums(seeENTERxref) 450,540,540,540 N 100,210 ,245,320 nk(seeENTERxref) 395,505,505,515 530 ,550 K 100,210,210 ,505 k(no.oftestpointsinrange) 505,550,550 A 100 ,360,49b... Open at page → 109 Page 109 100SUB"STORE"(C$,A( ),R( ,),D( ,),C( ,),B1 (),B2( ),DO$,TO$) 105 ! 110 !Thisprogramsavesdataandupdatesthetableofcontents(TOC). AUG87 115 ! 120OPTIONBASE 1(9DIML(16),T$[960] 125C$[31,40]=D0$ @C$[41,50]=GET$(T0${3)) (3Ql$=... Open at page → 110 Page 110 360 ! 365 !Makeroomfortestinalphabetical index. 370 ! 375FORP=lTO841STEP60 (3IFC$[l,50]<T$[P,P+49]ORT$[P,P+3]=" " THEN385 380NEXTP 385FORJ=841TOPSTEP-60 (a I= INT(J/60)+1PL(I+1)=L(I) 390T$[J+60,J+119]=T$[J] @NEXTJ 395 !... Open at page → 111 Page 111 VAK OCCURSIN 1TMC rt c$ lUU 1OK Idb 1oc ,1bU 1cn 1cn ,IbU onn ,dUU 071; ,J/b 4jU A ( j 1UU /I/In 44U R (.j iUU , /I/In 44U D (, ) iUU ,44U 1nn iUU J /I/in 44U D1/ \ Dl ( j 1nn IUU J /14n 44U DO/ \ I ) 1nn IUU ] /I/In 44U... Open at page → 112 Page 112 100SUB"TALK"(A,D$,Q) 105 ThisprogramisthesoftwareinterfacebetweentheHPand thestandard. JUL87 INPUT:A=busaddress,D$=keysequence,Q=no.ofqueries; OUTPUT:D$=lastENTERedinfo,Q=-lifsuccessful. ONINTRtellsHPwheretogowhenstandar... Open at page → 113 Page 113 VAR OCCURSINLINE A 100,210,280,285 addressofphasestandard 290 D$ 100,210,230 instructionstringforstandard Q 100,230,230,230 no.ofqueriestoENTER 1$ 155,185,230,290 stringENTERedfromstandard 290 105 Open at page → 114 Page 114 100SUB"YESNO" (R) 105 ! 110 !Thisprogramhastheuserselect'yes'or'no'byacting 115 !onkeysYandN.JUL87 120 ! 125OPTIONBASE10OFFCURSOR (3ONKYBDK,"YyNn"SCHR$(128)GOTO135 130GOTO130 135OFFKYBD 140R=P0S("YN"&CHR$(128)&"yn",CHR$(... Open at page → 115 Page 115 100SUB"ZERO"(Z$,I1,J1,A(,)) 105 ! 110 !ThisprogramzerosA(ltoII, 1toJl).JUL87 115 ! 120OPTIONBASE1@DISP "zeroing";Z$ 125FOR 1=1TOII (3IFNOT(IMOD10)THENBEEP20,2 130FORJ=lTOJl-3STEP4 (?A(I,J ) ,A( I,J+ 1),A(I,J+2) ,A( I,J+3... Open at page → 116 Page 116 NBS-n4A(REV.2-8C) U.S.DEPT.OFCOMM. BIBLIOGRAPHICDATA SHEET(Seeinstructions) 1.PUBLICATIONOR REPORTNO. NBS/SP-250/26 2.PerformingOrgan.ReportNo 3.PublicationDate May1988 4.TITLEANDSUBTITLE NBSMEASUREMENTSERVICES: NBSPhase... Open at page → 117 Page 117 THESP250SERIESONNBSMEASUREMENTSERVICES* SP250-1 SpectralRadianceCalibrations SN003-003-02792-6 $3.50 SP250-2 FarUltravioletDetectorStandards SN003-003-0281(H) $4.25 SP250-3 RadiometricStandardsIntheVacuum Ultraviolet SN0... Open at page → 118 Page 118 U.S.DepartmentofCommerce NationalBureauofStandards Gaithersburg,MD20899 OfficialBusiness PenaltyforPrivateUse$300 StimulatingAmericasProgress 1913-1988 Open at page →