$SPAD/src/input machinearithmetic.input

Timothy Daly December 3, 2016

Abstract

Contents

2

— * —

)set break resume
)sys rm -f machinearithmetic.output
)spool machinearithmetic.output
)set message test on
)set message auto off
)clear all
--S 1 of 36
t1:=empty()$U32Vector
--R
--R   (1)  []
--R                                                              Type: U32Vector
--E 1
--S 2 of 36
t2:=new(10,10)$U32Vector
--R
--R   (2)  [10,10,10,10,10,10,10,10,10,10]
--R                                                              Type: U32Vector
--E 2
--S 3 of 36
t3:=qelt(t2,2)
--R
--R   (3)  10
--R                                                        Type: PositiveInteger
--E 3
--S 4 of 36
t4:=elt(t2,2)
--R
--R   (4)  10
--R                                                        Type: PositiveInteger
--E 4
--S 5 of 36
t5:=t2.2
--R
--R   (5)  10
--R                                                        Type: PositiveInteger
--E 5
--S 6 of 36
t6:=qsetelt!(t2,2,5)
--R
--R   (6)  5
--R                                                        Type: PositiveInteger

--E 6
--S 7 of 36
t2.2
--R
--R   (7)  5
--R                                                        Type: PositiveInteger
--E 7
--S 8 of 36
t7:=setelt(t2,3,6)
--R
--R   (8)  6
--R                                                        Type: PositiveInteger
--E 8
--S 9 of 36
t2.3
--R
--R   (9)  6
--R                                                        Type: PositiveInteger
--E 9
--S 10 of 36
#t2
--R
--R   (10)  10
--R                                                        Type: PositiveInteger
--E 10
--S 11 of 36
t8:=fill!(t2,7)
--R
--R   (11)  [7,7,7,7,7,7,7,7,7,7]
--R                                                              Type: U32Vector
--E 11
--S 12 of 36
ta:=empty()$U16Vector
--R
--R   (12)  []
--R                                                              Type: U16Vector
--E 12
--S 13 of 36
tb:=new(10,10)$U16Vector
--R
--R   (13)  [10,10,10,10,10,10,10,10,10,10]
--R                                                              Type: U16Vector
--E 13

--S 14 of 36
tc:=qelt(tb,2)
--R
--R   (14)  10
--R                                                        Type: PositiveInteger
--E 14
--S 15 of 36
td:=elt(tb,2)
--R
--R   (15)  10
--R                                                        Type: PositiveInteger
--E 15
--S 16 of 36
te:=tb.2
--R
--R   (16)  10
--R                                                        Type: PositiveInteger
--E 16
--S 17 of 36
tf:=qsetelt!(tb,2,5)
--R
--R   (17)  5
--R                                                        Type: PositiveInteger
--E 17
--S 18 of 36
tb.2
--R
--R   (18)  5
--R                                                        Type: PositiveInteger
--E 18
--S 19 of 36
tg:=setelt(tb,3,6)
--R
--R   (19)  6
--R                                                        Type: PositiveInteger
--E 19
--S 20 of 36
tb.3
--R
--R   (20)  6
--R                                                        Type: PositiveInteger
--E 20

--S 21 of 36
#tb
--R
--R   (21)  10
--R                                                        Type: PositiveInteger
--E 21
--S 22 of 36
th:=fill!(tb,7)
--R
--R   (22)  [7,7,7,7,7,7,7,7,7,7]
--R                                                              Type: U16Vector
--E 22
--S 23 of 36
t1a:=empty()$U8Vector
--R
--R   (23)  []
--R                                                               Type: U8Vector
--E 23
--S 24 of 36
t1b:=new(10,10)$U8Vector
--R
--R   (24)  [10,10,10,10,10,10,10,10,10,10]
--R                                                               Type: U8Vector
--E 24
--S 25 of 36
t1c:=qelt(t1b,2)
--R
--R   (25)  10
--R                                                        Type: PositiveInteger
--E 25
--S 26 of 36
t1d:=elt(t1b,2)
--R
--R   (26)  10
--R                                                        Type: PositiveInteger
--E 26
--S 27 of 36
t1e:=t1b.2
--R
--R   (27)  10
--R                                                        Type: PositiveInteger
--E 27
--S 28 of 36

t1f:=qsetelt!(t1b,2,5)
--R
--R   (28)  5
--R                                                        Type: PositiveInteger
--E 28
--S 29 of 36
t1b.2
--R
--R   (29)  5
--R                                                        Type: PositiveInteger
--E 29
--S 30 of 36
t1g:=setelt(t1b,3,6)
--R
--R   (30)  6
--R                                                        Type: PositiveInteger
--E 30
--S 31 of 36
t1b.3
--R
--R   (31)  6
--R                                                        Type: PositiveInteger
--E 31
--S 32 of 36
#t1b
--R
--R   (32)  10
--R                                                        Type: PositiveInteger
--E 32
--S 33 of 36
t1h:=fill!(t1b,7)
--R
--R   (33)  [7,7,7,7,7,7,7,7,7,7]
--R                                                               Type: U8Vector
--E 33
--S 34 of 36
v32:=qnew(3,4)$U32Matrix()
--R
--R
--R         +0  0  0  0+
--R         |          |
--R   (34)  |0  0  0  0|
--R         |          |
--R         +0  0  0  0+

--R                                                              Type: U32Matrix
--E 34
--S 35 of 36
v32:=qnew(3,4)$U16Matrix()
--R
--R
--R         +0  0  0  0+
--R         |          |
--R   (35)  |0  0  0  0|
--R         |          |
--R         +0  0  0  0+
--R                                                              Type: U16Matrix
--E 35
--S 36 of 36
v32:=qnew(3,4)$U8Matrix()
--R
--R
--R         +0  0  0  0+
--R         |          |
--R   (36)  |0  0  0  0|
--R         |          |
--R         +0  0  0  0+
--R                                                               Type: U8Matrix
--E 36
)spool
)lisp (bye)

———-

References^{[1] nothing}

9