share/tensor/ctensor7.dem

   1 /*
   2  * This program is free software; you can redistribute it and/or
   3  * modify it under the terms of the GNU General Public License as
   4  * published by the Free Software Foundation; either version 2 of
   5  * the License, or (at your option) any later version.
   6  *
   7  * This program is distributed in the hope that it will be
   8  * useful, but WITHOUT ANY WARRANTY; without even the implied
   9  * warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  10  * PURPOSE.  See the GNU General Public License for more details.
  11  *
  12  * CTENSOR features for (mainly) gravitational theory
  13  */
  14
  15 if get('ctensor,'version)=false then load(ctensor);
  16 ("We set up a simple nonempty metric")$
  17 derivabbrev:true;
  18 dim:4;
  19 lg:matrix([a,0,0,0],[0,x^2,0,0],[0,0,x^2*sin(y)^2,0],[0,0,0,-d]);
  20 depends([a,d],x);
  21 ct_coords:[x,y,z,t];
  22 ("Compute the inverse metric")$
  23 cmetric();
  24 ("Compute the Einstein tensor")$
  25 einstein(false);
  26 ("Find a set of unique differential equations in ein")$
  27 findde(ein,2);
  28 ("Find out which tensor components were used in these equations")$
  29 deindex;
  30
  31 /* End of demo -- comment line needed by MAXIMA to resume demo menu */