Wolfram Data Repository

Immediate Computable Access to Curated Contributed Data

Wood-Berry Distillation Model

Source Notebook

Wood-Berry model of a distillation column

Examples

Basic Examples (3) 

Retrieve the model:

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

The icon:

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

The annotation:

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

Scope & Additional Elements (5) 

Available content elements:

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

The state space model:

In[5]:=
ResourceData[\!\(\* TagBox["\"\<Wood-Berry Distillation Model\>\"", #& , BoxID -> "ResourceTag-Wood-Berry Distillation Model-Input", AutoDelete->True]\), "StateSpaceModel"]
Out[5]=

The input variables:

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

The output variables:

In[7]:=
ResourceData[\!\(\* TagBox["\"\<Wood-Berry Distillation Model\>\"", #& , BoxID -> "ResourceTag-Wood-Berry Distillation Model-Input", AutoDelete->True]\), "OutputExpressions"]
Out[7]=

Temporal variable:

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

Analysis (3) 

The model's response to a step-input disturbance to the feed is delayed:
In[9]:=
or = OutputResponse[ResourceData[\!\(\* TagBox["\"\<Wood-Berry Distillation Model\>\"", #& , BoxID -> "ResourceTag-Wood-Berry Distillation Model-Input", AutoDelete->True]\)], {0, 0, UnitStep[t]}, {t, 0, 60}]; Plot[or, {t, 0, 60}, Sequence[ PlotRange -> All, PlotLegends -> {"\!\(\*SubscriptBox[\(y\), \(d\)]\)", "\!\(\*SubscriptBox[\(y\), \(b\)]\)"}]]
Out[10]=
Obtain a delay-free approximation of the model:
In[11]:=
dFreeSys = SystemsModelDelayApproximate[ResourceData[\!\(\* TagBox["\"\<Wood-Berry Distillation Model\>\"", #& , BoxID -> "ResourceTag-Wood-Berry Distillation Model-Input", AutoDelete->True]\)], 0]
Out[11]=
The delay and delay-free system's responses to a disturbance in the feed input:
In[12]:=
orDF = OutputResponse[dFreeSys, {0, 0, UnitStep[t]}, {t, 0, 60}];
In[13]:=
Legended[ Grid[{Plot[#, {t, 0, 60}, PlotLabel -> #1[[3]]] & /@ ({or, orDF, {Subscript[y, d], Subscript[y, b]}}\[Transpose])}, Spacings -> {3, 0}], Placed[ LineLegend[{ RGBColor[0.368417, 0.506779, 0.709798], RGBColor[0.880722, 0.611041, 0.142051]}, {"delay", "delay free"}, LegendLayout -> "Row"], Below]]
Out[13]=

Suba Thomas, "Wood-Berry Distillation Model" from the Wolfram Data Repository (2025)  

Data Resource History

  • Date Created:

Source Metadata

  • Citation:
    • R. K. Wood and M. W. Berry, "Terminal composition control of a binary distillation column", Chemical Engineering Science, vol. 28, pp. 1707–1717, 1973.

Publisher Information

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