home *** CD-ROM | disk | FTP | other *** search
/ Media Share 9 / MEDIASHARE_09.ISO / progmisc / cams305.zip / THINGMJ.NC < prev    next >
Text File  |  1993-05-20  |  896b  |  43 lines
  1. PNO/ CAMS TEST CASE #1 - THINGAMAJIG - 12/17/86
  2. MCH/0
  3. MAT/M1=TRN,.375,2.225,-.4125
  4. PLT/M1
  5. #/S0=185
  6. #/R1=.25
  7. #/Z1=.625+.25
  8. #/Z2=-.05
  9. #/Y0=1.725-.4+2
  10. #/X0=3
  11. PLN/Q1=0,0,1,Z2
  12. LIN/L1=0,-Y0,1,-Y0
  13. LIN/L2=-X0,0,-X0,1
  14. LIN/L3=-X0,2-Y0,COS(15)-X0,SIN(15)+2-Y0
  15. LIN/L4=PARL,L1,YL,1.725
  16. LIN/L5=PARL,L2,XL,6
  17. CIR/C1=0,0,2
  18. REM/ ** COMPUTE SPINDLE RPM (S1) SUCH THAT 100 <= S1 <= 4000
  19. #/S1=MAX(100:MIN(4000:(S0*12/(3.1416*R1*2))))
  20. REM/ ** COMPUTE FEEDRATE; .004 PER EDGE FOR 2 FLUTE CUTTER
  21. #/F1=.004*S1*2
  22. PRT/S1,F1
  23. FROM/P255=-(X0+1),-(Y0+1.125),Z1
  24. FED/F1
  25. CUTR/2*R1
  26. RPD
  27. PS/Q1
  28. GO/TO,L2,TO,L1
  29. GO/PAST,L3,TO,L2
  30. GO/PAST,C1,TO,L3
  31. REM/ *** GEOMETRY TO COMPUTE ARC END ANGLE USING A CIRCLE
  32. CIR/C100=YL,L4,XL,IN,C1,R1
  33. ARC/.003,CCW,CTR,C100,IN,C1
  34. GO/PAST,L5,TO,L4
  35. GO/PAST,L1,TO,L5
  36. GO/PAST,L2,TO,L1
  37. RPD
  38. GTO/P255
  39. PRT/ALL
  40. FIN
  41. 4,XL,IN,C1,R1
  42. ARC/.003,CCW,CTR,C100,IN,C1
  43. GO/PAST,L5,TO,L4