Category : Science and Education
Archive   : PAPT_160.ZIP
Filename : DEFTEST.APT

PARTNO PERSONAL APT STATEMENT FORMAT TEST PROGRAM
PRINT/ON
SYN/ON
$$
$$ BASIC POINT DEFINITIONS
$$
REDEF/ON
P1=PT/1,2
P2=PT/1,2,3
P3=PT/P1,DELTAX,3,YCOORD,5,DELTAZ,2
P4=PT/P1,XCOORD,7,DELTAY,2,ZCOORD,1
P5=PT/P1,XYROT,30
P6=PT/P1,YZROT,30
P7=PT/P1,ZXROT,30
P8=PT/RTHETA,XYPLAN,10,30
P8A=PT/THETAR,XYPLAN,30,10
P9=PT/RTHETA,YZPLAN,10,30
P9A=PT/THETAR,YZPLAN,30,10
P10=PT/RTHETA,ZXPLAN,10,30
P10A=PT/THETAR,ZXPLAN,30,10
P11=PT/P1,RTHETA,XYPLAN,10,30
P11A=PT/P1,THETAR,XYPLAN,30,10
P12=PT/P1,RTHETA,YZPLAN,10,30
P12A=PT/P1,THETAR,YZPLAN,30,10
P13=PT/P1,RTHETA,ZXPLAN,10,30
P13A=PT/P1,THETAR,ZXPLAN,30,10
$$
$$ BASIC LINE DEFINITIONS
$$
L1=LN/1,2,10,3
L2=LN/1,2,3,10,3,6
L3=LN/P1,P8
L4=LN/P8,P1
L5=LN/XAXIS
L6=LN/YAXIS
L7=LN/XCOORD,3
L8=LN/YCOORD,6
L9=LN/DIAMTR,4
L10=LN/P3,PARLEL,L1
L11=LN/P3,PERPTO,L1
L12=LN/PARLEL,L11,XLARGE,2
L13=LN/PARLEL,L11,XSMALL,2
L14=LN/PARLEL,L11,YLARGE,3
L15=LN/PARLEL,L11,YSMALL,3
L16=LN/P1,ATANGL,20
L17=LN/P1,ATANGL,20,L4
L17A=LN/P1,ATANGL,20,XAXIS
L17B=LN/P1,ATANGL,20,YAXIS
L17C=LN/P1,ATANGL,(90+20)
$$
$$ BASIC CIRCLE DEFINITIONS
$$
C1=CI/1,2,3
C2=CI/1,2,2,3
C3=CI/CENTER,P1,RADIUS,4
C4=CI/CENTER,P1,TANTO,L5
C5=CI/CENTER,P1,P5
C6=CI/CENTER,P7,LARGE,TANTO,C1
C7=CI/CENTER,P7,SMALL,TANTO,C1
C8=CI/P1,P5,P9
C9=CI/C1,LARGE,.55
C10=CI/C1,SMALL,.2
$$
$$ BASIC PLANE DEFINITIONS
$$
PL1=PL/1,2,3,4
PL2=PL/P1,P5,P8
PL3=PL/P2,PARLEL,PL2
PL4=PL/P6,PERPTO,PL1,PL2
PL5=PL/PERPTO,PL3,P6,P2
PL6=PL/PARLEL,PL1,XLARGE,1.5
PL7=PL/PARLEL,PL1,XSMALL,1.5
PL8=PL/PARLEL,PL1,YLARGE,1.5
PL9=PL/PARLEL,PL1,YSMALL,1.5
PL10=PL/PARLEL,PL1,ZLARGE,1.5
PL11=PL/PARLEL,PL1,ZSMALL,1.5
PL12=PL/L4
$$
$$ ALL VECTOR DEFINITIONS
$$
V1=VE/1
V2=VE/1,2
V3=VE/1,2,3
V4=VE/P1,P6
V5=VE/3,TIMES,V1
V6=VE/V1,CROSS,V4
V7=VE/UNIT,V6
V8=VE/V5,MINUS,V1
V9=VE/V5,PLUS,V1
V10=VE/LENGTH,4,ATANGL,30,XYPLAN
V11=VE/LENGTH,4,ATANGL,30,YZPLAN
V12=VE/LENGTH,4,ATANGL,30,ZXPLAN
$$
$$ ALL MATRIX DEFINITIONS
$$
MX1=MX/1,2,3,4,5,6,7,8,9,8,7,6
MX2=MX/TRANSL,5
MX3=MX/TRANSL,5,3
MX4=MX/TRANSL,5,3,1
MX5=MX/XYROT,30
MX6=MX/YZROT,30
MX7=MX/ZXROT,30
MX8=MX/SCALE,.5
MX9=MX/MX1,MX2
MX10=MX/XYROT,30,TRANSL,5
MX11=MX/YZROT,30,TRANSL,5,7
MX12=MX/ZXROT,30,TRANSL,5,7,9
MX13=MX/INVERS,MX12
MX14=MX/MIRROR,L1
MX15=MX/MIRROR,PL7
MX16=MX/MIRROR,XYPLAN
MX17=MX/MIRROR,YZPLAN
MX18=MX/MIRROR,ZXPLAN
MX19=MX/P1,V4,V8
$$
$$ PATTERN DEFINITIONS
$$
PA1=PN/LINEAR,P1,P8,4
PA2=PN/LINEAR,P1,V8,3
PA3=PN/LINEAR,P1,V8,INCR,.5,1,.75,.25
PA4=PN/LINEAR,P1,V8,INCR,4,AT,.25
PA5=PN/ARC,C5,10,60,CCLW,4
PA6=PN/ARC,C5,10,CCLW,INCR,10,20,30
PA7=PN/ARC,C5,10,CCLW,INCR,4,AT,10
PA8=PN/RANDOM,P1,P3,PA2,P6,PA6
PA9=PN/PARLEL,PA1,PA5
PA10=PN/PARLEL,PA5,PA1
PA11=PN/PARLEL,PA1,V8,5
$$
$$ OTHER POINT DEFINITIONS
$$
P14=PT/INTOF,L1,L4
P15=PT/XLARGE,INTOF,C1,C6
P16=PT/XSMALL,INTOF,L1,C1
P17=PT/YLARGE,INTOF,C1,L1
P18=PT/CENTER,C6
P19=PT/C6,ATANGL,30
P20=PT/INTOF,PL1,PL2,PL4
P21=PT/TRFORM,P1,MX1
P22=PT/PA1,3
P23=PT/P22,DELTA,V4
$$
$$ OTHER LINE DEFINITIONS
$$
L18=LN/P9,LEFT,TANTO,C6
L19=LN/RIGHT,TANTO,C1,RIGHT,TANTO,C6
L20=LN/INTOF,PL1,PL2
L21=LN/XLARGE,TANTO,C5,ATANGL,25
L22=LN/XLARGE,TANTO,C5,ATANGL,25,L19
L22A=LN/XLARGE,TANTO,C5,ATANGL,25,XAXIS
L22B=LN/XLARGE,TANTO,C5,ATANGL,25,YAXIS
L22C=LN/XLARGE,TANTO,C5,ATANGL,(90+25)
$$
$$ OTHER CIRCLE DEFINITIONS
$$
C11=CI/YLARGE,L2,XLARGE,L6,RADIUS,2
C12=CI/YLARGE,L2,XSMALL,OUT,C6,RADIUS,.5
C13=CI/YSMALL,OUT,C6,OUT,C1,RADIUS,.75
C14=CI/TANTO,L1,XLARGE,P1,RADIUS,1.25
$$
$$ PERSONAL APT FUNCTIONS
$$
A= 21
B= -87
C= ABSF(B)
D= ACOSF(.9231*.75)
E= ASINF(.1234)
F= ATANF(.5)
G= ATAN2F(.5,1)
H= COSF(D)
I= DISTF(P1,P2)
J= DISTF(P1,L1)
K= DISTF(L11,L12)
L= DISTF(P1,PL1)
M= DISTF(PL3,PL2)
N= DOTF(V1,V2)
O= SINF(E)
P= SQRTF(M)
Q= TANF(F)
R= INTF(F)
S= LOGF(F)
T= LOG10F(F)
U= ROUNDF(F, .005)
X1= XVALF(P14)
Y1= YVALF(P14)
Z1= ZVALF(P14)
X2= XVALF(C14)
Y2= YVALF(C14)
R2= RVALF(C14)
I1= IVALF(L4)
J1= JVALF(L4)
K1= KVALF(L4)
D1= DVALF(L4)
I2= IVALF(V4)
J2= JVALF(V4)
K2= KVALF(V4)
I3= IVALF(PL1)
J3= JVALF(PL1)
K3= KVALF(PL1)
D3= DVALF(PL1)
A1= ANGLF(L4)
A2= ANGLF(C6,P19)
R1= ROTF(PL1)
T1= TILTF(PL1)
LX1= LNTHF(V4)
DX= DMSF(36,21,19)
CX= CANF(P1,2)*CANF(C6,7)
GOTO/P14
P14X=PT/CLDATA
FINI