double pho;
FLAG=0;
if ((FLAG1==0) || (FLAG2==0) || (POINT1!=POINT2) || (POINT1<2)) return 0; FLAG=1; POINT=POINT1; for (i=1;i<POINT;i++) TDATA[i]=TDATA2[POINT-i]-TDATA2[0];
TDATA[0]=0; for (i=0;i<POINT;i++)
TDATA[i]=TDATA1[i]-TDATA1[0]+TDATA[i]; pho=FPK1-FPK2;
for (i=0;i<POINT;i++) { TDATA[i]=TDATA[i]+(int)pho; } FPK=FI=TDATA[0]; pho=0.; for (i=0;i<POINT;i++) {
pho=pho+TDATA[i]; if (TDATA[i]>FI) FI=TDATA[i]; if (TDATA[i]<FPK) FPK=TDATA[i]; }
FI=FI*EQ; FPK=FPK*EQ; FFI=pho/(double)POINT*EQ; return 1; }
四、 仪器的校准
由于没有现成的检定校准规程适用，我们参考JJG57-1999《光学数显分度头检定规程》制定了企业内部检定规程。
谐波减速器传动链测试仪 （厂内试行）检定规程
1 范围
本规程适用于新制造、使用中和修理后的谐波减速器传动链测试仪的检定。 2 引用文件
下列文件中的有关条款通过引用而成为本规程的条款。凡注日期或版次的引用文件，其后的任何修改单（不包括勘误的内容）或修订版本都不适用于本规程，但提倡使用本规程的各方探讨使用其最新版本的可能性。凡不注日期或版次的引用文件，其最新版本适用于本规程。
JJG57-1999《光学数显分度头检定规程》 3 概述
3.1 谐波减速器传动链测试仪是用来测量输入轴和输出轴成任意夹角的谐波减速器或其他类型可安装在仪器上的减速器的正反两面传动链误差和整转的回程误差。可绘制传动链误差和回程误差的连续误差曲线，并给出相应的误差数值；同时可对两面传动链误差曲线进行频谱分析，绘出频谱分析图，列表给出幅值较大的误差波形的频次和幅值，并可对曲线进行局部放大以便于对减速器传动误差