<<GRQUICK-1.wl

Metin[DiagonalMatrix[{a[t,x,y,z],-b[t,x,y,z],-c[t,x,y,z],-d[t,x,y,z]}],{t,x,y,z}]

MatrixForm[GMET]

MatrixForm[GINV]

Christoffel[{{1},{0,0}}]

Christoffel[{{2},{1,0}}]

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++]