home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / trubasic / chaos / xreadbif.tru < prev    next >
Encoding:
Text File  |  1980-01-01  |  1.3 KB  |  49 lines
  1. !PROGRAM PEND/READBIFU..RCATION DATA FROM FILE
  2. CLEAR
  3. PRINT"                ***PENDULUM - READS BIFURCATION DATA***"
  4. PRINT"THIS PROGRAM READS BIFURCATION DATA FROM FILES WHOSE NAMES ARE REQUIRED"
  5. PRINT"AS AN INPUTS.  UP TO 20 FILES CAN BE READ."
  6. PRINT
  7. library "SGLIB.TRC"
  8. dim name(20), name$(20),A(1),B(1)
  9. INPUT PROMPT"INPUT LOWEST DRIVING FORCE STRENGTH: ":GMIN
  10. INPUT prompt"input highest driving force strength: ":gmax
  11. INPUT PROMPT"INPUT DAMPING VALUE:":Q
  12. Input prompt" # of data files:":numfiles
  13. Input prompt"Which drive for data disk?":d$
  14. let rec = 1
  15. !
  16. CALL SETTEXT("PENDULUM - BIFURCATION DIAGRAM","DRIVE AMPLITUDE - G","ANGULAR VELOCITY")
  17. CALL SETXSCALE(GMIN,GMAX)
  18. CALL SETYSCALE(-1,3)
  19. CALL  RESERVELEGEND
  20. CALL SETAXES(0)
  21. DATA GMIN,-1
  22. CALL DATAGRAPH(A,B,1,0,"WHITE")
  23. CALL GOTOCANVAS
  24. for f=1 to numfiles
  25.  set cursor 1,1
  26.  input prompt" Name of file?":name(f)
  27.  let name$(f)=str$(name(f))
  28. OPEN#f: NAME D$&":"&NAME$(f), ORGANIZATION RECORD
  29. SET#f: RECORD REC
  30. when error in
  31. DO WHILE MORE #f
  32.    READ #f: G,VP
  33.    CALL GRAPHPOINT(G,VP,1)
  34. LOOP
  35. use
  36. end when
  37. SET CURSOR 1,1
  38. PRINT"                      "
  39. next f
  40. set cursor 1,1
  41. print"                      "
  42. CALL ADDLEGEND("Q="&STR$(Q),0,1,"WHITE")
  43. CALL DRAWLEGEND
  44. get key variable
  45. clear
  46. print"press <esc> key to finish"
  47. END
  48.  
  49.