home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / nihcl-3.0 / vectest / intvec.v < prev    next >
Encoding:
Text File  |  1990-05-16  |  4.3 KB  |  81 lines
  1. Test Vector IntVec class
  2. IntVec I(3,1,2):          1         3         5
  3. IntVec A(10,1):          1         2         3         4         5         6         7         8
  4.              9        10
  5. IntVec B(10,10,-1):         10         9         8         7         6         5         4         3
  6.              2         1
  7. IntVec T(A):          1         2         3         4         5         6         7         8
  8.              9        10
  9. IntVec U(A(0,5,2)):          1         3         5         7         9
  10. C = U:          1         3         5         7         9
  11. C = C:          1         3         5         7         9
  12. C = A(0,5,2):          1         3         5         7         9
  13. C = A; C = C(0,5,2):          1         3         5         7         9
  14. C = A[A>B]:          6         7         8         9        10
  15. C = A;  C = C[C>B]:          6         7         8         9        10
  16. C = A[I]:          2         4         6
  17. C = A;  C = C[I]:          2         4         6
  18. C = 0:          0         0         0
  19. C = A;  C(0,5,2) = IntVec(5,-1,0):         -1         2        -1         4        -1         6        -1         8
  20.             -1        10
  21. C(1,5,2) = C(0,5,2):         -1        -1        -1        -1        -1        -1        -1        -1
  22.             -1        -1
  23. C(0,3,1) = A[I]:          2         4         6        -1        -1        -1        -1        -1
  24.             -1        -1
  25. C(3,3,1) = A[A<=3]:          2         4         6         1         2         3        -1        -1
  26.             -1        -1
  27. C(0,6,1) = 0:         0         0         0         0         0         0        -1        -1
  28.             -1        -1
  29. C = -A:         -1        -2        -3        -4        -5        -6        -7        -8
  30.             -9       -10
  31. C++:          0        -1        -2        -3        -4        -5        -6        -7
  32.             -8        -9
  33. C = A-B:         -9        -7        -5        -3        -1         1         3         5
  34.              7         9
  35. C = A-1:          0         1         2         3         4         5         6         7
  36.              8         9
  37. C = 1+A:          2         3         4         5         6         7         8         9
  38.             10        11
  39. A>B: 0 0 0 0 0 1 1 1 1 1 
  40. A<=5: 1 1 1 1 1 0 0 0 0 0 
  41. 5<A: 0 0 0 0 0 1 1 1 1 1 
  42. C = A;  C += A:          2         4         6         8        10        12        14        16
  43.             18        20
  44. C -= 1:          1         3         5         7         9        11        13        15
  45.             17        19
  46. C = A; C[I] =  IntVec(3,-1,0):          1        -1         3        -1         5        -1         7         8
  47.              9        10
  48. C[I] = A[I]:          1         2         3         4         5         6         7         8
  49.              9        10
  50. C[I] = A[A<=3]:          1         1         3         2         5         3         7         8
  51.              9        10
  52. C[I] = A(0,3,2):          1         1         3         3         5         5         7         8
  53.              9        10
  54. C[I] = -1:          1        -1         3        -1         5        -1         7         8
  55.              9        10
  56. C = A[I]+B[I]:         11        11        11
  57. C = A; C[A<=5] = IntVec(5,-1,0):         -1        -1        -1        -1        -1         6         7         8
  58.              9        10
  59. C = A; C[A<=3] = A[I]:          2         4         6         4         5         6         7         8
  60.              9        10
  61. C = A; C[A<=5] = B[A<=5]:         10         9         8         7         6         6         7         8
  62.              9        10
  63. C = A; C[A<=5] = A(0,5,1):          1         2         3         4         5         6         7         8
  64.              9        10
  65. C = A; C[A<=5] = 0:          0         0         0         0         0         6         7         8
  66.              9        10
  67. C = A[A<=5] + B[B<=5]:          6         6         6         6         6
  68. abs(IntVec(10,-5)):          5         4         3         2         1         0         1         2
  69.              3         4
  70. cumsum(IntVec(10,1)):          1         3         6        10        15        21        28        36
  71.             45        55
  72. delta(cumsum(IntVec(10,1))):          1         2         3         4         5         6         7         8
  73.              9        10
  74. dot(A,B): 220
  75. max(A): 9
  76. min(A): 0
  77. prod(A(0,5,1)): 120
  78. reverse(A):         10         9         8         7         6         5         4         3
  79.              2         1
  80. sum(A): 55
  81.