|
|
Programming a Code Domain Measurement
Last updated: January 16, 2009
This section provides examples of how to make code domain measurements via GPIB.
The basic procedure is as follows:
-
Set the code domain setup parameters as desired using the SETup:WCDomain commands.
-
Use the INITiate:WCDomain command to start the measurement.
-
Use FETCh:WCDomain? queries to obtain the measurement results.
General Code Domain Programming Example
The following program example assumes that the mobile station's (UE's) antenna output is connected to the RF IN/OUT connector, and that the mobile station is synchronized to the test set and is transmitting an uplink signal.
10 ! Set trigger mode to single for the Code Domain measurement
20 OUTPUT 714;"SETup:WCDomain:CONTinuous OFF"
30 ! Set a timout value of 5 seconds and enable the timeout state
40 OUTPUT 714;"SETup:WCDomain:TIMeout 5"
50 ! Set the trigger source to automatically select the appropriate
60 ! trigger
70 OUTPUT 714;"SETup:WCDomain:TRIGger:SOURce AUTO"
80 ! Set the timeslot to be measured
90 OUTPUT 714;"SETup:WCDomain:TSLot 7"
100 ! Initiate the Code Domain measurement
110 OUTPUT 714;"INITiate:WCDomain"
120 ! Fetch the integrity indicator and the results of the measurement
130 OUTPUT 714;"FETCh:WCDomain:INTegrity?;BETas?"
140 ENTER 714;Integrity,Bc1,Bd1,Bd2,Bd3,Bd4,Bd4,Bd5
150 ! Check the integrity indicator to ensure the results are valid
160 IF Integrity<>0 THEN
170 PRINT "Measurement failed."
180 ELSE
190 ! Process the measurement results.
200 END IF
210 END
-
Integrity
stores the returned integrity indicator value (see
Integrity Indicator
); 0 means a successful measurement with no errors.
-
Bc1
returns the relative amplitude level for the DPCCH (bc).
-
Bd1
returns the relative amplitude level for the DPDCH (bd1).
-
Bd2
-
Bd6
returns "NAN" (Not A Number). These are reserved for use in the future.
Program Example: 5.2D UE Relative Code Domain Power Accuracy for HS-DPCCH and E-DCH
This section is only applicable to the lab application or feature-licensed test application.
This procedure conforms to 34.121 v7.5.0 plus CR R5-072417.
10 ! Code Domain Power Programming Example
20 ! 3GPP TS 34.121 5.2D UE RCDPA for HS-DPCCH and E-DCH
30 !
40 Testset=714
50 OUTPUT Testset;"*RST"! Full preset the test set
60 CLEAR SCREEN
70 PRINT "3GPP TS 34.121 5.2D UE RCDPA for HS-DPCCH and E-DCH"
80 PRINT
90 !
100 ! *** Set Up Connection Parameters ***
110 !
120 OUTPUT Testset;"CALL:OPERating:MODE OFF"! Operating Mode = Cell Off
130 OUTPUT Testset;"CALL:CELL:RLC:REEStablish OFF"! RLC Reestablish
140 OUTPUT Testset;"CALL:PSDomain PRESent"! PS Domain Information
150 OUTPUT Testset;"CALL:CHANnel 10700"! DL Chan mid range freq (Band I IMT-2000)
160 !
170 ! *** Set Up Test Parameters ***
180 !
190 OUTPUT Testset;"CALL:UPLink:DPCHannel:BETA:AUTO 0"! Manual beta control
200 OUTPUT Testset;"CALL:UPLink:DPCHannel:MANual:CBETa 11"! Betac=11/15 (sub-test 1)
210 OUTPUT Testset;"CALL:UPLink:DPCHannel:MANual:DBETa 15"! Betad=15/15 (sub-test 1)
220 OUTPUT Testset;"CALL:UPLink:TXPower:LEVel:MAXimum 21"! Max UL Transmit Power Lvl
230 OUTPUT Testset;"CALL:POWer -86" ! Cell Power
240 OUTPUT Testset;"CALL:SERVice:RBTest:RAB HSParmc12" ! Channel Type
250 OUTPUT Testset;"CALL:CONNected:CPIChannel:HSPA -10" ! CPICH Level
260 OUTPUT Testset;"CALL:CONNected:CCPChannel:PRIMary:HSPA -12"! P-CCPCH/SCH Level
270 OUTPUT Testset;"CALL:CONNected:PICHannel:HSPA -15" ! PICH Level
280 OUTPUT Testset;"CALL:CONNected:DPCHannel:HSPA -10" ! DPCH Level
290 OUTPUT Testset;"CALL:CONNected:EAGChannel -20" ! E-AGCH Level
300 OUTPUT Testset;"CALL:CONNected:EHIChannel -20" ! E-HICH Level
310 OUTPUT Testset;"CALL:CONNected:ERGChannel:STATe OFF" ! E-RGCH State
320 OUTPUT Testset;"CALL:CONNected:HSPDschannel:HSPA -3" ! HS-PDSCHs Level
330 OUTPUT Testset;"CALL:CONNected:HSSCchannel:HSPA -8" ! HS-SCCH 1 Level
340 OUTPUT Testset;"CALL:HSUPa:SERVice:RBTest:RLCSdu:SIZE BITS2936"! E-DCH RLC SDU Size
350 OUTPUT Testset;"CALL:HSUPa:EDPCchannel:POFFset 6"! E-DPCCH/DPCH PO (sub-test 1)
360 OUTPUT Testset;"CALL:HSUPa:ETFCi:POFFsets:REFerence DEF3412101"! Ref E-TFCI POs
370 OUTPUT Testset;"CALL:HSUPa:SGRant:ABSolute:RBSetup INDex26"! RB Setup AG (sub-test 1)
380 OUTPUT Testset;"CALL:HSUPa:SGRant:ABSolute:PATTern:VALue INDex20"! (sub-test 1)
390 OUTPUT Testset;"CALL:HSUPa:SGRant:ABSolute:PATTern:VALue2 ZGRant"! Zero Grant
400 OUTPUT Testset;"CALL:HSUPa:SGRant:ABSolute:MODE SSHot"! Single Shot AG Mode
410 OUTPUT Testset;"CALL:HSDPa:SERVice:RBTest:HSDSchannel:CONFig FRC"! HS-DSCH Config
420 OUTPUT Testset;"CALL:HSDPa:SERVice:RBTest:FRC:TYPE QPSK1" ! FRC Type
430 OUTPUT Testset;"CALL:HSDPa:MACHs:NTRans 4" ! Number of Trans
440 OUTPUT Testset;"CALL:HSDPa:MACHs:RVSequence `0,2,5,6,0,0,0,0'"! RV Sequence
450 OUTPUT Testset;"CALL:HSDPa:UPLink:DACK 8" ! DeltaACK=30/15
460 OUTPUT Testset;"CALL:HSDPa:UPLink:DNACK 8" ! DeltaNACK=30/15
470 OUTPUT Testset;"CALL:HSDPa:UPLink:DCQI 8" ! DeltaCQI=30/15
480 OUTPUT Testset;"CALL:HSDPa:UPLink:ANACk:RFACtor 3"! Ack-Nack Repetition Factor
490 OUTPUT Testset;"CALL:HSDPa:UPLink:CQI:FCYCle 4 MS" ! CQI Feedback Cycle
500 OUTPUT Testset;"CALL:HSDPa:UPLink:CQI:RFACtor 2" ! CQI Repetition Factor
510 OUTPUT Testset;"CALL:CELL:CLPControl:UPLink:ALGorithm ALG2"! UL CL Power Ctrl Alg
520 OUTPUT Testset;"CALL:OPERating:MODE CALL"! Operating Mode = Active Cell
530 !
540 ! *** Make a Connection ***
550 !
560 BEEP
570 PRINT "Power on the UE, wait for it to register/attach, then Originate a call"
580 PRINT "If HSUPA Throughput = 0 kbps, send the appropriate Single Shot AG for"
590 PRINT "your sub-test (20: (119/15)^2 for sub-test 1)"
600 PRINT
610 PRINT "Press F2 to continue"
620 PRINT
630 PAUSE
640 !
650 ! *** Drive the UE to Max Power ***
660 !
670 ! Set UE Target Power to drive UE power to 6 dB below max power, wait 150 ms
680 OUTPUT Testset;"CALL:CLPControl:UPLink:MODE ACTive"! Active bits power control
690 OUTPUT Testset;"CALL:MS:POwer:TARGet 4"! UE Target Pow (sub-test 1, power class 3)
700 WAIT .15
710 OUTPUT Testset;"CALL:CLPControl:UPLink:MODE UDOW"! Alternating bits power control
720 !
730 ! Use Channel Power to confirm proper starting power
740 OUTPUT Testset;"SETup:WCPower:POWer:RANGe:OFFSet:MANual 14"
750 ! Manual Power Range Offset = 14 dB for sub-test 1
760 OUTPUT Testset;"READ:WCPower?"! INITiate and FETCh Channel Power
770 ENTER Testset;Integrity,Chanpow
780 BEEP
790 PRINT USING " ""Starting Channel Power (dBm) = "",2D.1D ";Chanpow
800 PRINT "If starting Channel Power is greater than 18 dBm (power class 3),"
810 PRINT "send down power control bit(s) as needed."
820 PRINT
830 PRINT "Press F2 to continue."
840 PRINT
850 PAUSE
860 !
870 ! Determine starting E-TFCI
880 OUTPUT Testset;"CALL:STATus:ETFCi?"! Last Received E-TFCI
890 ENTER Testset;Lastetfci
900 PRINT "Initial E-TFCI = ";Lastetfci
910 PRINT "(Target E-TFCI is 75 for sub-test 1)"
920 PRINT
930 !
940 ! Dimension array for E-TFCI results and set record number to 15
950 DIM Etfci(49)
960 OUTPUT Testset;"CALL:HSUPa:ETFCi:RECord:COUNt 15"! E-TFCI Rec Count
970 !
980 ! Send step up TPC bit and record 150 ms of E-TFCI results
990 PRINT "E-TFCI values after step up bit(s): "
1000 LOOP
1010 OUTPUT Testset;"CALL:CLPControl:UPLink:UP"! Send step up TPC bit
1020 GOSUB Recordetfci
1030 !
1040 ! Determine if UE sent a decreased E-TFCI
1050 GOSUB Decreasedetfci
1060 EXIT IF Etfcicheck=1! Exit loop once UE reports a decreased E-TFCI
1070 END LOOP
1080 !
1090 ! Send step down TPC bit and record 150 ms of E-TFCI results
1100 PRINT "E-TFCI values after first step down bit: "
1110 OUTPUT Testset;"CALL:CLPControl:UPLink:DOWN"! Send step down TPC bit
1120 GOSUB Recordetfci
1130 !
1140 ! Determine if UE sent a decreased E-TFCI
1150 GOSUB Decreasedetfci
1160 IF Etfcicheck=1 THEN ! If a decrease E-TFCI occurred, send another down TPC bit
1170 OUTPUT Testset;"CALL:CLPControl:UPLink:DOWN"! Send step down TPC bit
1180 GOSUB Recordetfci
1190 PRINT
1200 PRINT "E-TFCI values after second step down bit: "
1210 FOR N=0 TO 14
1220 PRINT Etfci(N);
1230 NEXT N
1240 PRINT
1250 PRINT
1260 END IF
1270 !
1280 ! Determine if E-TFCI matches target E-TFCI
1290 Targetetfci=75! (sub-test 1)
1300 PRINT "Target E-TFCI =";Targetetfci
1310 Etfcipass=1! UE will pass unless array values don't match target E-TFCI
1320 FOR N=0 TO 14
1330 IF Etfci(N)<>Targetetfci THEN Etfcipass=0
1340 NEXT N
1350 IF Etfcipass=0 THEN ! If any E-TFCI doesn't match target E-TFCI, UE fails
1360 PRINT "Recorded E-TFCI does not match the Target E-TFCI of 75 for sub-test 1"
1370 STOP
1380 END IF
1390 PRINT "E-TFCI matches Target E-TFCI"
1400 PRINT
1410 !
1420 ! *** INITiate and FETCh Measurements ***
1430 DIM Rcdpai(255)
1440 DIM Rcdpaq(255)
1450 DIM Ncdpi(255)
1460 DIM Ncdpq(255)
1470 OUTPUT Testset;"CALL:HSUPa:SGRant:ABSolute:MODE PATTern"
1480 ! Start Absolute Grant pattern
1490 OUTPUT Testset;"SETup:WCDomain:TRIGger:SOURce EFRame"! Even Frame Trigger Source
1500 OUTPUT Testset;"SETup:WCDomain:TSLot 14"! (Measurement point 1)
1510 OUTPUT Testset;"SETup:WCDomain:TRIGger:ALIGnment:SFNumber ODD"! (Meas point 1)
1520 OUTPUT Testset;"INITiate:WCDomain"! INITiate Code Domain Power
1530 OUTPUT Testset;"FETCh:WCDomain:INTegrity?"! Integrity Indicator
1540 ENTER Testset;Integrity
1550 OUTPUT Testset;"FETCh:WCDomain:POWer:NOMinal:ICHannel?"!NCDP I chan
1560 ENTER Testset;Ncdpi(*)
1570 OUTPUT Testset;"FETCh:WCDomain:POWer:NOMinal:QCHannel?"!NCDP Q chan
1580 ENTER Testset;Ncdpq(*)
1590 OUTPUT Testset;"FETCh:WCDomain:POWer:RELative:ACCuracy:ICHannel?"!RCDPA I chan
1600 ENTER Testset;Rcdpai(*)
1610 OUTPUT Testset;"FETCh:WCDomain:POWer:RELative:ACCuracy:QCHannel?"!RCDPA Q chan
1620 ENTER Testset;Rcdpaq(*)
1630 !
1640 ! *** Print Measurement Results ***
1650 PRINT "Integrity (0 = normal) =";Integrity
1651 PRINT
1660 PRINT "NCDP (dB) results:"
1670 PRINT USING " ""DPCCH = "",4D.2D ";Ncdpq(0)
1680 PRINT USING " ""DPDCH = "",4D.2D ";Ncdpi(64)
1690 PRINT USING " ""HS-DPCCH = "",4D.2D ";Ncdpq(64)
1700 PRINT USING " ""E-DPCCH = "",4D.2D ";Ncdpi(1)
1710 PRINT USING " ""E-DPDCH1 = "",4D.2D ";Ncdpi(128)
1720 PRINT
1730 PRINT "RCDPA (dB) results:"
1740 PRINT USING " ""DPCCH = "",2D.2D ";Rcdpaq(0)
1750 PRINT USING " ""DPDCH = "",2D.2D ";Rcdpai(64)
1760 PRINT USING " ""HS-DPCCH = "",2D.2D ";Rcdpaq(64)
1770 PRINT USING " ""E-DPCCH = "",2D.2D ";Rcdpai(1)
1780 PRINT USING " ""E-DPDCH1 = "",2D.2D ";Rcdpai(128)
1790 !
1800 GOSUB Endprogram
1810 !
1820 !========================================
1830 ! *** Subroutines ***
1840 !========================================
1850 !
1860 Recordetfci:! Records E-TFCIs and enters them into the Etfci() array
1870 OUTPUT Testset;"CALL:HSUPa:ETFCi:RECord:STARt"! Start Recording E-TFCI
1880 LOOP
1890 OUTPUT Testset;"CALL:STATus:ETFCi:RECord?"! E-TFCI Recording State
1900 ENTER Testset;Recordstate$
1910 EXIT IF Recordstate$="IDLE"! Exit loop when recording is complete
1920 END LOOP
1930 OUTPUT Testset;"CALL:STATus:ETFCi:RECord:ALL?"! Query E-TFCI results
1940 ENTER Testset;Etfci(*)! Enter E-TFCI results into array
1950 RETURN
1960 !
1970 Decreasedetfci:! Prints 15 E-TFCI results and returns Eftcicheck = 1 if any
1980 ! Decreased E-TFCIs occurred
1990 Etfcicheck=0
2000 FOR N=0 TO 14
2010 PRINT Etfci(N);
2020 IF Etfci(N)<Lastetfci OR Etfci(N)=9.91E+37 THEN Etfcicheck=1
2030 ! Is any E-TFCI value decreased from starting E-TFCI? If so, set Etfcicheck = 1
2040 ! Also allows program to continue if no E-TFCIs from UE
2050 NEXT N
2060 PRINT
2070 PRINT
2080 RETURN
2090 !
2100 Endprogram:!
2110 END
An example output from this program is as follows:
Program Example: 5.13.2B Relative Code Domain Error with HS-DPCCH and E-DCH
This section is only applicable to the lab application or feature-licensed test application.
This procedure conforms to 34.121 v7.5.0 plus CR R5-072417.
10 ! Code Domain Programming Example
20 ! 3GPP TS 34.121 5.13.2.B RCDE with HS-DPCCH and E-DCH
30 !
40 Testset=714
50 OUTPUT Testset;"*RST"! Full preset the test set
60 CLEAR SCREEN
70 PRINT "3GPP TS 34.121 5.13.2.B RCDE with HS-DPCCH and E-DCH"
80 PRINT
90 !
100 ! *** Set Up Connection Parameters ***
110 !
120 OUTPUT Testset;"CALL:OPERating:MODE OFF"! Operating Mode = Cell Off
130 OUTPUT Testset;"CALL:CELL:RLC:REEStablish OFF"! RLC Reestablish
140 OUTPUT Testset;"CALL:PSDomain PRESent"! PS Domain Information
150 OUTPUT Testset;"CALL:CHANnel 10563"! DL Chan low range freq (Band I IMT-2000)
160 !
170 ! *** Set Up Test Parameters ***
180 !
190 OUTPUT Testset;"CALL:UPLink:DPCHannel:BETA:AUTO 0"! Manual beta control
200 OUTPUT Testset;"CALL:UPLink:DPCHannel:MANual:CBETa 11"! Betac=11/15 (sub-test 1)
210 OUTPUT Testset;"CALL:UPLink:DPCHannel:MANual:DBETa 15"! Betad=15/15 (sub-test 1)
220 OUTPUT Testset;"CALL:UPLink:TXPower:LEVel:MAXimum 21"! Max UL Transmit Power Lvl
230 OUTPUT Testset;"CALL:POWer -86" ! Cell Power
240 OUTPUT Testset;"CALL:SERVice:RBTest:RAB HSParmc12" ! Channel Type
250 OUTPUT Testset;"CALL:CONNected:CPIChannel:HSPA -10" ! CPICH Level
260 OUTPUT Testset;"CALL:CONNected:CCPChannel:PRIMary:HSPA -12"! P-CCPCH/SCH Level
270 OUTPUT Testset;"CALL:CONNected:PICHannel:HSPA -15" ! PICH Level
280 OUTPUT Testset;"CALL:CONNected:DPCHannel:HSPA -10" ! DPCH Level
290 OUTPUT Testset;"CALL:CONNected:EAGChannel -20" ! E-AGCH Level
300 OUTPUT Testset;"CALL:CONNected:EHIChannel -20" ! E-HICH Level
310 OUTPUT Testset;"CALL:CONNected:ERGChannel:STATe OFF" ! E-RGCH State
320 OUTPUT Testset;"CALL:CONNected:HSPDschannel:HSPA -3" ! HS-PDSCHs Level
330 OUTPUT Testset;"CALL:CONNected:HSSCchannel:HSPA -8" ! HS-SCCH 1 Level
340 OUTPUT Testset;"CALL:HSUPa:SERVice:RBTest:RLCSdu:SIZE BITS2936"! E-DCH RLC SDU Size
350 OUTPUT Testset;"CALL:HSUPa:EDPCchannel:POFFset 6"! E-DPCCH/DPCH PO (sub-test 1)
360 OUTPUT Testset;"CALL:HSUPa:ETFCi:POFFsets:REFerence DEF3412101"! Ref E-TFCI POs
370 OUTPUT Testset;"CALL:HSUPa:SGRant:ABSolute:RBSetup INDex26"! RB Setup AG (sub-test 1)
380 OUTPUT Testset;"CALL:HSDPa:SERVice:RBTest:HSDSchannel:CONFig FRC"! HS-DSCH Config
390 OUTPUT Testset;"CALL:HSDPa:SERVice:RBTest:FRC:TYPE QPSK1" ! FRC Type
400 OUTPUT Testset;"CALL:HSDPa:MACHs:NTRans 4" ! Number of Trans
410 OUTPUT Testset;"CALL:HSDPa:MACHs:RVSequence `0,2,5,6,0,0,0,0'"! RV Sequence
420 OUTPUT Testset;"CALL:HSDPa:UPLink:DACK 8" ! DeltaACK=30/15
430 OUTPUT Testset;"CALL:HSDPa:UPLink:DNACK 8" ! DeltaNACK=30/15
440 OUTPUT Testset;"CALL:HSDPa:UPLink:DCQI 8" ! DeltaCQI=30/15
450 OUTPUT Testset;"CALL:HSDPa:UPLink:ANACk:RFACtor 3"! Ack-Nack Repetition Factor
460 OUTPUT Testset;"CALL:HSDPa:UPLink:CQI:FCYCle 4 MS" ! CQI Feedback Cycle
470 OUTPUT Testset;"CALL:HSDPa:UPLink:CQI:RFACtor 2" ! CQI Repetition Factor
480 OUTPUT Testset;"CALL:CELL:CLPControl:UPLink:ALGorithm ALG2"! UL CL Power Ctrl Alg
490 OUTPUT Testset;"CALL:OPERating:MODE CALL"! Operating Mode = Active Cell
500 !
510 ! *** Make a Connection ***
520 !
530 BEEP
540 PRINT "Power on the UE, wait for it to register/attach, then Originate a call"
550 PRINT "If HSUPA Throughput = 0 kbps, send the appropriate Single Shot AG for"
560 PRINT "your sub-test (20: (119/15)^2 for sub-test 1)"
570 PRINT
580 PRINT "Press F2 to continue"
590 PRINT
600 PAUSE
610 !
620 ! *** Drive the UE to Max Power ***
630 !
640 ! Set UE Target Power to drive UE power to 6 dB below max power, wait 150 ms
650 OUTPUT Testset;"CALL:CLPControl:UPLink:MODE ACTive"! Active bits power control
660 OUTPUT Testset;"CALL:MS:POwer:TARGet 4"! UE Target Pow (sub-test 1, power class 3)
670 WAIT .15
680 OUTPUT Testset;"CALL:CLPControl:UPLink:MODE UDOW"! Alternating bits power control
690 !
700 ! Use Channel Power to confirm proper starting power
710 OUTPUT Testset;"SETup:WCPower:POWer:RANGe:OFFSet:MANual 14"
720 ! Manual Power Range Offset = 14 dB for sub-test 1
730 OUTPUT Testset;"READ:WCPower?"! INITiate and FETCh Channel Power
740 ENTER Testset;Integrity,Chanpow
750 BEEP
760 PRINT USING " ""Starting Channel Power (dBm) = "",2D.1D ";Chanpow
770 PRINT "If starting Channel Power is greater than 18 dBm (power class 3),"
780 PRINT "send down power control bit(s) as needed."
790 PRINT
800 PRINT "Press F2 to continue."
810 PRINT
820 PAUSE
830 !
840 ! Determine starting E-TFCI
850 OUTPUT Testset;"CALL:STATus:ETFCi?"! Last Received E-TFCI
860 ENTER Testset;Lastetfci
870 PRINT "Initial E-TFCI = ";Lastetfci
880 PRINT "(Target E-TFCI is 75 for sub-test 1)"
890 PRINT
900 !
910 ! Dimension array for E-TFCI results and set record number to 15
920 DIM Etfci(49)
930 OUTPUT Testset;"CALL:HSUPa:ETFCi:RECord:COUNt 15"! E-TFCI Rec Count
940 !
950 ! Send step up TPC bit and record 150 ms of E-TFCI results
960 PRINT "E-TFCI values after step up bit(s): "
970 LOOP
980 OUTPUT Testset;"CALL:CLPControl:UPLink:UP"! Send step up TPC bit
990 GOSUB Recordetfci
1000 !
1010 ! Determine if UE sent a decreased E-TFCI
1020 GOSUB Decreasedetfci
1030 EXIT IF Etfcicheck=1! Exit loop once UE reports a decreased E-TFCI
1040 END LOOP
1050 !
1060 ! Send step down TPC bit and record 150 ms of E-TFCI results
1070 PRINT "E-TFCI values after first step down bit: "
1080 OUTPUT Testset;"CALL:CLPControl:UPLink:DOWN"! Send step down TPC bit
1090 GOSUB Recordetfci
1100 !
1110 ! Determine if UE sent a decreased E-TFCI
1120 GOSUB Decreasedetfci
1130 IF Etfcicheck=1 THEN ! If a decrease E-TFCI occurred, send another down TPC bit
1140 OUTPUT Testset;"CALL:CLPControl:UPLink:DOWN"! Send step down TPC bit
1150 GOSUB Recordetfci
1160 PRINT
1170 PRINT "E-TFCI values after second step down bit: "
1180 FOR N=0 TO 14
1190 PRINT Etfci(N);
1200 NEXT N
1210 PRINT
1220 PRINT
1230 END IF
1240 !
1250 ! Determine if E-TFCI matches target E-TFCI
1260 Targetetfci=75! (sub-test 1)
1270 PRINT "Target E-TFCI =";Targetetfci
1280 Etfcipass=1! UE will pass unless array values don't match target E-TFCI
1290 FOR N=0 TO 14
1300 IF Etfci(N)<>Targetetfci THEN Etfcipass=0
1310 NEXT N
1320 IF Etfcipass=0 THEN ! If any E-TFCI doesn't match target E-TFCI, UE fails
1330 PRINT "Recorded E-TFCI does not match the Target E-TFCI of 75 for sub-test 1"
1340 STOP
1350 END IF
1360 PRINT "E-TFCI matches Target E-TFCI"
1370 PRINT
1380 !
1390 ! *** INITiate and FETCh Measurements ***
1400 DIM Ncdpi(255)
1410 DIM Ncdpq(255)
1420 DIM Ecdpi(255)
1430 DIM Ecdpq(255)
1440 DIM Rcdei(255)
1450 DIM Rcdeq(255)
1460 !
1470 OUTPUT Testset;"INITiate:WCDomain" ! INITiate Code Domain Power
1480 OUTPUT Testset;"FETCh:WCDomain:INTegrity?" ! Integrity Indicator
1490 ENTER Testset;Integrity
1500 OUTPUT Testset;"FETCh:WCDomain:POWer:NOMinal:ICHannel?"!NCDP I chan
1510 ENTER Testset;Ncdpi(*)
1520 OUTPUT Testset;"FETCh:WCDomain:POWer:NOMinal:QCHannel?"!NCDP Q chan
1530 ENTER Testset;Ncdpq(*)
1540 OUTPUT Testset;"FETCh:WCDomain:POWer:EFFective:ICHannel?"!ECDP I chan
1550 ENTER Testset;Ecdpi(*)
1560 OUTPUT Testset;"FETCh:WCDomain:POWer:EFFective:QCHannel?"!ECDP Q chan
1570 ENTER Testset;Ecdpq(*)
1580 OUTPUT Testset;"FETCh:WCDomain:CERRor:RELative:ICHannel?"!RCDE I chan
1590 ENTER Testset;Rcdei(*)
1600 OUTPUT Testset;"FETCh:WCDomain:CERRor:RELative:QCHannel?"!RCDE Q chan
1610 ENTER Testset;Rcdeq(*)
1620 !
1630 ! *** Print Measurement Results ***
1640 PRINT "Integrity (0 = normal) =";Integrity
1650 PRINT
1660 PRINT "NCDP (dB) results:"
1670 PRINT USING " ""DPCCH = "",4D.2D ";Ncdpq(0)
1680 PRINT USING " ""DPDCH = "",4D.2D ";Ncdpi(64)
1690 PRINT USING " ""HS-DPCCH = "",4D.2D ";Ncdpq(64)
1700 PRINT USING " ""E-DPCCH = "",4D.2D ";Ncdpi(1)
1710 PRINT USING " ""E-DPDCH1 = "",4D.2D ";Ncdpi(128)
1720 PRINT
1730 PRINT "ECDP (dB) results:"
1740 PRINT USING " ""DPCCH = "",4D.2D ";Ecdpq(0)
1750 PRINT USING " ""DPDCH = "",4D.2D ";Ecdpi(64)
1760 PRINT USING " ""HS-DPCCH = "",4D.2D ";Ecdpq(64)
1770 PRINT USING " ""E-DPCCH = "",4D.2D ";Ecdpi(1)
1780 PRINT USING " ""E-DPDCH1 = "",4D.2D ";Ecdpi(128)
1790 PRINT
1800 PRINT "RCDE (dB) results:"
1810 PRINT USING " ""DPCCH = "",4D.2D ";Rcdeq(0)
1820 PRINT USING " ""DPDCH = "",4D.2D ";Rcdei(64)
1830 PRINT USING " ""HS-DPCCH = "",4D.2D ";Rcdeq(64)
1840 PRINT USING " ""E-DPCCH = "",4D.2D ";Rcdei(1)
1850 PRINT USING " ""E-DPDCH1 = "",4D.2D ";Rcdei(128)
1860 !
1870 GOSUB Endprogram
1880 !
1890 !========================================
1900 ! *** Subroutines ***
1910 !========================================
1920 !
1930 Recordetfci:! Records E-TFCIs and enters them into the Etfci() array
1940 OUTPUT Testset;"CALL:HSUPa:ETFCi:RECord:STARt"! Start Recording E-TFCI
1950 LOOP
1960 OUTPUT Testset;"CALL:STATus:ETFCi:RECord?"! E-TFCI Recording State
1970 ENTER Testset;Recordstate$
1980 EXIT IF Recordstate$="IDLE"! Exit loop when recording is complete
1990 END LOOP
2000 OUTPUT Testset;"CALL:STATus:ETFCi:RECord:ALL?"! Query E-TFCI results
2010 ENTER Testset;Etfci(*)! Enter E-TFCI results into array
2020 RETURN
2030 !
2040 Decreasedetfci:! Prints 15 E-TFCI results and returns Eftcicheck = 1 if any
2050 ! Decreased E-TFCIs occurred
2060 Etfcicheck=0
2070 FOR N=0 TO 14
2080 PRINT Etfci(N);
2090 IF Etfci(N)<Lastetfci OR Etfci(N)=9.91E+37 THEN Etfcicheck=1
2100 ! Is any E-TFCI value decreased from starting E-TFCI? If so, set Etfcicheck = 1
2110 ! Also allows program to continue if no E-TFCIs from UE
2120 NEXT N
2130 PRINT
2140 PRINT
2150 RETURN
2160 !
2170 Endprogram:!
2180 END
An example output from this program is as follows:
|
|