4800公路测量放样计算程序

4800竖曲线计算放样程序

4800竖曲线计算放样程序SJBGJS(主程序)Lb1 1:｛KB X｝:Prog“YSJG”:N=-V－W:N>0＝＞N=-1:≠＞S=0.14L÷（0.07+0.035I）：Y=（0.07+0.035I）÷LC=Abs（K-Q）:K>Q＝＞C<T＝＞D=（K-Q+T）2÷（2RLb1 2:C<T＝＞D=（K-Q-T）2÷（2RLb1 3:K<Q＝＞P=V÷100: ≠＞P=W÷＝＞Prog“123”NormProg“BBBB”:Goto 1123K<J-L＝＞Prog“11”: ≠＞K<J＝＞Prog“22”: ≠＞K≤○＝＞Prog “33”: ≠＞K≤○+L＝＞Prog“22”: ≠＞Prog“11”33G=G+0.01I（MB）11G=G-Abs B×0.0222M=1＝＞Prog“44”: ≠＞Prog“55”44K≤J-L+S＝＞Prog“E”: ≠＞K<J＝＞Prog“C”: ≠＞K<○+L-S＝＞Prog“C”: ≠＞Prog“F”55K≤J-L+S＝＞Prog“A”: ≠＞K<J＝＞Prog“C”: ≠＞K<J＝＞Prog “C”: ≠＞K<○+L-S＝＞Prog“C”: ≠＞Prog“B”EB≤0＝＞G=G+0.02B: ≠＞G=G+B((K-J+L)×Y-0.07)÷FB≤0＝＞G=G+0.02B: ≠＞G=G+B((○+L-K)×Y-0.07)÷CK<J＝＞G=G((K-J+L)×Y-0.07)÷3.5×MB: ≠＞G=G+((○+L-K)×Y-0.07)÷3.5×AB>0＝＞G=G-0.02B: ≠＞G=G-B((K-J+L)×Y-0.07)÷BB>0＝＞G=G-0.02B: ≠＞G=G-B((○+L-K)×Y-0.07)÷BBBBLb1 0:｛Z｝H=G-Z:H>0＝＞Prog“BBB”: ≠＞Prog“SBB”Fix 3:C=C+0.0001:“LL=”:Pause 0BBF“P11”U“P22”H≥-10＝＞C=Abs B+1.9-（H+0.03）F: ≠＞C=Abs B+1.9+9.97F+1-（H+10.03）H<8＝＞C=Abs B+1.5H+0.3: ≠＞H≤16＝＞C=Abs B+13.433+（H-8）×1.5+0.3: ≠＞Abs B+26.865+（H-16）×ACB>0＝＞G=G-○×B: ≠＞G=G-B((K-J+L)×Y-0)÷BCB>0＝＞G=G-○×B: ≠＞G=G-B((○+L-K)×Y-0)÷SBBF“P11”U“P22”H≥-10＝＞C=Abs B+1.9-（H+0.03）F: ≠＞H≥-20＝＞C=Abs B+1.9+9.97F+1-（H+10.03）U：≠＞H≥-30＝＞C=Abs B+1.9+9.97F+9.97U+2-（H+20.03）U: ≠＞H≥-40＝＞………SJGK≤30231.33＝＞Q=30350:A=311.580:R=15000:T=105.061:V=-0.967: W=+2.368:J=30049.62:○=30141.33:L=90:M=+1:I=7:Goto 1: ≠＞K ≤30594.22＝＞Q=30350:A=311.580:R=15000:T=105.061:V=-0.967:W =+2.368:J=30311.33:○=30391.27:L=80:M=+1:I=7:Goto 1: ≠＞K≤31123.63＝＞Q=30350:A=311.580:R=15000:T=105.061:V=-0.967:W=+ 2.368:J=30674.22:○=30768.06:L=80:M=+1:I=7:Goto 1: ≠＞K≤31 123.63＝＞………Lb1 1Q----为该段竖曲线的变坡点桩号A----变坡点高程R----竖曲线半径R----竖曲线切线长E----竖曲线外距P1---变坡点前一个纵坡坡率P2---变坡点后一个纵坡坡率N----竖曲线纵要素因子，凸为-1，凹为+1 K0---直线直线段边桩放样辅助程序BBBBBB（主程序）Defm 3Lb1 0:｛G ,Z｝H=G-Z:H>0＝＞Prog“BBBBB”: ≠＞Prog“BBBB”Goto 0BBBBBH<12＝＞L=9+1.5H: ≠＞H≤20＝＞L=9+8×1.5+1.5+（H-8）×1.75: H ≤20＝＞L=9+8×1.5+1.5+8×1.75+3+（H-16）×2:BBBBC“P1”:D“P2”:S“P3”H>-12＝＞L=11.25-（H+0.045）C: ≠＞H>-20＝＞L=11.25+9.955 C+1.5-（H+10+0.045）D: ≠＞L=11.25+9.955 C+9.955 D+3-（H+20+0.045）说明：G---路肩设计高Z---实测高L---理论宽度H---填挖值。

公路放样4800程序

FX-4800P公路放样程序单位:云南第二公路桥梁工程有限公司作者:杨艳刚文件名ZBJSDefm 12 :K“X0”:V“Y0”:L“Ls”: Z【8】=180÷πRQ=0.5L-L∧3÷240R2:T=（R+ L2÷24R）tan.5A+ Q▲B= Z【8】L÷2: Z【10】“QX”=A÷Z【8】+ L▲E=(R+ L2÷24R）÷cos.5 A-R▲E“ZH”=○“JD”-T▲ Z【1】“HY”=E+ L▲Z【9】“QZ”= E+.5 Z【10】▲ Z【2】“YH”= E+Z【10】- L▲Z【3】“HZ” = E+Z【10】▲P“1，2”：u “X(JD)”: Z“Y(JD)”Lb1 0: ｛m｝:M“CD”M≤△M≤Z【1】△M＜Z【2】△M≥Z【3】△M≥Z【2△Lb1 1:G=M-E:D=√((G-G∧5÷40R2 L2)2+( G∧3÷6RL- G∧5÷336 R∧3L)2)P＜【8】G2÷6L:H=F+BG2÷L2: 【8】G2÷6L:H=F-BG2÷L2△Goto3Lb1 2:G=M- Z【1】:W=R(1-Cos(B+ Z【8】G))+ L2÷24R：D=√（W2+（R Sin(B+ Z【8】G)+Q）2）P＜-1(W÷（R Sin(B+ Z【8】G)+ Q)）:H=F+B+ Z【8】G:F- tan-1(W÷（R Sin(B+ Z【8】G)+ Q)）:H= F-B- Z【8】G△Lb1 3:X=U+T Cos(F-180)+D Cos C▲Y=Z+T Sin (F-180)+D Sin C▲ Prog “FY”Lb1 4: Z【6】=X: Z【7】=Y:｛S｝:X“ZX”= Z【6】+S Cos(H-90) ▲Y“ZY”= Z【7】+S Sin (H-90) ▲Prog “FY”: ｛N｝:X“YX”= Z【6】+N Cos(H+90) ▲Y“YY”= Z【7】+N Sin (H+90) ▲Prog “FY”: Goto 0Lb1 5:G= Z【3】-M: Z【4】=(T-G+ G∧5÷40 R2 L2) SinA+( G∧3÷6RL- G∧5÷336 R∧3L) CosA: Z【5】= T+( T -G+ G∧5÷40 R2 L2) CosA-( G∧3÷6RL- G∧5÷336 R∧3L) SinA:D=√(Z【4】2+ Z【5】2): P＜-1(Z【4】÷Z【5】)：H=F+A-BG2÷L2: ≠-1(Z【4】÷Z【5】)：H=F-A+BG2÷L2△Goto3Lb1 6:D=○-M: C= F+180:H=F: Goto8Lb1 7: D=T+M- Z【3】: P＜≠△H=CLb1 8:X=U+D CosC ▲ Y=Z+ D SinC▲Prog “FY”: Goto 4文件名FYI=0:J=O:PoL(X-K,Y-V): Z【11】“D”=I▲Y-V≥【12】“F”=J【12】“F”=360+J▲使用程序时依次输入：1、置仪点坐标：X0？ Y0？（分别为X坐标Y坐标）2、缓和曲线长度Ls?3、曲线半径R？4、导线转角A？5、交点里程桩号JD？6、导线转向1,2？（右转输1，左转输2）7、交点坐标X（JD）?Y(JD)?8、待测点桩号CD?9、导线方位角F？10、所测中桩的左右距离S？N?（S-左边距 N-右边距）注：文件ZBJS 和FY都须输入才能运行D=-待放样点的距离F=-待放样点的角度在FY中运行，为坐标放样X？为待放点的X坐标 Y？为待放点的Y坐标K？为置仪点的X坐标 V？为置仪点的Y坐标D=-置仪点到待放点的距离F=-置仪点到待放点的角度。

4800公路测量放样计算程序

4800公路测量放样计算程序CASIO fx-4800P计算器程序DA DI——N E (公路弯道坐标计算)K“JD”：R：S“LS”：F“PJ——L－R＋”：A“ZH——N”：B“ZH——E”：C“JD——N”：D“JD——E”M“ZH”=K－（R＋S2÷（24R））tan（Abs F÷2）－S÷2＋S^3÷（240R2）▲N“HY”=M＋S▲O“QZ”=M＋（πRAbs F÷180＋S）÷2▲Z[1]“YH”=M＋πRAbs F÷180▲Q“HZ”= Z[1]＋S▲T=K－M▲L=Q－M▲E=（R＋S2÷（24R））÷cos（F÷2）－R▲Lb1 0：{G}：G“ZHUANG HAO”：G＜O＝=＞Z=G－M≠=＞Z=Q－G：△{U}：U“I——B OUT＋IN－”Z＜S＋0.005＝=＞H=tan-1（24Z2S2R2－Z^6）÷（48Z^3R^3－6Z^4SR））：V=Z－Z^5÷（40S2R2）＋Usin H：W=Z^3÷（6SR）－Z ^7÷（336Z^3R^3）－Ucos H：≠=＞H=180（Z －S÷2）÷（πR）：V=Rsin H＋S÷2－S^3÷（240R2）＋Usin H：W=R－Rcos H＋S2÷（24R）－Ucos H：△F＜0＝=＞G＜O＝=＞X=V：Y=W：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Tsin Abs F －Vsin Abs F＋Wcos F：△≠=＞G＜O＝=＞X=V：Y=－W：≠=＞X=T＋Tcos F－Vcos F－Wsin Abs F：Y=Vsin Abs F－Tsin Abs F－Wcos F：△△C=A＝=＞D≥B＝=＞P=90：≠=＞P=270：△≠=＞C＜A＝=＞P= tan-1（（D－B）÷（C－A））＋180：≠=＞P= tan-1（（D－B）÷（C－A））：△△I“COM——N”=A＋√（X2＋Y2）cos（P－tan-1（Y÷X））▲J“COM——E”=B＋√（X2＋Y2）sin（P－tan-1（Y÷X））▲G=G＋20Goto 0程序运行输入：JD？——交点桩R？——圆曲线半径LS？——缓和曲线长度PJ——L－R＋？——偏角右偏为正ZH——N？——ZH点N坐标ZH——E？——ZH点E坐标JD——N？——JD点N坐标JD——E？——JD点E坐标输出：ZH= ——ZH点桩号HY= ——HY点桩号QZ= ——QZ点桩号YH= ——YH点桩号HZ= ——HZ点桩号T= ——切线长L= ——曲线长E= ——外矢距再输入：ZHUANG HAO？——输入任一点桩号I——B OUT＋IN－？——距中线距离（外侧为正）再输出：COM——N= ——计算出N坐标COM——E= ——计算出E坐标以此循环——再输入——再输出程序中各字母所代表的含义：A——ZH点N坐标B——ZH点E坐标C——JD点N坐标D——JD点E坐标E——外矢距F——偏角（右偏为正）G——弯道内任一点桩号H——弯道内任一点切线角I——计算出的N坐标J——计算出的E坐标K——交点桩号L——曲线长M——ZH点桩号N——HY点桩号O——QZ点桩号P——ZH--JD方位角Q——HZ点桩号R——圆曲线半径S——缓和曲线长度T——切线长U——距中线距离（外侧为正）V——支距W——支距X——弯道内坐标Y——弯道内坐标Z——任一点曲线长度Z[1]——YH点桩号有缓和曲线或无缓和曲线任意桩号中、边桩坐标4800计算程序四、QXZB(曲线坐标)A＂ZH(ZH)=″:B＂X(ZH)=″:C＂Y(ZH)=″ ＂X(HZ)=″:E＂Y(HZ)=″:F＂FWJ-1=″:G＂FWJ-2=″:H＂R=″:I＂L1=″:J＂L=″:K＂L2=″:L＂ZJ(Z=1,Y=-1)=″O=180/pi (pi为圆周率，电脑中找不到此符号以此代替)LbI A{MN}M＂ZHUANG HAO=″P=M-AMM>(A+I+J+K)?GOTO A⊿N＂ZHUANG JU(Z+,Y-)=″M>(A+I+J)?GOTO D⊿M>(A+I)?GOTO C⊿LbI B(第一缓和曲线)X=B+(P-(P5÷40÷H2÷I2))COSF+(P3÷6÷H÷I-P7÷336÷H3÷I3)LSINFY=C+(P-(P5÷40÷H2÷I2))SINF-(P3÷6÷H÷I-P7÷336÷H3÷I3)LCOSFX=X+NCOS(F-(P2÷2÷H÷I)OL-90)◢Y=Y+NSIN(F-(P2÷2÷H÷I)OL-90)◢GOTO ALbI C(圆曲线)X=B+(HSIN(((P-I)÷H+I÷2÷H)O)+(I÷2-I3÷240÷H2))COSF-(H(1-COS(((P-I )÷H+I÷2÷H)O))+ I2÷24÷H)(-1)LSINFY=C+(HSIN(((P-I)÷H+I÷2÷H)O)+(I÷2-I3÷240÷H2))SINF+(H(1-COS(((P-I )÷H+I÷2÷H)O))+I2÷24÷H)(-1)LCOSFX=X+NCOS(F-((P-I)÷H+I÷2÷H)OL-90)◢Y=Y+NSIN(F-((P-I)÷H+I÷2÷H)OL-90)◢GOTO A回答人的补充 2009-06-21 01:41LbI D(第二缓和曲线)Q=A+I+J+K-MX=D-(Q-Q5÷40÷H2÷K2)COSG+(Q3÷6÷H÷K-Q7÷336÷H3÷K3)LSINGY=E-(Q-Q5÷40÷H2÷K2)SING-(Q3÷6÷H÷K-Q7÷336÷H3÷K3)LCOSGX=X+NCOS(F-(I÷2÷H+J÷H+K÷2÷H-Q2÷2÷H÷K)OL-90)◢Y=Y+NSIN(F-(I÷2÷H+J÷H+K÷2÷H-Q2÷2÷H÷K)OL-90)◢GOTO A变量说明：以上变量依次为：ZH(ZH)=直缓点桩号，无缓和曲线则为直圆点；X(ZH)=直缓点X坐标；无缓和曲线则为直圆点；Y(ZH)=直缓点Y坐标，无缓和曲线则为直圆点；X(HZ)=缓直点X坐标，无缓和曲线则为圆直点；Y(HZ)=缓直点Y坐标，无缓和曲线则为圆直点；FWJ-1=第一切线方位角；FWJ-2=第二切线方位角；R=半径；L1=第一缓和曲线长；L=圆曲线长；L2=第二缓和曲线长；ZJ(Z=1,Y=-1)=转角形式(左=1，右=-1)ZHUANG HAO=所求点桩号ZHUANG JU(Z+,Y-)=边桩桩距，左边桩为正，右为负，中桩0我已经用过了，没发现什么问题，请大家提意见。

4800计算器常用测量计算程序

键即可。 FILE ，其余操作同①。
Prog
③ SHIFT
“DXJS”。
2．程序启动后，按照显示屏上的提示进行操作： ①“N=？” ，输入导线转折角总数。如：图 1.1—1 中，N=5；图 1.1—2(a、b)中，N=6；图 1.1—3 中，N=5。， ②“X1=？”“Y1=？” 对于图 1.1—1，图 1.1—2b、图 1.1—3 的图形，输入 A 点的已知坐标 XAYA。若已知 AB 边的坐标方位角αBA 则输入：X1=αBA（以小数形式输入：度、分、秒） 1=0，，Y
2.程序清单程序清单
2．1 各主程序 2．2 各子程序
1 程序使用说明
1.1 导线计算程序
（程序名：DXJS）
一、程序功能
本程序可用于进行单一导线（包括附合导线、闭合导线、支导线）的简易平差计算；同时还可计算以该导线点为测站点、定向点的极坐标点的坐标。
二、图形说明
本程序适合于以下图形的单一导线： 1.附合导线(图 1.1—1)
常用测量计算程序
（适用于 CASIOfx—4800P 计算器）
南昌徕特
有限公司
测绘仪器经营维修部
地址：江西省南昌市北京东路 220 号南昌大学南区对面电话：（0791）8302887
南昌大学土木工程系
目
1.程序使用说明程序使用说明
录
1．1 导线计算程序 1．2 公路任意中桩点、边桩点坐标或放样元素计算程序 1．3 方位角、边长反算程序 1．4 坐标交换计算程序 1．5 面积计算程序 1．6 交点坐标计算程序 1．7 点到直线的距离计算程序 1．8 高斯投影坐标正、反算及换带计算程序
桩点坐标或放样元素（方位角 A 或边长 S）。然后，只要输入任意点的里程 LP，即可计算出该点的中桩点，左、右边桩点的坐标或放样元素。若为桥涵点，还应输入公路中线之法线与桥涵中线的交角 O0。交角 O 由公路中线之法线起算，顺时针为正值，反时针为负值。计算完每一点后，显示屏都会显示“GO ON？” ，若要继续计算，输入 1，否则输入 2，当显示屏显示“MOVE STATION？”时，输入 1，为搬站，需重新输入搬站后测站点、定向点坐标；输入 2，表示该段道路已算完，程序运行结束。

CASIO4800公路测量施工放样计算程序

CASIO4800公路测量施工放样计算程序CASIO4800公路测量施工放样计算程序序先进的测设仪器和新技术的推广应用，给我们的测设工作带来了高质量和高效益。

但是运用软件的严重滞后，先进的仪器设备没有发挥出应有的作用，迫切呼唤新技术的开发、利用，广大工程技术人员渴求掌握更多、更新的先进技术，以减轻劳动强度，提高速度和精度。

《高等级公路定线测量及施工放样测量计算程序》一书既是在这样的形势下开发的，是作者多年来精心研究并在多条高等级公路上实际应用中成熟起来的。

本书运用极坐标法给出了公路测设和施工放样的计算程序，易于广大工程技术人员掌握，有着良好的社会和经济效益。

该书既是一本工具书，又可作为一本通俗易懂的教科书，丰富了学生的课堂知识，对测量课程的改革起到了充实作用。

我相信，只要我们广大的工程技术人员认真学习、运用本方法，必将对公路测设和施工控制测量技术的进步起到积极的作用。

前言当前国内高等级公路设计已经由传统的沿中线作业的设计方法逐步过渡到在路线外建立沿线控制网的设计方法，为适应新模式下高等级公路的定线测量、施工放样测量，特编写此书。

本书叙述浅显易懂，循序渐进，逐步深入，使读者易于接受和理解。

详细讲解程序的使用方法，并附有实例计算过程、计算成果，便于读者自学、程序调试，使之在短期内能快速上手使用本程序。

《高等级公路定线测量及施工放样测量计算程序》全书共五章。

第一章概论，对程序特点、适用范围等进行简要介绍；第二章为导线坐标计算及程序，主要讲述有关导线坐标的计算方法、计算程序；第三章主要讲述了程序的录入方法及源程序清单；第四章详细介绍程序中的符号含意、使用方法及步骤；第五章分别列举处于三种不同坐标系统中的计算实例，详尽介绍计算程序应用技巧。

本书的编写得到了杨金华校长等领导的大力支持和关心，及其他教师的热情帮助和鼓励，在此谨致诚挚的谢意。

由于编者水平有限，书中难免出现遗漏、不足和错误，诚请各位读者和同行专家批评指正。

CASIOfx-4800P公路测量程序

1、主程序（XLZB ）Defm 10:Norm:O “X0”：G “Y0”:N ≥1=＞Goto 1：≠＞N ≥2=＞Goto 2：≠＞N ≥3=＞Goto 3：≠＞N ≥4=＞Goto 4△△△△Lb1 1：｛KPM ｝：KPM ：Prog “C ”：I=K-J ：Prog “A ”：X “XS ”=X ▲Y “YS ”=Y ▲Prog “W ”Goto 1Lb1 2：｛KXY ｝：KXY ：A=X ：B=Y ：Prog “C ”：Prog “B ”：K=J+I ▲P=P ▲Goto 2Lb1 3：｛KSQAB ｝：KSQAB ：Prog “J ”: Prog “C ”: I=K-J ： Prog “A ”: X “XS ”=X ▲ Y “YS ”=Y ▲Prog “W ”Goto 3Lb1 4：｛KE ｝：KE ： Prog “W ”: Prog “C ”: I=K-J ：P=T: M=90:Prog “A ”: X “XS ”=X ▲ Y “YS ”=Y ▲Prog “W ”Goto 4a 、当N=1时，求一般坐标放样。

K ：待求点桩号 P ：偏移距离，当求中桩时P=0（左负右正） M ：与右侧夹角，当求中桩时M=0b 、当N=2时，求桩号及距中桩距离。

K ：待求点桩号曲线上随意的一个桩号X ：反算时所求点的X 坐标 Y ：反算时所求点的Y 坐标c 、当N=3时，求构造物防样几个角点坐标。

K ：待求点桩号 S ：构造物的角点编号 Q ：与路线右夹角 A ：横向距离 B ：纵向距离Q A AB B BB S=1S=2S=3S=4①④②③⑤当S=1、2、3、4时求构造物四个角点坐标当S=5、Q=0、A=0、B=1E -6时求该桩号中桩坐标当求该点边桩时A=偏移距离（左负右正）、B=1E -6d 、当N=4时，所测标高点进行边线放样。

K ：待求点桩号 E ：待求点边桩位置标高2、正算子程序（A ）Z[5]=90*I/п/R ：Z=W+Z[3]*2*Z[5]+Z[4]*I*L*Z[5]：X=U+Z[2]*I*cosZ+Z[3]*（2RsinZ[5]*cos （W+Z[5]））+Z[4]（（I-I 5/（40R 2L 2））cosW-（I 3/（6RL ）-I 7/（336R 3L 3））sinW ）：Y= V+Z[2]*I*csinZ+Z[3]*（2RsinZ[5]*sin （W+Z[5]））+Z[4]（（I-I 5/（40R 2L 2））sinW+（I3/（6RL）-I7/（336R3L3））cosW）：Z＜0=＞Z=Z+360△Z＞360=＞Z=Z-360△Z“QA”=Z：X=X+Pcos（Z+M）：Y=Y+Psin（Z+M）3、反算子程序（B）T=W-90：I=Abs（（B-V）cosT-(A-U)sinT：P=0：M=90：Lb1 0：Prog“A”：L=T+Z[3]*180/п*I/R：P=（B-Y）cosL-（A-X）sinL：Abs P〈1E-6＝＞Goto 1：≠＞I=I+P：Goto 0△Lb1 1：P=0：Prog“A”：P=（B-Y）/sin（Z-90）式中的E为计算器中的“EXP”符号4、平曲线要素（C）K≥***=＞J=***：U=***：V=***：W=***：R=***：L=***：Z[2]=***：Z[3]=***：Z[4]=***：K≥***=＞J=***：U=***：V=***：W=***：R=***：L=***：Z[2]=***：Z[3]=***：Z[4]=***：K≥***=＞J=***：U=***：V=***：W=***：R=***：L=***：Z[2]=***：Z[3]=***：Z[4]=***：K≥***=＞J=***：U=***：V=***：W=***：R=***：L=***：Z[2]=***：Z[3]=***：Z[4]=***：K≥***=＞J=***：U=***：V=***：W=***：R=***：L=***：Z[2]=***：Z[3]=***：Z[4]=***：K≥***=＞J=***：U=***：V=***：W=***：R=***：L=***：Z[2]=***：Z[3]=***：Z[4]=***：……K：待测点桩号 J：线元起点桩号 U：线元起点的X坐标 V：线元起点的Y坐标W：线元起点切线方位角 R：曲线半径 L=缓和曲线长度当为直线段时Z[2]=1、Z[3]=0、Z[4]=0；当为圆曲线段时Z[2]=0、Z[3]=1、Z[4]=0；当为缓和曲线段时Z[2]=0、Z[3]=0、Z[4]=1；6、高程计算程序(W)Lb1 1：Prog“X”：H=A+D*（K-B）2/2/R+（K-B）*C：H=H-（14-1.5）*0.02：S=H-E：Prog “Y”：T=（25.4-0.75（S+8））Z[6]+（15.9-S）Z[7]+（14+1.5S）Z[8]+（26+1.75（S-8））Z[9]本程序计算得出的宽度7、宽度计算子程序（Y）S＞-16=＞Z[6]=1：Z[7]=0：Z[8]=0：Z[9]=0：S＞-8=＞Z[6]=0：Z[7]=1：Z[8]=0：Z[9]=0：S＞0=＞Z[6]=0：Z[7]=0：Z[8]=1：Z[9]=0：S＞8=＞Z[6]=0：Z[7]=0：Z[8]=0：Z[9]=17、竖曲线要素（X）K≥***=＞A=***：B=***：C=***：D=***：（竖曲线中直线段）K≥***=＞A=***：B=***：C=***：D=***：R=***：（竖曲线中曲线段）K≥***=＞A=***：B=***：C=***：D=***：（竖曲线中直线段）K≥***=＞A=***：B=***：C=***：D=***：R=***：（竖曲线中曲线段）……K：待测点桩号 A：起点桩号 B：起点桩号标高 C：坡度 R：曲线半径当计算段为直线时D=0，为曲线时D=-1；当为凸形竖曲线时R取正值，为凹形竖曲线时R取负值。

卡西欧4800和4850放样坐标计算程序

已知任意点的里程、半宽，计算该点平面坐标的程序前言1、本计算程序适用范围仅限于某ZH点至下一相邻ZH点间的线路范围。

2、使用本程序前需进行导线点坐标计算并求出各个曲线的曲线要素如第一切线方位角、转向角、曲线半径、缓和曲线长度、切线长度、曲线长度等。

3、使用过程中要注意长短链对里程传递的影响关系，否则将导致计算结果错误。

4、往计算器中输入程序符号时将⊿改为。

5、本程序仅供参考,实际使用时请先进行验证。

6、本程序适用的计算器型号为卡西欧4800/4850。

“wangDongping” (程序名称)Defm 13↙XYVWRLZTC：Fixm↙Z[4]=0.5×L－L3÷(240×R2)↙Z[2]=Z[4]+(R+L2÷24÷R)Abs tan(T÷2)：G=Z＋Ans：Fix3：G＂JDDK=＂◢Z[9]=R Abs Tπ÷180＋L：Z[9]＂QXL=＂◢Z[13]=Z＋Ans：Z[13]＂HZDK=＂◢D=C＋T：D＜0⇒D=D＋3600⊿D＞3600⇒D=D－3600⊿D◢Z[11]＂HZX＂=V＋Z[2]×(CosC＋CosD)◢Z[12]＂HZY＂=W＋Z[2]×(SinC＋SinD)◢Norm：Prog＂WEIXONG2＂(程序“WaangDongping”运行到此时，自动转到程序“WangDangping2”进行下一步运行)“WangDongping2”（程序名称）Lb1 0：{K,S,Q,E,F,N,U,H}：P=Q＋Abs(E－F)×N：K≤Z⇒Goto1⊿Z＜K⇒K≤Z＋L⇒Goto2⊿Z＋L＜K⇒K≤Z＋Z[9]÷2⇒Goto3⊿Z＋Z[9]÷2＜K⇒K＜Z[13]－L⇒Goto4⊿Z[13]－L≤K⇒K＜Z[13]⇒Goto5⊿ K≥Z[13]⇒Goto6⊿Goto0↙Lb1 1：Z[1]=V＋(Z－K)×cos(C＋1800)＋Pcos(C＋S)＋Ucos(C＋H)：Z[3]=W＋(Z －K)×sin(C＋1800)＋Psin(C＋S)+Usin(C+H)：Goto7⊿Goto0↙Lb1 2：Z[5]=K－Z－(K－Z)5÷(40R2L2)：Z[6]=（K－Z）3÷（6RL）：A=T÷AbsT：Z[7]=(K－Z)2×180÷(6πRL)：Z[1]=V＋√((Z[5])2＋(Z[6])2)×cos(C＋A×Z[7])＋Pcos(C＋3×A×Z[7]＋S)＋Ucos(C＋3×A×Z[7]＋H)：Z[3]=W＋√((Z[5])2＋(Z[6])2)×sin(C＋A×Z[7])＋Psin(C＋3×A×Z[7]＋S)＋Usin(C＋3×A×Z[7]＋H)：Goto7⊿Goto0↙Lb1 3：B=L×180÷(2πR)：Z[8]=B＋(K－Z－L)×180÷(πR)：Z[5]=Z[4]+R×sinZ[8]：Z[6]=R+L2÷(24R)－RcosZ[8]：Z[7]=tan-1(Z[6]÷Z[5])：Z[10]=(2×(K－Z)－L)×180÷(2πR)：A=T÷AbsT：Z[1]=V+ √((Z[5])2+(Z[6])2)×cos(C+A×Z[7])+Pcos(C+A×Z[10]+S)＋Ucos(C＋A×Z[10]＋H)：Z[3]=W+√((Z[5])2＋(Z[6])2)×sin(C+A×Z[7])+Psin(C+A×Z[10]+S)＋Usin(D＋A×Z[10]＋H)：Goto7⊿Goto0↙Lbl 4：B=L×180÷(2πR)：Z[8]=B+(Z[13]－K－L)×180(πR)：Z[5]=Z[4]+R×sinZ[8]：Z[6]=R+L2÷(24R)－RcosZ[8]：Z[7]=tan-1(Z[6]÷Z[5])：Z[10]=(2×(Z[13]－K)－L)×180÷(2πR)：A=－T÷AbsT：Z[1]=Z[11]+ √((Z[5])2+(Z[6])2)×cos(D+180+A×Z[7])+Pcos(D+A×Z[10]+S)＋Ucos(D＋A×Z[10]＋H)：Z[3]=Z[12]+√((Z[5])2+(Z[6])2)×sin(D+180+A×Z[7])+Psin(D+A ×Z[10]+S)＋Usin(D＋A×Z[10]＋H)：Goto7⊿Goto0↙Lbl 5：Z[5]=Z[13]－K－(Z[13]－K) 5÷(40R2L2)：Z[6]=(Z[13]－K) 3÷(6RL)：A=－T÷AbsT：Z[7]=(Z[13]－K)2×180÷(6πRL)：Z[1]=Z[11]+ √((Z[5])2+(Z[6])2)×cos(D+180+A×Z[7])+Pcos(D+3×A×Z[7]+S)+Ucos（D+3×A ×Z[7]+H）：Z[3]=Z[12]+√((Z[5])2+(Z[6])2)×sin(D+180+A×Z[7])+Psin(D+3×A×Z[7]+S)＋Usin(D+3×A×Z[7]+H)：Goto7⊿Goto0↙Lb1 6：Z[1]=Z[11]+(K－Z[13])×CosD+Pcos(D+S)＋Ucos(D+H)：Z[3]=Z[12]+(K －Z[13])×sinD+Psin(D+S)＋Usin(D+H)：Goto7⊿Goto0↙Lb1 7：M=Z[1]－X：O=Z[3]－Y：Pol(M,O)：J＜0 J=J+3600⊿Fix3：J◢I◢P◢E－F◢M+X◢O+Y◢Norm：Goto0↙坐标程序符号说明1、X，Y：测站坐标2、V，W：ZH点X,Y坐标3、R：曲线半径4、L：缓和曲线长度5、Z：ZH点里程6、T：曲线转向角（左负右正）7、C：第一切线方位角8、K：放样点里程9、Q：放样半宽（平行于S角非切线边在里程点左右侧的宽度，若已知实际半宽P，则Q=P；若放路基边桩则输入变坡点处的半宽P）10、S：放样点与其对应的中线点连线和该中线点切线的夹角（左负右正，即放样点在线路左侧S为负，同理在右侧为正）11、F：放样点地面标高12、N：路基边坡坡度13、E：变坡点设计标高14、P=Q+Abs（E－F）×N（Abs为绝对值），若P为已知，则Q的值直接输入P的值即可，E、F、N均为零。

史上最全的casio-4800工程测量程序(测量放样、坐标放点、导线放样[1]...)

1 XY边长及方位角反算Prog"A":L=J:Prog"B"◢Fix 3:I"D="◢Lbl 1:{S}:V"X"=X+Rec(S, L ◢U"Y"=Y+J ◢Goto 1输入：X1,Y1,X2,Y2.输出: L°=,D=.2 XY-1输入里程桩号计算中间点坐标Prog"A":L=J:Prog"B"◢Fix 3:I"D="◢{Z}: Z:Lbl 1:{G}:V"X"=X+Rec(Abs(G-Z, L ◢U"Y"=Y+J ◢Z-起始点里程桩号Goto 1Ｇ－任一点里程桩号3 JD两直线交点坐标计算Prog"A":Prog"C":L"L1":Prog"F":E=W+K:{L}:L"L2":Prog"F":C=V+K:S=tan E:T=tan C:G=S-T:A=A+0.0001U"X"=(SA-MT-B+N)/G◢Z"Y"=S(U-A)+B◢Pol(U-M,Z-N:I"D="输入X1,Y1,X2,Y2,X3,Y3.X4,Y4,L1,L2,输出X=,Y=,D=,4 ZBFD坐标放点Prog"A":Lbl 3:Fix 3:{MN}:Pol(M"X3"-A,N"Y3"-B:I"D="◢J=J-W+180:J<0=>J=J+360L=J:Prog"B"◢Goto 3输入:X1,Y1,X2,Y2,X3,Y3.输出:D,L°5 Z自由导线推算E=0:1F=0:Prog"A":Fixm:C=A:D=B:J[F]=J:Lbl 4:{LH}:L"L0":Prog"F":I[F]=J[F]+K-180:H[E+F]=H"D":Prog"R":C"X="◢D"Y="◢J[F]=I[F]:Goto 46 ZDX支导线计算X1Y1,X2Y2,为已知点坐标Prog"A":L°-角度用小数输入Lbl 4:输一组L°、D.得一个点的坐标{LS}:L:Prog"F":M"X3"=A+Rec(S,W+K+180◢N"Y3"=B+J◢Goto 4输入:X1,Y1,X2,Y2,L,S.输出:X3,Y3.L°—观测角度以下按小数点输入7 DX单一导线简易平差计算Prog"A":Prog"C":J=W:Ｉ=V:C=A-M:D=B-N:F=E"N":I[F]=J:Lbl 1:F=F-1:{GH}:I[F]=J[F]+G"L°"-180:I[F]<0=>I[F]=I[F]+360:≠>I[F]>360=>I[F]=I[F]-360H[E+F]=H"D":F>1=>Goto 1{G}:G=I[F]+G"L°"-180:G<0=>G=G+360:≠>G>360=>G=G-360I=G-I:W=12″[S]=620.790G"W"=602FracI ◢相对中误差:fS/[S]=1/88119fX=-0.007fY=0.000G=0:Lbl 2:I[F]=I[F]-I(E-F)/E:Prog"R":说明:F=F+1:N-观测角数,L°-左角按度分秒输入G=H+G:W-角度闭合差,fX,fY 坐标闭合差F<E=>Goto 2若用外(右)角计算闭合差程序中之I=G-I-360G"[S]="◢若用内(左)角计算闭合差程序中之I=G-II"fX"=C ◢本程序只能计算八个未知点,多于八个时每增加一个C=A:未知点,必需扩展两个储存器.A"fY"=D ◢D=B:B"fS/[S]"=Int(G/ √ (I I+AA ◢Lbl 3: F=F －1:Prog"R":C"X"=C-I H/G ◢D"Y"=D-AH/G ◢F>1=>Goto 38 WDX 无定向导线Prog"A":D=I:C=0:M=0:N=0:P:Lbl 0:P=P-1:{LS}:L"B°":Prog"F":F=K:C=C+F:C=0=>Goto 1C=C+180:Goto 1X1Y1,X2Y2,-已知点坐标Lbl 1:P-边数,B°-观测角,第一个角输入0,Rec(S,C:S-边长,Xf,Yf-增量累加数,记录侍用Fix 4:输入一组Xf,Yf,求得一组X Y,M"Xf"=M+I ◢用左角,度以下按小数输入.N"Yf"=N+J ◢P>0=>Goto 0Pol(-M,-N:R=W+180-J:K=D/I:V=Cos R:点号观测角边长Xf Yf X Y E=Sin R:Lbl 2:{HO}:H"Xf":O"Yf":Fix 3:T"X"=X+K(HV-OE ◢Z"Y"=Y+K(HE+OV ◢Goto 2B 为观测角,第一个角输入04119.5814110.7005102.2204969.5125029.9914887.630142.64164.8800-66.203843.11280.0000-211.5145-303.145023 0°00′00″ 42 28 06 277 33 42 A 1164.88313.274329.1104426.9529 QJD前交点(正弦公式)Prog"A":Prog"J":S=I Sin E/Sin(E+K:Prog"O"A°、B°-观测角,X1、Y1、X2、Y2-正切公式Prog"A":Prog"J":S=tan E:T=tan K:G=S －1＋T -1:M"X3"=(X/T+A/S-Y+B)/G ◢N"Y3"=(Y/T+B/S+X-A)/G 输入:X1,Y1.X2,Y2,A°,B°,输出:X3Y310 FX 方向交会Prog"A":Prog"J":S=tan E:T=tan K:G=S-T:M"X3"=(SX-AT-Y+B)/G ◢N"Y3"=S(M-X)+YX1Y1,X2Y2,为起算点坐标.A°,B°-方位角.X,Y--交点坐标11 CJ 侧方交会点Prog"A":Prog"J":S=I sin(E+K)/Sin K:{K}:K=0=>M"X"=A+Rec(S,W+E-180◢≠N"Y"=B+JX1Y1,X1'Y1',X2Y2--已知点坐标,A°B°-观测角,左右分开.左K=0,右K=1A=63° 33′06″B=92° 20′51″从左右两组算出坐标取中数为XYA ′=109° 59′39″B ′=50° 57′06″12 HJ后交点计算Prog"A":M"X3":X1=992.692X2=1012.499N"Y3":Prog"J":S=tan E:T=tan K:H=(Y-B)/S+X-A:F=(X-A)/S-Y+B:Q=(N-B)/T-M+A:V=(M-A)/T+N-B:K=(H+Q)/(F+V:X3=1063.248D=(H-FK)/(1+K2:Y4=999.997Y3=1000.000O"X4"=A+D◢X1Y1,X2Y2,X3Y3---已知点坐标P"Y4"=B+KD A°、B°----观测角X4Y4--测点坐标12HJ—1Prog〝A〞︰D=I︰（另一种后Pol（A－M〝X3〞，B－N〝Y3〞︰交公式）S=I︰G=J︰Prog〝J〞︰Z=180－（W－G＋E＋K）÷2︰Q=tan－1（D Sin C÷S Sin E︰H=tan－1（tan Z÷tan（45＋Q︰R=Z＋H︰T=D Sin（E＋R）÷Sin E︰O〝X〞=X＋T Cos（W＋R◢P〝Y〞=Y＋T Sin（J＋R13 LDHJ两点后交Prog"A": L"A°":Prog"F":C=K:{L}:X2=857.025X1=944.202L"B°":Prog"F":O=K:{L}:L"E°":Prog"F":E=K:{L}:L"F°":Prog"F":F=K:Y3=139.053N=Sin O/Sin(O+F:P=√(S2+M2-2SM Cos(C-O:观测角A°B°E°F°度以下按小数点输入.T=√(D2+N2-2DN Cos(F-E:K"D1"=2I"D0"/(P+T◢S"S1"=KS◢D"S2"=KD◢M"S3"=KM◢N"S4"=KN◢H=Cos-1((I2+S2-M2)/2IS:L=H:Prog"B":Z"H°="◢G=Cos-1((I2+N2-D2)/2IN:L=G:Prog"B":Z"G°="◢Fix 3:Q"X3"=A+Rec(S,W+H+180◢R"Y3"=B+J◢Q"X4"=A+Rec(D,W+E-F-L◢R"Y4"=B+JProg"A":Lbl 0:Prog"W":Fix 2:S=D(Sin K)2◢H=S/tan K+G◢{L}:Prog"F":输入:X1,Y1,X2,Y2,H0-起点高,T仪高,Prog"O"◢D-视距,S-平距,Z°—天顶距,P标高Goto 0输出:X3,Y3,S平距15 JZB极坐标法测碎部点坐标、高程Prog"A":G=E"H0"+T:Lbl 8:{LSV}:Prog"F":Prog"O"◢H=G+V"h"-P◢Goto 8输入:X1,Y1,X2,Y2, H0,T,L°，S，h求:X,Y,H.X3=273.29916 SD 垂距,垂点坐标计算Y3=208.502Prog"A":O=Sin J:P=CosJ:E=M"X3"-X:F=N"Y3"-Y:S=EP+FO ◢D=EO-FP ◢Y=252.157V"X"=X+Rec(S,W ◢U"Y"=Y+J注:D 为正时,3点在1-2之左侧;S 为正,3在1-2之线上;为负则在2--117 MM 坐标法计算多边形面积N: P=0: V=0:A"X":B"Y":E=A: F=B:Fix 3:Lbl 0:{XY}:X: Y:N=4(边数)Lbl 1:Pol(X-A,Y-B: I"S"◢P=P+(Y-B)(X+A)/2:A=X:B=Y:V=V+1:V ≠N=>Goto 0P"m 2"=Abs P ◢Q"mu"=1.5 m P18断面图封闭图形面积计算(高程相当于X,距离相当于Y,用相对坐标计算,)N:P=0:V=0:Y=0:A"H":B"D":E=A:69.8F=B: Fix 3:Lbl 0:N=V+1=>H=E: Y=F: Goto 1｛HD ｝:H:Y=Y+D:Lbl 1:m =32.795A=H:B=Y:N=多边形边数,V=V+1:H=转折点高程V ≠N=> Goto 0D=相邻两点距离P"m 2"=Abs P第一点D 输入0。

4800全套计算程序（吐血推荐）

4800全套计算程序（吐⾎推荐）整套卡西欧计算器CASIO FX-4800 4500测量程序各位同⾏：我长年从事公路桥梁测绘⼯作，收集整理了⼀整套卡西欧计算器CASIOFX-4800P和卡西欧CASIO FX-4500P测量放线程序，该套程序经过反复修正，具有极⾼的可靠性。

现在免费提供给⼤家.程序⽬录：1.1 测边⼤地四边形的条件平差程序1.2 测边中点多边形的条件平差程序1.3 单⼀导线的严密平差程序1.4 单⼀结点导线的严密平差程序1.5 边、⾓后⽅交会的条件平差程序1.6 测边交汇点的条件平差程序1.7 单⼀⽔准路线的平差程序1.8 单结点的平差程序1.9 多结点⽔准⽹的平差程序1.10 多边形⽔准⽹的平差程序1.11 三⾓⾼程差的计算程序1.12 测距边⽔平距离的计算程序1.13 ⾼斯投影座标正、反解和换带的计算程序1.14 平⾯座标转移的计算程序2.1 单边、⾓后⽅交会的计算程序2.2 双边、⾓后⽅交会的计算程序2.3 碎部点座标的计算程序2.4 内、外分点座标的计算程序2.5 房⾓标的计算程序2.6 多次后⽅测⾓交会点2.7 测边交会点的计算程序2.8 导线三维值的计算程序2.9 圆⼼座标和半径的程序2.10 测站点、照准点归⼼改正的计算程序2.11 单边、双站后⽅交会的计算程序3.1 线路中⼼座标的计算程序3.3 红线交点座标的计算程序3.4 直线与圆曲线交点座标的计算程序3.5 垂⾜座标的计算程序3.6 道路不等宽时曲线要素的计算程序3.7 缓和曲线敷设时的计算程序3.8 圆曲线敷设时的计算程序3.9 极座标放线线的计算程序3.10 交点座标的计算程序3.11 宗地有关项⽬的计算程序3.12 丘地有关项⽬的计算程序4.1 导线X、Y、Z值的近似平差程序4.2 ⽆定向导线的计算程序4.3 测⾓前⽅交会点座标的计算程序4.4 测边交会座标的计算程序4.5 测⾓后⽅交会点座标的计算程序4.6 双边、⾓后⽅交会点座标的计算程序4.7 平⾯座标转移的计算程序4.8 测站点、照准点归⼼改正的计算程序4.9 三⾓⾼程⾼差的计算程序4.10 测距边⽔平距离的计算程序4.11 单⼀导线的严密平差程序4.12 边、⾓后⽅交会点的严密平差程序4.13 测边交会点的严密平差程序5.1 图跟导线点座标的计算程序5.2 碎部点座标的计算程序5.3 内、外分点座标的计算程序5.4 ⾓座标的计算程序5.5 圆⼼座标的和半径的计算程序5.6 交点座标的计算程序5.7 单边、⾓交会点座标的计算程序5.8 宗地有关项⽬的计算程序5.9 单边、双站后⽅交会座标的计算程序6.1 线路边桩座标的计算程序6.3 直线与曲线交点座标的计算程序6.4 道路不等宽时曲线元素的计算程序6.5 垂⾜座标的计算程序6.6 圆曲线敷设的计算程序6.7 缓各曲线敷设的计算程序6.8 极座标放线的计算程序6.9 单⼀⽔准路线的近似平差计算程序6.10 丘地有关项⽬的计算程序公路中、边桩坐标计算及放样程序功能：任意半径曲线中桩、任意交⾓边桩坐标计算放样、中桩切线⽅位⾓、任意点置仪放样、两点间距离计算、两点⽅位⾓计算。

4800计算器公路工程坐标计算程序(王)

4800计算器公路工程坐标放样程序MS(主程序)Q"XZ=":S"YZ=" 回车Lbl 0:{Z}:Z"ZS=1;FS=2":Z=1=>Goto1△ Z=2=>Goto2△回车Lbl 1:{POW }: P"LCZH=": D"Z=0;BL<0;BR>0" : W"BJ":Prog "GLCL":Prog"ZS":X"X="▲Y"Y="▲I=POL(X－Q,Y－S):J<0=>J=J+360: J"AF"▲≠=>J=J:J"AF="▲S="▲△I"Goto0回车Lbl 2: {XYW}: XYW"BJ": Prog"FS":P"LCZH="▲D"Z=0;BL<0; BR>0"▲Goto0回车ZS(正算)Fixm回车Lbl 1 :J=F: X=B－Z[3] C0SF: Y=C－Z[3]SinF: G=E回车P≤A－Z[3]=>I=A－Z[3]－P:M=－I: N=0: H=F＋W: Goto5回车≠=>p≤A-Z[3]＋E=>I=P－A+Z[3]: H=90 I²÷RE π: O<0=>H=－H△H=H＋W＋F:Goto3回车≠=>P≤A－Z[3]＋L-K =>I=P－A＋Z[3]－E:Goto4回车≠=>Goto2△△回车Lbl 2:X=B＋Z[4]CoS(F＋O):Y=C+Z[4]Sin(F+O):J=F+O＋180:G=K回车P≤A-Z[3]+L=>I=A-Z[3]＋L－P:H=90I²÷RKπ:O>0=>H=－H△回车H=H＋J＋W+180:Goto3回车≠=>I=P－A+Z[3]－L:M=－I:N=0:H=J+W+180:Goto5 回车Lbl 3:M=I－I5 ÷40R² G²: N=I3÷6GR－I7÷336R3G3:Goto5 回车Lbl 4: H=(E+2 I )×90÷πR: M=RSinH+Z[2]:N=R(1－CoSH)+Z[1]: O<0=>H=－H△ H=H+J+W:Goto5 回车Lbl 5: P≤A－Z[3]+L－K=>O<0=>N=－N△≠=>O>0=>N=－N△△Goto6 回车Lbl 6: X=X＋MCoSJ－NSinJ＋DCoSH:Y=Y＋MSinJ＋NCoSJ＋DSinH:FS（反算）Fixm 回车U=X: V=Y: D=0: J=F－W:P=A+(Y－C)CoSJ－(X－B)SinJ回车Lbl 1: Prog "GLCL": Prog"ZS":J=H－180: I=(V－Y)CoSJ－(U－X)SinJ: AnSI≤0.001=>Goto2: ≠=>P=P+I:G0to1△Lbl 2:D=(V－Y)÷SinHGLCL(公路测量)Prog"SJK": A"JD": B"JDX": C"JDY": F"FJ": O"ZJ－,Y+" RE"LS1=": K"LSZ=" E<1=>E=0.00001△K<1=>K=0.00001△Z[1]=E²÷24R－E4÷2688R3:Z[2]=E÷2－E3÷240R2: X=(E²－K²)÷24R÷SinAbsO: Z[3]=(R+Z[1])tan(AbSO÷2)+Z[2]-X▲Z[4]=(R+K²÷24R－K4÷2688R3)tan(AbsO÷2)+K÷2－K3÷240R2＋X▲L=AbsO πR÷180+(E+K)÷2▲ J=Tan－((R+Z[1])÷(Z[3]－Z[2]): X"E"=(R+Z[1])÷SinJ－R▲X=A－Z[3]: Y=X+E:E<1=>X"ZY"▲≠=>X"ZH="▲ Y"HY="▲△Y"QZ"=X+(L－K－E)÷2+E▲Y=X+L－K: X=X+L: Y"YH="▲X"HZ="▲注明：把GLCL(公路测量)该程序下的实心符号“▲”改为冒号“：”。

fx-4800P放样程序(不全)

fx—4800P公路施工放样程序LJ（路基坐标、横坡计算）Defm 12：Lb1 O（下划线与零区分）：{K}：K≤HZ1（第一曲线缓直点）=>Goto E△K≤HZ2=>Goto F△K≤HZ3=>Goto G△……K≤HZ9=>Goto M△Goto N↙Lb1 E：A= ：X= ：Y= ：F= ：E= ：L= ：R= ：G= ：M= ：S= ：Goto Z↙（第一曲线参数）……（交点里程、坐标、方位角、偏角、缓和曲线长、半径、转向（左1右2）、超高、无超高段长。

）Lb1 M：A= ：X= ：Y= ：F= ：E= ：L= ：R= ：G= ：M= ：S= ：Goto Z↙（第M曲线参数）Lb1 N：A＂ＫＪ＂Ｘ＂ＸＪ＂Ｙ＂ＹＪ＂Ｆ＂ＦＪ＂Ｅ＂ＡＰ＂Ｌ＂ＬＨ＂Ｒ＂Ｒ＂Ｇ＂Ｇ＂Ｍ＂Ｍ＂S＂S＂：Goto Z↙(没有编入的曲线参数需要时，可在计算时输入)Lb1 Z：B=（L-S）/（M+0.02）：Z[5]=180÷πR：Z[11]=L2÷24R-L^4÷2688R^3+L^6÷506880R^5：Z[12]=L/2-L^3÷240R2+L^5÷34560R^4：T=(R+Z[11])tan0.5E+Z[12]：Z[1]=A-T：Z[2]= Z[1]+L：Z[3]= Z[2]+（E-180L÷πR）/ Z[5]：Z[4]= Z[3]+L ↙Lb1 0：G＂Z-1,Y-2＂▲K≤Z[1] =>I=A-K：J=F+180：Prog＂1＂：Goto 8△K≤Z[2] => Goto 1△K≤Z[3] => Goto 2△K≤Z[4] => Goto 3△I=K-Z[4]+T：G＞1 =>J=F+E：≠> J=F-E△ Prog＂1＂：Goto 8↙Lb1 1：{O}：O＂PJ＂：K≥Z[2]-MB=>U=O(MB-Z[2]+K)/B：≠>U=-O（0.02B-K+Z[1]+S）/B△K≥Z[1]+S=>W=-O((L-S+K-Z[2])÷(L-S)×(M-0.02)+0.02): ≠>W=-0.02O△ U：＂G=＂：Pause 1：W＂D=＂▲I=T：J=F+180：Prog＂1＂：Z[10]=K-Z[1]：Prog＂2＂：G＞1 => Goto 4：≠> Goto 5△Lb1 2：W＂HP＂=M▲I=T：J=F+180：Prog“1”：Z[8]=Rsin（K-Z[1]-L/2）Z[5]+Z[12]：Z[9]=R（1-cos（K-Z[1]-L/2）Z[5]）+Z[11]：G＞1 => Goto 4：≠> Goto 5△Lb1 3：{O}：O＂PJ＂：K≤Z[3]+MB=>U=O(MB+Z[3]-K)/B：≠>U=-O（0.02B-Z[4]+K+S）/B△K≤Z[4]-S=>W=-O((L-S-K+Z[3])÷(L-S)×(M-0.02)+0.02): ≠>W=-0.02O△ U：＂G=＂：Pause 1：W＂D=＂▲Z[10]=Z[4]-K：Prog＂2＂：I=T：G＞1 =>J=F+E：≠> J=F-E△ Prog＂1＂：G＞1 =>J=F+E+180-tan-1（Z[9]/Z[8]）：≠>J=F-E+180+tan-1（Z[9]/Z[8]）△Goto 6↙Lb1 4：J=F+ tan-1（Z[9]/Z[8]）：Goto 6↙Lb1 5：J=F- tan-1（Z[9]/Z[8]）：Lb1 6：I=√（Z[9]2+Z[8]2）↙Lb1 7：Z[6]=Z[6]+Rec（I，J）：＂X=＂：Pause 1：Z[7]＂Y＂=Z[7]+J↙Lb1 8：Z[6]：＂X=＂：Pause 1：Z[7]＂Y=＂▲Lb1 A：{C}：C“0，1”：C＜1=> Goto O△ K≤Z[1] =>J=F-90：Goto C△K≤Z[2] =>J=（（K-Z[1]）2÷2RL）r：Goto B△ K≤Z[3]=>J=（L÷2R+（K-Z[2]）/R）r：Goto B△ K＜Z[4]=>J=E-（（Z[4]-K）2÷2RL）r：Goto B △ J=E↙Lb1 B：G＞1 =>J=F+J-90：≠> J=F-J-90△Lb1 C：{D}：D＂BD，+Z-Y＂：Z[8]=Z[6]+ Rec（D，J）：Z[9]=Z[7]+J：D＞0=>Z[8]：＂ZX=＂：Pause 1：Z[9]＂ZY=＂▲fx—4800P公路施工放样程序LJ（路基坐标、横坡、加宽计算(一般用于二级公路)区别在于横坡的计算）Defm 12：Lb1 O（下划线与零区分）：{K}：K≤HZ1（第一曲线缓直点）=>Goto E△K≤HZ2=>Goto F△K≤HZ3=>Goto G△……K≤HZ9=>Goto M△Goto N↙Lb1 E：A= ：X= ：Y= ：F= ：E= ：L= ：R= ：G= ：M= ：N= ：Goto Z↙（第一曲线参数）……（交点里程、坐标、方位角、偏角、缓和曲线长、半径、转向（左1右2）、超高、加宽。

卡西欧4800P计算器道路中边桩放样程序

卡西欧4800P计算器道路中边桩放样程序SG(主程序)NEJAIRSBC↙Prog“Y” ↙Z=J－T◢Z【2】=Z+S◢Z【3】=Z+L÷2◢Z【4】=Z【2】+M◢Z【5】=Z+L◢Prog“XY”XY(子程序)GH：Fixm: LbI0:｛KD｝:K≥Z【5】=>X=N+(K－Z【5】+T)cosC◢Y=E+(K－Z【5】+T)sinC◢≠=>K≤Z=>X=N－(J－K)cosB◢Y=E－(J－K)sinB◢≠=>K≥Z【3】=>V=Z 【5】－K:E【30】=E+TsinC:N【30】=N+TcosC:O=C: ≠=>V=K－Z:N【30】=N－TcosB:E 【30】=E－TsinB:O=B⊿V≤S=>X=V－V5÷40R2S2◢Y=V3÷6RS－V7÷336R3S3◢≠=>W=(V－S÷2)×180÷πR:X=RsimW+Q◢Y=R(1－cosW)+P◢△K≥Z【3】=>U=-X: ≠=>U=X△X=N【30】+Ucos－IYsinO◢Y=E【30】+UsinO+IYcosO◢△△D=0=>Prog“RD”: ≠=>Prog“F” △↙Goto0↙注：XY程序中的；U=-X: ≠=>U中的“-”符号是计算器中的“（－）”键RD(子程序)G“N【O】”：H“E【O】”：X：Y：U=X－G：O=Y－H：U≤0=>A【40】=180+tan －1(O÷U) ◢≠=> O≥0=>A【40】= tan－1(O÷U) ◢≠=>A【40】=360+ tan－1(O÷U) ◢△△D【40】=√(O 2+U2) ◢JD(子程序)G:H:X:Y:O:P:U:V:W=(Y－H)÷(X－G):M=(P－V)÷(O－U):N=(WG－M O+P－H)÷(W－M) ◢E=W(N－G)+H◢Y(子程序)P=S2÷24R－S4÷2384R3:Q=S÷2－S3÷240R2:T=Q+(R+P)tan(A÷2) ◢M=πR(A－180S÷πR)÷180◢L=M+2S◢E【37】=(R+P)÷cos(A÷2)－R◢2T－L◢D(子程序)X:Y:F:X=X+DcosF ◢Y=Y+DsinF◢Prog“RD”↙D－(子程序)XY:(OP－UV):D=((V－P)(X－O)+(U－O)(P－X))÷√((V－P)2+(U－O)2) ◢F(子程序)K≤Z=>F=90+B◢≠=>K≤Z【2】=>F=B+90+90I(K－Z)2÷πRS◢≠=>K≤Z【4】=>F=B+90+90I(2×(K－Z【2】)+S)÷πR◢≠=>K≤Z【5】=>F=C+90－90I(Z【5】－K)2÷πRS◢≠=>F=90+C◢△△△△Prog“D”程序说明：SG程序符号输入：N、E交点坐标，J：交点桩号，A：偏角，I：左负右正（1），R:半径，S:缓和曲长度（Lh）,B: 本曲线方位角,C:下曲线方位角。

卡西欧4800公路测量程序

卡西欧4800公路测量程序第一章：基本符号1、X0——始点横坐标2、Y0——始点纵坐标3、X1——终点横坐标4、Y1——终点纵坐标5、D——始点到终点的水平距离6、F——始点到终点的方位角7、X(P1)——P1点的横坐标8、Y(P1)——P1点的纵坐标9、X(P2)——P2点的横坐标10、Y(P2)——P2点的纵坐标11、D(OP1)——置仪点到P1的水平距离12、D(OP2)——置仪点到P2的水平距离13、F(OP2)——置仪点到P2的方位角14、X(00)——置仪点的横坐标15、Y(00)——置仪点的纵坐标16、JD，JD(AB)——选择输入1或者2（1）JD——实交（2）JD(AB)——虚交17、IR、IL——选择输入1或者2（1）IR——路线右转（2）IL——路线左转19、(1) E-R; (2) T-R——选择输入(1)或(2)（1）E-R——继续E长控制半径R（2）T-R——T长控制半径R19、(1) E-R; (2) END——选择输入(1)或(2)（1）E-R——继续E长控制半径R测曲中（2）END——结束20、(1)S1，(2)S2，(3)R2——选择输入(1)或(2)或(3)(反复曲线S型)（1）S1——进入第一条曲线测量（2）S2——进入第二条曲线测量（3）R2——这是由第二条曲线测设后，进入第一条曲线测，在进入第二条曲线直接测量曲中21、(1)R1，(2)R2，(3)END——选择输入(1)或(2)或(3)(反复曲线S型)（1）R1——如对曲线一、二的测设皆不满意，可输入1，进入第一条曲线的测设，结束后输入3，进入第二条曲线的测设（2）R2——(2)R2:如对曲线二的邪恶设不满意，可输入2，再测曲中（3）END——结束22、X(QZ)——曲中的横坐标23、Y(QZ)——曲中的纵坐标24、D(QZ)——置仪点到曲中的水平距离25、F(QZ)——置仪点到曲中的方位角26、K——输入桩号27、W(L)——左侧边桩距离中桩的水平距离28、W(R)——右侧边桩距离中桩的水平距离29、X(L)——左侧边的桩横坐标30、Y(L)——左侧边的桩纵坐标31、H(L)——左侧边的高程32、D(L)——置仪点到左侧边桩的水平距离33、F(L)——置仪点到左侧边桩的方位角34、X(Z)——中桩的横坐标35、Y(Z)——中桩的纵坐标36、H(Z)——中桩的高程37、D(Z)——置仪点到中桩的水平距离38、F(Z)——置仪点到中桩的方位角39、X(R)——右侧边桩的横坐标40、Y(R)——右侧边桩的纵坐标41、H(R)——右侧边桩的高程42、D(R)——置仪点到右侧边桩的水平距离43、F(R)——置仪点到右侧边桩的方位角44、F1——第一条线路的方位角45、F2——第二条线路的方位角46、JA——虚交JDA转角47、JB——虚交JDB转角48、ａ——路线转角49、R——平、竖曲线半径50、R1——第一天曲线半径51、R2——第二条曲线半径52、L S——缓和曲线长度53、L S1——第一缓和曲线长度54、L S2——第二缓和曲线长度55、T——平、竖曲线切线长度56、T1——第一平曲线切线长度57、T2——第二平曲线切线长度62、L——平、竖曲线长度63、L1——第一平曲线长度64、L2——第二平曲线长度65、E——平、竖曲线外距66、E1——第一平曲线外距67、E2——第二平曲线外距68、LY——圆曲线长度69、L Y1——第一圆曲线长度70、L Y2——第二圆曲线长度72、K(JD) ——交点桩号73、AB——虚交JDA—JDB的水平距离74、ZH——直缓点桩号75、HY——缓圆点桩号76、QZ——曲中点桩号77、YH——圆缓点桩号78、HZ——缓直点桩号79、GQ——公切点桩号80、N°——右角顺时针第二章：路线测量与道路施工放样计算程序第一节：已知两点坐标求距离和方位角计算程序【例题1】如图1-1，已知A点坐标A(100,100)， XB点坐标B(-100,-100)。

公路设计和放样程序程序4800P

公路平曲线设计与敷设程序(适用于CASIO fx-4800P计算器)１.该程序是公路平曲线测设的常用程序，包括五种半径选择程序、四种中线敷设程序和四种特殊平曲线设计与敷设程序。

适用于三、四级公路之测设，符合海地道路软件中平曲线计算之＂算法三＂,是公路工程师的最佳助手。

２.该程序可分为三个部分：第一部分为半径选择程序，分为外距控制（E）、切线长控制（T）、曲线长控制(L)，两点虚交(AB)，三点虚交(ABC)；第二部分为中桩支距法放样程序：分为单交点(1JD)、两点虚交(2JD)、三点虚交(3JD)、回头曲线之圆曲线部分(HTQX)；第三部分为特殊平曲线设计与敷设程序，分为单交点凸型曲线设计(TU)、两点虚交复曲线设计与敷设(FU/FUF)、两点虚交非对称基本型平曲线的设计与敷设(FDCK/FDCF)以及两点虚交卵型曲线的设计与敷设(LQX/LQXF)。

３.该程序利用模拟菜单操作，各个程序既可单独使用，又可联合使用。

程序必须全部输入完才能正常运行（特殊平曲线除外）。

４.程序使用技巧：运行时按照提示输入数据即可得到结果：①单交点平曲线半径可根据控制较严的一项进行选择：外距控制按１(E)、切线长控制按２(T)、曲线长控制按５(L)；结果不满意可按AC键退出程序，重新计算。

②虚交点的平曲线半径选择，先运行相应程序，拟放曲中桩号（QZ桩号），按AC键退出程序，根据拟放的曲中桩(QZ)位置需向外或者向内偏移的距离（例如：１.５米），再运行外距控制程序（Ｅ），需向外偏移时Ｅ值输入Ｅ－偏移距离（例如：Ｅ－１.５），向内偏移时输入Ｅ＋偏移距离（例如：Ｅ＋１.５），即可得所求半径。

③运行敷设程序得到中桩坐标，Ｘ值为沿导线上量取的长度，Ｘ前面的交点桩号为量取长度的起点，方向为测量的前进方向，Ｙ值为偏移导线的垂直距离，Ｙ值为正时向内偏移，为负时往外偏移。

④复曲线和卵型曲线须先拟定第一个曲线半径即可。

⑤Ｃ型曲线和Ｓ型曲线可分成两个曲线，分别用外距控制和切线长控制进行计算。

放样程序4800

曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序一、程序功能本程序由一个主程序(TYQXjs)和两个子程——正算子程序(SUB1)、反算子程序( SUB2)序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。

另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲线任意里程中边桩坐标进行正反算。

本程序也可以在CASIO fx-4500P计算器及 CASIO fx-4850P计算器上运行。

二、源程序1.主程序(ZBZFS)"1.SZ => XY"："2.XY => SZ"：N：U：V：O：G：H：P：R：Q：C=1÷P：D=(P-R)÷(2HPR)：E=180÷π：N=1=>{SZ}:W=Abs(S-O)：Prog "QXZS"：≠>{XY}：XY：I=X：J=Y：Prog "QXFS"2. 正算子程序(QXZS)A=0.1739274226：B=0.3260725774：K=0.0694318442：L=0.3300094782：F=1-L：M=1-K：X=U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))：Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))：F=G+QEW(C+WD)+90：X=X+ZcosF：Y=Y+ZsinF3. 反算子程序(QXFS)T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog "SUB1"：L=T+QEW(C+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1E-6=>Goto1：≠>W=W+Z：Goto 0Δ←┘Lbl 1：Z=0：Prog "SUB1"：Z=(J-Y)÷sinF4. 计算调度程序(ZB)S<???=>N=?：U=?：V=?：O=?：G=?：H=?：P=?：R=?：Q=?：Prog "ZBZFS":≠>S<???=>N=?：U=?：V=?：O=?：G=?：H=?：P=?：R=?：Q=?：Prog "ZBZFS":............≠>S<???=>N=?：U=?：V=?：O=?：G=?：H=?：P=?：R=?：Q=?：Prog "ZBZFS":三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。

公路放样程序计算

fx-4800公路超高及加宽计算一、平曲线加宽、超高程序符号A—路肩宽度 B—路面宽度 I0—路肩坡度 I1—路拱坡度IB—超高横坡 IX—路线纵坡，上坡为正，下坡为负 BJ—路面加宽值BJX—X距离处路面加宽值 W—未加宽前路面宽度 WS—待求定的路面加宽值M—加宽缓和段起点桩号 N—加宽缓和段终点桩号 HN—路基内缘与设计高之高差HW—路基外缘与设计高之高差超高及加宽计算⑴.功能及适用范围①.绕中轴旋转的超高及加宽计算。

②.绕中轴旋转的超高及加宽计算。

⑵.有关规定①.当线形设计须采用较长的回旋线时，横坡坡度由2%（或1.5%）过渡到0%路段的超高渐变率不小于1/330。

超高过渡应在回旋线全长范围内进行。

当超高渐变率太小时，超高的过渡可设在回旋线的某一区段范围之内。

②.路肩横坡：A、直线路段的路肩横坡可与行车道横坡相同。

B、曲线段的路肩横坡：当硬路肩宽度≥2.25米时，曲线外侧路肩横坡的方向及其坡度值见表1。

路肩横坡方向及其坡度值当硬路肩宽度＜2.25米时，曲线外侧路肩横坡的方向及其坡度值与行车道相同。

路肩横坡方向与坡度变化处应设过渡段，过渡段的渐变率规定见表2。

2路肩的横坡改变倾斜方向的旋转轴为路缘带外侧边缘。

⑶.程序清单：①.中轴旋转ZHONGK“I1”Z=0Goto 1：Goto 2Lb1 1I“I0”H“HP”=-（AI/100+BK/200Goto 9Lb1 2C“ZH”：J“IB”：S“LS”X=Abs（Q-C）F=0Goto 3：Goto 4Lb1 3D=-K/100+（K+J）*X/100*XH“HW”=D（A+B/2Goto 9Lb1 4W“BJ”L=2KS/100（（K+J）/100）M=0Goto 5：Goto 6Lb1 5G“BJX”X＜L Goto 7：Goto 8Lb1 6P=X/SG“BJX”=（4P^3-3P^4）X＜L Goto 7：Goto 8Lb1 7H“HN”=-（A+B/2+G）Goto 9Lb1 8H“HN”=-（A+B/2+G）Lb1 9符号意义操作符号及意义表3HP—直线、ZH（HZ）、ZY（YZ）点路基边缘与设计高之高差。

卡西欧4800道路测量程序

各位同行,本人领悟yshf的程序后,进行了以下改编,达到以下目标:1.加编数据库,计算中不必逐项输入"线元要素",提高运算速度，避免现场忙中出错2.计算直观,人性化3.正算直接输入里程和边距,反算输入近似里程便可4.增加了“计算点与测站点”的距离和方位角计算语句，方便直接放样5.愿收获与大家共享一.改动后的程序清单:1.主程序(TYQXJS)"1.SZ => XY"："2.XY => SZ"：U"X0"：V"Y0"：O"S0"：G"F0"：H"LS"：P"R0"：R"RN"：Q：D=(P-R)÷(2HPR)：N=1=>Goto 1：≠>Goto 2Δ←┘Lbl 1：{Z}：Z：W=Abs(S-O)：Prog "SUB1"：X"XS"=X◢Y"YS"=Y◢F"FS"=F-90◢C“XC”：E“YC”：I=0：J=0：Pol（X-C，Y-E）：I“I=” ◢J∠0＝＞J“J=”+360◢≠＞J“J=” ◢ΔProg"SJK"←┘Lbl 2：{XY}：XY：I=X：J=Y：Prog "SUB2"：S"S"=O+W◢Z"Z"=Z◢Prog"SJK"2. 正算子程序(SUB1) A=0.1739274226：B=0.3260725774：K=0.0694318442：L=0.3300094782：F=1-L：M=1-K：X=U+W(Acos(G+57.2958QKW(1/P+KWD))+Bcos(G+57.2958QLW(1/P+LWD))+Bcos(G+ 57.2958QFW(1/P+FWD))+Acos(G+57.2958QMW(1/P+MWD)))：Y=V+W(Asin(G+57.2958QKW(1/P+KWD))+Bsin(G+57.2958QLW(1/P+LWD))+Bsin(G+57.2958QFW(1/P+FWD))+Asin(G+57.2958QMW(1/ P+MWD)))：F=G+57.2958QW(1/P+WD)+90：X=X+ZcosF：Y=Y+ZsinF3. 反算子程序(SUB2)T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog "SUB1"：L=T+Q57.2958W(1/P+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1E-6=>Goto1：≠>W=W+Z：Goto 0Δ←┘Lbl 1：Z=0：Prog "SUB1"：Z=(J-Y)÷sinF二.增设数据库程序（ＳＪＫ）Lbo4：｛S｝：S∠下一线元起点里程≡＞O=本线元起点里程：U=本线元起点X：V=本线元起点Y：G=本线元起算方位角：H=本线元长度：P=起点曲率半径：R=终点曲率半径：Q=0或1、-1：Prog“TYQXJS”：Goto4Δ←┘S∠下一线元起点里程=＞O=。