← Back to branch summary

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

« back to all changes in this revision

Viewing changes to share/contrib/numericalio/array.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/array.mac
33
33
read_maxima_array("array.data", b2)$
34
34
 
35
35
prederror: false$
 
36
ntest : nsuccess : 0$
36
37
 
 
38
ntest : ntest + 1$
37
39
if is_equal_array(a, a2) = true
38
 
  then print("success: array.data loaded as a Lisp array")
 
40
  then (nsuccess : nsuccess + 1, print("success: array.data loaded as a Lisp array"))
39
41
  else print("FAILED to load array.data as a Lisp array")$
40
42
 
 
43
ntest : ntest + 1$
41
44
if is_equal_array(b, b2) = true
42
 
  then print("success: array.data loaded as a Maxima array")
 
45
  then (nsuccess : nsuccess + 1, print("success: array.data loaded as a Maxima array"))
43
46
  else print("FAILED to load array.data as a Maxima array")$
44
47
 
45
48
write_data(a2, "tmp-lisp-array.data")$
51
54
read_lisp_array("tmp-maxima-array.data", a3)$
52
55
read_maxima_array("tmp-lisp-array.data", b3)$
53
56
 
 
57
ntest : ntest + 1$
54
58
if is_equal_array(a2, a3) = true
55
 
  then print("success: wrote Maxima array, read again as Lisp array")
 
59
  then (nsuccess : nsuccess + 1, print("success: wrote Maxima array, read again as Lisp array"))
56
60
  else block
57
61
    (
58
62
      print("FAILED to write Maxima array, read again as Lisp array;"),
59
63
      l2: read_list("tmp-maxima-array.data"),
60
64
      if is(equal(l, l2)) = true
61
 
        then print("... success: wrote Maxima array, read again as a list, however.")
 
65
        then print("... partial success: wrote Maxima array, read again as a list, however.")
62
66
        else print("... FAILED to write Maxima array, read again as a list.")
63
67
    )$
64
68
 
 
69
ntest : ntest + 1$
65
70
if is_equal_array(b2, b3) = true
66
 
  then print("success: wrote Lisp array, read again as Maxima array")
 
71
  then (nsuccess : nsuccess + 1, print("success: wrote Lisp array, read again as Maxima array"))
67
72
  else block
68
73
    (
69
74
      print("FAILED to write Lisp array, read again as Maxima array;"),
70
75
      l2: read_list("tmp-lisp-array.data"),
71
76
      if is(equal(l, l2)) = true
72
 
        then print("... success: wrote Lisp array, read again as a list, however.")
 
77
        then print("... partial success: wrote Lisp array, read again as a list, however.")
73
78
        else print("... FAILED to write Lisp array, read again as a list.")
74
79
    )$
75
80
 
 
81
print ("summary: nsuccess / ntest => ", nsuccess, "/", ntest);