Harrier Jet Model

Source Notebook

Model of a hovering Harrier VTOL jet

Examples

Basic Examples (3) 

Retrieve the model:

In[1]:=
ResourceData[\!\(\*
TagBox["\"\<Harrier Jet Model\>\"",
#& ,
BoxID -> "ResourceTag-Harrier Jet Model-Input",
AutoDelete->True]\)]
Out[1]=

The icon:

In[2]:=
ResourceData[\!\(\*
TagBox["\"\<Harrier Jet Model\>\"",
#& ,
BoxID -> "ResourceTag-Harrier Jet Model-Input",
AutoDelete->True]\), "Icon"]
Out[2]=

The annotation:

In[3]:=
ResourceData[\!\(\*
TagBox["\"\<Harrier Jet Model\>\"",
#& ,
BoxID -> "ResourceTag-Harrier Jet Model-Input",
AutoDelete->True]\), "Annotation"]
Out[3]=

Scope & Additional Elements (5) 

Available content elements:

In[4]:=
\!\(\*
TagBox[
RowBox[{"ResourceObject", "[", "\"\<Harrier Jet Model\>\"", "]"}],
#& ,
BoxID -> "ResourceTag-Harrier Jet Model-Input",
AutoDelete->True]\)["ContentElements"]
Out[4]=

The transfer function model:

In[5]:=
ResourceData[\!\(\*
TagBox["\"\<Harrier Jet Model\>\"",
#& ,
BoxID -> "ResourceTag-Harrier Jet Model-Input",
AutoDelete->True]\), "TransferFunctionModel"]
Out[5]=

The input variables:

In[6]:=
ResourceData[\!\(\*
TagBox["\"\<Harrier Jet Model\>\"",
#& ,
BoxID -> "ResourceTag-Harrier Jet Model-Input",
AutoDelete->True]\), "InputVariables"]
Out[6]=

Other variables:

In[7]:=
ResourceData[\!\(\*
TagBox["\"\<Harrier Jet Model\>\"",
#& ,
BoxID -> "ResourceTag-Harrier Jet Model-Input",
AutoDelete->True]\), "OtherVariables"]
Out[7]=

Temporal variable:

In[8]:=
ResourceData[\!\(\*
TagBox["\"\<Harrier Jet Model\>\"",
#& ,
BoxID -> "ResourceTag-Harrier Jet Model-Input",
AutoDelete->True]\), "TemporalVariable"]
Out[8]=

Analysis (5) 

A numerical model of the system:

In[9]:=
nssm = NonlinearStateSpaceModel[ResourceData[\!\(\*
TagBox["\"\<Harrier Jet Model\>\"",
#& ,
BoxID -> "ResourceTag-Harrier Jet Model-Input",
AutoDelete->True]\)] /. ResourceData[\!\(\*
TagBox["\"\<Harrier Jet Model\>\"",
#& ,
BoxID -> "ResourceTag-Harrier Jet Model-Input",
AutoDelete->True]\), "Parameters"], Automatic, Automatic, Automatic, None] // Simplify
Out[9]=
Both inputs are needed for the aircraft to be fully controllable:
In[10]:=
Table[in -> ControllableModelQ@
   StateSpaceModel@SystemsModelExtract[nssm, in], {in, {1, 2, All}}]
Out[10]=

Without a feedback controller the jet is in freefall:

In[11]:=
OutputResponse[{nssm, {0, 0, -0.5, 0, 0.1}}, {0, 0}, {t, 0, 6}][[2]];
Plot[%, {t, 0, 6}, PlotRange -> All]
Out[12]=
Design a state feedback controller to stabilize the jet:
In[13]:=
clp = {-2.5 + 0.5 I, -2.5 - 0.5 I, -1.75, -2, -4, -5};
csys = StateFeedbackGains[nssm, clp, "ClosedLoopSystem"]
Out[14]=

The aircraft's vertical position is regulated:

In[15]:=
OutputResponse[{csys, {0, 0, -0.5, 0, 0.1}}, {0, 0}, {t, 0, 6}][[2]];
Plot[%, {t, 0, 6}, PlotRange -> All]
Out[16]=

Suba Thomas, "Harrier Jet Model" from the Wolfram Data Repository (2025)  

Data Resource History

Source Metadata

Publisher Information