home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / trubasic / chaos / xreadpoi.tru < prev    next >
Encoding:
Text File  |  1979-12-31  |  1.2 KB  |  45 lines
  1. !PROGRAM TITLE - "XREADPOI"
  2. CLEAR
  3. PRINT"                  ***PENDULUM - READS POINCARE OR PHASE2D DATA***"
  4. PRINT"THIS PROGRAM DISPLAYS POINCARE SECTION DATA OR 2D-PHASE DATA FROM A FILE"
  5. PRINT"FOR THE DRIVEN PENDULUM."
  6. !
  7. LIBRARY "SGLIB.TRC"
  8. DECLARE DEF ACCEL
  9. DIM A(1),B(1)
  10. !INPUT STATEMENTS
  11.  INPUT PROMPT"INPUT DRIVING FORCE STRENGTH:":G
  12.  INPUT PROMPT"INPUT DAMPING (IF NO DAMPING THEN INPUT 9999999):":Q
  13. INPUT PROMPT"INPUT MIN THETA:":XMIN
  14. INPUT PROMPT"INPUT MAX THETA:":XMAX
  15. INPUT PROMPT"INPUT MIN OMEGA:":YMIN
  16. INPUT PROMPT"INPUT MAX OMEGA:":YMAX
  17. INPUT PROMPT"INPUT DRIVE(A,B,ETC) OF FILE DISKETTE:":DRIVE$
  18. INPUT PROMPT"INPUT FILE NAME (FOR EXAMPLE, 01500400):":NAME
  19. INPUT PROMPT"SET POINTER # (USE 1 FOR BEGINNING) :":REC
  20. CALL SETXSCALE(XMIN,XMAX)
  21. CALL SETYSCALE(YMIN,YMAX)
  22. CALL SETTEXT("PENDULUM - POINCARE SECTION","ANGLE","ANGULAR VELOCITY")
  23. CALL RESERVELEGEND  !FROM SGLIB , SAVES SPACE FOR LEGENDS
  24. CLEAR
  25.  
  26. DATA XMIN,YMIN
  27. CALL DATAGRAPH(a,b,1,0,"white")
  28. call gotocanvas
  29. OPEN#1: NAME DRIVE$&":"&STR$(NAME), ORGANIZATION RECORD
  30. SET#1: RECORD REC
  31. WHEN ERROR IN
  32. DO WHILE MORE #1
  33.  READ #1: XP,VP
  34.  call graphpoint(xp,vp,1)
  35. LOOP
  36. USE
  37. END WHEN
  38.  
  39. CALL ADDLEGEND("G="&STR$(G)&"   Q="&STR$(Q),0,1,"WHITE")
  40. CALL DRAWLEGEND
  41. END
  42.  
  43.  
  44.  
  45.