$$ CREATE A SPLINE BY ALL THE POINT
$$
$$ RELEASE HISTORY:
$$
$$
$$ Required Subroutines: (None)
$$
$$ REQUIRED DATA/PART FILES: (NONE)
$$
$$ AUTHOR: PETER1024
$$
$$ COMPANY:
$$
$$ SYSTEM TYPE: ALL
$$
$$ THEORY/VARIABLE USAGE:
$$
NUMBER/V1
ENTITY/SPLINE1,POINT1(100)
V1=1
MASK/2
INEXTE
JP1:
POINT1(V1)=NEXTE/IFEND,JP2:
V1=V1+1
JUMP/JP1:
JP2:
V1=V1-1
SPLINE1=BCURVE/POINT1(1..V1),DEGREE,3,CLOSED,IFERR,JEND:
JEND:
HALT
$$以上程序以调试通过,点不可多过100个 |