Yukterez

Inflation Expansion FGH

Jan 28th, 2018
140
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (* Context: http://bit.ly/2rPsS5n, Syntax: Wolfram *)
  2.  
  3. (* Constants *)
  4. c=299792458m/sek; (* Lightspeed *)
  5. G=667384*^-16m^3 kg^-1 sek^-2; (* Newton Constant *)
  6. yr=36525*24*36 sek; (* Billion Year Scale *)
  7. lyr=yr*c; (* Billion Lightyear Scale *)
  8. Mpc=30856775777948584200000m; (* Megaparsec *)
  9. fm=1*^-15m ;(* Femtometer *)
  10. at=E^(H t); (* Skalenfaktor nach Zeit *)
  11.  
  12. (* Input *)
  13. H=c/10^(-28.5)/m; (* Hubble Constant during Inflation *)
  14. dA=10fm; (* Diameter Atom *)
  15.  
  16. (* Time *)
  17. Solve[at dA==4lyr,t][[1,1]]
RAW Paste Data