Description

Provides access to the properties and methods defining a monostatic radar model

Object Model

Public Methods

SetMode

Sets the current radar mode by name.

Public Properties

ClutterGeometry	Gets the radar clutter geometry.
Jamming	Gets the radar jamming.
Mode	Gets the current radar mode.
Receiver	Gets the radar receiver.
SupportedModes	Gets an array of supported mode names.
Transmitter	Gets the radar transmitter.

Example

Compute the probability of detection of a target for a monostatic search/track radar

[C#] Copy Code

IAgStkObject rdrAsStkObject = radar as IAgStkObject; 


IAgStkObject tgtAsStkObject = targetAircraft as IAgStkObject; 


 

//Enable the rain loss computation on the scenario RF environment 


scenarioRFEnv.PropagationChannel.EnableRainLoss = true; 


 

//Configure the radar object as a monostatic model. 


radar.SetModel("Monostatic"); 

IAgRadarModelMonostatic monostaticModel = radar.Model as IAgRadarModelMonostatic; 


 

//Orient the radar antenna in the direction of the target 


radar.Model.AntennaControl.EmbeddedModelOrientation.AssignAzEl(50.9, 36.8, AgEAzElAboutBoresight.eAzElAboutBoresightRotate); 


 

//Set the radar antenna model to parabolic 


radar.Model.AntennaControl.SetEmbeddedModel("Parabolic"); 

IAgAntennaModelParabolic parabolic = radar.Model.AntennaControl.EmbeddedModel as IAgAntennaModelParabolic; 


 

//Give the parabolic antenna a 2 deg beamwidth; 


parabolic.InputType = AgEAntennaModelInputType.eAntennaModelInputTypeBeamwidth; 


parabolic.Beamwidth = 2.0; 

 

//Put the monostatic radar model in Search/Track mode 


monostaticModel.SetMode("Search Track"); 

IAgRadarModeMonostaticSearchTrack searchTrackMode = monostaticModel.Mode as IAgRadarModeMonostaticSearchTrack; 


 

//Set the waveform type to fixed prf 


searchTrackMode.SetWaveformType(AgERadarWaveformSearchTrackType.eRadarWaveformSearchTrackTypeFixedPRF); 


IAgRadarWaveformMonostaticSearchTrackFixedPRF fixedPrf = searchTrackMode.Waveform as IAgRadarWaveformMonostaticSearchTrackFixedPRF; 


fixedPrf.PulseDefinition.Prf = 0.002; //2 kHz 


 

//Set the pulse width to 1e-8 sec 


fixedPrf.PulseDefinition.PulseWidth = 1.0e-8; //sec 

 

//Set the number of pulses 


fixedPrf.PulseDefinition.NumberOfPulses = 25; 

 

//Set the pulse integration strategy to goal SNR 


fixedPrf.PulseIntegrationType = AgERadarPulseIntegrationType.eRadarPulseIntegrationTypeGoalSNR; 


IAgRadarPulseIntegrationGoalSNR pulseIntGoalSNR = fixedPrf.PulseIntegration as IAgRadarPulseIntegrationGoalSNR; 


pulseIntGoalSNR.SNR = 40.0; //dB 

 

//Set the transmit frequency 


monostaticModel.Transmitter.FrequencySpecification = AgERadarFrequencySpec.eRadarFrequencySpecFrequency; 


monostaticModel.Transmitter.Frequency = 2.1; //GHz 

 

//Set the transmit power 


monostaticModel.Transmitter.Power = 50.0; //dBW 

 

//Enable rain loss computation on the receiver 


monostaticModel.Receiver.UseRain = true; 

monostaticModel.Receiver.RainOutagePercent = 0.001; 

 

//Enable the receiver system noise temperature computation. 


monostaticModel.Receiver.SystemNoiseTemperature.ComputeType = AgENoiseTempComputeType.eNoiseTempComputeTypeCalculate; 


 

//Enable the antenna noise temperature computation 


monostaticModel.Receiver.SystemNoiseTemperature.AntennaNoiseTemperature.ComputeType = AgENoiseTempComputeType.eNoiseTempComputeTypeCalculate; 


monostaticModel.Receiver.SystemNoiseTemperature.AntennaNoiseTemperature.UseRain = true; 


 

//Don't inherit the radar cross section settings from the scenario 


targetAircraft.RadarCrossSection.Inherit = false; 

IAgRadarCrossSectionModel rcs = targetAircraft.RadarCrossSection.Model as IAgRadarCrossSectionModel; 


 

//Set the radar cross section compute strategy to constan value 


rcs.FrequencyBands[0].SetComputeStrategy("Constant Value"); 


IAgRadarCrossSectionComputeStrategyConstantValue constValRcs = 


    rcs.FrequencyBands[0].ComputeStrategy as IAgRadarCrossSectionComputeStrategyConstantValue; 


 

//Set the constant radar cross section to 0.5 dBsm 


constValRcs.ConstantValue = 0.5; //dBsm 

 

//Create an access object for the access between the radar and target 


IAgStkAccess radarAccess = rdrAsStkObject.GetAccessToObject(tgtAsStkObject); 


 

//Compute access 


radarAccess.ComputeAccess(); 

 

// Get the access intervals 


IAgIntervalCollection accessIntervals = radarAccess.ComputedAccessIntervalTimes; 


 

// Extract the access intervals and the range information for each access interval 


Array dataPrvElements = new object[] { "Time", "S/T SNR1", "S/T PDet1", "S/T Integrated SNR", "S/T Integrated PDet" }; 


 

IAgDataPrvTimeVar dp = radarAccess.DataProviders["Radar SearchTrack"] as IAgDataPrvTimeVar; 


 

for (int index0 = 0; index0 < accessIntervals.Count; ++index0) 


{ 

    object startTime = null, stopTime = null; 


    accessIntervals.GetInterval(index0, out startTime, out stopTime); 


 

    IAgDrResult result = dp.ExecElements(startTime, stopTime, 60, ref dataPrvElements); 


 

    Array timeValues = result.DataSets.GetDataSetByName("Time").GetValues(); 


    Array snr1 = result.DataSets.GetDataSetByName("S/T SNR1").GetValues(); 


    Array pdet1 = result.DataSets.GetDataSetByName("S/T PDet1").GetValues(); 


    Array integSnr = result.DataSets.GetDataSetByName("S/T Integrated SNR").GetValues(); 


    Array integPdet = result.DataSets.GetDataSetByName("S/T Integrated PDet").GetValues(); 


 

    for (int index1 = 0; index1 < timeValues.GetLength(0); ++index1) 


    { 

        string time = (string)timeValues.GetValue(index1); 


        double snr1Val = (double)snr1.GetValue(index1); 


        double pdet1Val = (double)pdet1.GetValue(index1); 


        double integSnrVal = (double)integSnr.GetValue(index1); 


        double integPdetVal = (double)integPdet.GetValue(index1); 


        Console.WriteLine("{0}: SNR1={1} PDet1={2} Integrated SNR={3} Integrated PDet={4}", time, snr1Val, pdet1Val, integSnrVal, integPdetVal); 


    } 

 

    Console.WriteLine(); 

}

Compute the probability of detection of a target for a monostatic search/track radar

[Visual Basic .NET] Copy Code

Dim rdrAsStkObject As
IAgStkObject = TryCast(radar, IAgStkObject)

Dim tgtAsStkObject As IAgStkObject = TryCast(targetAircraft,
IAgStkObject)



'Enable the rain loss computation on the
scenario RF environment

scenarioRFEnv.PropagationChannel.EnableRainLoss = True



'Configure the radar object as a monostatic
model.

radar.SetModel("Monostatic")

Dim monostaticModel As IAgRadarModelMonostatic = TryCast(radar.Model,
IAgRadarModelMonostatic)



'Orient the radar antenna in the direction of
the target

radar.Model.AntennaControl.EmbeddedModelOrientation.AssignAzEl(50.9,
36.8, AgEAzElAboutBoresight.eAzElAboutBoresightRotate)



'Set the radar antenna model to
parabolic

radar.Model.AntennaControl.SetEmbeddedModel("Parabolic")

Dim parabolic As IAgAntennaModelParabolic =
TryCast(radar.Model.AntennaControl.EmbeddedModel,
IAgAntennaModelParabolic)



'Give the parabolic antenna a 2 deg
beamwidth;

parabolic.InputType =
AgEAntennaModelInputType.eAntennaModelInputTypeBeamwidth

parabolic.Beamwidth = 2



'Put the monostatic radar model in
Search/Track mode

monostaticModel.SetMode("Search
Track")

Dim searchTrackMode As IAgRadarModeMonostaticSearchTrack =
TryCast(monostaticModel.Mode,
IAgRadarModeMonostaticSearchTrack)



'Set the waveform type to fixed
prf

searchTrackMode.SetWaveformType(AgERadarWaveformSearchTrackType.eRadarWaveformSearchTrackTypeFixedPRF)


Dim fixedPrf As IAgRadarWaveformMonostaticSearchTrackFixedPRF =
TryCast(searchTrackMode.Waveform,
IAgRadarWaveformMonostaticSearchTrackFixedPRF)

fixedPrf.PulseDefinition.Prf = 0.002

'2 kHz

'Set the pulse width to 1e-8 sec

fixedPrf.PulseDefinition.PulseWidth = 1E-08

'sec

'Set the number of pulses

fixedPrf.PulseDefinition.NumberOfPulses = 25



'Set the pulse integration strategy to goal
SNR

fixedPrf.PulseIntegrationType =
AgERadarPulseIntegrationType.eRadarPulseIntegrationTypeGoalSNR

Dim pulseIntGoalSNR As IAgRadarPulseIntegrationGoalSNR =
TryCast(fixedPrf.PulseIntegration,
IAgRadarPulseIntegrationGoalSNR)

pulseIntGoalSNR.SNR = 40

'dB

'Set the transmit frequency

monostaticModel.Transmitter.FrequencySpecification =
AgERadarFrequencySpec.eRadarFrequencySpecFrequency

monostaticModel.Transmitter.Frequency = 2.1

'GHz

'Set the transmit power

monostaticModel.Transmitter.Power = 50

'dBW

'Enable rain loss computation on the
receiver

monostaticModel.Receiver.UseRain = True

monostaticModel.Receiver.RainOutagePercent = 0.001



'Enable the receiver system noise temperature
computation.

monostaticModel.Receiver.SystemNoiseTemperature.ComputeType =
AgENoiseTempComputeType.eNoiseTempComputeTypeCalculate



'Enable the antenna noise temperature
computation

monostaticModel.Receiver.SystemNoiseTemperature.AntennaNoiseTemperature.ComputeType
= AgENoiseTempComputeType.eNoiseTempComputeTypeCalculate

monostaticModel.Receiver.SystemNoiseTemperature.AntennaNoiseTemperature.UseRain
= True



'Don't inherit the radar cross section
settings from the scenario

targetAircraft.RadarCrossSection.Inherit = False

Dim rcs As IAgRadarCrossSectionModel =
TryCast(targetAircraft.RadarCrossSection.Model,
IAgRadarCrossSectionModel)



'Set the radar cross section compute strategy
to constan value

rcs.FrequencyBands(0).SetComputeStrategy("Constant Value")

Dim constValRcs As
IAgRadarCrossSectionComputeStrategyConstantValue =
TryCast(rcs.FrequencyBands(0).ComputeStrategy,
IAgRadarCrossSectionComputeStrategyConstantValue)



'Set the constant radar cross section to 0.5
dBsm

constValRcs.ConstantValue = 0.5

'dBsm

'Create an access object for the access
between the radar and target

Dim radarAccess As IAgStkAccess =
rdrAsStkObject.GetAccessToObject(tgtAsStkObject)



'Compute access

radarAccess.ComputeAccess()



' Get the access intervals

Dim accessIntervals As IAgIntervalCollection =
radarAccess.ComputedAccessIntervalTimes



#If Not CSToJava Then

' Extract the access intervals and the range
information for each access interval

Dim dataPrvElements As Array =
New Object() {"Time",
"S/T SNR1", "S/T
PDet1", "S/T Integrated SNR",
"S/T Integrated PDet"}

#Else

#End If



Dim dp As
IAgDataPrvTimeVar = TryCast(radarAccess.DataProviders("Radar SearchTrack"), IAgDataPrvTimeVar)



Dim index0 As Integer = 0

While index0 <>

    Dim startTime
As Object
= Nothing, stopTime As Object =
Nothing

    #If Not
CSToJava Then

    accessIntervals.GetInterval(index0,
startTime, stopTime)

    #Else

    #End If



    #If Not
CSToJava Then

    Dim result
As IAgDrResult =
dp.ExecElements(startTime, stopTime, 60, dataPrvElements)

    #Else

    #End If



    Dim timeValues
As Array
= result.DataSets.GetDataSetByName("Time").GetValues()

    Dim snr1
As Array
= result.DataSets.GetDataSetByName("S/T
SNR1").GetValues()

    Dim pdet1
As Array
= result.DataSets.GetDataSetByName("S/T
PDet1").GetValues()

    Dim integSnr
As Array
= result.DataSets.GetDataSetByName("S/T
Integrated SNR").GetValues()

    Dim integPdet
As Array
= result.DataSets.GetDataSetByName("S/T
Integrated PDet").GetValues()



    Dim index1
As Integer = 0

    While index1
<>

        Dim time As
String =
DirectCast(timeValues.GetValue(index1), String)

        Dim snr1Val As
Double =
DirectCast(snr1.GetValue(index1), Double)

        Dim pdet1Val As
Double =
DirectCast(pdet1.GetValue(index1), Double)

        Dim integSnrVal As
Double =
DirectCast(integSnr.GetValue(index1), Double)

        Dim integPdetVal As
Double =
DirectCast(integPdet.GetValue(index1), Double)

        Console.WriteLine("{0}:
SNR1={1} PDet1={2} Integrated SNR={3} Integrated PDet={4}",
time, snr1Val, pdet1Val, integSnrVal, integPdetVal)

        System.Threading.Interlocked.Increment(index1)


    End
While



    Console.WriteLine()

    System.Threading.Interlocked.Increment(index0)


End While

CoClasses that Implement IAgRadarModelMonostatic

Name
AgRadarModelMonostatic

AGI STK Objects 11	Send comments on this topic.
IAgRadarModelMonostatic Interface