home *** CD-ROM | disk | FTP | other *** search
/ Best Objectech Shareware Selections / UNTITLED.iso / boss / educ / math / 012 / schwchld.dat < prev    next >
Encoding:
Text File  |  1991-08-06  |  840 b   |  24 lines
  1. ECHO:TRUE$
  2. NDEP#:4$
  3. NIND#:1$
  4. DV#:DE#:{}$
  5.  
  6. DE#[1]:-U(1,1,1)*U(2)*(U(2)-2*M)-2*M*U(1,1)*U(2,1)$
  7. DE#[4]:-U(2,1,1)*U(2)^3*(U(2)-2*M)+U(1,1)^2*(-M*U(2)^2+4*M^2*U(2)-4*M^3)
  8.                                   +U(2,1)^2*M*U(2)^2
  9.                                   +U(3,1)^2*(U(2)^5-4*M*U(2)^4+4*M^2*U(2)^3)
  10.                                   +U(4,1)^2*(SIN U(3))^2*(U(2)^5-4*M*U(2)^4
  11.                                                               +4*M^2*U(2)^3)$
  12. DE#[2]:-U(3,1,1)*U(2)+(-2*U(2,1)*U(3,1)+U(4,1)^2*U(2)*SIN U(3)*COS U(3))$
  13. DE#[3]:-U(4,1,1)*U(2)*(SIN U(3))+(-2*U(2,1)*U(4,1)*(SIN U(3))
  14.                                    -2*U(3,1)*U(4,1)*U(2)*COS U(3))$
  15. DV#[1]:U(1,1,1)$
  16. DV#[2]:U(3,1,1)$
  17. DV#[3]:U(4,1,1)$
  18. DV#[4]:U(2,1,1)$
  19. % Schwarzschild metric for mass M  %
  20. % See MORELIE.DOC for how to solve %
  21. ECHO:FALSE$
  22. RDS()$
  23.  
  24.