计算器程序
一、程序功能及原理
功能说明:本程序由一个主程序 和四个子程——正算子程序、反算子程序等
构成,可以根据曲线段——直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里
程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内
任意里程中边桩坐标进行正反算。本修改版程序既可实现正算全线贯通,亦可实现反算全线贯通。本程序
也可以在 计算器运行。
.计算原理:利用 ! "#$ 点通用公式正算线路中边桩坐标、线外测点至曲线元起点和终点
的垂距的符号是否相异(即 %&'%&()*+该测点在其线元内)进行判断并利用该线元要素反算中桩里
程、支距,最后计算出放样数据。
二、源程序
主程序
(,:% -./0*+1*+0/:2: 2**+343:≠+34356
(,:708:0
90:;*+<*:$3!=%>:343?5
90:@;*+<*:$3!=%>:343?5
90:?;*+<*?:$3!=%>:343?5
90:;*+<*:$3!=%>:343?5
AAAAAAAAAAAABBBBB
90:(2C)C;*+<*":$3!=%>:343?5
(,?:D*(:$3!//:/*/.*E
"YS=":Y=YE
”FWI=”: F=F-M :F→DMSE
Goto 4←┘
Lbl 2:78::0:;*:0:;*:2*
(,AA:F2:*0:2C?;G:*0:(2C)C?;G:$3!/0/:0:@;'0:H;)*+<*2:
$3! %/ : 343 5*0:2C?;CG : *0: ( 2C ) C?;CG : $3! /0/ :
0:@;'0:H;)*+<*2:$3!%/:343:≠+3435
(,AA:$3!//:/*/.*CDE
"Z=":Z=ZE
Goto 2
Lbl 4:J=0:I=Pol(X-Z[1],Y-Z[2]):F=J:F<0=>F=F+360Δ**”DIST=”:**IE”FW=”:F→DMSE Goto 1
2. 正算子程序
*@?.*?I???.2*.J*@IHH.*?H@?I.
0:?;*.*CD&3CKJDCJD%C&3CKDCD%
C2&3CK0:?;DC0:?;D%C&3CKDCD%C&3CK
JDCJD%. *LCDM"CKJDCJD%CM"CKDCD%
C2M"CK0:?;DC0:?;D%CM" CKDCD%CM" CK
JDCJD%:G>2*>.N*CKDCD%CG:*C0&3N:*C0M"N
?反算子程序
G>2*>.*G:D*(L&3M":0*:(,:$3!//:*CKDC