FX4800常用测量程序 编制：谯生有（中铁一局五公司精测队）
A“X1=”：B“Y1=”：C“X2=”：D“Y2=”：P ol（C-A，D-B）：Fixm：J〈0 =〉J=J+360⊿J“T（1-2）=” ◢ I“S（1-2）=”
10、分别已知两条直线上一点的坐标和坐标方位角，求这两条直线的交点坐标（程序名JDZB）
程序清单：
X=（tan A“T1”×B“X1”-C“Y1”-tan D“T2” ×E“X2”+F“Y2”） V÷（tan A- tan D）◢ Y= tan A（X-B）+C 11、直线线路坐标计算（ZXJS）
程序清单：
V“X0=”：W“Y0=”：T“T0=”：U“K0=”：Lb1 0：Fixm：{KD}：X=V+（K-U）cos T+D×cos(T+90)◢ Y=W+（K-U）sin T+D×sin(T+90)◢ Goto 0
程序运行说明：
已知某一直线线路上一点的坐标为X0，Y0，该点里程为K0以及该直线沿前进方向的坐标方位角T0，按照提示输入以上数据，如果输入某一里程K和法线外移距离D（向右移为正值，向左移为负值）即可计算出该里程点的法线外移桩坐标X、Y，当D=0时计算结果为中桩坐标。 12、“缓+圆+缓”型曲线坐标计算 主程序（QXJS）
6
FX4800常用测量程序 编制：谯生有（中铁一局五公司精测队）
程序清单：
Prog “BQXYS”：Q“ZHK=”：F“ZHX=”：G“ZHY=”：N“TZH—JD=”：I“（Y=1，Z=-1）” ?
Lbl 1:Fixm:{KD}:K“LICHENG=”：D“WAIYI=（Z-，Y+）”：Goto2? Lbl 2:K Goto3:≠> Goto4? Lbl 3:“K—OVER”: Goto1? Lbl 4:K>Q+L => Goto3:≠> Goto5? Lbl 5:K≤Q+B => Goto6:≠> Goto7?
Lbl 6:S=K-Q：W=B：Prog “HQXY”：O=N+I×90S2÷(Л RB)：O<0 => O=O+360⊿O>360 => O=O-360⊿O“FANGWEI=” ◢ X=UcosN-VsinN+F+D×cos(O+90) ◢ Y=VcosN+UsinN+G+D×sin(O+90) ◢ Goto1?
Lbl 7：K≤Q+L-C => Goto8:≠> Goto9?
Lbl 8:S=K-Q：O=N+I×90(2S-B)÷(Л R)：O<0 => O=O+360⊿O>360 => O=O-360⊿O“FANGWEI=” ◢
Prog “YQXY”：X=UcosN-VsinN+F+D×cos(O+90) ◢ Y=VcosN+UsinN+G+D×sin(O+90) ◢ Goto1?
Lbl 9: S= Q+L-K：W=C：Prog “HQXY”：E=N+IA+180：O=E-I×90S2÷(Л RC)+180：O<0 => O=O+360⊿O>360 => O=O-360⊿O“FANGWEI=”◢ V=-V?
7
FX4800常用测量程序 编制：谯生有（中铁一局五公司精测队）
X=(U-H)cosE-VsinE+F+T cosN+D×cos(O+90) ◢ Y=VcosE+(U-H)sinE+G+T sinN+D×sin(O+90) ◢ Goto1?
子程序“BQXYS” A:R:B“L01”:C“L02” ? M“M1”=B÷2-B3÷（240 R2）◢ J“M2”=C÷2-C3÷（240 R2）◢
P“P1”= B2÷（24 R）- B4÷（2688 R3）◢ Z“P2”= C2÷（24 R）- C4÷（2688 R3）◢ T“T1”=M+（R+P）tan(A÷2)+(Z-P) ÷sinA◢ H“T2”=J+（R+Z）tan(A÷2)+( P -Z) ÷sinA◢ L= B÷2+C÷2+A RЛ÷180◢ E=((R?P)2?(T?M)2)?R◢ 子程序“HQXY”
U=S-S5÷(40R2 W2)+ S9÷(3456 R4 W4)-S13÷(599040R6 W6):V=I×(S3÷(6RW)- S7÷(336 R3 W3) +S11÷(42240 R5 W5)) 子程序“YQXY”
U=Rsin(180(S-B÷2)÷Л÷R)+M:V=I×(R×(1-cos(180(S-B÷2)÷Л÷R))+P) 程序说明：本程序可以计算等长和不等长“缓+圆+缓”型曲线或者单圆曲线的中线坐标、外移桩坐标以及中线的切线方位角。
先将主、子程序存入计算器，然后运行主程序“QXJS”，输入A（曲线偏角），曲线半径R，第一缓和曲线长L01，第二缓和曲线长L02，（等长
8
FX4800常用测量程序 编制：谯生有（中铁一局五公司精测队）
缓和曲线时L01= L02），然后显示曲线逐要素，接着输入ZH坐标（ZHX，ZHY），ZH到JD坐标方位角TZH—JD，当曲线为左偏时（Y1，Z-1）输-1，右偏输1，输入计算里程K，外移距离D，计算中桩时D输0，计算左边桩时D输负数，算右边桩时D输正数，当所输里程不在本曲线计算范围内时，屏幕显示K—OVER，继续输入有效里程可继续计算。
对于单圆曲线，缓和曲线长输入0。
本程序缓和曲线X计算取了4项，Y计算取了3项，一般的曲线计算精度都可达到mm级。
13、采用积分进行任意曲线线路坐标计算程序（直线、圆曲线、卵型曲线）
程序名“XLJS”
程序名“XLJS”(V1.1，2005年12月7日星期三升级于秦岭公司) G“XJ=”：H“YJ=”：R“XH=”：S“YH=”：A“XA=”：B“YA=”：C“TA=”：E“1÷RA ,Z-，Y+”：P“KA=”? Lbl 1：{FQ}：F“1÷RB, Z-，Y+”：Q“KB=” ? Lbl 2：{V}：V“K=”：O=V：O
Goto3：≠> Goto4? Lbl 3：“K-SMALL”：Goto2? Lbl 4：O>Q => Goto5：≠> Goto7?
Lbl 5：{I}：I“I=1=>ESC≠>NEXT”：I=1=> Goto2：≠> Goto 6? Lbl 6：“JISUAN：A-TXY”：V=Q：Z=0：D=0：Goto8? Lbl 7: {DZ}：Z“JIA-JIAO=”：D“WAIYI=（Z-，Y+）”?
Lbl 8：T=C+90÷Л×（2E+（F-E）（V-P）÷（Q-P））（V-P）：T〈0=〉T=T+360⊿ T〉360 =〉T=T-360⊿?
Rad：W=A+∫（cos（C°+0.5×(2E+(F-E)(X-P)÷(Q-P))(X-P)）,P,V,4）+ D×cos(T°+Z°) ?
Y=B+∫（sin（C°+0.5×(2E+(F-E)(X-P)÷(Q-P))(X-P)）,P,V,4）+ D×sin(T°+Z°)：Deg：Goto9? Lbl 9：O≤Q => GotoB：≠> GotoA?
9
FX4800常用测量程序 编制：谯生有（中铁一局五公司精测队）
Lbl A：A=W：B=Y：C=T：E=F：P=Q： Goto1? Lbl B： W“X=”◢ Y“Y=”◢ T“T=”◢
Pol(R-G，S-H)：Fixm：M=J：Pol(W-G，Y-H) ：J=J-M? J<0 =>J=J+360⊿J>360 =>J=J-360⊿J“A=”◢ I“S=”◢ Goto 2
程序积分式中“°”的编辑输入为：“FUNCTION”键+5（DRG）+4（°）。 程序功能
由于程序根据线路曲线坐标计算通用数学模型编制，所以，对于任意线型的一段线路曲线（直线、圆曲线可看作是通用计算模型的特例），只要输入曲线信息和测站信息，都可以迅速地计算出该曲线上任意里程点处的切线方位、中桩或与该里程切线成任意夹角的外移桩坐标、极坐标法放样的角度和距离。 程序运行
运行程序“XLJS”，按提示输入置镜点坐标（XJ，YJ），后视点坐标（XH，YH），曲线起点A的坐标（XA，YA）、沿线路前进方向的切线方位角TA、里程KA、曲率（直接在计算器上以1÷RA的形式输入，R表示半径，左偏曲线输负值右偏曲线输正值），继续输入终点B的曲率（1÷RB输入同A点）、里程KB。当屏幕显示“K=？”时，输入该段曲线要计算放样数据的里程值，按提示输入夹角“JIA-JIAO”（夹角的范围为0-180度）和外移量“WAIYI”，“JIA-JIAO”值为该里程自线路前进方向的切线方位角顺时针至该里程中桩与右边桩连线间的角度，当为法线方向时JIA-JIAO为90度，“WAIYI”
10