Educational Materials

How Big are Exoplanets Compared to Stars?

Stephen Wolfram

Author

Stephen Wolfram

Title

How Big are Exoplanets Compared to Stars?

Description

Find 10 random known exoplanets:

Category

Educational Materials

Keywords

URL

http://www.notebookarchive.org/2019-08-98zxmnk/

DOI

https://notebookarchive.org/2019-08-98zxmnk

Date Added

2019-08-20

Date Last Modified

2019-08-20

File Size

220.4 kilobytes

Supplements

Rights

Redistribution rights reserved

How Big are Exoplanets Compared to Stars?

Find 10 random known exoplanets:

In[]:=

RandomEntity["Exoplanet",10]

Out[]=



HD 217107 c

,

Kepler 469 b

,

Kepler 1118 b

,

WASP 88 b

,

HD 231701 b

,

K2-289 b

,

Kepler 1106 b

,

Kepler 1472 b

,

HAT-P-44 c

,

Kepler 472 b



Find their masses:

EntityValue[%,"Mass"]

Find the masses of all known exoplanets:

In[]:=

exodata=DeleteMissing[EntityValue["Exoplanet","Mass"]];

Make histogram of the masses:

In[]:=

Histogram[exodata]

Out[]=

Find the most massive exoplanet mass known:

In[]:=

Max[exodata]

Out[]=

6.396745×

28

10

kg

Compare to Jupiter:

In[]:=

Max[exodata]

Jupiter

PLANET



mass



Out[]=

33.70

Compare to the Sun:

In[]:=

Max[exodata]

Sun

STAR



mass



Out[]=

0.03216975

Get 10 random stars:

RandomEntity["Star",10]

Find the masses of 20 randomly chosen stars:

In[]:=

DeleteMissing[EntityValue[RandomEntity["Star",20],"Mass"]]

Out[]=



1.7×

30

10

kg

,

7.7×

30

10

kg

,

2.4×

30

10

kg

,

5.8×

30

10

kg

,

2.3×

30

10

kg

,

1.8×

30

10

kg

,

2.2×

30

10

kg

,

2.3×

30

10

kg

,

2.2×

30

10

kg

,

2.6×

30

10

kg

,

1.1×

30

10

kg

,

2.5×

30

10

kg

,

5.8×

30

10

kg



Find the ratio to the mass of the sun:

In[]:=

%

Sun

STAR



mass



Out[]=

{0.87,3.9,1.2,2.9,1.1,0.92,1.1,1.2,1.1,1.3,0.56,1.3,2.9}

Find the mass distribution of all stars in the system (might take a while):

In[]:=

stardata=DeleteMissing[EntityValue["Star","Mass"]];

Make a histogram of the mass distribution:

In[]:=

Histogram[stardata]

Out[]=

Make a logarithmic histogram:

In[]:=

Histogram[stardata,Automatic,{"Log","Probability"}]

Out[]=

(Note that small stars may well be absent for reasons of detection rather than existence.)

Find the maximum mass in the data:

In[]:=

Max[stardata]

Sun

STAR



mass



Out[]=

265.

Find the minimum mass:

In[]:=

Min[stardata]

Sun

STAR



mass



Out[]=

0.×

-2

10

In[]:=

TakeSmallest[stardata,5]

Out[]=



2.×

28

10

kg

,

4.×

28

10

kg

,

4.×

28

10

kg

,

4.×

28

10

kg

,

4.×

28

10

kg



In[]:=

%

Sun

STAR



mass



Out[]=

{0.×

-2

10

,0.02,0.02,0.02,0.02}

In[]:=

Min[stardata]/Max[exodata]

Out[]=

0.3

In[]:=

TakeLargest[exodata,5]

Out[]=



6.396745×

28

10

kg

,

5.6944×

28

10

kg

,

5.40948×

28

10

kg

,

5.315×

28

10

kg

,

5.16843×

28

10

kg



Cite this as: Stephen Wolfram, "How Big are Exoplanets Compared to Stars?" from the Notebook Archive (2019), https://notebookarchive.org/2019-08-98zxmnk