home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / m / mcademo2.zip / CONTOUR.MCD / CONTOUR.MCD
Text File  |  1991-06-12  |  3KB  |  103 lines
  1. .MCD 30001 1 74
  2. .CMD FORMAT  rd=d ct=6 im=i et=3 zt=15 pr=3 mass length time charge
  3. .CMD SET ORIGIN 0
  4. .CMD SET TOL 0.001000000000000
  5. .CMD SET PRNCOLWIDTH 8
  6. .CMD SET PRNPRECISION 4
  7. .CMD PRINT_SETUP 1.200000 0
  8. .CMD DEFINE_FONTSTYLE_NAME fontID=0 name=Variables
  9. .CMD DEFINE_FONTSTYLE_NAME fontID=1 name=Constants
  10. .CMD DEFINE_FONTSTYLE_NAME fontID=2 name=Text
  11. .CMD DEFINE_FONTSTYLE_NAME fontID=3 name=Greek^Variables
  12. .CMD DEFINE_FONTSTYLE_NAME fontID=4 name=User^1
  13. .CMD DEFINE_FONTSTYLE_NAME fontID=5 name=User^2
  14. .CMD DEFINE_FONTSTYLE_NAME fontID=6 name=User^3
  15. .CMD DEFINE_FONTSTYLE_NAME fontID=7 name=User^4
  16. .CMD DEFINE_FONTSTYLE_NAME fontID=8 name=User^5
  17. .CMD DEFINE_FONTSTYLE_NAME fontID=9 name=User^6
  18. .CMD DEFINE_FONTSTYLE fontID=0 family=Tms^Rmn points=10 bold=0 italic=0 underline=0
  19. .CMD DEFINE_FONTSTYLE fontID=1 family=Tms^Rmn points=10 bold=0 italic=0 underline=0
  20. .CMD DEFINE_FONTSTYLE fontID=2 family=Helv points=10 bold=0 italic=0 underline=0
  21. .CMD DEFINE_FONTSTYLE fontID=3 family=Symbol points=10 bold=0 italic=0 underline=0
  22. .CMD DEFINE_FONTSTYLE fontID=4 family=Helv points=10 bold=0 italic=0 underline=0
  23. .CMD DEFINE_FONTSTYLE fontID=5 family=Courier points=10 bold=0 italic=0 underline=0
  24. .CMD DEFINE_FONTSTYLE fontID=6 family=System points=10 bold=0 italic=0 underline=0
  25. .CMD DEFINE_FONTSTYLE fontID=7 family=Script points=10 bold=0 italic=0 underline=0
  26. .CMD DEFINE_FONTSTYLE fontID=8 family=Terminal points=0 bold=0 italic=0 underline=0
  27. .CMD DEFINE_FONTSTYLE fontID=9 family=Modern points=10 bold=0 italic=0 underline=0
  28. .CMD UNITS U=1
  29. .TXT 2 1 0 0
  30. C a291,365,78
  31. {\rtf1\ansi \deff0
  32. {\fonttbl
  33. {\f0\fnil Helv;}
  34. {\f1\fnil Symbol;}
  35. }
  36. {\plain {}{\f0 \fs24 \b \i \ulnone }{}{\f0 
  37. \fs24 \b \i \ulnone COMPLEX CONTOUR INTEGRALS}{}}
  38. }
  39. .TXT 4 9 0 0
  40. C a280,282,92
  41. {\rtf1\ansi \deff0
  42. {\fonttbl
  43. {\f0\fnil Helv;}
  44. {\f1\fnil Symbol;}
  45. }
  46. {\plain {}{This document shows the general
  47.  technique for evaluating a complex contour
  48.  integral.}{}}
  49. }
  50. .TXT 6 -9 0 0
  51. C a104,106,51
  52. {\rtf1\ansi \deff0
  53. {\fonttbl
  54. {\f0\fnil Helv;}
  55. {\f1\fnil Symbol;}
  56. }
  57. {\plain {}{Start with a complex function
  58.  to evaluate:}{}}
  59. }
  60. .EQN 2 22 0 0
  61. f(z):(1)/(z)
  62. .TXT 10 -22 0 0
  63. C a112,114,52
  64. {\rtf1\ansi \deff0
  65. {\fonttbl
  66. {\f0\fnil Helv;}
  67. {\f1\fnil Symbol;}
  68. }
  69. {\plain {}{Choose a parameterized path in
  70.  the z plane.}{}}
  71. }
  72. .EQN 2 22 0 0
  73. z(t):cos(t)+1i*sin(t)
  74. .EQN 4 0 0 0
  75. t.start:0
  76. .EQN 0 21 0 0
  77. t.end:2*{3}p
  78. .TXT 8 -43 0 0
  79. C a256,258,66
  80. {\rtf1\ansi \deff0
  81. {\fonttbl
  82. {\f0\fnil Helv;}
  83. {\f1\fnil Symbol;}
  84. }
  85. {\plain {}{Then the integral of f over the
  86.  path can be defined as ...}{}}
  87. }
  88. .EQN 9 18 0 0
  89. (t.start&t.end`f(z(t))*(t"z(t))&t)=?_n_u_l_l_
  90. .TXT 14 1 0 0
  91. C a328,330,104
  92. {\rtf1\ansi \deff0
  93. {\fonttbl
  94. {\f0\fnil Helv;}
  95. {\f1\fnil Symbol;}
  96. }
  97. {\plain {}{This is 2}{}{\f1 p}{}{i, not 
  98. zero, indicating a pole within the circular
  99.  path described by z(t).}{}}
  100. }
  101. .EQN 8 0 0 0
  102. TOL~(10)^(-6)
  103.