home *** CD-ROM | disk | FTP | other *** search
/ Explore the World of Soft…e: Engineering & Science / Explore_the_World_of_Software_Engineering_and_Science_HRS_Software_1998.iso / programs / cnc / papt_141.exe / DEFTEST.APT < prev    next >
Text File  |  1989-12-01  |  4KB  |  185 lines
  1. PARTNO PERSONAL APT STATEMENT FORMAT TEST PROGRAM
  2. PRINT/ON
  3. SYN/ON
  4. $$
  5. $$ BASIC POINT DEFINITIONS
  6. $$
  7. REDEF/ON
  8. P1=PT/1,2
  9. P2=PT/1,2,3
  10. P3=PT/P1,DELTAX,3,YCOORD,5,DELTAZ,2
  11. P4=PT/P1,XCOORD,7,DELTAY,2,ZCOORD,1
  12. P5=PT/P1,XYROT,30
  13. P6=PT/P1,YZROT,30
  14. P7=PT/P1,ZXROT,30
  15. P8=PT/RTHETA,XYPLAN,10,30
  16. P8A=PT/THETAR,XYPLAN,30,10
  17. P9=PT/RTHETA,YZPLAN,10,30
  18. P9A=PT/THETAR,YZPLAN,30,10
  19. P10=PT/RTHETA,ZXPLAN,10,30
  20. P10A=PT/THETAR,ZXPLAN,30,10
  21. P11=PT/P1,RTHETA,XYPLAN,10,30
  22. P11A=PT/P1,THETAR,XYPLAN,30,10
  23. P12=PT/P1,RTHETA,YZPLAN,10,30
  24. P12A=PT/P1,THETAR,YZPLAN,30,10
  25. P13=PT/P1,RTHETA,ZXPLAN,10,30
  26. P13A=PT/P1,THETAR,ZXPLAN,30,10
  27. $$
  28. $$ BASIC LINE DEFINITIONS
  29. $$
  30. L1=LN/1,2,10,3
  31. L2=LN/1,2,3,10,3,6
  32. L3=LN/P1,P8
  33. L4=LN/P8,P1
  34. L5=LN/XAXIS
  35. L6=LN/YAXIS
  36. L7=LN/XCOORD,3
  37. L8=LN/YCOORD,6
  38. L9=LN/DIAMTR,4
  39. L10=LN/P3,PARLEL,L1
  40. L11=LN/P3,PERPTO,L1
  41. L12=LN/PARLEL,L11,XLARGE,2
  42. L13=LN/PARLEL,L11,XSMALL,2
  43. L14=LN/PARLEL,L11,YLARGE,3
  44. L15=LN/PARLEL,L11,YSMALL,3
  45. L16=LN/P1,ATANGL,20
  46. L17=LN/P1,ATANGL,20,L4
  47. L17A=LN/P1,ATANGL,20,XAXIS
  48. L17B=LN/P1,ATANGL,20,YAXIS
  49. L17C=LN/P1,ATANGL,(90+20)
  50. $$
  51. $$ BASIC CIRCLE DEFINITIONS
  52. $$
  53. C1=CI/1,2,3
  54. C2=CI/1,2,2,3
  55. C3=CI/CENTER,P1,RADIUS,4
  56. C4=CI/CENTER,P1,TANTO,L5
  57. C5=CI/CENTER,P1,P5
  58. C6=CI/CENTER,P7,LARGE,TANTO,C1
  59. C7=CI/CENTER,P7,SMALL,TANTO,C1
  60. C8=CI/P1,P5,P9
  61. C9=CI/C1,LARGE,.55
  62. C10=CI/C1,SMALL,.2
  63. $$
  64. $$ BASIC PLANE DEFINITIONS
  65. $$
  66. PL1=PL/1,2,3,4
  67. PL2=PL/P1,P5,P8
  68. PL3=PL/P2,PARLEL,PL2
  69. PL4=PL/P6,PERPTO,PL1,PL2
  70. PL5=PL/PERPTO,PL3,P6,P2
  71. PL6=PL/PARLEL,PL1,XLARGE,1.5
  72. PL7=PL/PARLEL,PL1,XSMALL,1.5
  73. PL8=PL/PARLEL,PL1,YLARGE,1.5
  74. PL9=PL/PARLEL,PL1,YSMALL,1.5
  75. PL10=PL/PARLEL,PL1,ZLARGE,1.5
  76. PL11=PL/PARLEL,PL1,ZSMALL,1.5
  77. PL12=PL/L4
  78. $$
  79. $$ ALL VECTOR DEFINITIONS
  80. $$
  81. V1=VE/1
  82. V2=VE/1,2
  83. V3=VE/1,2,3
  84. V4=VE/P1,P6
  85. V5=VE/3,TIMES,V1
  86. V6=VE/V1,CROSS,V4
  87. V7=VE/UNIT,V6
  88. V8=VE/V5,MINUS,V1
  89. V9=VE/V5,PLUS,V1
  90. V10=VE/LENGTH,4,ATANGL,30,XYPLAN
  91. V11=VE/LENGTH,4,ATANGL,30,YZPLAN
  92. V12=VE/LENGTH,4,ATANGL,30,ZXPLAN
  93. $$
  94. $$ ALL MATRIX DEFINITIONS
  95. $$
  96. MX1=MX/1,2,3,4,5,6,7,8,9,8,7,6
  97. MX2=MX/TRANSL,5
  98. MX3=MX/TRANSL,5,3
  99. MX4=MX/TRANSL,5,3,1
  100. MX5=MX/XYROT,30
  101. MX6=MX/YZROT,30
  102. MX7=MX/ZXROT,30
  103. MX8=MX/SCALE,.5
  104. MX9=MX/MX1,MX2
  105. MX10=MX/XYROT,30,TRANSL,5
  106. MX11=MX/YZROT,30,TRANSL,5,7
  107. MX12=MX/ZXROT,30,TRANSL,5,7,9
  108. MX13=MX/INVERS,MX12
  109. MX14=MX/MIRROR,L1
  110. MX15=MX/MIRROR,PL7
  111. MX16=MX/MIRROR,XYPLAN
  112. MX17=MX/MIRROR,YZPLAN
  113. MX18=MX/MIRROR,ZXPLAN
  114. MX19=MX/P1,V4,V8
  115. $$
  116. $$ PATTERN DEFINITIONS
  117. $$
  118. PA1=PN/LINEAR,P1,P8,4
  119. PA2=PN/LINEAR,P1,V8,3
  120. PA3=PN/LINEAR,P1,V8,INCR,.5,1,.75,.25
  121. PA4=PN/LINEAR,P1,V8,INCR,4,AT,.25
  122. PA5=PN/ARC,C5,10,60,CCLW,4
  123. PA6=PN/ARC,C5,10,CCLW,INCR,10,20,30
  124. PA7=PN/ARC,C5,10,CCLW,INCR,4,AT,10
  125. PA8=PN/RANDOM,P1,P3,PA2,P6,PA6
  126. PA9=PN/PARLEL,PA1,PA5
  127. PA10=PN/PARLEL,PA5,PA1
  128. PA11=PN/PARLEL,PA1,V8,5
  129. $$
  130. $$ OTHER POINT DEFINITIONS
  131. $$
  132. P14=PT/INTOF,L1,L4
  133. P15=PT/XLARGE,INTOF,C1,C6
  134. P16=PT/XSMALL,INTOF,L1,C1
  135. P17=PT/YLARGE,INTOF,C1,L1
  136. P18=PT/CENTER,C6
  137. P19=PT/C6,ATANGL,30
  138. P20=PT/INTOF,PL1,PL2,PL4
  139. P21=PT/TRFORM,P1,MX1
  140. P22=PT/PA1,3
  141. $$
  142. $$ OTHER LINE DEFINITIONS
  143. $$
  144. L18=LN/P9,LEFT,TANTO,C6
  145. L19=LN/RIGHT,TANTO,C1,RIGHT,TANTO,C6
  146. L20=LN/INTOF,PL1,PL2
  147. L21=LN/XLARGE,TANTO,C5,ATANGL,25
  148. L22=LN/XLARGE,TANTO,C5,ATANGL,25,L19
  149. L22A=LN/XLARGE,TANTO,C5,ATANGL,25,XAXIS
  150. L22B=LN/XLARGE,TANTO,C5,ATANGL,25,YAXIS
  151. L22C=LN/XLARGE,TANTO,C5,ATANGL,(90+25)
  152. $$
  153. $$ OTHER CIRCLE DEFINITIONS
  154. $$
  155. C11=CI/YLARGE,L2,XLARGE,L6,RADIUS,2
  156. C12=CI/YLARGE,L2,XSMALL,OUT,C6,RADIUS,.5
  157. C13=CI/YSMALL,OUT,C6,OUT,C1,RADIUS,.75
  158. C14=CI/TANTO,L1,XLARGE,P1,RADIUS,1.25
  159. $$
  160. $$ PERSONAL APT FUNCTIONS
  161. $$
  162. A= 21
  163. B= -87
  164. C= ABSF(B)
  165. D= ACOSF(.9231*.75)
  166. E= ASINF(.1234)
  167. F= ATANF(.5)
  168. G= ATAN2F(.5,1)
  169. H= COSF(D)
  170. I= DISTF(P1,P2)
  171. J= DISTF(P1,L1)
  172. K= DISTF(L11,L12)
  173. L= DISTF(P1,PL1)
  174. M= DISTF(PL3,PL2)
  175. N= DOTF(V1,V2)
  176. O= SINF(E)
  177. P= SQRTF(M)
  178. Q= TANF(F)
  179. R= INTF(F)
  180. S= LOGF(F)
  181. T= LOG10F(F)
  182. U= ROUNDF(F, .005)
  183. FINI
  184.  
  185.