<<GRQUICK-1.wl

Metin[DiagonalMatrix[{1,-1+h[t,z],-1-h[t,z],-1}],{t,x,y,z}]

MatrixForm[GMET]

MatrixForm[GINV]

For[i=0,i<=3,
For[j=0,j<=3,
For[k=0,k<=3,
Print["Gamma[",{{i},{j,k}},"] = ",Christoffel[{{i},{j,k}}]];
k++];
j++];
i++]

For[i=0,i<=3,
For[j=0,j<=3,
Print["R[",{i,j},"] = ",-Simplify[Ricci[i,j]]];
j++];
i++]

For[i=0,i<=3,
For[j=0,j<=3,
Print["R[",{i,j},"] = ",-Series[Ricci[i,j],{h[t,z],0,2}]];
j++];
i++]