'# MWS Version: Version 2008.6 - May 26 2008 - 23:05:56

'# length = cm
'# frequency = GHz
'# time = ns
'# frequency range: fmin = 2 fmax = 3


'@ use template: Antenna (Horn, Waveguide)

' Template for Antenna in Free Space
' ==================================
' (CSTxMWSxONLY)
' draw the bounding box
Plot.DrawBox True
' set units to mm, ghz
With Units 
     .Geometry "mm" 
     .Frequency "ghz" 
     .Time "ns" 
End With 
' set background material to vacuum
With Background 
     .Type "Normal" 
     .Epsilon "1.0" 
     .Mue "1.0" 
     .XminSpace "0.0" 
     .XmaxSpace "0.0" 
     .YminSpace "0.0" 
     .YmaxSpace "0.0" 
     .ZminSpace "0.0" 
     .ZmaxSpace "0.0" 
End With 
' set boundary conditions to open
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"

'@ execute macro: Construct\Online\Horn antenna

'  use template: Antenna (in Free Space, waveguide)
' Template for Antenna in Free Space
' ==================================
' (CSTxMWSxONLY)
' draw the bounding box
Plot.DrawBox True
' set units to mm, ghz
With Units 
     .Geometry "mm" 
     .Frequency "ghz" 
     .Time "ns" 
End With 
' set background material to vacuum
With Background 
     .Type "Normal" 
     .Epsilon "1.0" 
     .Mue "1.0" 
     .XminSpace "0.0" 
     .XmaxSpace "0.0" 
     .YminSpace "0.0" 
     .YmaxSpace "0.0" 
     .ZminSpace "0.0" 
     .ZmaxSpace "0.0" 
End With 
' set boundary conditions to open
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
'  new component: component1
Component.New "component1"
'  define brick: component1:solid1
With Brick
     .Reset 
     .Name "solid1" 
     .Component "component1" 
     .Material "PEC" 
     .Xrange "0", "8" 
     .Yrange "0", "4" 
     .Zrange "0", "6" 
     .Create
End With
'  pick face
Pick.PickFaceFromId "component1:solid1", "1"
'  define extrude: component1:solid2
With Extrude 
     .Reset 
     .Name "solid2" 
     .Component "component1" 
     .Material "PEC" 
     .Mode "Picks" 
     .Height "20" 
     .Twist "0.0" 
     .Taper "taper_angle"
     .UsePicksForHeight "False" 
     .DeleteBaseFaceSolid "False" 
     .ClearPickedFace "True" 
     .Create 
End With 
'  boolean add shapes: component1:solid1, component1:solid2
Solid.Add "component1:solid1", "component1:solid2"
'  pick face
Pick.PickFaceFromId "component1:solid1", "5"
'  pick face
Pick.PickFaceFromId "component1:solid1", "8"
'  shell object: component1:solid1
Solid.AdvancedShell "component1:solid1", "Outside", "0.5"
'  pick end point
Pick.PickEndpointFromId "component1:solid1", "16"
'  pick end point
Pick.PickEndpointFromId "component1:solid1", "15"
'  pick end point
Pick.PickEndpointFromId "component1:solid1", "13"
'  define port: 1
With Port 
     .Reset 
     .PortNumber "1" 
     .NumberOfModes "1" 
     .AdjustPolarization False 
     .PolarizationAngle "0.0" 
     .ReferencePlaneDistance "0" 
     .TextSize "50" 
     .Coordinates "Picks" 
     .Orientation "zmin" 
     .PortOnBound "True" 
     .ClipPickedPortToBound "False" 
     .Xrange "0", "8" 
     .Yrange "0", "4" 
     .Zrange "0", "0" 
     .Create 
End With
'  define frequency range
Solver.FrequencyRange "40", "60"
'  define boundaries
With Boundary
     .Xmin "expanded open" 
     .Xmax "expanded open" 
     .Ymin "expanded open" 
     .Ymax "expanded open" 
     .Zmin "expanded open" 
     .Zmax "expanded open" 
     .Xsymmetry "magnetic" 
     .Ysymmetry "electric" 
     .Zsymmetry "none" 
End With
'  define solver parameters
With Solver 
     .CalculationType "TD-S" 
     .StimulationPort "1" 
     .StimulationMode "1" 
     .SteadyStateLimit "-30" 
     .MeshAdaption "False" 
     .CalculateModesOnly "False" 
     .SParaSymmetry "False" 
     .StoreTDResultsInCache "False" 
     .FullDeembedding "False" 
     .UseNetworkComputing "False" 
End With
'  clear picks
Pick.ClearAllPicks
'  define solver parameters
With Solver 
     .CalculationType "TD-S" 
     .StimulationPort "1" 
     .StimulationMode "1" 
     .SteadyStateLimit "-30" 
     .MeshAdaption "False" 
     .CalculateModesOnly "False" 
     .SParaSymmetry "False" 
     .StoreTDResultsInCache "False" 
     .FullDeembedding "False" 
     .UseNetworkComputing "False" 
End With
'  define frequency range
Solver.FrequencyRange "2", "3"
'  define units
With Units 
     .Geometry "cm" 
     .Frequency "ghz" 
     .Time "ns" 
End With
'  define solver parameters
With Solver 
     .CalculationType "TD-S" 
     .StimulationPort "1" 
     .StimulationMode "1" 
     .SteadyStateLimit "-30" 
     .MeshAdaption "False" 
     .CalculateModesOnly "False" 
     .SParaSymmetry "False" 
     .StoreTDResultsInCache "False" 
     .FullDeembedding "False" 
     .UseNetworkComputing "False" 
End With
'  set mesh properties
With Mesh 
     .UseRatioLimit "True" 
     .RatioLimit "3.0" 
     .LinesPerWavelength "5" 
     .MinimumStepNumber "5" 
     .Automesh "True" 
     .ConsiderSpaceForLowerMeshLimit "True" 
End With
'  define solver parameters
With Solver 
     .CalculationType "TD-S" 
     .StimulationPort "1" 
     .StimulationMode "1" 
     .SteadyStateLimit "-30" 
     .MeshAdaption "False" 
     .CalculateModesOnly "False" 
     .SParaSymmetry "False" 
     .StoreTDResultsInCache "False" 
     .FullDeembedding "False" 
     .UseNetworkComputing "False" 
End With
'  set 3d mesh adaptation properties
With MeshAdaption3D
    .SetType "Time" 
    .SetAdaptionStrategy "ExpertSystem" 
    .MinPasses "2" 
    .MaxPasses "6" 
    .MeshIncrement "5" 
    .MaxDeltaS "0.02" 
    .SetFrequencyRange "True", "0", "0" 
End With
'  define solver parameters
With Solver 
     .CalculationType "TD-S" 
     .StimulationPort "1" 
     .StimulationMode "1" 
     .SteadyStateLimit "-30" 
     .MeshAdaption "True" 
     .CalculateModesOnly "False" 
     .SParaSymmetry "False" 
     .StoreTDResultsInCache "False" 
     .FullDeembedding "False" 
     .UseNetworkComputing "False" 
End With
'  define solver parameters
With Solver 
     .CalculationType "TD-S" 
     .StimulationPort "1" 
     .StimulationMode "1" 
     .SteadyStateLimit "-30" 
     .MeshAdaption "False" 
     .CalculateModesOnly "False" 
     .SParaSymmetry "False" 
     .StoreTDResultsInCache "False" 
     .FullDeembedding "False" 
     .UseNetworkComputing "False" 
End With
'  define monitor: e-field (f=2.5)
With Monitor 
     .Reset 
     .Name "e-field (f=2.5)" 
     .Dimension "Volume" 
     .Domain "Frequency" 
     .FieldType "Efield" 
     .Frequency "2.5" 
     .Create 
End With
'  define farfield monitor: farfield (f=2.5)
With Monitor 
     .Reset 
     .Name "farfield (f=2.5)" 
     .Domain "Frequency" 
     .FieldType "Farfield" 
     .Frequency "2.5" 
     .Create 
End With
'  define solver parameters
With Solver 
     .CalculationType "TD-S" 
     .StimulationPort "1" 
     .StimulationMode "1" 
     .SteadyStateLimit "-30" 
     .MeshAdaption "False" 
     .CalculateModesOnly "False" 
     .SParaSymmetry "False" 
     .StoreTDResultsInCache "False" 
     .FullDeembedding "False" 
     .UseNetworkComputing "False" 
End With
'  define monitor: h-field (f=2.5)
With Monitor 
     .Reset 
     .Name "h-field (f=2.5)" 
     .Dimension "Volume" 
     .Domain "Frequency" 
     .FieldType "Hfield" 
     .Frequency "2.5" 
     .Create 
End With
'  define solver parameters
With Solver 
     .CalculationType "TD-S" 
     .StimulationPort "1" 
     .StimulationMode "1" 
     .SteadyStateLimit "-30" 
     .MeshAdaption "False" 
     .CalculateModesOnly "False" 
     .SParaSymmetry "False" 
     .StoreTDResultsInCache "False" 
     .FullDeembedding "False" 
     .UseNetworkComputing "False" 
End With 
'  define pml specials
With Boundary
     .Layer "3" 
     .Reflection "0.0001" 
     .Progression "parabolic" 
     .MinimumLinesDistance "4" 
     .MinimumDistancePerWavelength "12" 
     .ActivePMLFactor "1.0" 
End With
'  define background
With Background 
     .Type "Normal" 
     .Epsilon "1.0" 
     .Mue "1.0" 
     .XminSpace "0.0" 
     .XmaxSpace "0.0" 
     .YminSpace "0.0" 
     .YmaxSpace "0.0" 
     .ZminSpace "0.0" 
     .ZmaxSpace "20" 
End With 
Solver.AdaptivePortMeshing "False"

'@ switch working plane

Plot.DrawWorkplane "false"

'@ define solver parameters

Mesh.SetCreator "High Frequency" 
With Solver 
     .CalculationType "TD-S" 
     .StimulationPort "1" 
     .StimulationMode "1" 
     .SteadyStateLimit "-30" 
     .MeshAdaption "False" 
     .CalculateModesOnly "False" 
     .SParaSymmetry "False" 
     .StoreTDResultsInCache "False" 
     .FullDeembedding "False" 
     .UseDistributedComputing "False" 
     .DistributeMatrixCalculation "False" 
End With

'@ farfield plot options

With FarfieldPlot 
     .SetColorByValue "True" 
     .DrawStepLines "False" 
     .DrawIsoLongitudeLatitudeLines "False" 
     .SetTheta360 "False" 
     .SymmetricRange "False" 
     .SetPlotMode "Directivity" 
     .Distance "1" 
     .UseFarfieldApproximation "False" 
     .SetScaleLinear "False" 
     .SetLogRange "40" 
     .DBUnit "0" 
     .EnableFixPlotMaximum "False" 
     .SetFixPlotMaximumValue "1.0" 
     .AlignToMainLobe "False" 
     .Phistart "1.000000e+000", "0.000000e+000", "0.000000e+000" 
     .Thetastart "0.000000e+000", "0.000000e+000", "1.000000e+000" 
     .PolarizationVector "0", "0", "0" 
     .Origin "bbox" 
     .Userorigin "0.000000e+000", "0.000000e+000", "0.000000e+000" 
     .SetUserDecouplingPlane "False" 
     .UseDecouplingPlane "False" 
     .DecouplingPlaneAxis "X" 
     .DecouplingPlanePosition "0.000000e+000" 
     .EnablePhaseCenterCalculation "False" 
     .SetPhaseCenterAngularLimit "30" 
     .SetPhaseCenterComponent "Theta" 
     .SetPhaseCenterPlane "both" 
End With

'@ define solver parameters

Mesh.SetCreator "High Frequency" 
With Solver 
     .CalculationType "TD-S" 
     .StimulationPort "1" 
     .StimulationMode "1" 
     .SteadyStateLimit "-30" 
     .MeshAdaption "False" 
     .CalculateModesOnly "False" 
     .SParaSymmetry "False" 
     .StoreTDResultsInCache "False" 
     .FullDeembedding "False" 
     .UseDistributedComputing "False" 
     .DistributeMatrixCalculation "False" 
End With

'@ define frequency range

Solver.FrequencyRange "1", "4"

'@ define solver parameters

Mesh.SetCreator "High Frequency" 
With Solver 
     .CalculationType "TD-S" 
     .StimulationPort "1" 
     .StimulationMode "1" 
     .SteadyStateLimit "-40" 
     .MeshAdaption "False" 
     .CalculateModesOnly "False" 
     .SParaSymmetry "False" 
     .StoreTDResultsInCache "False" 
     .FullDeembedding "False" 
     .UseDistributedComputing "False" 
     .DistributeMatrixCalculation "False" 
End With

'@ farfield plot options

With FarfieldPlot 
     .SetColorByValue "True" 
     .DrawStepLines "False" 
     .DrawIsoLongitudeLatitudeLines "False" 
     .SetTheta360 "False" 
     .SymmetricRange "False" 
     .SetPlotMode "Realized Gain" 
     .Distance "1" 
     .UseFarfieldApproximation "False" 
     .SetScaleLinear "False" 
     .SetLogRange "40" 
     .DBUnit "0" 
     .EnableFixPlotMaximum "False" 
     .SetFixPlotMaximumValue "1.0" 
     .AlignToMainLobe "False" 
     .Phistart "1.000000e+000", "0.000000e+000", "0.000000e+000" 
     .Thetastart "0.000000e+000", "0.000000e+000", "1.000000e+000" 
     .PolarizationVector "0", "1", "0" 
     .Origin "bbox" 
     .Userorigin "0.000000e+000", "0.000000e+000", "0.000000e+000" 
     .SetUserDecouplingPlane "False" 
     .UseDecouplingPlane "False" 
     .DecouplingPlaneAxis "X" 
     .DecouplingPlanePosition "0.000000e+000" 
     .EnablePhaseCenterCalculation "False" 
     .SetPhaseCenterAngularLimit "30" 
     .SetPhaseCenterComponent "Theta" 
     .SetPhaseCenterPlane "both" 
End With

'@ define material: Aluminum

With Material
     .Reset
     .Name "Aluminum"
.FrqType "static" 
.Type "Normal" 
.Epsilon "1" 
.Mue "1.0" 
.Kappa "3.72e+007" 
.TanD "0.0" 
.TanDFreq "0.0" 
.TanDGiven "False" 
.TanDModel "ConstTanD" 
.KappaM "0" 
.TanDM "0.0" 
.TanDMFreq "0.0" 
.TanDMGiven "False" 
.TanDMModel "ConstTanD" 
.DispModelEps "None" 
.DispModelMue "None" 
.DispersiveFittingSchemeEps "General 1st" 
.DispersiveFittingSchemeMue "General 1st" 
.UseGeneralDispersionEps "False" 
.UseGeneralDispersionMue "False" 
.FrqType "all" 
.Type "Lossy metal" 
.Mue "1.0" 
.Kappa "3.72e+007" 
.Rho "0.0" 
.ThermalType "Normal" 
.ThermalConductivity "237.0" 
.Colour "1", "1", "0" 
.Wireframe "False" 
.Transparency "0" 
.Create
End With

'@ change material: component1:solid1 to: Aluminum

Solid.ChangeMaterial "component1:solid1", "Aluminum"

'@ define solver parameters

Mesh.SetCreator "High Frequency" 
With Solver 
     .CalculationType "TD-S" 
     .StimulationPort "1" 
     .StimulationMode "1" 
     .SteadyStateLimit "-40" 
     .MeshAdaption "False" 
     .CalculateModesOnly "False" 
     .SParaSymmetry "False" 
     .StoreTDResultsInCache "False" 
     .FullDeembedding "False" 
     .UseDistributedComputing "False" 
     .DistributeMatrixCalculation "False" 
End With

'@ farfield plot options

With FarfieldPlot 
     .SetColorByValue "True" 
     .DrawStepLines "False" 
     .DrawIsoLongitudeLatitudeLines "False" 
     .SetTheta360 "False" 
     .SymmetricRange "False" 
     .SetPlotMode "Directivity" 
     .Distance "1" 
     .UseFarfieldApproximation "False" 
     .SetScaleLinear "False" 
     .SetLogRange "40" 
     .DBUnit "0" 
     .EnableFixPlotMaximum "False" 
     .SetFixPlotMaximumValue "1.0" 
     .AlignToMainLobe "False" 
     .Phistart "1.000000e+000", "0.000000e+000", "0.000000e+000" 
     .Thetastart "0.000000e+000", "0.000000e+000", "1.000000e+000" 
     .PolarizationVector "0", "1", "0" 
     .Origin "bbox" 
     .Userorigin "0.000000e+000", "0.000000e+000", "0.000000e+000" 
     .SetUserDecouplingPlane "False" 
     .UseDecouplingPlane "False" 
     .DecouplingPlaneAxis "X" 
     .DecouplingPlanePosition "0.000000e+000" 
     .EnablePhaseCenterCalculation "False" 
     .SetPhaseCenterAngularLimit "30" 
     .SetPhaseCenterComponent "Theta" 
     .SetPhaseCenterPlane "both" 
End With

'@ define material colour: Aluminum

With Material 
     .Name "Aluminum" 
     .Colour "0.501961", "0.501961", "0.501961" 
     .Wireframe "False" 
     .Reflection "False" 
     .Allowoutline "True" 
     .Transparentoutline "False" 
     .Transparency "0" 
     .ChangeColour 
End With

'@ define frequency range

Solver.FrequencyRange "2", "3"

'@ clear picks

Pick.ClearAllPicks 


'@ pick end point

Pick.PickEndpointFromId "component1:solid1", "15" 


'@ pick end point

Pick.PickEndpointFromId "component1:solid1", "13" 


'@ pick end point

Pick.PickEndpointFromId "component1:solid1", "5" 


'@ pick end point

Pick.PickEndpointFromId "component1:solid1", "1" 


'@ delete picked points

Pick.DeletePoint "-4" 


'@ delete picked points

Pick.DeletePoint "-3" 


'@ clear picks

Pick.ClearAllPicks 


'@ pick edge

Pick.PickEdgeFromId "component1:solid1", "43", "27" 


'@ chamfer edges of: component1:solid1

Solid.ChamferAdvanced "1.3", "45.0", "True" 


'@ clear picks

Pick.ClearAllPicks 


'@ pick face

Pick.PickFaceFromId "component1:solid1", "23" 


'@ define extrude: component1:solid2

With Extrude 
     .Reset 
     .Name "solid2" 
     .Component "component1" 
     .Material "Vacuum" 
     .Mode "Picks" 
     .Height "-1" 
     .Twist "0.0" 
     .Taper "0.0" 
     .UsePicksForHeight "False" 
     .DeleteBaseFaceSolid "False" 
     .ClearPickedFace "True" 
     .Create 
End With 


'@ boolean insert shapes: component1:solid1, component1:solid2

Solid.Insert "component1:solid1", "component1:solid2" 


'@ pick edge

Pick.PickEdgeFromId "component1:solid1", "57", "36" 


'@ chamfer edges of: component1:solid1

Solid.ChamferAdvanced "1.3", "45.0", "False" 


'@ pick face

Pick.PickFaceFromId "component1:solid1", "37" 


'@ define extrude: component1:solid3

With Extrude 
     .Reset 
     .Name "solid3" 
     .Component "component1" 
     .Material "Vacuum" 
     .Mode "Picks" 
     .Height "-1" 
     .Twist "0.0" 
     .Taper "0.0" 
     .UsePicksForHeight "False" 
     .DeleteBaseFaceSolid "False" 
     .ClearPickedFace "True" 
     .Create 
End With 


'@ boolean insert shapes: component1:solid1, component1:solid3

Solid.Insert "component1:solid1", "component1:solid3" 


'@ pick edge

Pick.PickEdgeFromId "component1:solid1", "71", "45" 


'@ chamfer edges of: component1:solid1

Solid.ChamferAdvanced "1.3", "45.0", "False" 


'@ pick face

Pick.PickFaceFromId "component1:solid1", "52" 


'@ define extrude: component1:solid4

With Extrude 
     .Reset 
     .Name "solid4" 
     .Component "component1" 
     .Material "Vacuum" 
     .Mode "Picks" 
     .Height "-1" 
     .Twist "0.0" 
     .Taper "0.0" 
     .UsePicksForHeight "False" 
     .DeleteBaseFaceSolid "False" 
     .ClearPickedFace "True" 
     .Create 
End With 


'@ boolean insert shapes: component1:solid1, component1:solid4

Solid.Insert "component1:solid1", "component1:solid4" 


'@ pick edge

Pick.PickEdgeFromId "component1:solid1", "89", "58" 


'@ chamfer edges of: component1:solid1

Solid.ChamferAdvanced "1.3", "45.0", "False" 


'@ pick face

Pick.PickFaceFromId "component1:solid1", "67" 


'@ define extrude: component1:solid5

With Extrude 
     .Reset 
     .Name "solid5" 
     .Component "component1" 
     .Material "Vacuum" 
     .Mode "Picks" 
     .Height "-1" 
     .Twist "0.0" 
     .Taper "0.0" 
     .UsePicksForHeight "False" 
     .DeleteBaseFaceSolid "False" 
     .ClearPickedFace "True" 
     .Create 
End With 


'@ boolean insert shapes: component1:solid1, component1:solid5

Solid.Insert "component1:solid1", "component1:solid5" 


'@ delete shapes

Solid.Delete "component1:solid2" 
Solid.Delete "component1:solid3" 
Solid.Delete "component1:solid4" 
Solid.Delete "component1:solid5" 


'@ delete port: port1

Port.Delete "1" 


'@ pick face

Pick.PickFaceFromId "component1:solid1", "41" 


'@ define port: 1

With Port 
     .Reset 
     .PortNumber "1" 
     .NumberOfModes "1" 
     .AdjustPolarization True 
     .PolarizationAngle "0.0" 
     .ReferencePlaneDistance "0" 
     .TextSize "50" 
     .Coordinates "Picks" 
     .Orientation "positive" 
     .PortOnBound "False" 
     .ClipPickedPortToBound "False" 
     .Xrange "-0.5", "8.5" 
     .Yrange "-0.5", "4.5" 
     .Zrange "0", "0" 
     .XrangeAdd "0.0", "0.0" 
     .YrangeAdd "0.0", "0.0" 
     .ZrangeAdd "0.0", "0.0" 
     .SingleEnded "False" 
     .Create 
End With 


'@ define special solver parameters

With Solver 
     .TimeBetweenUpdates "1200" 
     .NumberOfPulseWidths "200" 
     .EnergyBalanceLimit "0.03" 
     .UseArfilter "False" 
     .ArMaxEnergyDeviation "0.1" 
     .ArPulseSkip "1" 
     .WaveguideBroadband "False" 
     .SetBBPSamples "5" 
     .SetSamplesFullDeembedding "20" 
     .MatrixDump "False" 
     .TimestepReduction "0.45" 
     .NumberOfSubcycles "4" 
     .SubcycleFillLimit "70" 
     .SetSubcycleState "Automatic" 
     .SetSubgridCycleState "Automatic" 
     .SimplifiedPBAMethod "False" 
     .UseParallelization "True" 
     .MaximumNumberOfThreads "16" 
     .TimeStepStabilityFactor "1.0" 
     .UseOpenBoundaryForHigherModes "True" 
     .SetModeFreqFactor "0.5" 
     .SurfaceImpedanceOrder "10" 
     .SetPortShielding "False" 
     .FrequencySamples "1001" 
     .ConsiderTwoPortReciprocity "True" 
     .UseTSTAtPort "True" 
     .SParaAdjustment "True" 
     .RestartAfterInstabilityAbort "True" 
     .HardwareAcceleration "False" 
     .AdaptivePortMeshing "False" 
     .AccuracyAdaptivePortMeshing "1" 
     .PassesAdaptivePortMeshing "4" 
End With 


'@ define solver parameters

Mesh.SetCreator "High Frequency" 

With Solver 
     .CalculationType "TD-S" 
     .StimulationPort "1" 
     .StimulationMode "1" 
     .SteadyStateLimit "-40" 
     .MeshAdaption "False" 
     .CalculateModesOnly "False" 
     .SParaSymmetry "False" 
     .StoreTDResultsInCache "False" 
     .FullDeembedding "False" 
     .UseDistributedComputing "False" 
     .DistributeMatrixCalculation "False" 
End With 


'@ farfield plot options

With FarfieldPlot 
     .SetColorByValue "True" 
     .DrawStepLines "False" 
     .DrawIsoLongitudeLatitudeLines "False" 
     .SetTheta360 "False" 
     .SymmetricRange "False" 
     .SetPlotMode "Realized Gain" 
     .Distance "1" 
     .UseFarfieldApproximation "False" 
     .SetScaleLinear "False" 
     .SetLogRange "20" 
     .DBUnit "0" 
     .EnableFixPlotMaximum "False" 
     .SetFixPlotMaximumValue "1.0" 
     .AlignToMainLobe "False" 
     .Phistart "1.000000e+000", "0.000000e+000", "0.000000e+000" 
     .Thetastart "0.000000e+000", "0.000000e+000", "1.000000e+000" 
     .PolarizationVector "0", "1", "0" 
     .Origin "bbox" 
     .Userorigin "0.000000e+000", "0.000000e+000", "0.000000e+000" 
     .SetUserDecouplingPlane "False" 
     .UseDecouplingPlane "False" 
     .DecouplingPlaneAxis "X" 
     .DecouplingPlanePosition "0.000000e+000" 

     .EnablePhaseCenterCalculation "False" 
     .SetPhaseCenterAngularLimit "30" 
     .SetPhaseCenterComponent "Theta" 
     .SetPhaseCenterPlane "both" 
End With 


