home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / nihcl-3.0 / vectest / floatvec.v < prev    next >
Encoding:
Text File  |  1990-05-16  |  5.9 KB  |  87 lines
  1. Test Vector FloatVec class
  2. IntVec I(3,1,2):          1         3         5
  3. FloatVec A(10,1.0):             1            2            3            4            5            6
  4.                 7            8            9           10
  5. FloatVec B(10,10.0,-1.0):            10            9            8            7            6            5
  6.                 4            3            2            1
  7. FloatVec T(A):             1            2            3            4            5            6
  8.                 7            8            9           10
  9. FloatVec 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) = FloatVec(5,-1.,0.):            -1            2           -1            4           -1            6
  20.                -1            8           -1           10
  21. C(1,5,2) = C(0,5,2):            -1           -1           -1           -1           -1           -1
  22.                -1           -1           -1           -1
  23. C(0,3,1) = A[I]:             2            4            6           -1           -1           -1
  24.                -1           -1           -1           -1
  25. C(3,3,1) = A[A<=3.]:             2            4            6            1            2            3
  26.                -1           -1           -1           -1
  27. C(0,6,1) = 0.:            0            0            0            0            0            0
  28.                -1           -1           -1           -1
  29. C = -A:            -1           -2           -3           -4           -5           -6
  30.                -7           -8           -9          -10
  31. C++:             0           -1           -2           -3           -4           -5
  32.                -6           -7           -8           -9
  33. C = A-B:            -9           -7           -5           -3           -1            1
  34.                 3            5            7            9
  35. C = A-1:             0            1            2            3            4            5
  36.                 6            7            8            9
  37. C = 1.+A:             2            3            4            5            6            7
  38.                 8            9           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
  43.                14           16           18           20
  44. C -= 1.:             1            3            5            7            9           11
  45.                13           15           17           19
  46. C = A; C[I] =  FloatVec(3,-1.,0.):             1           -1            3           -1            5           -1
  47.                 7            8            9           10
  48. C[I] = A[I]:             1            2            3            4            5            6
  49.                 7            8            9           10
  50. C[I] = A[A<=3.]:             1            1            3            2            5            3
  51.                 7            8            9           10
  52. C[I] = A(0,3,2):             1            1            3            3            5            5
  53.                 7            8            9           10
  54. C[I] = -1.:             1           -1            3           -1            5           -1
  55.                 7            8            9           10
  56. C = A[I]+B[I]:            11           11           11
  57. C = A; C[A<=5.] = FloatVec(5,-1.,0.):            -1           -1           -1           -1           -1            6
  58.                 7            8            9           10
  59. C = A; C[A<=3.] = A[I]:             2            4            6            4            5            6
  60.                 7            8            9           10
  61. C = A; C[A<=5.] = B[A<=5.]:            10            9            8            7            6            6
  62.                 7            8            9           10
  63. C = A; C[A<=5.] = A(0,5,1):             1            2            3            4            5            6
  64.                 7            8            9           10
  65. C = A; C[A<=5.] = 0.:             0            0            0            0            0            6
  66.                 7            8            9           10
  67. C = A[A<=5.] + B[B<=5.]:             6            6            6            6            6
  68. abs(FloatVec(10,-5)):             5            4            3            2            1            0
  69.                 1            2            3            4
  70. atan2(FloatVec(10,1),FloatVec(10,10,-1)):      0.099669       .21867       .35877       .51915       .69474       .87606
  71.            1.0517        1.212       1.3521       1.4711
  72. pow(FloatVec(10,1),FloatVec(10,2,0)):             1            4            9           16           25           36
  73.                49           64           81          100
  74. cumsum(FloatVec(10,1)):             1            3            6           10           15           21
  75.                28           36           45           55
  76. delta(cumsum(FloatVec(10,1))):             1            2            3            4            5            6
  77.                 7            8            9           10
  78. dot(A,B): 220
  79. max(A): 9
  80. min(A): 0
  81. prod(A): 3.6288e+06
  82. reverse(A):            10            9            8            7            6            5
  83.                 4            3            2            1
  84. sqrt(A):             1       1.4142       1.7321            2       2.2361       2.4495
  85.            2.6458       2.8284            3       3.1623
  86. sum(A): 55
  87.