Agilent Technologies E5071C Manual page 973

E5071C
Next j
Make_Freq = freq_arry
End Function
Sub Data_Plot(vi As Long, Nop As Long, ErrTerm As String)
Range("B10:C" & Nop + 9 & "").Select 'Select the error coefficient.
Charts.Add
ActiveChart.ChartType = xlLineStacked
ActiveChart.SetSourceData Source:=Sheets("Error Term").Range("A9:C" & Nop + 9 & "") 'Sets the
error coefficient and displays the graph.
ActiveChart.Location Where:=xlLocationAsObject, Name:="Error Term"
ActiveChart.Axes(xlCategory).Select 'Select the formatting of X-axis.
With Selection
.TickLabelPosition = xlLow
End With
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Error Term " & ErrTerm
End With
End Sub
Sub Set_sgm_tbl(vi As Long, Ch As String)
Dim Star1(2) As Double, Stop1(2) As Double, Pow1(2) As Double, If_bw1(2) As Double
Dim Segm As Integer, Nop1(2) As Integer, Num_of_tr1 As Integer
Dim i As Integer
Segm = 2
Star1(1) = Cells(3, 9)
Stop1(1) = Cells(3, 10)
Pow1(1) = Cells(3, 11)
If_bw1(1) = Cells(3, 12)
Nop1(1) = Cells(3, 13)
Star1(2) = Cells(4, 9)
Stop1(2) = Cells(4, 10)
Pow1(2) = Cells(4, 11)
1200
'Sets the chart type.
'Displays the frequency values to low area.
'Sets the start frequency of segment 1 table.
'Sets the stop frequency of segment 1 table.
'Sets the power of segment 1 table.
'Sets the ifbw of segment 1 table.
'Sets the nop of segment 1 table.
'Sets the start frequency of segment 2 table.
'Sets the stop frequency of segment 2 table.
'Sets the power of segment 2 table.
'Sets the frequency data array.
'Display the title.