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

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

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

Modified Files:
	calendar.qcalc matrix.qcalc 
Log Message:
updated examples

Index: calendar.qcalc
===================================================================
RCS file: /cvsroot/q-lang/qcalc/examples/calendar.qcalc,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** calendar.qcalc	6 Nov 2007 11:15:05 -0000	1.2
--- calendar.qcalc	8 Nov 2007 22:35:49 -0000	1.3
***************
*** 1,4 ****
! // qcalc 1.0, created Tue Nov  6 12:08:27 2007 -*-Q-*- -*- coding: UTF-8 -*-
! // [((1,0),"Enter year:"),((2,0),"= spinbox (0,9999,1,today!2)"),((3,0),"= matrix (4,0) (mycal A3)")]
  // []
  // [(0,77),(1,26),(2,28),(3,26),(4,30),(5,25),(6,27),(7,26),(8,74),(9,26),(10,28),(11,25),(12,30),(13,26),(14,27),(15,26),(16,77),(17,26),(18,28),(19,25),(20,30),(21,25),(22,29),(23,26)]
--- 1,4 ----
! // qcalc 1.0, created Thu Nov  8 23:31:40 2007 -*-Q-*- -*- coding: UTF-8 -*-
! // [((1,0),"Enter year:"),((2,0),"= spinbox (0,9999,1,today!2)"),((3,0),"= matrix 'A5 (mycal A3) || A3")]
  // []
  // [(0,77),(1,26),(2,28),(3,26),(4,30),(5,25),(6,27),(7,26),(8,74),(9,26),(10,28),(11,25),(12,30),(13,26),(14,27),(15,26),(16,77),(17,26),(18,28),(19,25),(20,30),(21,25),(22,29),(23,26)]

Index: matrix.qcalc
===================================================================
RCS file: /cvsroot/q-lang/qcalc/examples/matrix.qcalc,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** matrix.qcalc	4 Nov 2007 23:46:18 -0000	1.3
--- matrix.qcalc	8 Nov 2007 22:35:49 -0000	1.4
***************
*** 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")]
  // []
--- 1,3 ----
! // qcalc 1.0, created Thu Nov  8 23:22:29 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 (I+1,J) A || A where (I,J) = index;
--- 20,22 ----
  // helper function to show a matrix
  
! show A		= matrix (I+1,J) A where (I,J) = index;