4.18.grs

UG二次开发很好的东西 需要的朋友可以下载来看看 很好用啊

$$变量声明。
entity/results(1000),cur

$$选择一条曲线。
l10:
ident/'pick a curve',cur,resp
jump/l10:,trm:,,resp

$$输入两点间的比率。
l20:
param/'enter the arclength','ratio=',r,resp
jump/l20:,trm:,,,resp

$$采用几何级数方式生成点集。
l30:
CPSET/GEOM,cur,10,RATIO,r,PART,0.1,0.8,results

$$程序结束。
trm:
halt