;LISP展点程序
;展1000点：在HP(AMD Athlon64 3000+ 256MB)电胶上仅耗时0.142秒；
; 在金利(Geleron(R) CPU 2.40GHz 256MB)电胶上耗时0.882秒
;数据文件格式为：每一点的数据（点号、X、Y、H）为一行，用逗号或空格作为分隔符，即
;点号1 X1 Y1 H1 或者 点号1, X1, Y1, H1
;点号2 X2 Y2 H2 或者 点号2, X2, Y2, H2
;点号3 X3 Y3 H3 或者 点号3, X3, Y3, H3
;......
;点号n Xn Yn Hn 或者 点号n, Xn, Yn, Hn1
LISP spread point program
1000 points: in HP (AMD Athlon64 3000+ 256MB) electro adhesive, it takes only 0.142 seconds.
It takes 0.882 seconds on the Geleron (R) CPU 2.40GHz 256MB adhesive.
The data file format is: the data of each point (dot, X, Y, H) is a line, with commas or spaces as separators.
The dot 1 X1 Y1 H1 or the point number 1, X1, Y1, H1
The dot 2 X2 Y2 H2 or the point number 2, X2, Y2, H2
The dot 3 X3 Y3 H3 or the point number 3, X3, Y3, H3
;...
N Xn Yn Hn or N, Xn, Yn, Hn1 (2018-05-20, VBA, 9KB, 下载1次)