(****************************  filename: data.m  *****************************)

$TextStyle = {"Courier New", FontSize -> 18}

Off[General::spell1]

<<Miscellaneous`PhysicalConstants`
<<Miscellaneous`Units`

$MaxPrecision = Infinity
$MaxExtraPrecision = Infinity

USimplify[x_] := Simplify[x, Assumptions -> {Meter > 0, Centimeter > 0,
                                             Second > 0, Year > 0}]


 (*****  Enter input data in rational number form (no decimal points).  *****)

     H0 = 72 (Kilo Meter/Second)/(Mega Parsec) (* H0 := H(t0); t0 is the    *)
                                               (* present epoch in seconds. *)
   Hmax = (5 10^60) H0                         (*                           *)
                                               (*                           *)
     Q0 = 1/2                                  (* Q0 := Q(t0); Q0 must be   *)
                                               (* between 0 and 1.          *)

 (***************************************************************************)


      k = -1/Centimeter^2

      c = Convert[SpeedOfLight, Centimeter/Second]

  H0sec = Convert[H0, 1/Second]

Hmaxsec = Convert[Hmax, 1/Second]

   H0cm = H0sec/c

 Hmaxcm = Hmaxsec/c


Print[StringForm[" "]]

Print[StringForm["k = ``,  c = ``,  c^2 k = ``",
                  N[k]  ,  N[c]  ,  N[c^2 k]    ]]

Print[StringForm[" "]]

Print[StringForm["H0 = `` = ``,  H0/c = ``",
                  H0, N[H0sec], N[H0cm]  ]]

Print[StringForm[" "]]

Print[StringForm["Hmax = `` = ``,  Hmax/c = ``",
                  N[Hmax], N[Hmaxsec], N[Hmaxcm] ]]

Print[StringForm[" "]]

Print[StringForm["Q0 = ``,  Hmax/H0 = ``",
                  N[Q0]  ,  N[Hmax/H0] ]]


Print[StringForm[" "]]

totaltimeused = 0

newtimeused = TimeUsed[] - totaltimeused

totaltimeused = totaltimeused + newtimeused

Print[StringForm["Memory in use = ``",
                  N[MemoryInUse[]/2^20,7] megabytes]]

(***************************  End of file data.m  ****************************)
