home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e004 / 1.img / STARS.MCD < prev    next >
Encoding:
Text File  |  1987-10-24  |  956 b   |  47 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. .CMD FILENAME data1 data1
  11. .CMD FILENAME data2 data2
  12. .TXT 1 23 1 30 
  13. a1,29,27,28
  14. STARS INSCRIBED IN A CIRCLE
  15. .TXT 2 -23 1 17 
  16. a1,17,15,16
  17. Parameters --->
  18. .TXT 0 17 1 19 
  19. a1,19,17,18
  20. Number of points:
  21. .EQN 0 19 1 9 
  22. N:15
  23. .EQN 0 20 1 12 
  24. j:0;N
  25. .EQN 2 -20 3 19 
  26. C:floor(N/2)+1
  27. .EQN 0 20 3 25 
  28. z[j:exp(1i*(C/N)*2*π*j)
  29. .TXT 1 -39 1 19 
  30. a1,19,17,18
  31. Crossover factor:
  32. .EQN 3 -17 15 39 
  33. 1&-1&Im(z[j){1,1,13,30,l}@1&-1&Re(z[j)
  34. .TXT 1 44 11 31 
  35. a11,31,29,201
  36. To see other stars, change N 
  37. or C.
  38. 
  39. For pointy stars, use C close 
  40. to N/2.  For polygons, use
  41. C = 1.
  42. 
  43. To avoid retracing the same 
  44. star over and over, make sure 
  45. C and N have no common 
  46. factors.
  47.