>    Digits:=16:
c:=299792458:
two:=2: three:=3: five:=5:
pi:=evalf(Pi):
e:=evalf(exp(1)):
c:=299792458: R:=10973731.568157:
alpha:=137.035999177:
mu0:=(pi/(two^5*five^7)):
Omega:=(c^35/(2^295*3^21*pi^157*mu0^9*R^7*alpha^26))^(1/225.0):
Omega; sqrt(pi^e*e^(1-e));

2.007134949573997

2.007134954324946

>    M:=1:
T:=pi:
P:=Omega:
L:=two*pi^2*Omega^2:
V:=L/T:
A:=two^4*V^3/(alpha*P^3):
sigma:=three*alpha^2*A*L/(two*pi^2):
fe=sigma^3/(two*T);

fe = two^20*pi^8*three^3*alpha^3*Omega^15

>    sigma^3/(two*T)=4*pi^2*(2^6*3*pi^2*alpha*Omega^5)^3;

.2389545308244225e23 = .2389545308244225e23

>    v:=c/(2*pi*Omega^2):
r:=(mu0*2^11*pi^5*Omega^4/a)^(1./7):
mP:=M*r^4/v:
tp:=T*r^9/v^6:
mv:=P*r^2:
lp:=2*pi^2*Omega^2*r^9/v^5:
amp:=2^4*c^3/(alpha*mv^3):
K:=amp*c/(2*pi):
mP; tp; lp; amp*tp; K;

.2176728175166455e-7

.5390517861273737e-43

.1616036599524156e-34

.1602176510129224e-18

.1418145219547026e33

>    h:=(2*pi^10*mu0^3/(3^6*c^5*a^13*R^2))^(1./3):
e:=(4*pi^5/(3^3*c^4*a^8*R))^(1./3):
lp:=(pi^22*mu0^9/(2^35*3^24*a^49*c^35*R^8))^(1./15):
tp:=(pi^22*mu0^9/(2^35*3^24*a^49*c^50*R^8))^(1./15):
mP:=(2^25*pi^13*mu0^6/(3^6*c^5*a^16*R^2))^(1./15):
amp:=(2^10*pi*3^3*c^10*a^3*R/mu0^3)^(1./5):
kB:=(pi^5*mu0^3/(2*3^3*a^5*c^4*R))^(1./3):
G:=(pi^3*mu0/(2^20*3^6*a^11*R^2))^(1./5):
Tp:=(2^10*3^3*c^15*a^3*R/(pi^4*mu0^3))^(1./5):
me:=(16*pi^10*R*mu0^3/(3^6*a^7*c^8))^(1./3):
BM:=(pi^2/(2^7*3^3*c*a^14*R^4))^(1./3):
h; e; mP; tp; lp; amp*tp; kB; G; me; BM;

.6626069126307630e-33

.1602176510129239e-18

.2176728175166455e-7

.5390517861273736e-43

.1616036599524158e-34

.8010882550646124e-19

.1379510146893199e-22

.6672497188306531e-10

.9109382306568890e-30

.9274009348706546e-23