File bondi.low artifact 14b08171f1 part of check-in trunk
Output "bondi.out"; Zero Time; Comment: Bondi metric; Coordinates u,r,theta,phi; Functions Beta(u,r,theta),V(u,r,theta),U(u,r,theta),Gamma(u,r,theta); Null Metric; Frame T0 = e^Beta*d u, T1 = e^Beta*(d r + (V/r)*d u), T2 = r*(-U*e^Gamma*d u+e^Gamma*d theta +i*sin(theta)*e^(-Gamma)*d phi)/sqrt(2), T3 = r*(-U*e^Gamma*d u+e^Gamma*d theta -i*sin(theta)*e^(-Gamma)*d phi)/sqrt(2); Off WRS; Find and Write Curvature Spinors; Time; Quit;