← Back to branch summary

~ubuntu-branches/ubuntu/karmic/maxima/karmic

« back to all changes in this revision

Viewing changes to share/contrib/numericalio/rectangular.mac

  • Committer: Bazaar Package Importer
  • Author(s): Barry deFreese
  • Date: 2006-07-06 17:04:52 UTC
  • mfrom: (1.1.4 upstream)
  • Revision ID: james.westby@ubuntu.com-20060706170452-j9ypoqc1kjfnz221
Tags: 5.9.3-1ubuntu1
* Re-sync with Debian
* Comment out backward-delete-char-untabify in maxima.el (Closes Malone #5273)
* debian/control: build-dep automake -> automake1.9 (Closes BTS: #374663)

Show diffs side-by-side

added added

removed removed

Lines of Context:
share/contrib/numericalio/rectangular.mac
38
38
l2: read_list("rectangular.data")$
39
39
 
40
40
prederror:false$
 
41
ntest : nsuccess : 0$
41
42
 
 
43
ntest : ntest + 1$
42
44
if is(equal(l, l2)) = true
43
 
  then print("success: rectangular.data loaded as flat list")
 
45
  then (nsuccess : nsuccess + 1, print("success: rectangular.data loaded as flat list"))
44
46
  else print("FAILED to load rectangular.data as flat list")$
45
47
 
 
48
ntest : ntest + 1$
46
49
if is(equal(l_nested, l2_nested)) = true
47
 
  then print("success: rectangular.data loaded as nested list")
 
50
  then (nsuccess : nsuccess + 1, print("success: rectangular.data loaded as nested list"))
48
51
  else print("FAILED to load rectangular.data as nested list")$
49
52
 
 
53
ntest : ntest + 1$
50
54
if is(equal(arrayinfo(h), arrayinfo(h2))) = true
51
 
  then print("success: rectangular.data keys loaded")
 
55
  then (nsuccess : nsuccess + 1, print("success: rectangular.data keys loaded"))
52
56
  else print("FAILED to load rectangular.data keys")$
53
57
 
 
58
ntest : ntest + 1$
54
59
if is(equal(listarray(h), listarray(h2))) = true
55
 
  then print("success: rectangular.data records loaded as hashed array")
 
60
  then (nsuccess : nsuccess + 1, print("success: rectangular.data records loaded as hashed array"))
56
61
  else print("FAILED to load rectangular.data records as hashed array")$
57
62
 
 
63
ntest : ntest + 1$
58
64
if is(equal(m, m2)) = true
59
 
  then print("success: rectangular.data records loaded as matrix")
 
65
  then (nsuccess : nsuccess + 1, print("success: rectangular.data records loaded as matrix"))
60
66
  else print("FAILED to load rectangular.data records as matrix")$
61
67
 
62
68
write_data(m2, "tmp-matrix.data")$
74
80
l3_nested: read_nested_list("tmp-matrix.data")$
75
81
l3: read_list("tmp-list.data")$
76
82
 
 
83
ntest : ntest + 1$
77
84
if is(equal(l2, l3)) = true
78
 
  then print("success: wrote, read again rectangular.data as flat list")
 
85
  then (nsuccess : nsuccess + 1, print("success: wrote, read again rectangular.data as flat list"))
79
86
  else print("FAILED to write, read again rectangular.data as flat list")$
80
87
 
 
88
ntest : ntest + 1$
81
89
if is(equal(l2_nested, l3_nested)) = true
82
 
  then print("success: wrote, read again rectangular.data as nested list")
 
90
  then (nsuccess : nsuccess + 1, print("success: wrote, read again rectangular.data as nested list"))
83
91
  else print("FAILED to write, read again rectangular.data as nested list")$
84
92
 
 
93
ntest : ntest + 1$
85
94
if is(equal(arrayinfo(h2), arrayinfo(h3))) = true
86
 
  then print("success: wrote, read again rectangular.data hashed array keys")
 
95
  then (nsuccess : nsuccess + 1, print("success: wrote, read again rectangular.data hashed array keys"))
87
96
  else print("FAILED to write, read again rectangular.data hashed array keys")$
88
97
 
 
98
ntest : ntest + 1$
89
99
if is(equal(listarray(h2), listarray(h3))) = true
90
 
  then print("success: wrote, read again rectangular.data hashed array values")
 
100
  then (nsuccess : nsuccess + 1, print("success: wrote, read again rectangular.data hashed array values"))
91
101
  else print("FAILED to write, read again rectangular.data hashed array values")$
92
102
 
 
103
ntest : ntest + 1$
93
104
if is(equal(m2, m3)) = true
94
 
  then print("success: wrote, read again rectangular.data as matrix")
 
105
  then (nsuccess : nsuccess + 1, print("success: wrote, read again rectangular.data as matrix"))
95
106
  else print("FAILED to write, read again rectangular.data as matrix")$
96
107
 
97
108
 
127
138
s2: 0$
128
139
for i:1 thru length(m2_dot_m2) do s2: s2 + m2_dot_m2[i, i]$
129
140
 
 
141
ntest : ntest + 1$
130
142
if is(equal(s, s2)) = true
131
 
  then print("success: assigned values to variables in matrix")
 
143
  then (nsuccess : nsuccess + 1, print("success: assigned values to variables in matrix"))
132
144
  else print("FAILED to assign values to values in matrix")$
133
145
 
134
 
 
 
146
print ("summary: nsuccess / ntest => ", nsuccess, "/", ntest);