[q-lang-cvs] qcalc/examples matrix.qcalc,1.2,1.3

[Albert G. <ag...@us...>]

Update of /cvsroot/q-lang/qcalc/examples
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv28959/examples

Modified Files:
	matrix.qcalc 
Log Message:
updated for latest calclib

Index: matrix.qcalc
===================================================================
RCS file: /cvsroot/q-lang/qcalc/examples/matrix.qcalc,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** matrix.qcalc	4 Nov 2007 21:35:52 -0000	1.2
--- matrix.qcalc	4 Nov 2007 23:46:18 -0000	1.3
***************
*** 1,3 ****
! // qcalc 1.0, created Sun Nov  4 22:33:06 2007 -*-Q-*- -*- coding: UTF-8 -*-
  // [((0,0),"Matrix A:"),((0,1),"= B2:D4"),((1,1),"1"),((1,2),"0"),((1,3),"0"),((2,1),"1"),((2,2),"0"),((2,3),"-1"),((3,1),"0"),((3,2),"1"),((3,3),"-1"),((5,0),"Matrix B:"),((5,1),"= B7:D9"),((6,1),"1"),((6,2),"2"),((6,3),"3"),((7,1),"2"),((7,2),"3"),((7,3),"4"),((8,1),"2"),((8,2),"4"),((8,3),"6"),((10,0),"Product A*B:"),((10,1),"= show (B1*B6)"),((11,1),"1"),((11,2),"2"),((11,3),"3"),((12,1),"-1"),((12,2),"-2"),((12,3),"-3"),((13,1),"0"),((13,2),"-1"),((13,3),"-2")]
  // []
--- 1,3 ----
! // qcalc 1.0, created Mon Nov  5 00:43:20 2007 -*-Q-*- -*- coding: UTF-8 -*-
  // [((0,0),"Matrix A:"),((0,1),"= B2:D4"),((1,1),"1"),((1,2),"0"),((1,3),"0"),((2,1),"1"),((2,2),"0"),((2,3),"-1"),((3,1),"0"),((3,2),"1"),((3,3),"-1"),((5,0),"Matrix B:"),((5,1),"= B7:D9"),((6,1),"1"),((6,2),"2"),((6,3),"3"),((7,1),"2"),((7,2),"3"),((7,3),"4"),((8,1),"2"),((8,2),"4"),((8,3),"6"),((10,0),"Product A*B:"),((10,1),"= show (B1*B6)"),((11,1),"1"),((11,2),"2"),((11,3),"3"),((12,1),"-1"),((12,2),"-2"),((12,3),"-3"),((13,1),"0"),((13,2),"-1"),((13,3),"-2")]
  // []
***************
*** 20,22 ****
  // helper function to show a matrix
  
! show A		= matrix A || A;
--- 20,22 ----
  // helper function to show a matrix
  
! show A		= matrix (I+1,J) A || A where (I,J) = index;