HP 8168E - Page 125

6
Example 5 - Increased Tuning Linearity
310 PRINT "Target = ";I;" NM"
320 !
330 Target_wl=I*1.0E-9
340 !
350 OUTPUT @Tls;":WAVE";Target_wl
360 OUTPUT @Tls;"*OPC?"
370 ENTER @Tls;Ready
380 !
390 Loop_count=0
400 !
410 LOOP
420 OUTPUT @Mwm;":MEAS:SCAL:POW:WAV?
430 ENTER @Mwm;Current_wl
440 Diff_wl=Current_wl-Target_wl
450 PRINT "Current =";Current_wl*1.0E+9,"Diff
=";PROUND(Diff_wl*1.E+9,-4)
460 EXIT IF ABS(Diff_wl)<(Allow_diff+.0005)*1.0E-9 OR
Loop_count=Numb_tries
470 OUTPUT @Tls;":WAVEACT ";Current_wl
480 Loop_count=Loop_count+1
490 END LOOP
500 !
510 ! (Read the receiver at this point)
520 !
530 NEXT I
540 !
550 END
Programming Examples 6-15