home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / educ / math / 012 / navstoke.dat < prev    next >
Encoding:
Text File  |  1990-05-29  |  630 b   |  22 lines
  1. ECHO:TRUE$
  2. NIND#:4$
  3. NDEP#:4$
  4. DE#:DV#:{}$
  5. DE#[1]:U(1,4)+U(1)*U(1,1)+U(2)*U(1,2)+U(3)*U(1,3)
  6.                     +U(4,1)-NU*(U(1,1,1)+U(1,2,2)+U(1,3,3)) $
  7. DV#[1]:U(1,4) $
  8. DE#[2]:U(2,4)+U(1)*U(2,1)+U(2)*U(2,2)+U(3)*U(2,3)
  9.                     +U(4,2)-NU*(U(2,1,1)+U(2,2,2)+U(2,3,3)) $
  10. DV#[2]:U(2,4) $
  11. DE#[3]:U(3,4)+U(1)*U(3,1)+U(2)*U(3,2)+U(3)*U(3,3)
  12.                     +U(4,3)-NU*(U(3,1,1)+U(3,2,2)+U(3,3,3)) $
  13. DV#[3]:U(3,4) $
  14. DE#[4]:U(1,1)+U(2,2)+U(3,3) $ 
  15. DV#[4]:U(1,1) $ 
  16. % Note DE numbering so that U(1,1) is substituted right out % 
  17. % For Euler eqns, put NU:0 before doing RDS() %
  18. ECHO:FALSE $ 
  19. RDS() $ 
  20.  
  21.  
  22.