DMISMN/'Created by [深圳市银宝山新科技股份有限公司(东莞压铸厂)-070119] on 星期五, 十月 12, 2018', 4.0
UNITS/MM, ANGDEC, MMPS
WKPLAN/XYPLAN
PRCOMP/ON
TECOMP/ON
FLY/1.0000
MODE/PROG, MAN
SNSET/APPRCH, 2.0000
SNSET/RETRCT, 2.0000
SNSET/DEPTH, 0.0000
SNSET/SEARCH, 10.0000
SNSET/CLRSRF, 20.0000
RECALL/D(MCS)
SNSLCT/S(ROOTSN1)
GEOALG/BF, LSTSQR
GEOALG/ANGLB, DEFALT
GEOALG/CIRCLE, LSTSQR
GEOALG/ARC, LSTSQR
GEOALG/PLANE, LSTSQR
$$
$$
MODE/PROG,MAN
DECL/COMMON,INTGR,I
DECL/COMMON,INTGR,J
DECL/COMMON,DOUBLE,Z[4]
Z[1] = ASSIGN/20
Z[2] = ASSIGN/30
Z[3] = ASSIGN/35
Z[4] = ASSIGN/40.9152
DECL/COMMON,DOUBLE,V1
DO/I,1,4,1
J = ASSIGN/I+1
DO/J,1,4,1
IF/(Z[I].GT.Z[J])
V1= ASSIGN/Z[I]
Z[J] = ASSIGN/Z[I]
ENDIF
ENDDO
ENDDO
DECL/COMMON, CHAR, 256, KNPTC1
KNPTC1 = ASSIGN/CONCAT('最大值为:',STR(V1))
TEXT/OUTFIL, KNPTC1
- 1.
- 2.
- 3.
- 4.
- 5.
- 6.
- 7.
- 8.
- 9.
- 10.
- 11.
- 12.
- 13.
- 14.
- 15.
- 16.
- 17.
- 18.
- 19.
- 20.
- 21.
- 22.
- 23.
- 24.
- 25.
- 26.
- 27.
- 28.
- 29.
- 30.
- 31.
- 32.
- 33.
- 34.
- 35.
- 36.
- 37.
- 38.
- 39.
- 40.
- 41.
- 42.