如何编写自动计算合格率的程序

在我们测量时会有很多点，完成后需要计算合格率，每次总要人工数点计算很麻烦，有没有可能编写一段自动计算合格率的程序呢？

------------------------------------------------------------------------
爱问才明白

你们合格是按什么公差给出的?

------------------------------------------------------------------------
关于精神病人的上网问题一直是我国治安管理条例中的空白.

公差定义，T(TDIAM1) = TOL/DIAM, -0.1, 0.1

------------------------------------------------------------------------
爱问才明白

公差定义，T(TDIAM1) = TOL/DIAM, -0.1, 0.1

OUTPUT/FA(CIR1), TA(TDIAM1)

------------------------------------------------------------------------
爱问才明白

计算所有圆直径是否超差?

------------------------------------------------------------------------
关于精神病人的上网问题一直是我国治安管理条例中的空白.

开通SPC质量统计分析模块，岂不是更好？

------------------------------------------------------------------------
环游世界，梦想人生。

有没有人会写呀?

------------------------------------------------------------------------
爱问才明白

简单做了一个计算圆直径合格率的

GEOALG/PLANE, LSTSQR

T(TDIAM1) = TOL/DIAM, -0.100000, 0.100000

OUTPUT/FA(CIR1), TA(TDIAM1)

OUTPUT/FA(CIR2), TA(TDIAM1)

OUTPUT/FA(CIR3), TA(TDIAM1)

OUTPUT/FA(CIR4), TA(TDIAM1)

OUTPUT/FA(CIR5), TA(TDIAM1)

$$定义一个数组变量

DECL/COMMON,DOUBLE,TOL_DIM[2]

DECL/INTGR,A1,B1

DECL/COMMON,DOUBLE,C1

DECL/COMMON,DOUBLE,dIM_N,DIM_M

DECL/COMMON, CHAR,255,fname,Sname

DECL/COMMON, CHAR,255,fnameX

$$把定义的上下公差提取出来赋值给数组。

TOL_DIM[1]=OBTAIN/T(TDIAM1),2

TOL_DIM[2]=OBTAIN/T(TDIAM1),3

B1=ASSIGN/0

$$通过一个DO循环，提取出每个圆的理论直径和实际直径，得到的差值和数组做比较，取出没有超出

$$范围的，让变量B1累计叠加

DO/A1,1,5,1

Fname = ASSIGN/'CIR'

Sname = ASSIGN/STR(A1)

fnameX = ASSIGN/CONCAT(fname,Sname)

DIM_N=OBTAIN/F(@fnameX),10

DIM_M=OBTAIN/FA(@fnameX),10

if/((DIM_M-DIM_N).GT.TOL_DIM[1]).AND.((DIM_M-DIM_N).LT.TOL_DIM[2])

B1=ASSIGN/B1+1

ENDIF

ENDDO

$$计算百分比

C1=ASSIGN/B1/(A1-1)*100

$$输出到报告

WRITE/DID(DEFAULTSCREEN),'合格率为：',' ',c1,'%'



楼主可参考此段程序



------------------------------------------------------------------------
RD,越来越牛X

先谢过，学习!

------------------------------------------------------------------------
爱问才明白