home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-385-Vol-1of3.iso / m / mcademo3.zip / SURFACE.MCD / SURFACE.MCD
Text File  |  1991-06-12  |  2KB  |  55 lines
  1. .MCD 30001 1 74
  2. .CMD FORMAT  rd=d ct=10 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 3 1 0 0
  30. C a144,166,61
  31. {\rtf1\ansi \deff0
  32. {\fonttbl
  33. {\f0\fnil Helv;}
  34. {\f1\fnil Symbol;}
  35. }
  36. {\plain {\f0 \fs24 \b \i \ulnone }{\f0 \fs24 
  37. \b \i \ulnone SURFACE PLOT}{}}
  38. }
  39. .EQN 0 22 0 0
  40. f(x,y):sin((x)^(2)+(y)^(2))
  41. .EQN 0 24 0 0
  42. N:20
  43. .EQN 0 10 0 0
  44. i:0;N
  45. .EQN 3 0 0 0
  46. j:0;N
  47. .EQN 4 -56 0 0
  48. (x)[(i):-1.5+.15*i
  49. .EQN 0 24 0 0
  50. (y)[(j):-1.5+.15*j
  51. .EQN 0 22 0 0
  52. (M)[(i,j):f((x)[(i),(y)[(j))
  53. .EQN 6 -37 0 0
  54. M{10 35 0 60 20    30    30 0 1 1 2}{57}
  55.