Overview

This is a visualizer for Fatty Acids: Saturated, Monounsaturated, and Polyunsaturated. I created 2D and 3D Molecule Plot animations for each that cycles from the shorter carbon chain to longer carbon chain. Specifically wanted to be able to visualize the double bonds on the unsaturated fats.

Lists of Saturated, Monounsaturated, and Polyunsaturated Fats


Fat Molecule Animation

2D Plots

In[]:=
ListAnimate[Table[Labeled[MoleculePlot[Molecule[SaturatedFats[[i]]]],SaturatedFatNames[[i]]],{i,Length[SaturatedFats]}]]
Out[]=
Short Chain Fatty Acid: Butyric Acid (C4:0)
In[]:=
ListAnimate[Table[Labeled[MoleculePlot[Molecule[MonounsaturatedFats[[i]]]],MonounsaturatedFatNames[[i]]],{i,Length[MonounsaturatedFats]}]]
Out[]=
Palmitoleic Acid (C16:1)
In[]:=
ListAnimate[Table[Labeled[MoleculePlot[Molecule[PufaO6[[i]]]],PufaO6Names[[i]]],{i,Length[PufaO6]}]]
Out[]=
Linoleic Acid (C18:2)
In[]:=
ListAnimate[Table[Labeled[MoleculePlot[Molecule[PufaO3[[i]]]],PufaO3Names[[i]]],{i,Length[PufaO3]}]]
Out[]=
Alpha-Linolenic Acid (C18:3)

3D Plots

In[]:=
ListAnimate[Table[Labeled[MoleculePlot3D[Molecule[SaturatedFats[[i]]]],SaturatedFatNames[[i]]],{i,Length[SaturatedFats]}]]
Out[]=
Short Chain Fatty Acid: Butyric Acid (C4:0)
In[]:=
ListAnimate[Table[Labeled[MoleculePlot3D[Molecule[MonounsaturatedFats[[i]]]],MonounsaturatedFatNames[[i]]],{i,Length[MonounsaturatedFats]}]]
Out[]=
Palmitoleic Acid (C16:1)
In[]:=
ListAnimate[Table[Labeled[MoleculePlot3D[Molecule[PufaO6[[i]]]],PufaO6Names[[i]]],{i,Length[PufaO6]}]]
Out[]=
Linoleic Acid (C18:2)

CITE THIS NOTEBOOK

Fatty Acid 2D and 3D molecule animation​
by Arihant Gadgade​
Wolfram Community, STAFF PICKS, September 20, 2024
​https://community.wolfram.com/groups/-/m/t/3278492