home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / eispack-1.0-src.tgz / tar.out / contrib / eispack / tests / cover2 < prev    next >
Text File  |  1996-09-28  |  2KB  |  68 lines
  1. .EQ 
  2. gsize 12
  3. delim @@
  4. .EN
  5. .EQ 
  6. left ( ~~ matrix {
  7. ccol {e above nothing above nothing above nothing above nothing above 
  8.       nothing above nothing }
  9. ccol {i above i above nothing above nothing above nothing above 
  10.       nothing above nothing }
  11. ccol {s above s above s above nothing above nothing above 
  12.       nothing above nothing }
  13. ccol {p above p above p above p above nothing above 
  14.       nothing above nothing }
  15. ccol {a above a above a above a above a above 
  16.       nothing above nothing }
  17. ccol {c above c above c above c above c above 
  18.       c above nothing }
  19. ccol {k above k above k above k above k above 
  20.       k above k }
  21. } ~~ right )
  22. .EN
  23. .sp 10
  24. .EQ
  25. lambda sub 1 ~=~ e ~~,~~~~ x sub 1 ~=~ left ( ~~ matrix {
  26. ccol { e above 0 above 0 above 0 above 0 above 0 above 0 } 
  27. } ~~ right ) ~~~~; ~~~~~
  28. lambda sub 2 ~=~ i ~~,~~~~ x sub 2 ~=~ left ( ~~ matrix {
  29. ccol { -i above e-i above 0 above 0 above 0 above 0 above 0 } 
  30. } ~~ right )
  31. .EN
  32. .sp 2
  33. .EQ
  34. lambda sub 3 ~=~ s ~~,~~~~ x sub 3 ~=~ left ( ~~ matrix {
  35. ccol { s sup 2 above -s(e-s) above (e-s)(i-s) above 0 above 0 above 0 above 0 } 
  36. } ~~ right ) ~~~~;~~~~~
  37. lambda sub 4 ~=~ p ~~,~~~~ x sub 4 ~=~ left ( ~~ matrix {
  38. ccol { -p sup 3 above p sup 2 (e-p) above -p(e-p)(i-p) above (e-p)(i-p)(s-p) 
  39. above 0 above 0 above 0 } 
  40. } ~~ right )
  41. .EN
  42. .bp
  43. .sp 2
  44. .EQ
  45. lambda sub 5 ~=~ a ~~,~~~ x sub 5 ~=~ left ( ~~ matrix {
  46. ccol { a sup 4 above -a sup 3 (e-a) above a sup 2 (e-a)(i-a) 
  47. above -a(e-a)(i-a)(s-a) above (e-a)(i-a)(s-a)(p-a) 
  48. above 0 above 0 } 
  49. } ~~ right )
  50. .EN
  51. .sp 2
  52. .EQ
  53. lambda sub 6 ~=~ c ~~,~~~ x sub 6 ~=~ left ( ~~ matrix {
  54. ccol { -c sup 5 above c sup 4 (e-c) above -c sup 3 (e-c)(i-c) 
  55. above c sup 2 (e-c)(i-c)(s-c) above -c(e-c)(i-c)(s-c)(p-c) 
  56. above (e-c)(i-c)(s-c)(p-c)(a-c) above 0 } 
  57. } ~~ right )
  58. .EN
  59. .sp 2
  60. .EQ
  61. lambda sub 7 ~=~ k ~~,~~~ x sub 7 ~=~ left ( ~~ matrix {
  62. ccol { k sup 6 above -k sup 5 (e-k) above k sup 4 (e-k)(i-k) 
  63. above -k sup 3 (e-k)(i-k)(s-k) above k sup 2 (e-k)(i-k)(s-k)(p-k) 
  64. above -k(e-k)(i-k)(s-k)(p-k)(a-k) above (e-k)(i-k)(s-k)(p-k)(a-k)(c-k) } 
  65. } ~~ right )
  66. .EN
  67. .sp 2
  68.