From: Viktor T. <vt...@us...> - 2005-05-01 22:15:41
|
Update of /cvsroot/maxima/maxima/share/tensor In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28443 Modified Files: maxwell.dem Log Message: Made one simplification somewhat less inelegant in this demo. Index: maxwell.dem =================================================================== RCS file: /cvsroot/maxima/maxima/share/tensor/maxwell.dem,v retrieving revision 1.3 retrieving revision 1.4 diff -u -d -r1.3 -r1.4 --- maxwell.dem 1 May 2005 18:19:04 -0000 1.3 +++ maxwell.dem 1 May 2005 22:15:28 -0000 1.4 @@ -87,9 +87,12 @@ %th(2),A([%4],[],%1,%2)=A([%2],[],%1,%4)$ (flipflag:true,ishow(canten(rename(%))))$ ("and apply it again, this time only to the first subexpression")$ -subst(A([%2],[],%1,a),A([%1],[],%2,a),part(%th(2),1))+part(%th(2),2)$ +/*subst(A([%2],[],%1,a),A([%1],[],%2,a),part(%th(2),1))+part(%th(2),2)$*/ +ishow((flipflag:true,rename(part(%th(2),1)))+ + (flipflag:false,rename(part(%th(2),2))))$ +%,A([%1],[],%2,a)=A([%2],[],%1,a)$ ("and we find that energy is, indeed, conserved for a free EM field:")$ -canten(%th(2)); +canform(%th(2)); /* End of demo -- comment line needed by MAXIMA to resume demo menu */ |