Home

About

Advanced Search

Browse by Discipline

Scientific Societies

E-print Alerts

Add E-prints

E-print Network
FAQHELPSITE MAPCONTACT US


  Advanced Search  

 
Off[General
 

Summary: Off[General::spell,General::spell1,Syntax::com]
Off[Power::infy,Infinity::indet]
Print["%% Did you clear %Relativity% in the Mathematica folder? %%"]
Print["%% Did you clear %Invariants% in the Mathematica folder? %%"]
Print["\n"] ;
Pause[1] ;
Print["(Except for scalars, and the covariant Ricci tensor,"] ;
Print[" components that are zero are not printed -- unless "] ;
timer=5.0 ;
Print[" they take longer than ",NumberForm[timer,{6,2}]," minutes to compute)"]
Print["\n"] ;
DateList[] ;
months={ January,February,March,April,May,June,July,August,September,October,November,December } ;
Print["date and time of launch = ", DateList[][[1]] ," ", months[[DateList[][[2
]]]] ," ", DateList[][[3]] ,", at ", 1 DateList[][[4]] ,":", DateList[][[5]]
,":", DateList[][[6]] ] ;
Print["\n"] ;
tstart=DateList[][[3]] 24. 60.+DateList[][[4]]60.+DateList[][[5]]+DateList[][[6]]/60.;
dateTime1=DateList[][[1]] ;
Save["Invariants",dateTime1] ;

  

Source: Henry, Richard C.- Department of Physics and Astronomy, Johns Hopkins University

 

Collections: Physics