分光计的调整与使用实验数据处理

次数方位左游标计数右游标计数顶角A平均值θ1226°31′46°31′θ2346°42′166°40′θ1213°55′33°57′θ2333°55′153°56′θ1261°37′81°37′θ2381°45′201°46′次数方位左游标计数右游标计数最小偏向角δm平均值θ128°19′208°02′θ279°09′259°09′θ121°28′201°29′θ272°35′252°36′θ145°10′225°10′θ296°35′276°36′1#NAME?测量最小偏向角#NAME?#NAME?#NAME?#NAME?#NAME?#NAME?#NAME?32分光计的调整与使用实验数据处理反射法123数据处理VBA代码（划线部分为注释）Functionshuzhi(θ)'（分光计的调整与使用）角度转数值Dimi,j,ki=Application.WorksheetFunction.Find(°,θ)j=Application.WorksheetFunction.Find(′,θ)'k=Application.WorksheetFunction.Find(″,θ)shuzhi=Val(Mid(θ,1,i-1))+Val(Mid(θ,i+1,j-1))/60'+Val(Mid(θ,j+1,k-1))/60EndFunctionFunctiondj(leftθ1,leftθ2,rightθ1,rightθ2)'（分光计的调整与使用）算顶角a=shuzhi(leftθ1)b=shuzhi(leftθ2)c=shuzhi(rightθ1)d=shuzhi(rightθ2)dj=jiao(Abs(a-b)/4+Abs(c-d)/4)EndFunctionFunctionpxj(leftθ1,leftθ2,rightθ1,rightθ2)'（分光计的调整与使用）最小偏向角a=shuzhi(leftθ1)b=shuzhi(leftθ2)c=shuzhi(rightθ1)d=shuzhi(rightθ2)pxj=jiao(Abs(a-b)/2+Abs(c-d)/2)EndFunctionFunctionjiao(θ)'（分光计的调整与使用）数值转角度jiao=Int(θ)&°&Int((θ-Int(θ))*60)&′EndFunctionFunctionpjz(j1,j2,j3)'（分光计的调整与使用）平均值a=shuzhi(j1)b=shuzhi(j2)c=shuzhi(j3)pjz=jiao((a+b+c)/3)[e-mail]