grg/bondi.low

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;