a14=RDTOJD(a14) 

     thisform。txtβ’。value=a14     

     a15=RDTOJD(a15) 

     thisform。txtγ’。value=a15

    &&边长计算

 &&地上

a=thisform。txtA。value

b=thisform。txtB。value

c=thisform。txtC。value

aj=sqrt(b*b+c*c-2*b*c*cos(a1))

thisform。txtA计。value=aj

d=a-aj

thisform。txtD改正。value=d

ap=a-d/3

thisform。txtA平差。value=ap

bp=b-d/3

thisform。txtB平差。value=bp

cp=c+d/3

thisform。txtC平差。value=cp

&&地下

ax=thisform。txtA’。value

bx=thisform。txtB’。value

cx=thisform。txtC’。value

axi=sqrt(bx*bx+cx*cx-2*bx*cx*cos(a11))

thisform。txtA’计。value=axi

dx=ax-axi

thisform。txtD’改正。value=dx

axp=ax-dx/3来*自-优=尔,论:文+网www.chuibin.com

thisform。txtA‘平差。value=axp

bxp=bx-dx/3

thisform。txtB’平差。value=bxp

cxp=cx+dx/3

thisform。txtC‘平差。value=cxp

&&txtO1o2长度a

d=(axp+ap)/2

thisform。txtO1O2长度a。value=d

2。1。2 计算各边方位角和各点坐标

按照如图B→A→O2→O1→C→D的顺序，用一般导线计算方法计算各点的坐标。一井定向示意图如图2-1。如下表2-1和表2-2，是对一份数据的计算过程和结果。