Антенно-фидерные устройства АФУ / Лабы по CST / lifehach

'set the units
With Units
.Geometry "mm"
.Frequency "GHz"
.Voltage "V"
.Resistance "Ohm"
.Inductance "H"
.TemperatureUnit "Celsius"
.Time "ns"
.Current "A"
.Conductance "Siemens"
.Capacitance "F"
End With

ThermalSolver.AmbientTemperature "0"

'----------------------------------------------------------------------------

'set the frequency range
Solver.FrequencyRange "11.8", "12.4"

'----------------------------------------------------------------------------

Plot.DrawBox True

With Background
.Type "Normal"
.Epsilon "1.0"
.Mu "1.0"
.XminSpace "0.0"
.XmaxSpace "0.0"
.YminSpace "0.0"
.YmaxSpace "0.0"
.ZminSpace "0.0"
.ZmaxSpace "0.0"
End With

With Boundary
.Xmin "expanded open"
.Xmax "expanded open"
.Ymin "expanded open"
.Ymax "expanded open"
.Zmin "expanded open"
.Zmax "expanded open"
.Xsymmetry "none"
.Ysymmetry "none"
.Zsymmetry "none"
End With

' switch on FD-TET setting for accurate farfields

FDSolver.ExtrudeOpenBC "True"

Mesh.FPBAAvoidNonRegUnite "True"
Mesh.ConsiderSpaceForLowerMeshLimit "False"
Mesh.MinimumStepNumber "5"

With MeshSettings
.SetMeshType "Hex"
.Set "RatioLimitGeometry", "20"
End With

With MeshSettings
.SetMeshType "HexTLM"
.Set "RatioLimitGeometry", "20"
End With

PostProcess1D.ActivateOperation "vswr", "true"
PostProcess1D.ActivateOperation "yz-matrices", "true"

With FarfieldPlot
.ClearCuts ' lateral=phi, polar=theta
.AddCut "lateral", "0", "1"
.AddCut "lateral", "90", "1"
.AddCut "polar", "90", "1"
End With

'----------------------------------------------------------------------------

Dim sDefineAt As String
sDefineAt = "12.2"
Dim sDefineAtName As String
sDefineAtName = "12.2"
Dim sDefineAtToken As String
sDefineAtToken = "f="
Dim aFreq() As String
aFreq = Split(sDefineAt, ";")
Dim aNames() As String
aNames = Split(sDefineAtName, ";")

Dim nIndex As Integer
For nIndex = LBound(aFreq) To UBound(aFreq)

Dim zz_val As String
zz_val = aFreq (nIndex)
Dim zz_name As String
zz_name = sDefineAtToken & aNames (nIndex)

' Define E-Field Monitors
With Monitor
.Reset
.Name "e-field ("& zz_name &")"
.Dimension "Volume"
.Domain "Frequency"
.FieldType "Efield"
.MonitorValue zz_val
.Create
End With

' Define Farfield Monitors
With Monitor
.Reset
.Name "farfield ("& zz_name &")"
.Domain "Frequency"
.FieldType "Farfield"
.MonitorValue zz_val
.ExportFarfieldSource "False"
.Create
End With

Next

'----------------------------------------------------------------------------

With MeshSettings
.SetMeshType "Hex"
.Set "Version", 1%
End With

With Mesh
.MeshType "PBA"
End With

'set the solver type
ChangeSolverType("HF Time Domain")

'----------------------------------------------------------------------------