home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e004 / 1.img / LISSAJOU.MCD < prev    next >
Encoding:
Text File  |  1987-10-23  |  1.1 KB  |  50 lines
  1. .MCD 20000 0
  2. .CMD PLOTFORMAT logs=0,0 subdivs=1,1 size=5,15 type=l
  3. .CMD FORMAT  rd=d ct=10 im=i et=3 zt=15 pr=3 mass length time charge
  4. .CMD SET ORIGIN 0
  5. .CMD SET TOL 0.001000
  6. .CMD MARGIN 0
  7. .CMD LINELENGTH 78
  8. .CMD SET PRNCOLWIDTH 8
  9. .CMD SET PRNPRECISION 4
  10. .TXT 1 30 1 18 
  11. a1,18,16,17
  12. LISSAJOUS FIGURE
  13. .EQN 1 40 1 9 
  14. n1:4
  15. .TXT 1 -66 1 17 
  16. a1,17,15,16
  17. Parameters --->
  18. .TXT 0 17 1 13 
  19. a1,13,11,12
  20. Resolution:
  21. .EQN 0 13 1 10 
  22. N:100
  23. .TXT 0 12 1 24 
  24. a1,24,22,23
  25. Lissajous frequencies:
  26. .EQN 0 24 1 9 
  27. n2:5
  28. .EQN 2 -65 1 16 
  29. j:1;N+1
  30. .EQN 0 19 3 21 
  31. x[j:sin(n1*2*π*j/N)
  32. .EQN 0 26 3 21 
  33. y[j:cos(n2*2*π*j/N)
  34. .EQN 4 -48 15 31 
  35. 1&-1&x[j{1,1,13,26,l}@1&-1&y[j
  36. .TXT 1 35 12 37 
  37. a12,37,35,371
  38. To see different Lissajous figures, 
  39. change the values of n1 and n2. For 
  40. the most interesting results, use 
  41. small integers or consecutive 
  42. integers (for example, 2 and 5, or 
  43. 24 and 25). Also, n1 and n2 should 
  44. have no common factors.
  45. 
  46. For smoother curves, increase the 
  47. resolution. (The higher the 
  48. resolution, the longer it takes to 
  49. calculate and plot the curve.) 
  50.