-3
$\begingroup$

I have a question about how to use the plotting capabities of Mathematica to show the life span of people listed in Bible, Genesis Chapter 5 (from Adam to Noah) and Chapter 11 (from Shem to Abram).

The life period of each person is listed as follow.

Data from:

Genesis Chapter 5 (from Adam to Noah)(NIV)

Chapter 11 (from Shem to Abram)(NIV)

Name: First Life period, lefted life, total life

Adam: 0-130, 800, 930;

Seth: 0-105, 807, 912;

Enosh: 0-90, 815, 905;

Kenan: 0-70, 840, 910;

Mahalalel: 0-65, 830, 895;

Jared: 0-162, 800, 962;

Enoch: 0-65, 300, 365;

Methuselah: 0-187, 782, 969;

Lamech: 0-182, 595, 777;

Noah: 0-500, 450, 950;

Shem: 0-100, 500, 600;

Arphaxad: 0-35, 403, 438;

Shelah: 0-30, 430, 433;

Eber: 0-34, 430, 464;

Peleg: 0-30, 209, 239;

Reu: 0-32, 207, 239;

Serug: 0-30, 200, 230;

Nahor: 0-29, 119, 148;

Terah: 0-70, 137, 207;


Like this one @m_goldberg I just want to draw picture like the below ones.

$\endgroup$

closed as unclear what you're asking by Feyre, b.gates.you.know.what, MarcoB, ubpdqn, Simon Woods Nov 4 '16 at 21:59

Please clarify your specific problem or add additional details to highlight exactly what you need. As it's currently written, it’s hard to tell exactly what you're asking. See the How to Ask page for help clarifying this question. If this question can be reworded to fit the rules in the help center, please edit the question.

2
$\begingroup$
NumberLinePlot[{
  Interval[{0, 130}], 
  Interval[{130, 930}],(*1Adam*)
  {Interval[{130, 235}], 
   Interval[{235, 1042}]},(*2Seth*)
  {Interval[{235, 325}], 
   Interval[{325, 1140}]},(*3Enosh*)
  {Interval[{325, 395}], 
   Interval[{395, 1235}]},(*4Kenan*)
  {Interval[{395, 460}], 
   Interval[{460, 1290}]},(*5Mahalalel*)
  {Interval[{460, 622}], 
   Interval[{622, 1422}]},(*6Jared*)
  {Interval[{622, 687}], 
   Interval[{687, 987}]},(*7Enoch*)
  {Interval[{687, 874}], 
   Interval[{874, 1656}]},(*8Methuselah*)
  {Interval[{874, 1056}], 
   Interval[{1056, 1651}]},(*9Lamech*)
  {Interval[{1056, 1556}], 
   Interval[{1556, 2006}]},(*10Noah*)
  {Interval[{1556, 1656}], 
   Interval[{1656, 2156}]},(*11Shem*)
  {Interval[{1656, 1691}], 
   Interval[{1691, 2094}]},(*12Arphaxad*)
  {Interval[{1691, 1721}], 
   Interval[{1721, 2151}]},(*13Shelah*)
  {Interval[{1721, 1755}], 
   Interval[{1755, 2185}]},(*14Eber*)
  {Interval[{1755, 1785}], 
   Interval[{1785, 1994}]},(*15Peleg*)
  {Interval[{1785, 1817}], 
   Interval[{1817, 2024}]},(*16Reu*)
  {Interval[{1817, 1847}], 
   Interval[{1847, 2047}]},(*17Serug*)
  {Interval[{1847, 1876}], 
   Interval[{1876, 1995}]},(*18Nahor*)
  {Interval[{1876, 1946}], 
   Interval[{1946, 2083}]}(*19Terah*)
  }, 
 PlotLegends -> {"1Adam", "1Adam", "2Seth", "3Enosh", "4Kenan", 
   "5Mahalalel", "6Jared", "7Enoch", "8Methuselah", "9Lamech", 
   "10Noah", "11Shem", "12Arphaxad", "13Shelah", "14Eber", "15Peleg", 
   "16Reu", "17Serug", "18Nahor", "19Terah"}, 
 PlotStyle -> {Red, Blue, Green, Black, Gray, Cyan, Magenta, Yellow, 
   Brown, Orange, Pick, Purple, LightRed, LightGreen, LightBlue, 
   LightGray, LightCyan, LightMagenta, LightYellow, LightBrown}]
$\endgroup$

Not the answer you're looking for? Browse other questions tagged or ask your own question.