home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / m / mcademo2.zip / ANHARM.MCD / ANHARM.MCD
Text File  |  1991-06-12  |  4KB  |  128 lines
  1. .MCD 30001 1 74
  2. .CMD PLOTFORMAT
  3. 0 0 1 0 0
  4. 0 0 1 0 0
  5. 0 1 0 0 NO-TRACE-STRING
  6. 0 2 1 0 NO-TRACE-STRING
  7. 0 3 2 0 NO-TRACE-STRING
  8. 0 4 3 0 NO-TRACE-STRING
  9. 0 1 4 0 NO-TRACE-STRING
  10. 0 2 5 0 NO-TRACE-STRING
  11. 0 3 6 0 NO-TRACE-STRING
  12. 0 4 0 0 NO-TRACE-STRING
  13. 0 1 1 0 NO-TRACE-STRING
  14. 0 2 2 0 NO-TRACE-STRING
  15. 0 3 3 0 NO-TRACE-STRING
  16. 0 4 4 0 NO-TRACE-STRING
  17. 0 1 5 0 NO-TRACE-STRING
  18. 0 2 6 0 NO-TRACE-STRING
  19. 0 3 0 0 NO-TRACE-STRING
  20. 0 4 1 0 NO-TRACE-STRING
  21. 0 1 21 15
  22.  
  23. .CMD FORMAT  rd=d ct=10 im=i et=3 zt=15 pr=3 mass length time charge
  24. .CMD SET ORIGIN 0
  25. .CMD SET TOL 0.001000000000000
  26. .CMD SET PRNCOLWIDTH 8
  27. .CMD SET PRNPRECISION 4
  28. .CMD PRINT_SETUP 1.200000 0
  29. .CMD DEFINE_FONTSTYLE_NAME fontID=0 name=Variables
  30. .CMD DEFINE_FONTSTYLE_NAME fontID=1 name=Constants
  31. .CMD DEFINE_FONTSTYLE_NAME fontID=2 name=Text
  32. .CMD DEFINE_FONTSTYLE_NAME fontID=3 name=Greek^Variables
  33. .CMD DEFINE_FONTSTYLE_NAME fontID=4 name=User^1
  34. .CMD DEFINE_FONTSTYLE_NAME fontID=5 name=User^2
  35. .CMD DEFINE_FONTSTYLE_NAME fontID=6 name=User^3
  36. .CMD DEFINE_FONTSTYLE_NAME fontID=7 name=User^4
  37. .CMD DEFINE_FONTSTYLE_NAME fontID=8 name=User^5
  38. .CMD DEFINE_FONTSTYLE_NAME fontID=9 name=User^6
  39. .CMD DEFINE_FONTSTYLE fontID=0 family=Tms^Rmn points=10 bold=0 italic=0 underline=0
  40. .CMD DEFINE_FONTSTYLE fontID=1 family=Tms^Rmn points=10 bold=0 italic=0 underline=0
  41. .CMD DEFINE_FONTSTYLE fontID=2 family=Helv points=10 bold=0 italic=0 underline=0
  42. .CMD DEFINE_FONTSTYLE fontID=3 family=Symbol points=10 bold=0 italic=0 underline=0
  43. .CMD DEFINE_FONTSTYLE fontID=4 family=Helv points=10 bold=0 italic=0 underline=0
  44. .CMD DEFINE_FONTSTYLE fontID=5 family=Courier points=10 bold=0 italic=0 underline=0
  45. .CMD DEFINE_FONTSTYLE fontID=6 family=System points=10 bold=0 italic=0 underline=0
  46. .CMD DEFINE_FONTSTYLE fontID=7 family=Script points=10 bold=0 italic=0 underline=0
  47. .CMD DEFINE_FONTSTYLE fontID=8 family=Terminal points=0 bold=0 italic=0 underline=0
  48. .CMD DEFINE_FONTSTYLE fontID=9 family=Modern points=10 bold=0 italic=0 underline=0
  49. .CMD UNITS U=1
  50. .TXT 2 1 0 0
  51. C a218,220,104
  52. {\rtf1\ansi \deff0
  53. {\fonttbl
  54. {\f0\fnil Helv;}
  55. {\f1\fnil Symbol;}
  56. }
  57. {\plain {}{\f0 \fs24 \b \i \ulnone }{}{\f0 
  58. \fs24 \b \i \ulnone Anharmonic Oscillations}{}{\f0 
  59.  \fs24 \b0 \i \ulnone :}{}}
  60. }
  61. .TXT 4 1 0 0
  62. C a208,210,33
  63. {\rtf1\ansi \deff0
  64. {\fonttbl
  65. {\f0\fnil Helv;}
  66. {\f1\fnil Symbol;}
  67. }
  68. {\plain {}{Over a mesh of N points...}{}}
  69. }
  70. .EQN 0 33 0 0
  71. N:100
  72. .EQN 0 14 0 0
  73. i:1;N
  74. .TXT 4 -40 0 0
  75. C a328,330,74
  76. {\rtf1\ansi \deff0
  77. {\fonttbl
  78. {\f0\fnil Helv;}
  79. {\f1\fnil Symbol;}
  80. }
  81. {\plain {}{...spanning the range from -}{}{\f1 
  82.   a}{}{ to }{}{\f1 a}{}{, where}{}}
  83. }
  84. .EQN 0 43 0 0
  85. {3}a:3.1
  86. .EQN 4 -15 0 0
  87. (x)[(i):{3}a*(2*(i)/(N+1)-1)
  88. .EQN 2 -32 0 0
  89. (t)[(0):0
  90. .EQN 0 16 0 0
  91. (x)[(0):{3}a
  92. .TXT 6 -19 0 0
  93. C a567,567,140
  94. {\rtf1\ansi \deff0
  95. {\fonttbl
  96. {\f0\fnil Helv;}
  97. {\f1\fnil Symbol;}
  98. }
  99. {\plain {}{We compute the times at which
  100.  these points are reached by an oscillator
  101.  having a cosine potential energy, and plot
  102.  their trajectory.}{}}
  103. }
  104. .EQN 6 1 0 0
  105. (t)[(i):(t)[(i-1)+({3}a)/(\(|(cos((x)[(i))-cos({3}a))))
  106. .EQN 0 25 0 0
  107. {3}a&-{3}a&(x)[(i)@(t)[(N)&0&(t)[(i)
  108. 0 0 0 1 0
  109. 0 0 0 1 0
  110. 0 1 0 1 NO-TRACE-STRING
  111. 0 2 1 0 NO-TRACE-STRING
  112. 0 3 2 0 NO-TRACE-STRING
  113. 0 4 3 0 NO-TRACE-STRING
  114. 0 1 4 0 NO-TRACE-STRING
  115. 0 2 5 0 NO-TRACE-STRING
  116. 0 3 6 0 NO-TRACE-STRING
  117. 0 4 0 0 NO-TRACE-STRING
  118. 0 1 1 0 NO-TRACE-STRING
  119. 0 2 2 0 NO-TRACE-STRING
  120. 0 3 3 0 NO-TRACE-STRING
  121. 0 4 4 0 NO-TRACE-STRING
  122. 0 1 5 0 NO-TRACE-STRING
  123. 0 2 6 0 NO-TRACE-STRING
  124. 0 3 0 0 NO-TRACE-STRING
  125. 0 4 1 0 NO-TRACE-STRING
  126. 0 1 30 18
  127.  
  128.