/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/ /* [ Created with wxMaxima version 11.08.0 ] */ /* [wxMaxima: input start ] */ kill(all); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ load(ctensor); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ ct_coords:[r,theta,phi,t]; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ depends([%nu,%lambda],[t,r]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ lg:matrix([-exp(%lambda),0,0,0],[0,-r^2,0,0],[0,0,-r^2*(sin(theta))^2,0],[0,0,0,exp(%nu)]); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ cmetric(true); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ /* last index is up in Gamma */ christof(mcs); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ ricci(true); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ leinstein(true); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ scurvature(); /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ mu; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ %alpha; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ %lambda; /* [wxMaxima: input end ] */ /* [wxMaxima: input start ] */ %mu; /* [wxMaxima: input end ] */ /* Maxima can't load/batch files which end with a comment! */ "Created with wxMaxima"$