home *** CD-ROM | disk | FTP | other *** search
/ Nibble Magazine / nib38a.dsk / APRIL.1990 / Macro.4by4.txt < prev    next >
Text File  |  2023-02-26  |  3KB  |  57 lines
  1. --------------------------------------
  2. MACRO4x4
  3. by Sidney A. Powers
  4. Copyright (c) 1990
  5. MindCraft Publ. Corp.
  6. Concord, MA 01742
  7. --------------------------------------
  8. {solves a four by four matrix using Crout's method              }
  9.  
  10. 1:<asp><down:down:down:down:down>!{   moves cursor 5 lines down }
  11. 2:<asp><up:up:up:up:up>!{             moves cursor 5 lines up   }
  12. 3:<asp><up:up:up:up>!{                moves cursor 4 lines up   }
  13. 4:<asp><up:up:up>!{                   moves cursor 3 lines up   }
  14. 5:<asp><left:left:left>!{             moves cursor 3 spaces left}
  15. 6:<asp><left:left:left:left>!{        moves cursor 4 spaces left}
  16. 7:<asp><left:left:left:left:left>!{   moves cursor 5 spaces left}
  17.  
  18. T:<asp><sa-1>+(sa-2:rtn:{                         1,1 copied    }
  19. down>+<sa-2:rtn:{                                 1,2 copied    }
  20. down>+<sa-2:rtn:{                                 1,3 copied    }
  21. down>+<sa-2:rtn:{                                 1,4 copied    }
  22. sa-4:right>+<sa-2>/<left:rtn:{                    2,1 processed }
  23. right>+<sa-2>/<left:left:rtn:{                    3,1 processed }
  24. right>+<sa-2>/<sa-5:rtn:{                         4,1 processed }
  25. right :right>+<sa-2>/<sa-7:rtn:{                  5,1 processed }
  26. sa-6:down>+<sa-2>-(<left>*<up>)<rtn:{             2,2 processed }
  27. down>+<sa-2>-(<left>*<up:up>)<rtn:{               3,2 processed }
  28. down>+<sa-2>-(<left*<sa-4>)<rtn:{                 4,2 processed }
  29. up:up:right>+(<sa-2>-(<left:left>*<up>))/<left:rtn:{
  30. -                                                 2,3 processed }
  31. right>+(<sa-2>-(<sa-5>*<up>))/<left:left:rtn:{    2,4 processed }
  32. right:right>+(<sa-2>-(<sa-7>*<up>))/<left: sa-5:rtn:{
  33. -                                                 2,5 processed }
  34. sa-5:down>+<sa-2>-(<left:left>*<up:up>)-(<left>*<up>)< rtn:{
  35. -                                                 3,3 processed }
  36. down>+<sa-2>-(<left:left>*<sa-4>)-(<left)*<up:up>)<rtn:{
  37. -                                                 4,3 processed }
  38. right:up>+(<sa-2>-(<sa-5>*<up:up>)-(<left:left>*<up>))/<left:rtn:{
  39. -                                                 3,4 processed }
  40. right:right>+(<sa-2>-(<sa-7>*<up:up>)-(<sa-6>*<up>))/<sa-5:rtn:{
  41. -                                                 3,5 processed }
  42. left:left:down>+(<sa-2>-(<sa-5>*(sa-4>)-(<left:left>*<up:up>)-(<left>*<up>))<rtn:{                                             4,4 processed }
  43. right:right>+(<sa-2>-(<sa-7>*<sa-4>)-(<sa-6>*<up:up>)-(<sa-5>*<up>))/<left:left: rtn:{                                         5,4 processed }
  44. :{                                                              }
  45. :{ answers ---------------------------------------------------- }
  46. left:down:down>"C3 = <right>+<up:up:rtn:{         C3 determined }
  47. left:down>"C2 = <right>+<sa-3>-(<sa-3:left:left>*<up>)<rtn:{
  48. -                                                 C2 determined }
  49. left:down>"C1 =
  50. <right>+<sa-2:up>-(<sa-2:up:left:left>*<up:up>)-(<sa-2:up:left:left:left>*<up>)<rtn:{
  51. -                                                 C1 determined }
  52. left:down>"C0 =
  53. <right>+<sa-3:sa-3>-(<sa-3:sa-3:left:left>*<sa-4>)-(<sa-3:sa-3:sa-5>*<up:up>)-(<sa-3:sa-3:sa-6>*<up>)< rtn:{                   C0 determined }
  54. !
  55. End
  56.  
  57.