Wolfram Data Repository

Immediate Computable Access to Curated Contributed Data

747 Lateral Model

Source Notebook

Model of the lateral dynamics of a Boeing 747

Examples

Basic Examples (3) 

Retrieve the model:

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

The icon:

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

The annotation:

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

Scope & Additional Elements (5) 

Available content elements:

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

The transfer function model:

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

The input variables:

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

Other variables:

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

Temporal variable:

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

Analysis (4) 

Obtain a state-space model with the rudder and another with aileron as the sole input:
In[9]:=
{ssmR, ssmA} = Table[SystemsModelExtract[ResourceData[\!\(\* TagBox["\"\<747 Lateral Model\>\"", #& , BoxID -> "ResourceTag-747 Lateral Model-Input", AutoDelete->True]\), "StateSpaceModel"] /. ResourceData[\!\(\* TagBox["\"\<747 Lateral Model\>\"", #& , BoxID -> "ResourceTag-747 Lateral Model-Input", AutoDelete->True]\), "Parameters"], i], {i, 2}]
Out[9]=
The closed-loop systems of both systems with an LQR controller:
In[10]:=
wts = {DiagonalMatrix[{5, 15, 1, 5}], {{1}}};
In[11]:=
{csysA, csysR} = Table[LQRegulatorGains[sys, wts, "ClosedLoopSystem"], {sys, {ssmA, ssmR}}]
Out[11]=
Using the rudder results in a faster yaw response:
In[12]:=
or = Table[ OutputResponse[{sys, {0, 0.15, 0, 0}}, 0, {t, 0, 6}], {sys, {csysR, csysA}}]; Plot[Evaluate[First /@ or], {t, 0, 6}, Sequence[ PlotRange -> All, PlotLegends -> {"using rudder", "using aileron"}, AxesLabel -> {"", r}]]
Out[13]=
As well as a smaller roll angle:
In[14]:=
Plot[Evaluate[Last /@ or], {t, 0, 6}, Sequence[ PlotRange -> All, PlotLegends -> {"using rudder", "using aileron"}, AxesLabel -> {"", \[Phi]}]]
Out[14]=

Suba Thomas, "747 Lateral Model" from the Wolfram Data Repository (2025)  

Data Resource History

  • Date Created:

Source Metadata

  • Citation:
    • A. E. Bryson Jr., Control of Spacecraft and Aircraft. Princeton, NJ, USA: Princeton University Press, 1994.

Publisher Information

  • Prepared for the Wolfram Data Repository By: Maher Kuzbari, Suba Thomas
  • Publisher of Record: Suba Thomas