home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e004 / 1.img / POLAR.MCD < prev    next >
Encoding:
Text File  |  1987-10-23  |  670 b   |  31 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 0 1 33 
  11. a1,32,30,31
  12. PLOTTING IN POLAR CO-ORDINATES
  13. .EQN 2 1 1 17 
  14. Θ:0,.1;2*π
  15. .EQN 0 19 1 25 
  16. r(Θ):5*sin(Θ)*cos(Θ)
  17. .EQN 3 -20 16 52 
  18. 2&-2&y(r(Θ),Θ){1,1,15,40,l}@2&-2&x(r(Θ),Θ)
  19. .TXT 1 58 6 21 
  20. a6,21,19,106
  21. These two functions 
  22. will convert any 
  23. polar equation to 
  24. rectangular 
  25. co-ordinates, so 
  26. you can plot it:
  27. .EQN 7 1 1 19 
  28. x(r,Θ)~r*cos(Θ)
  29. .EQN 2 0 1 19 
  30. y(r,Θ)~r*sin(Θ)
  31.