Wolfram Data Repository

Immediate Computable Access to Curated Contributed Data

Power Density in Biological and Astronomical Systems

Power density in various systems in the universe for a comparison of their thermodynamics efficiency

Data includes the computed metabolic rate across the ranges of species (Prokaryotes, Protists, Metazoans) and the estimated power (energy rate) density in biological and astronomical systems for a comparison of their thermodynamics efficiency.

(7 columns, 318 rows)

Examples

Basic Examples

Retrieve the default content:

In[1]:=
ResourceData["Power Density in Biological and Astronomical Systems"]
Out[1]=

Plot the power density of various systems (biological/astronomical) in the universe as a function of their age (from their origin):

In[2]:=
ListLogPlot[ ResourceData["Power Density in Biological and Astronomical Systems"][ GroupBy["System"], Mean, {"Age", "PowerDensity"}], PlotTheme -> "Business", FrameLabel -> {{"Power density (W/g)", Automatic}, {"Age (Gya)", Automatic}}]
Out[2]=

Plot the relationship between mass and endogenous/active metabolic rates for Protists species:

In[3]:=
findFit[fitdata_] := Block[{lm, coeff}, lm = LinearModelFit[ Log10[Values@Normal@fitdata /. q_Quantity :> First@q], x, x]; coeff = First@Transpose@lm["ParameterTableEntries"]; 10^#1 x^#2 & @@ coeff] Block[{data, endogMR, activeMR, endogFit, activeFit}, data = ResourceData[ "Power Density in Biological and Astronomical Systems"][ Select[MatchQ[#System, "Protists"] &]]; endogMR = data[Select[MatchQ[#EndogenousMetabolicRate, _Quantity] &], {"Mass", "EndogenousMetabolicRate"}]; activeMR = data[Select[MatchQ[#ActiveMetabolicRate, _Quantity] &], {"Mass", "ActiveMetabolicRate"}]; endogFit = findFit[endogMR]; activeFit = findFit[activeMR]; Show[ListLogLogPlot[endogMR, PlotStyle -> Blue, PlotTheme -> "Business", PlotLegends -> {"Endogenous metabolic rate"}], ListLogLogPlot[activeMR, PlotStyle -> Orange, PlotTheme -> "Business", PlotLegends -> {"Active metabolic rate"}], LogLogPlot[endogFit, {x, 10^-12, 10^-3}, PlotStyle -> Blue], LogLogPlot[activeFit, {x, 10^-12, 10^-3}, PlotStyle -> Orange], FrameLabel -> {{"Metabolic rate (W)", Automatic}, {"Mass (g)", Automatic}}]]
Out[3]=

Wolfram Research, "Power Density in Biological and Astronomical Systems" from the Wolfram Data Repository (2017)   https://doi.org/10.24097/wolfram.08307.data

Data Resource History

  • Date Created:

Source Metadata

  • Language: English
  • Citation:
    • Chaisson, E. J. Energy rate density as a complexity metric and evolutionary driver. Complexity 16, 27–40 (2010).
    • Chaisson, E. J. Energy Flows in Low-Entropy Complex Systems. Entropy 17, 8007–8018 (2015).
    • DeLong, J., Okie, J., Moses, M., Sibly, R. & Brown, J. Shifts in metabolic scaling, production, and efficiency across major evolutionary transitions of life. Proceedings of the National Academy of Sciences 107, 12941–12945 (2010).
    • Kempes, C. P., Wolpert, D., Cohen, Z., & Ṕerez-Mercader, J. The thermodynamic efficiency of computations made in cells across the range of life. arXiv:1706.05043v1 (2017)

Data Downloads

Publisher Information

  • Publisher of Record: Wolfram Research