Wolfram Data Repository

Immediate Computable Access to Curated Contributed Data

HIV Infection Model

Source Notebook

A model of an HIV infection

Examples

Basic Examples (3) 

Retrieve the model:

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

The icon:

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

The annotation:

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

Available content elements:

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

The available model types:

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

The operating point:

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

The parameters:

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

A plot of the model's response to a course of anti-viral medication:

In[8]:=
{assm, pars} = Table[ResourceData[\!\(\* TagBox["\"\<HIV Infection Model\>\"", #& , BoxID -> "ResourceTag-HIV Infection Model-Input", AutoDelete->True]\), elem], {elem, {"AffineStateSpaceModel", "Parameters"}}];
In[9]:=
OutputResponse[{assm /. pars, {1000, 0, 10}}, {0.15, 0.3}, {t, 0, 500}]; Plot[%, {t, 0, 500}, PlotRange -> All, PlotLegends -> {Subscript[\[ScriptCapitalT], \[Dagger]], \[ScriptV]}]
Out[10]=

The linear and affine models and their parameters:

In[11]:=
{ssm, assm, pars} = Table[ResourceData[\!\(\* TagBox["\"\<HIV Infection Model\>\"", #& , BoxID -> "ResourceTag-HIV Infection Model-Input", AutoDelete->True]\), elem], {elem, {"StateSpaceModel", "AffineStateSpaceModel", "Parameters"}}]
Out[11]=

A numerical affine and state space model:

In[12]:=
{assmn, ssmn} = Table[sys /. pars, {sys, {assm, ssm}}]
Out[12]=

Compute a state-output estimator:

In[13]:=
EstimatorGains[ssmn, {-11, -12, -8}]; est = StateOutputEstimator[ssmn, %]
Out[14]=

Compare the affine model's virus population to the estimated virus population:

In[15]:=
or = OutputResponse[{assmn, {1000, 0, 10}}, {0.15, 0.3}, {t, 0, 500}]; orest = OutputResponse[est, Join[{0.15, 0.3}, or], {t, 0, 500}]; Plot[{or[[2]], orest[[3]]}, {t, 0, 500}, Sequence[ PlotRange -> All, PlotStyle -> {Automatic, Dashing[{Small, Small}]}, PlotLegends -> {"\[ScriptV]", "estimated \[ScriptV]"}]]
Out[16]=

Suba Thomas, "HIV Infection Model" from the Wolfram Data Repository (2025)  

Data Resource History

  • Date Created:

Source Metadata

  • Citation:
    • I. K. Craig, X. Xia, and J. W. Venter, "Introducing HIV/AIDS Education Into the Electrical Engineering Curriculum at the University of Pretoria," IEEE Transactions on Education, vol. 47, no. 1, pp. 65–73, Feb. 2004.

Publisher Information

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