Wolfram Data Repository

Immediate Computable Access to Curated Contributed Data

PMMA Synthesis Model

Source Notebook

A model of a Polymethyl methacrylate (PMMA) synthesis reactor

Examples

Basic Examples (3) 

Retrieve the model:

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

The icon:

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

The annotation:

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

Scope & Additional Elements (5) 

Available content elements:

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

The transfer function model:

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

The input variables:

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

Other variables:

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

Temporal variable:

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

Visualizations (1) 

The pole-zero plot:

In[9]:=
p = Eigenvalues[First@Normal@ResourceData[\!\(\* TagBox["\"\<PMMA Synthesis Model\>\"", #& , BoxID -> "ResourceTag-PMMA Synthesis Model-Input", AutoDelete->True]\), "StateSpaceModel"]]; ComplexListPlot[p, Sequence[PlotMarkers -> Style[ Rotate["+", Rational[1, 4] Pi], { GrayLevel[0], FontSize -> 18}], Frame -> True]]
Out[10]=

Analysis (4) 

The transfer-function model:

In[11]:=
tfm = ResourceData[\!\(\* TagBox["\"\<PMMA Synthesis Model\>\"", #& , BoxID -> "ResourceTag-PMMA Synthesis Model-Input", AutoDelete->True]\), "TransferFunctionModel"]
Out[11]=

The transfer-function model of the initiator μ to the bulk zeroth moment ζ3:

In[12]:=
tfm = SystemsModelExtract[tfm, 1, 2]
Out[12]=

A PI controller:

In[13]:=
pi = PIDTune[tfm, "PI", "Data"]
Out[13]=

The closed-loop system's output response to step-input:

In[14]:=
OutputResponse[pi["ReferenceOutput"], UnitStep[t], {t, 0, 10}]; Plot[%, {t, 0, 3}, PlotRange -> All]
Out[15]=

Suba Thomas, "PMMA Synthesis Model" from the Wolfram Data Repository (2025)  

Data Resource History

  • Date Created:

Source Metadata

  • Citation:
    • J. R. Richards and J. P. Congalidis, "Measurement and control of polymerization reactors", Computers & Chemical Engineering, vol. 30, no. 10, pp. 1447–1463, Sep. 2006.

Publisher Information

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