Stałe fizyczne w nowszych wersjach programu Mathematica

(* liczba Avogadro *)

Avogadro=Entity["PhysicalConstant","AvogadroConstant"]["Value"]

(* masa elektronu *)

me=Entity["PhysicalConstant","ElectronMass"]["Value"]

(* masa protonu *)

mp=Entity["PhysicalConstant","ProtonMass"]["Value"]

(* masa neutronu *)

mn=Entity["PhysicalConstant","NeutronMass"]["Value"]

(* ładunek elementarny *)

e=Entity["PhysicalConstant","ElementaryCharge"]["Value"]

N[e]

(* stała grawitacji występująca w prawie powszechnego ciążenia *)

G=Entity["PhysicalConstant","GravitationalConstant"]["Value"]

(* prędkość światła w próżni *)

c=Entity["PhysicalConstant","SpeedOfLight"]["Value"]

(* stała Plancka h *)

h=Entity["PhysicalConstant","PlanckConstant"]["Value"]

N[h]

(* zredukowana stała Plancka ℏ = (h/(2 π)) *)

hbar=Entity["PhysicalConstant","ReducedPlanckConstant"]["Value"]

N[hbar]

Simplify[hbar==h/(2*Pi)]

(* stała k w prawie Coulomba w układzie SI *)

kC=Entity["PhysicalConstant","CoulombConstant"]["Value"]

(* stała struktury subtelnej α *)

alpha=Entity["PhysicalConstant","FineStructureConstant"]["Value"]

(* alpha jest bliskie 1/137: *)

alpha*137