home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / trubasic / chaos / chaos.tru < prev    next >
Encoding:
Text File  |  1980-01-01  |  2.5 KB  |  64 lines
  1. clear
  2. library "ltent.trc","llogisti.trc","lhenon.trc","lcircle.trc","lmotion.trc","lphase2d.trc","lphase3d.trc","lpoincar.trc","lreadpoi.trc"
  3. library "lpendsic.trc","linitflo.trc","lbifurca.trc","lreadbif.trc","lbasinpo.trc","lreadbas.trc","lfft.trc","lelpha2d.trc","lexpfft.trc"
  4. library "sglib.trc","3dlib.trc","framelib.trc","prtlib.trc","lpendlya.trc"
  5. do
  6. print"**********************************************************************"
  7. print"*                                                                    *"
  8. print"*                         CHAOS PROGRAMS                             *"
  9. PRINT"*                                                                    *"
  10. print"*                    G.L.Baker and J.P.Gollub                        *"
  11. print"*                  copyright 1988  Bryn Athyn, PA                    *"
  12. PRINT"**********************************************************************"
  13. print
  14. print
  15. print 
  16. print
  17. print"Press any key for menu"
  18. get key variable
  19. clear
  20. print"                           ***PROGRAMS***"
  21. print
  22. PRINT" MAPS"
  23. PRINT"   (1)TENT MAP   (2)LOGISTIC MAP   (3)HENON MAP   (4)CIRCLE MAP"
  24. PRINT
  25. PRINT" DYNAMICAL SYSTEMS"
  26. PRINT"  PENDULUM"
  27. PRINT"   (5)MOTION            (6)2D-PHASE DIAGRAM  (10)READ 2D-PHASE FILE"
  28. PRINT"   (8)3D-PHASE DIAGRAM  (9)POINCARE SECTION  (10)READ POINCARE FILE"
  29. PRINT"   (11)INIT. ORBITS     (12)INIT. BLOCK FLO  (13)BIFURCATION DIAG."
  30. PRINT"   (14)READ BIF. FILE   (15)BASINS OF ATTRA. (16)READ BASIN FILE"
  31. PRINT"   (17)FAST FOURIER TR. (18)LYAPUONV EXPS."
  32. PRINT"  ELECTRICAL"
  33. PRINT"   (20)L,R,variable C CIRCUIT"
  34. print
  35. PRINT" MISC."
  36. PRINT"   (30)FFT OF LINEAR COMBINATION OF SINE WAVES"
  37. PRINT"   (99)EXIT PROGRAM"
  38. PRINT
  39. INPUT PROMPT" Input the number corresponding to your choice => ":choice
  40. PRINT
  41. if choice < 99 then PRINT"BE PATIENT..."
  42. if choice=1 then call xtent
  43. if choice=2 then call xlogisti
  44. IF CHOICE=3 THEN call xhenon
  45. if choice=4 then call xcircle
  46. if choice=5 then call xmotion
  47. if choice=6 then call xphase2d
  48. if choice=8 then call xphase3d
  49. if choice=9 then call xpoincar
  50. if choice=10 then call xreadpoi
  51. if choice=11 then call xpendsic
  52. if choice=12 then call xinitflo
  53. if choice=13 then call xbifurca
  54. if choice=14 then call xreadbif
  55. if choice=15 then call xbasinpo
  56. if choice=16 then call xreadbas
  57. if choice=17 then call xfft
  58. IF CHOICE=18 THEN CALL XPENDLYA
  59. if choice=20 then call xelpha2d
  60. if choice = 30 then call xexpfft
  61. loop until choice=99
  62. Print"Press <esc> key to finish"
  63. end
  64.