Update of /cvsroot/stack/stack-1-0/scripts/maxima
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32232/scripts/maxima
Modified Files:
Tag: development_xmlrqp
stackmaxima.mac
Added Files:
Tag: development_xmlrqp
complexj.lisp
Log Message:
Important changes to the way STACK connects to the CAS.
Index: stackmaxima.mac
===================================================================
RCS file: /cvsroot/stack/stack-1-0/scripts/maxima/stackmaxima.mac,v
retrieving revision 1.22
retrieving revision 1.22.2.1
diff -C2 -d -r1.22 -r1.22.2.1
*** stackmaxima.mac 25 Jul 2005 10:09:32 -0000 1.22
--- stackmaxima.mac 19 Aug 2005 16:16:45 -0000 1.22.2.1
***************
*** 78,81 ****
--- 78,84 ----
load("stacktex.lisp"); /* Loads LaTeX adaptions and preferences */
+ complexj:TRUE;
+ if complexj then (j:%i,load("complexj.lisp")) else i:%i; /* Makes a complex j if needed */
+
/* ARRGH! */
/* texput("<<",[" {\\color{red} ", " } ", " " ],matchfix); */
***************
*** 558,562 ****
/* An answer test based expandp(sa). */
! ATExpanded(SA) :=
BLOCK([KEEPFLOAT,RawMark,FeedBack,AnswerNote,str],
RawMark:0, FeedBack:"", AnswerNote:"",
--- 561,566 ----
/* An answer test based expandp(sa). */
! /* Note, the TA is a dummy to allow one mechanism for calling functions */
! ATExpanded(SA,TA) :=
BLOCK([KEEPFLOAT,RawMark,FeedBack,AnswerNote,str],
RawMark:0, FeedBack:"", AnswerNote:"",
--- NEW FILE: complexj.lisp ---
;; Customize Maxima's TEX() function.
;; Make %i print at a "j"
;; Chris Sangwin 19 August Jan 2005.
;; Useful files:
;; \Maxima-5.9.0\share\maxima\5.9.0\share\utils\mactex-utilities.lisp
;; \Maxima-5.9.0\share\maxima\5.9.0\src\mactex.lisp
(defprop $%i "j" texword)
|
