home *** CD-ROM | disk | FTP | other *** search
/ ticalc.org / ticalc_org_rev_b.iso / archives / 80 / basic / science / forces.80 next >
Encoding:
Text File  |  2001-07-01  |  862 b   |  30 lines
  1. Forces
  2. -----------------------------------------------
  3. Version: 1.2, 971210
  4. Creators: Daniel Bergman, Mattias MorΘn, Peter Widmark.
  5. Description: The program calculates the resultant and its direction from an unlimited
  6.              number of forces with commom point of application.
  7. Comments: "->" is the same thing as the "STO>"-button. "R>Pr(" is under
  8.           the ANGLE-menu, nr 3. "R>P0(" is under the same menu, nr 4.
  9. Known bugs: None.
  10. Size: 97 bytes.
  11.  
  12. For more games and programs, please visit http://ti80.burtrask.net.
  13.  
  14. PROGRAM:FORCES
  15. 0->X:0->Y
  16. LBL 0
  17. INPUT "FORCE?",K
  18. IF K=0:GOTO 1
  19. INPUT "V?",V
  20. X+KCOS V->X
  21. Y+KSIN V->Y
  22. GOTO 0
  23. LBL 1
  24. CLRHOME
  25. DISP "X,Y,R,V:",X,Y,R>Pr(X,Y
  26. R>P0(X,Y
  27.  
  28. --------------------------------------------------------------------
  29. Copyright (C) 1998 by Daniel Bergman & Mattias MorΘn
  30. http://ti80.burtrask.net