CASIO fx-4800匝道计算程序

CASIO fx-4800匝道计算程序 作者：佚名 出处：工测员 更新时间： 2006年03月16日 CASIO fx-4800匝道计算程序 摘要：匝道在立交工程中常常用到，由于其采用线型多样，计算复杂，因此一份适用的计算程序是不可缺少的，本文提供一份匝道计算程序，该程序简单，容易上手，输入参数少。 关键词：匝道；程序 一、 说明 在高速公路和城市建设中常常运用到互通式立交工程，互通式立交由于曲线元的复杂性和多样性，给施工中的测量定位工作带来困难，手工计算已经不能满足要求，时下CASIO系列计算器在土木工程中已经得到普遍运用，为便于对立交工程匝道的准确测量定位，本人根据多年的测量工作经验，编写出一份CASIO fx-4800匝道计算程序，该程序界面好，能计算出匝道各种线元的中线坐标和边线坐标。 二、 程序清单 Lb1 0 {E G} A“XA”：B“YA”：C“CA”：D“1÷RA”：E“1÷RB”：F“DKA”：G“DKB” Lb1 1 Norm Deg {H} Goto 3⊿?H“DKI”：H＞G P＝（E－D）÷ABS（G－F）：Q＝ABS（H－F）：I＝PQ J＝J＋360⊿?J＜0?J＝J－360：≠?J＝C＋90 Q（I＋2D）÷π：J≥360 M＝C＋45 Q（I÷4＋2D）÷（2π）：N＝C＋135Q（3I÷4＋2D）÷（2π） K＝C＋45Q（I÷2+2D）÷π Fix 3 X＝A＋Q÷12×（COS C＋4（COS M＋COS N）＋2COS K＋COS J）▲！该句中的“×”号不可省略，否则计算结果将不正确 Y＝B＋Q÷12×（SIN C＋4（SIN M＋SIN N）＋2SIN K＋SIN J）▲！该句中的“×”号不可省略，否则计算结果将不正确 Fix 4 J“FWJ＝”▲ Lb1 2 {W} Fix 3 Goto 1⊿?W=0 Z＝1⊿?Z＝－Z：≠?W＜0 U“XW”＝X＋ZWCOS（J＋90Z）▲ V“YW”＝X＋ZWSIN（J＋90Z）▲ Goto 2 Lb1 3 A＝X：B＝Y：D＝E：F＝G：C＝J：Goto 0 三、 变量及符号说明说明 XA：YA：CA―――曲线元起点X、Y坐标及起点切线方位角。 1÷RA：1÷RB―――曲线元起点及终点半径，以倒数输入，如起点、终点半径分别为60和40米则输入1/60，1/40，注意：遇ZH，HZ，GQ点时半径都输入0。 DKA：DKB―――曲线元起点和终点桩号。 1

DKI―――曲线元中待求点桩号

X：Y：FWJ―――待求曲线元中线点X，Y坐标及切线方位角

W―――计算边桩距中线平距，左边输入负值，右边输入正值，退出输入0 XW：YW―――边桩X，Y坐标 四、 示例

如龙门互通立交D匝道线型及相关数据如下 D-D

点号 桩号 Ｘ（N） Y（E） 方位角

QD K0+000 2777862.564 544381.888 295°56′01″ YH K0+081.721 2777900.604 544309.576 299°33′37″ HY K+122.038 2777921.779 544275.286 305°04′30″ YH K+277.085 2778043.376 544183.130 340°36′33″ GQ K+317.085 2778081.751 544171.883 345°11′34″ HY K+367.085 2778129.138 544156.172 334°34′57″ ZD K+432.211 2778179.092 544115.375 306°56′31″ 计算步骤

QD－YH曲线元，该段为圆曲线

运行程序，按照提示输入曲线元QD纵横坐标及方位角，QD和YH点桩号，再输入该曲线元内所求点桩号即可显示该中线坐标和切线方位角，可以输入YH点桩号K0+81.721验证计算出的结果，之后会提示输入“W”值，即边线宽度，左负右正，如不需要计算边线坐标或计算完毕后输入数值0即可计算下一个桩号坐标。 YH－HY曲线元，该段为回旋线

同前面一样运行程序，此时起点为YH点，终点为HY点，两点的半径是不一样的，YH点半径输入“1÷1291”，HY点半径输入“1÷250”。 YH－GQ曲线元，该段为缓和曲线

起点为YH点，终点为GQ点，输入相应参数，需要注意的是此时GQ点的半径要输入数值0，实际上把GQ点理解为HZH点就不难理解。 五、 总结

该程序最大的特点是输入参数少，程序本身简短，可以计算任何曲线元的坐标，当所求桩号大于该段终点桩号时（H＞DKB），程序会自动判断处理，即把上一个曲线元的终点参数置换为下一个曲线元的起点参数，并提示输入下一个曲线元终点的半径和桩号，如此即可计算下一个曲线元的中线及边线坐标。

o1:≠>S<3335.38=>Goto2:≠>S<3480.08=>Goto3:≠>S<3610.08=>Goto4:≠>S<4225.99=>Goto5:≠>S<4365.99=>Goto6:≠>S<

g“Z”:GotoW:

=3205.380: Prog“HZ”:GotoW:

335.380: Prog“Y”:GotoW:

:W=130.0:K=3480.08: Prog“HF”:GotoW:

80: Prog“Z”:GotoW:

:K=4225.99: Prog“HZ”:GotoW:

=4365.990: Prog“Y”:GotoW:

2

=140:K=4504.04: Prog“HF”:GotoW:

Prog“Z”:GotoW:

=Q+90:Rec(R,E: <0=>E=E-B: ≠>+I:N=P+J:E=E-90:Prog “E” :Prog“ED” ?E=E+ B⊿Prog“E”:Rec(-R,E:M=

og“MN”:A?E=Q+E◣Prog“E”:Rec( (<0=>E=Q-B:≠>E=Q+B◣Prog“E”: Prog“ED”

44.81°?(H)

360: ≠>Q=Q◣Prog“H.SUB”

205.38(直缓1点桩号)=>Goto1:≠>S<3335.38(缓圆1点桩号)=>Goto2:≠>S<3480.08(圆缓1点桩号)=>Goto3:≠>S<3610.08(缓直1点桩

圆缓2点桩号)=>Goto7:≠>S<4644.04(缓直2点桩号)=>Goto8:≠>S<4644.04(缓直2点桩号重复)=>Goto0: ◣

°28°38.79°(起点方位角):K=2000(起点桩号):Prog“Z(表示该段为直线段)”:GotoW:

和曲线起点Y坐标):Q=88°28°38.79°(第一缓和曲线起点方位角):A=301.66(右转缓和曲线参数为正):K=3205.380(缓和曲线起点桩号即ZH点): P

坐标):Q=93°47°51.95°(圆曲线起点前进方向方位角):R=700(右转圆曲线半径为正):K=3335.380(圆曲线起点桩号即HY点): Prog“Y(圆曲线段)”

和曲线终点Y坐标):D=110°57°44.57°(第二缓和曲线起点终点方位角即HZ点沿线路前进方向方位角):A=-301.66(左转缓和曲线参数为负由于反算

为第二缓和曲线桩号外其它数据都使用第二缓和曲线终点数据): Prog“HF(表示缓和曲线反算即从第二缓和曲线终点HZ点向第二缓和曲线起终点YH点沿

=134072.152:Q=110°57°44.57°(接第二缓和曲线终点直线段起点即HZ点前进方向方位角):K=3610.080(接第二缓和曲线终点直线段起点即HZ点

Q=110°57°44.57°(ZH2点前进方向方位角):A=-313.05(ZH2点缓和曲线参数左偏为负):K=4225.99(ZH2点桩号): Prog“HZ(表示缓和曲线正算)

=105°13°58.09°(HY2点前进方向方位角):R=-700(HY2点圆曲线半径):K=4365.990(HY2点桩号): Prog“Y”:GotoW:

D=88°12°14.6°(HZ2点前进方向方位角):A=313.05(HZ2点缓和曲线参数右偏为正):W=140(第二缓和曲线长):K=4504.04(第二缓和曲线起点即

Prog“Z”:GotoW:

[原创]4850的坐标反算与支导线计算程序

前段时间本人买了4850，本想吃现成（本论坛4500、4800的程序多的很），可是输入时才发现连依样画葫芦都不行，如4500、4800中的“△”、“▲”在4850中根本就找不到！4850中屏幕显示的命令格式也大大不同！晕……经过一阵子摸索，终于探索出“4850的坐标反算与支导线计算程序”，调试成功！独乐乐不如众乐乐，现将程序公布，希望诸位多提宝贵意见以不断提高！

3

Lbl 0 Norm Deg {DGXY}

D\XA\G\YA\X\XB\Y\YB\ ---------输入测站点、定向点坐标 Pol(X-D,Y-G) J<0=>J=J+360⊿ Fix 6

\FANG WJ A-B\:J->DMS◢ ---------以度分秒显示方位角 P=J Fix 3

\H.DIST=\:Int(I×1000+0.5）÷1000◢ ---------保留3位有效数字 Fix 0 {W}

W\JI SUAN 0-1\ ---------坐标反算后如进行支导线计算按1，否则0 W=1=>Goto 1◢≠=>Goto 0⊿ Lbl 1 Fix 6 {EF}

E\JIA JIAO=\F\D=\ ---------输入夹角和距离 N=Int E+Frac E÷0.6+Frac100E÷90 O=N+P Rec(F,O) Fix 3

\X=\:Int((D+I)×1000+0.5）÷1000◢ ----------输出X、Y \Y=\:Int((G+J)×1000+0.5）÷1000◢ Fix 0

{M}:M\GO ON 0-1\ ---------如继续支导线计算按1，否则0，程序返回第一行 M=1=>Goto 1

CASIO4500缓和曲线、圆曲线、直线段坐标放样计算程序 CASIO4500缓和曲线、圆曲线、直线段坐标放样计算程序

1、 该程序适用于计算器 CASVO fx-4500，可计算与线路中心成任意夹角的缓和曲线、圆曲线、直线段中、边桩坐标、切线方位角和放样计算程序。

2、 PJ？ 输入转角：左转为负，右转为正 3、 R？ 输入圆曲线半径 4、 LS？ 输入缓和曲线长度 5、 A=？ 输入起始方位角 6、 XJ 、YJ？ 输入交点X、Y坐标 7、 X0、Y0？ 输入测站点X、Y坐标 8、 Z？ 输入交点桩号 7、 B？ 输入左右边距

8、 U 待求点切线方位角(大于360-360)

4

9、 W 放样点方位角 10、XL、YL 放样点X、Y坐标

11、如计算交角为60°时，则公式改为（U-60），（U+120）

1 A“PJ”：R：C“LS”：D“JD” 2 P=C∧2/24/R-C∧4/2688/R∧3 3 Q=C/2-C∧3/240/R∧2 4 B=90C/兀/R

5 T=(R+P)tan(AbsA/2)+Q◢ 6 W=(R+P)/cos(A/2)-R 7 L=(AbsA-2B)兀R/180+2C◢ 8 G=D-T◢ 9 H=G+C◢ 10 I=G+L/2◢ 11 K=G+L-C◢ 12 M=G+L◢

13 N “A=” ： E “XJ”：F“YJ”: X“X0=” : Y“Y0=” 14 A＜0=>S=-1:≠=>S=1⊿◢ 15 U=N+A/2+90S 16 V=W+R 17 J=N+VcosU 18 O=E+VsinU 19 Lbl 1 20 {Z}

21 Z≤G=>L=T+G-Z 22 V=F+180 23 U=F 24 Goto 2⊿ 25 Z≤H=>L=Z-G

26 V=L-L∧5/(90R∧2C∧2) 27 L=30L∧2S/(兀RC) 28 W=N+180 29 L=N+L 30 U=N+3L◢ 31 Goto 4⊿

32 Z≤K=>L=N+A/2+90S+180+180(Z-I)S/R/兀 33 U=L+90S◢ 34 Goto 5⊿ 35 Z≤M=>L=M-Z

36 V=L-L∧5/(90R∧2C∧2) 37 L=30SL∧2/(兀RC) 38 W=N+A 39 L=N+A+180-L 40 U=N-3L+A◢

5

本文来源：https://www.bwwdw.com/article/4bk2.html