我做的渐开线示例程序,方程很容易从下图中得到:
$$ PROGRAM: INVOLUTE.GRS
$$
$$ KEYWORDS:
$$
$$ ABSTRACT:
$$ CREATE A INVOLUTE
$$ RELEASE HISTORY:
$$
$$ REQUIRED SUBROUTINES: (NONE)
$$
$$ REQUIRED DATA/PART FILES: (NONE)
$$
$$ AUTHOR: PETER1024
$$
$$ COMPANY:
$$
$$ SYSTEM TYPE: ALL
$$
$$ THEORY/VARIABLE USAGE:
$$
ENTITY/POINT1(361),SP1
NUMBER/V1,R1,A1,A2,X1,Y1
V1=0
R1=5 $$ DEFAULT REDIUS 5
A1=0 $$ DEFAULT START ANGLE EQUAL TO 0 DEGREE
A2=450 $$ DEFAULT END ANGLE EQUAL TO 450 DEGREE
JP1:
IFTHEN/A1==A2
JUMP/JP2:
ENDIF
X1=R1*COSF(A1)+&I*R1*A1*SINF(A1)/180
Y1=R1*SINF(A1)-&I*R1*A1*COSF(A1)/180
POINT1(V1+1)=POINT/X1,Y1
V1=V1+1
A1=A1+2
JUMP/JP1:
JP2:
SP1=BCURVE/POINT1(1..V1),DEGREE,3,IFERR,JEND:
JEND:
DELETE/POINT1(1..V1)
HALT |