home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / m / mcademo3.zip / MATRIX.PAS / MATRIX.PAS
Pascal/Delphi Source File  |  1991-06-12  |  2KB  |  103 lines
  1. .TXT 0 0 0 0
  2. C a230,584,77
  3. {\rtf1\ansi \deff0
  4. {\fonttbl
  5. {\f0\fnil Helv;}
  6. }
  7. {\f0 \fs20 \b \i0 \ul0 VECTOR & }{\f0 \fs20 
  8. \b \i0 \ul0 MATRIX CALCULATIONS}
  9. }
  10. .TXT 2 0 0 0
  11. C a215,584,37
  12. {\rtf1\ansi \deff0
  13. {\fonttbl
  14. {\f0\fnil Helv;}
  15. }
  16. First define some vectors & matrices
  17. }
  18. .EQN 3 0 0 0
  19. i:0;2
  20. .EQN 4 0 0 0
  21. (x)[(i):(i)^(2)
  22. .EQN 0 8 0 0
  23. x=?
  24. .EQN 0 8 0 0
  25. v:({3,1}÷-2÷3÷1)
  26. .EQN 9 -16 0 0
  27. M:({3,3}÷2÷-7÷0÷4÷-1÷3÷1÷1÷1)
  28. .TXT 7 0 0 0
  29. C a217,584,62
  30. {\rtf1\ansi \deff0
  31. {\fonttbl
  32. {\f0\fnil Helv;}
  33. }
  34. [Scroll to see calculations with these\par 
  35. vectors and matrices]
  36. }
  37. .TXT 7 13 0 0
  38. C a133,472,28
  39. {\rtf1\ansi \deff0
  40. {\fonttbl
  41. {\f0\fnil Helv;}
  42. }
  43. . . . Matrix multiplication
  44. }
  45. .EQN 1 -12 0 0
  46. M*v=?
  47. .EQN 6 0 0 0
  48. |(M)=?
  49. .TXT 0 12 0 0
  50. C a90,472,18
  51. {\rtf1\ansi \deff0
  52. {\fonttbl
  53. {\f0\fnil Helv;}
  54. }
  55. . . . Determinant
  56. }
  57. .EQN 7 -12 0 0
  58. (M)^(-1)=?
  59. .TXT 0 17 0 0
  60. C a100,440,21
  61. {\rtf1\ansi \deff0
  62. {\fonttbl
  63. {\f0\fnil Helv;}
  64. }
  65. . . . Matrix inverse
  66. }
  67. .EQN 9 -17 0 0
  68. M*(M)^(-1)=?
  69. .TXT 7 16 0 0
  70. C a84,448,16
  71. {\rtf1\ansi \deff0
  72. {\fonttbl
  73. {\f0\fnil Helv;}
  74. }
  75. . . . Transpose
  76. }
  77. .EQN 1 -16 0 0
  78. M{51}=?
  79. .EQN 8 0 0 0
  80. eigenvals(M)=?
  81. .TXT 6 2 0 0
  82. C a109,472,41
  83. {\rtf1\ansi \deff0
  84. {\fonttbl
  85. {\f0\fnil Helv;}
  86. }
  87. . . . Eigenvalues &\par        eigenvectors
  88. }
  89. .EQN 6 -2 0 0
  90. mean(v)=?
  91. .EQN 2 0 0 0
  92. stdev(v)=?
  93. .TXT 0 14 0 0
  94. C a130,448,28
  95. {\rtf1\ansi \deff0
  96. {\fonttbl
  97. {\f0\fnil Helv;}
  98. }
  99. . . . Statistical functions
  100. }
  101. .EQN 2 -14 0 0
  102. corr(v,x)=?
  103.