home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / MCAD254.ZIP / COMPFUNC.MCD < prev    next >
Encoding:
Text File  |  1989-06-21  |  1.5 KB  |  66 lines
  1. .MCD 25000 0
  2. .CMD SURFACEFORMAT rot=10 tilt=35 vScale=20 size=15,30
  3. .CMD SKETCHFORMAT mag=1.000000,1.000000 center=0.500000,0.500000 size=15,30 box=y
  4. .CMD PLOTFORMAT logs=0,0 subdivs=1,1 size=5,15 type=l
  5. .CMD FORMAT  rd=d ct=10 im=i et=3 zt=15 pr=3 mass length time charge
  6. .CMD SET ORIGIN 0
  7. .CMD SET TOL 0.001000
  8. .CMD MARGIN 0
  9. .CMD LINELENGTH 78
  10. .CMD SET PRNCOLWIDTH 8
  11. .CMD SET PRNPRECISION 4
  12. .TXT 1 0 1 33 
  13. a1,32,78,31
  14. VISUALIZING A COMPLEX FUNCTION
  15. .TXT 2 0 3 71 
  16. a3,70,78,150
  17. This application helps visualize a function of one complex variable
  18. using MathCAD's surface plots. We plot the real and imaginary parts
  19. separately.
  20. .EQN 4 3 2 12 
  21. f(z):\z
  22. .TXT 1 26 1 31 
  23. a1,30,50,29
  24. . . . function to be plotted
  25. .EQN 3 -26 1 9 
  26. N:12
  27. .TXT 0 26 1 42 
  28. a1,41,63,40
  29. . . . number of grids in each direction
  30. .EQN 2 -26 1 12 
  31. j:0;N
  32. .EQN 1 0 1 12 
  33. k:0;N
  34. .EQN 2 0 1 20 
  35. corner1:-6-6i
  36. .TXT 0 26 1 24 
  37. a1,23,50,22
  38. . . . corners of grid
  39. .EQN 1 -26 1 19 
  40. corner2:6+6i
  41. .EQN 2 0 3 27 
  42. incr:(corner2-corner1)/N
  43. .EQN 4 0 3 34 
  44. z[(j,k):corner1+Re(incr)*j{54}Im(incr)*k*1.0i
  45. .TXT 0 37 1 22 
  46. a1,21,38,20
  47. . . . domain points
  48. .EQN 5 -37 2 12 
  49. z2:f(z){49}
  50. .TXT 1 26 1 21 
  51. a1,20,39,19
  52. . . . range points
  53. .EQN 3 -26 1 13 
  54. R:Re(z2)
  55. .TXT 0 26 3 34 
  56. a3,33,39,86
  57. . . . these matrices hold the
  58. real and imaginary part of the
  59. function to be plotted
  60. .EQN 1 -26 1 13 
  61. I:Im(z2)
  62. .EQN 3 -2 16 33 
  63. R{10 35 0 60 20 15 30 0 1 1 2}{57}
  64. .EQN 0 36 16 33 
  65. I{10 35 0 60 20 15 30 0 1 1 2}{57}
  66.