4800标准缓和曲线中边桩计算.docx

1、4800标准缓和曲线中边桩计算4800标准缓和曲线中边桩计算新鲜出炉标准缓和曲线程序JJDZ：AJDX：BJDY：CFWJ1：DFWJ2：0：=+：=GOTO2KE+L=KFL=GOTO3KFL=KF=GOTO4KF=GOTO5LBI1：P=C：X=A(J-K)COSCY=B-(JK)SINCGOTO6LBI2 ：M=KE：H=MM5(40R2L2) ：O=M3(6RL) ：N=0=S=C：P=C28.64789M2(RL) ：S=C+180：P=C+28.64789M2(RL) X=ATCOSC+HCOSC+OSINSY=B-TSINC+HSINDOCOSSGOTO6LBI3：M=K(E+L

2、) ：H=57.29579(M+2L)R：O=R(1COSH)+L2(24R) ：N=0=S=C：P=C-28.64789(L+2M)R ：S=C+180：P=C+28.64789(L+2M)RX=ATCOSC+(RSINH+L2L3240R2)COSC+OSINSY=B-TSINC+(RSINH+ L2L3240R2)SINCOCOSSGOTO6LBI4：M=FK：H=MM5(40R2L2) ：O=M3(6RL) ：N=0=S=C：P=C+28.64789M2(RL) ：S=C+180：P=C28.64789M2(RL) X=A+TCOSDHCOSD+OSINSY=B+TSINCHSINDO

3、COSSGOTO6LBI5：P=D：X=A+(T+KF)COSDY=B+(T+KF)SINDGOTO6LBI6：WBZX=X+ZCOS(P+U) V=Y+ZSIN(P+U) GOTO0注:J为交点桩,AB分别为交点XY坐标,C为前一切线方位角,C为后一切张方位角,R半径,L缓和长,N(转角,左0右随意),T切线长,E为ZH桩号,F为HZ桩号,K为放样桩号,U为法线与切线夹角,Z为边桩与中桩距离,W为边桩X坐标,V为边桩Y坐标. 为指数,下划线处为三角函数(自己测试还得,要是大家计算正确我再加极坐标放样程序CASIO fx4800P型计算器对施工线路测量数据的连续计算CASIO fx4800P型

4、计算器对施工线路测量数据的连续计算如何适应施工现场快速、灵活的放样要求而适时快捷地计算施工线路上的任何测量数据？用CASIOfx4800P型计算器对施工线路测量数据的连续计算能帮你实现这一设想。该程序对线路的三维坐标的计算不受独立单元、线路里程桩号、断面距离和断面斜交角度的影响，能方便快捷地得到施工线路的任何设计坐标值、高程值及其相应的放样数据。 该程序对于施工线路（回旋曲线相连的匝道线路除外）所需要的中桩、边桩坐标及放样参数以及它们的设计高程和高程的放样数据，只要输入其里程桩号、边桩距离、测站坐标或是视线高，这些数据即可获得。若是斜交构造物，只需输入其轴线与主线斜交的角度便也可获取相应的数据

5、。本程序稍加修改（即显示方式的修改）同样适合4850计算器。经过两个公路工程的运用，证明计算准确，使用方便，根据计算器的容量，可以输入数公里乃至十数公里的线路要素，真正实现整条施工线路的数据的连续计算。 本程序有计算例子！不但可以连续不间断的进行坐标或高程计算，还可以随意输入施工线路全线任意桩号里程而不受线路元素单元的影响即可得到相应的坐标或标高数据以及防样数据；不但可以计算施工线路数据，还可以计算施工线路以外的曲线坐标或高程，并且还能计算缓和曲线的超高值。 如果有不想进行线路外坐标计算的可将原程序稍做这样改动一下就会更方便了。 ZBFYJS（文件名）F：D：NXC：QYC：BLbl0：K，G

6、 KE2=E=E1：U=X1：M=Y1：O=O1：R=R1：S=S1：T=T1：P=P1：F=1： KE3=E=E2：U=X2：M=Y2：O=O2：R=R2：S=S2：T=T2：P=P2：F=1： KE4=E=E3：U=X3：M=Y3：O=O3：R=R3：S=S3：T=T3：P=P3：F=1： KEn+1=E=En：U=Xn:M=Yn：O=On：R=Rn：S=Sn：T=Tn：P=Pn：F=1Lbl1：KE=L=K-E：C=O：L=E-K：C=O+180 LP=ProgA R=0=Rec（L，C）：X=U+I Y=M+J W=C+B：Goto5 S=0=A=180L/(R)：X=RSinA：Y=

7、R（1-CosA）：Goto4 SL=Goto2 SL=Goto3 接上“B”子程序第二行。 既将子程序“A”和“B”合并到主程序上。大家不妨试试！ 如果你还想计算线路外坐标数据，可将所要计算的线元要素输入到数据库里，便也可计算该线元坐标数据。注意里程要与线路里程要有所区别！常用CASIO4800计算程序集FX4800P常用测量程序集1、由一个已知点坐标和一个已知方位角计算支导线坐标（程序名：ZBJS）程序清单：X：Y：T：Lb1 0：Fixm：AS：T=T+A-180：T0 =T=T+360 T360 =T=T-360TX=X+Scos TY=Y+Ssin TGoto0程序运行说明：运行“Z

8、BJS”，每运行一步按EXE键一次，显示X？时输入已知点X坐标，显示Y？时输入已知点Y坐标，显示T？时输入已知点由后视到前视的已知坐标方位角，运行一次本程序只需输入一次已知数据。显示A？时输入第一个左转角值，显示S？时输入测站到前视的水平距离。接下来计算器显示的T是测站到前视的坐标方位角，按 + 可将显示的十进制角度换算为度分秒。如此继续可计算出所有支导线未知坐标。2、由两个已知点坐标计算支导线坐标（程序名：ZBJS2）程序清单：M“X0”：N“Y0”：D“XH”：E“YH” Pol(M-D，N-E)：Fixm：T=J：X=M：Y=N：T0=T=T+360T“TH-J=” I“S=”Lb1 0

9、:AS: T=T+A-180：T0 =T=T+360 T360 =T =T-360TX=X+Scos TY=Y+Ssin TGoto0程序运行说明：运行后，显示X0，Y0时输入已知置镜点坐标，显示XH，YH时输入已知后视点坐标，其它同ZBJS的输入与显示。3、由一个已知点坐标和一个已知方位角进行放射型导线坐标计算（程序名FSXZBJS）程序清单：C“X0”：D“Y0”：E“T0”：Fixm：Lb1 1:SAT=E+A-180：T0=T=T+360 T360 =T=T-360TX=C+Scos TY=D+Ssin TGoto1程序运行说明：变量输入参照ZBJS程序。4、由两个已知点坐标进行放射型

10、导线坐标计算（程序名FSXZBJS2）M“X0”：N“Y0”：D“XH”：E“YH” Pol(M-D，N-E)：Fixm：F=J：X=M：Y=N：F0=F=F+360F“TH-J=” I“S=” Lb1 1:SAT=F+A-180：T0=T=T+360 T360 =T=T-360TX=X+Scos TY=Y+Ssin TGoto 15、坐标计算优化程序（可进行连续式（LX）、放射式（FS）已知一点（1-D）或者两点（2-D）进行坐标计算）：V“1=LX，FS”：W“1 =1-D2-D”：W=1= Goto 1: Goto2Lb1 1：F“X0=”：G“Y0=”：H“T H-0=”：Goto 3

11、Lb1 2:F“X0=”：G“Y0=”：M“XH=”：N“YH=”:Pol(F-M，G-N)：Fixm: J0=J=J+360H=J：H“TH-0=”I“S-H=”Goto 3Lb1 3: X=F：Y=G：T=H ： V=1= Goto 4: Goto 5Lb1 4: AS: A:S:T=T+A-180：T0 =T=T+360 T360 =T =T-360TX=X+Scos TY=Y+Ssin TGoto 4Lb1 5：AS:A:ST=H+A-180：T0=T=T+360 T360 =T=T-360TX=F+Scos TY=G+Ssin TGoto56、已知置镜点坐标和置镜点到后视点坐标方位角

12、求放样角度和放样距离的放样程序（程序名FY1）程序清单：F“X0”：G“Y0”：H“T0-H”：Fixm：Lb1 1:XYPol(X-F，Y-G) J0 =J=J+360A=J-HA0 =A=A+360A“A=” I“S=” Goto1程序运行说明：变量输入参照坐标计算，A=为放样顺时针角度，S=为放样距离。7、已知置镜点和后视点坐标进行放样（FY2）程序清单：F“X0”：G“Y0”：M“XH”：N“YH”Pol(M-F，N-G)：Fixm：H=JH0=H=H+360H“T-H=”I“S-H=” Lb1 1:XY: Pol(X-F，Y-G) J0 =J=J+360A=J-HA0 =A=A+36

13、0A“A=”I“S=” Goto18、放样优化程序（可分已知一点或者两点坐标进行放样角度距离的计算）程序名“FY”程序清单：I“I=1 =1-D2-D”I=1= Goto 1: Goto2Lb1 1：F“X0”：G“Y0”：H“T0-H”：Goto 3Lb1 2：F“X0”：G“Y0”：M“XH”：N“YH”:Pol(M-F，N-G)：Fixm:J0=J=J+360H=J:H“T-H=”I“S-H=”Goto 3Lb1 3：XYPol(X-F，Y-G) ：Fixm J0 =J=J+360A=J-HA0 =A=A+360A“A=” I“S=” Goto3程序运行说明：变量输入参照坐标计算，A=为

14、放样顺时针角度，S=为放样距离。9、已知两点坐标，反算两点之间的坐标方位角和距离（程序名ZBFS）程序清单：A“X1=”：B“Y1=”：C“X2=”：D“Y2=”：P ol（C-A，D-B）：Fixm：J0 =J=J+360J“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）+C11、直线线路坐标计算（ZXXY）程序清单：V“X0=”：W“Y0=”：T“T0=

15、”：U“K0=”：Lb1 0：Fixm：KD：X=V+（K-U）cos T+Dcos(T+90) Y=W+（K-U）sin T+Dsin(T+90)Goto0程序运行说明：已知某一直线线路上一点的坐标为X0，Y0，该点里程为K0以及该直线沿前进方向的坐标方位角T0，按照提示输入以上数据，如果输入某一里程K和法线外移距离D（向右移为正值，向左移为负值）即可计算出该里程点的法线外移桩坐标X、Y，当D=0时计算结果为中桩坐标。12、“缓+圆+缓”型曲线坐标计算主程序（QXJS）程序清单：Prog “BQXYS”：Q“KZH”：F“ZHX=”：G“ZHY=”：N“TZHJD”：I“（Y1，Z-1）”

16、Lbl 1:Fixm:KD:K“LICHENG=”：D“WAIYI=（Z-，Y+）”：Goto2Lbl 2:K Goto3: Goto4Lbl 3:“KOVER”: Goto1Lbl 4:KQ+L = Goto3: Goto5Lbl 5:KQ+B = Goto6: Goto7Lbl 6:S=K-Q：W=B：Prog “HQXY”：O=N+I90S2( RB)：O O=O+360O360 = O=O-360O“FANGWEI=” X=UcosN-VsinN+F+Dcos(O+90) Y=VcosN+UsinN+G+Dsin(O+90) Goto1Lbl 7：KQ+L-C = Goto8: Got

17、o9Lbl 8:S=K-Q：O=N+I90(2S-B)( R)：O O=O+360O360 = O=O-360O“FANGWEI=” Prog “YQXY”：X=UcosN-VsinN+F+Dcos(O+90) Y=VcosN+UsinN+G+Dsin(O+90) Goto1Lbl 9: S= Q+L-K：W=C：Prog “HQXY”：E=N+IA+180：O=E-I90S2( RC)+180：O O=O+360O360 = O=O-360O“FANGWEI=”V=-VX=(U-H)cosE-VsinE+F+T cosN+Dcos(O+90) Y=VcosE+(U-H)sinE+G+T si

18、nN+Dsin(O+90) Goto1子程序“BQXYS”A:R:B“L01”:C“L02” M“M1”=B2-B3（240 R2）J“M2”=C2-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(A2)+(Z-P) sinAH“T2”=J+（R+Z）tan(A2)+( P-Z) sinAL= B2+C2+A R180E= 子程序“HQXY”U=S-S5(40R2 W2)+ S9(3456 R4 W4)-S13(599040R6 W6):V=I(S3(6RW)- S7(336

19、R3 W3) +S11(42240 R5 W5)子程序“YQXY”U=Rsin(180(S-B2)R)+M:V=I(R(1-cos(180(S-B2)R)+P)程序说明：本程序可以计算等长和不等长“缓+圆+缓”型曲线或者单圆曲线的中线坐标、外移桩坐标以及中线的切线方位角。先将主、子程序存入计算器，然后运行主程序“QXJS”，输入A（曲线偏角），曲线半径R，第一缓和曲线长L01，第二缓和曲线长L02，（等长缓和曲线时L01= L02），然后显示曲线逐要素，接着输入ZH坐标（ZHX，ZHY），ZH到JD坐标方位角TZHJD，当曲线为左偏时（Y1，Z-1）输-1，右偏输1，输入计算里程K，外移距离D

20、，计算中桩时D输0，计算左边桩时D输负数，算右边桩时D输正数，当所输里程不在本曲线计算范围内时，屏幕显示KOVER，继续输入有效里程可继续计算。对于单圆曲线，缓和曲线长输入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“1RA ,Z-，Y+”：P“KA=”Lbl 1：FQ：F“1RB, Z-，Y+”：Q

21、“KB=” Lbl 2：V：V“K=”：O=V：O Goto3： Goto4Lbl 3：“K-SMALL”：Goto2Lbl 4：OQ = Goto5： Goto7Lbl 5：I：I“I=1=ESCNEXT”：I=1= Goto2： Goto 6Lbl 6：“JISUAN：A-TXY”：V=Q：Z=0：D=0：Goto8Lbl 7: DZ：Z“JIA-JIAO=”：D“WAIYI=（Z-，Y+）”Lbl 8：T=C+90（2E+（F-E）（V-P）（Q-P）（V-P）：T0=T=T+360 T360 =T=T-360Rad：W=A+（cos（C+0.5(2E+(F-E)(X-P)(Q-P)(X

22、-P)）,P,V,4）+ Dcos(T+Z) Y=B+（sin（C+0.5(2E+(F-E)(X-P)(Q-P)(X-P)）,P,V,4）+ Dsin(T+Z)：Deg：Goto9Lbl 9：OQ = GotoB： GotoALbl A：A=W：B=Y：C=T：E=F：P=Q： Goto1Lbl B： W“X=”Y“Y=”T“T=”Pol(R-G，S-H)：Fixm：M=J：Pol(W-G，Y-H) ：J=J-MJJ=J+360J360 =J=J-360J“A=”I“S=”Goto 2程序积分式中“”的编辑输入为：“FUNCTION”键+5（DRG）+4（）。程序功能由于程序根据线路曲线坐标计

23、算通用数学模型编制，所以，对于任意线型的一段线路曲线（直线、圆曲线可看作是通用计算模型的特例），只要输入曲线信息和测站信息，都可以迅速地计算出该曲线上任意里程点处的切线方位、中桩或与该里程切线成任意夹角的外移桩坐标、极坐标法放样的角度和距离。程序运行运行程序“XLJS”，按提示输入置镜点坐标（XJ，YJ），后视点坐标（XH，YH），曲线起点A的坐标（XA，YA）、沿线路前进方向的切线方位角TA、里程KA、曲率（直接在计算器上以1RA的形式输入，R表示半径，左偏曲线输负值右偏曲线输正值），继续输入终点B的曲率（1RB输入同A点）、里程KB。当屏幕显示“K=？”时，输入该段曲线要计算放样数据的里程

24、值，按提示输入夹角“JIA-JIAO”（夹角的范围为0-180度）和外移量“WAIYI”，“JIA-JIAO”值为该里程自线路前进方向的切线方位角顺时针至该里程中桩与右边桩连线间的角度，当为法线方向时JIA-JIAO为90度，“WAIYI”值中桩左侧输负值右侧输正值，计算中桩时“WAIYI”值输0即可，按“EXE键”屏幕即可依次显示计算中桩或外移桩的坐标、中桩切线方位角、放样角度A，放样距离S。程序的输入输出都按通俗易懂的提示或测量习惯显示，为确保计算结果无误，编制程序时专门设置了错误里程输入提示，当输入的计算里程K小于该曲线起点里程时，程序将提示里程太小“K-SMALL”，继续输入正确的里程

25、，当第一条曲线计算完毕需计算紧接的第二条曲线时，只需要给K输入一个大于第一曲线终点里程的里程值，这时屏幕显示“I=1=ESCNEXT”，如果不小心误输入一个大于终点里程的K时（ESC表示取消），可输入1“取消”操作，继续计算当前曲线，如果确认要计算下一曲线（NEXT表示要计算下一曲线），输入一个不等于1的数值，接下来屏幕将显示“JISUAN：A-TXY”，程序将自动计算第二曲线的起点信息，接着自动提示输入第二曲线终点的曲率和里程，当显示“K=？”时，即可进行第二曲线放样数据的计算。依次类推，直至计算完所有需计算的曲线中、边桩坐标和放样数据。迁站时，直接按“AC”键终止程序的运行，到新的测站后重

26、新运行“XLJS”，输入新的测站点、后视点坐标并保持原曲线参数不变即可。当遇到线路曲线的曲率发生突变（如直线直接接圆曲线或者两个不同半径的圆曲线直接相接）的特殊情况时，可以将突变点两侧的曲线分开单独进行计算，也可以在突变点处增加输入一段微小长度的回旋线把突变点两侧的曲线连接起来，增加一段长度为0.0001米长度的回旋曲线，不会影响计算结果的精度。比如某直线直接连接半径为R的圆曲线，计算完直线段需要接着计算圆曲线时，先输入微小长度的回旋线（1/RB=1/R，KB=直线终点里程+0.0001），然后再输入圆曲线的终点曲率和里程即可继续计算。两个不同半径（半径分别为R1，R2）的圆曲线直接相接时，先

27、输入微小长度的回旋线（1/RB=1/R2，KB=第一圆曲线终点里程+0.0001），然后输入第二圆曲线终点的曲率和里程即可。有时会遇到逆向测设曲线情况，即从大里程方向向小里程方向测设曲线，采用本程序进行计算时，只需将曲线倒过来进行输入即可，这时，输入和计算的量都应反号（只有“JIA-JIAO”值符号保持不变），曲线偏角反号输入（左偏变为右偏，右偏变为左偏），曲线里程输入时按负值对待，计算右边桩时外移量为负，左边桩时外移量为正（与正向刚好相反）。14、四等水准测量记录计算程序（红黑面常数为4687、4787）Lbl 0:“H4687=I=1”: Fixm: IABCD：I=1= Goto1: G

28、oto2Lbl 1:U=4687:W=4787: Goto3: Lbl 2:U=4787:W=4687: Goto3: Lbl 3:G“H1”=A“HOU1”-B“QIAN1”E“V2”=B-C“QIAN2”+WF“V1”=A-D“HOU2”+UP“H2”=D-CH=（G+P+W-U）2程序按后-前-前-后的观测顺序编制，当后尺为4687时I赋值1，否则赋不等于1的值。15、高斯抵偿高程投影面边长改正计算FX-4850程序E“YI-CHANG：hm=”：F“DI-CHANG：Hm=” Lbl 1:HYS：H“PING-JUN：Hp=”:Y“PING-JUN：Ym =”:S“GUAN-CE:S=

29、”:V=-S(H+E-F)(6371000+H+E)1000:W=SY2(263712)1000:D=S+( V+W)1000“V1=”:V“V2=”:W“D=”:DGoto 1说明：该程序可计算高斯投影或抵偿高程面高斯投影的边长投影，hm为异常高程值，当设计资料中没有提供或者未知时取hm=0，即认为高程异常可忽略，Hm为抵偿高程，当没有设抵偿高程面时取Hm=0，即为一般的高斯投影。S为观测水平距离，Hp为导线边两端高程概略平均值（m），Ym为导线边两端点Y坐标平均值减去500公里后的平均值（Km），D为改正到高斯投影面后的边长（m）。hm=0，Hm取隧道平均高程面高程，Ym=0时，为计算隧道平均高程面的投影改正曲线任意里程中边桩坐标正反算(C