DIRECTORY IMatrix; TestIMatrix: CEDAR PROGRAM IMPORTS IMatrix ~ BEGIN OPEN IMatrix; im: IM; imSeq: IMSeq; Test: PROC [] = { im _ Create[4]; im[0][0] _ 0; im[0][1] _ 1; im[0][2] _ 1; im[0][3] _ 0; im[1][0] _ 0; im[1][1] _ 0; im[1][2] _ 0; im[1][3] _ 1; im[2][0] _ 0; im[2][1] _ 0; im[2][2] _ 0; im[2][3] _ 1; im[3][0] _ 1; im[3][1] _ 0; im[3][2] _ 0; im[3][3] _ 0; imSeq _ CreateIMSeq[im]; UpdateIMSeq[imSeq, 0]; UpdateIMSeq[imSeq, 1]; UpdateIMSeq[imSeq, 3]; UpdateIMSeq[imSeq, 0]; UpdateIMSeq[imSeq, 1]; UpdateIMSeq[imSeq, 3]; UpdateIMSeq[imSeq, 0]; UpdateIMSeq[imSeq, 1]; ERROR }; END. ÎTestIMatrix.mesa Copyright c 1986 by Xerox Corporation. All rights reserved. Created: Sindhu July 27, 1987 2:00:51 pm PDT Pradeep Sindhu October 9, 1987 11:01:48 pm PDT Tests Incidence matrices. Ê˜codešœ™Kšœ Ïmœ1™