fx4800P计算器里的锥坡放样计算程序

FX-4800P计算器在测量放样中的应用

FX-4800P计算器在测量放样中的应用摘要:本文介绍了CASIO FX-4800P计算器在测量放样中的应用.关键词: 对称、不对称曲线,已知坐标、反算对应中桩里程、坐标、边距，起坡线、开挖线放样。

一、概述测量放样工作是工程建设中的一项重要工作。

哪里有建设工程施工，哪里就必须有测量人员去进行测量放样工作，任何工程如果没有测量人员首先在现场放样，那么这项工程其他工序是很难开展工作的。

测量放样工作好比建设者的眼睛，给他们指明了工作的目标，因此在工程建设中的重要性是不可忽视的。

放样工作及时性牵涉到工程的进展，如有延误，就会使施工计划受到影响，工程的质量要求测量放样点线的正确性达到百分之一百的保证率。

在这种情况下，为了使测量放样人员更好更快做好放样工作，随着可编程计算器（FX-4800P）在测量放样中的应用。

我们根据放样的内容，利用FX-4800P可编程功能适时计算出各放样内容点的坐标，特别是公路的缓和曲线，起坡线、开挖线，反算中桩里程、坐标、边距放样，在外面施工放样中用FX-4800P编程实用率很高。

二、对称、不对称曲线计算程序在各类建筑工程中，常常会遇到设计和各种曲线形建筑物，要求在现场进行测量放样，尤其在道路的施工中，频繁出现各种曲线，担任放样的工作人员必须掌握各类曲线的计算，能采用相应的测量放样方法，特别高速公路和立交桥匝道各种曲线特别多，这个程序就可以满足这种放样的要求。

Lb1 0:{DEG}:ABCDEFG:Lb1 1:{H}:Q=Abs(H-F:I=Q(E-D)÷Abs(G-F:R=45QI÷32л:Z=45QD÷2л:U=C+64R+8Z◢X=C+R+Z:Y=C+9R+3Z:L=C+25R+5Z:T=C+49R+7Z:K=C+4R+2Z:O=C+16R+4Z: P=C+36R+6Z:M=A+Q(cosC+4(cosX+cosY+cosL+cosT)+2(cosK+cosO+cosP)+cos U)÷24:N=B+Q(sinC+4(sinX+ sinY+ sinL+ sinT)+2( sinK+ sinO+ sinP)+ sinU)÷24:Lb1 2:{S}:X=M-SsinU◢Y=N+ScosU◢S≠0 =>Goto 2 Lb1 3:{PLK}:PLK:M=X+LcosU÷sinP+Kcos(U+P)÷sinP◢Z=Y+LsinU÷sinP+Ksin(U+P)÷sinP◢L≠0 =>Goto 3 K≠0=>Goto 3H≠G =>Goto 1 A=X:B=Y:F=G:C=U:Goto 01、字符说明：A、B为起点x、y坐标；C为起点方位角；D、E为起、终点曲率1/R(左偏角输入“－”，右偏角输入“+”值)；F、G为起、终点里程桩号；H为待求桩号；S为待求点距中桩边距(左－、右+、中0)；P桥墩轴线(从左右)与中桩切线方向的夹角；L 为桥涵上各点至桥中轴线的垂直距离（前+、后－）；K为桥涵上各点至中桩切线方向的垂直距离（左－、右+）；U为待求点的计算切线方位角(U0时U=U－360)；X、Y为各待求点计算坐标；M、Z为桥涵上各待求点计算坐标；2、文字说明：①、只可直线、缓和曲线、圆曲线、卵型曲线分线段依次计算，至本段终点后自动进入下段计算，然后输入下一段对应曲率；②、求桥涵时(弯桥直做)先计算全桥的中心桩号坐标,后输入P、L、K值；③、求桥涵时(弯桥弯做)计算每一墩号中桩坐标,后输入P、L、K值；④、将L、K值输0即可退出桥涵状态返回路基放样状态(P不可为0)；3、曲率说明：①、直线段D=0，E=0；②、独立圆曲线段D=E=1/R(Ls1=Ls2=0)；③、对称曲线ZH~HY段D=0,E=1/R;HY~YH段D=E=1/R;YH~HZ段D=1/R,E=0(Ls1=Ls2≠0)；④、不对称曲线【两段圆曲线共用缓和曲线】ZH~HY段D=0,E=1/R1;HY~YH段D=1/R1,E=1/R2;HY~YH段D=E=1/R2；(Ls1≠Ls2≠0)⑤、不对称(卵型)曲线【两段圆曲线共用缓和点】ZH~HY段D=0,E=1/R1;HY~YH段D=1/R1,E=1/R2;YH~YH段D=E=1/R2；(Ls1≠0, Ls2=0)三、起坡线、开挖线放样计算程序在公路开工前，测量人员须先进行测量放出起坡线和开挖边线，由于施工现场是多变的，测量工作人员必须配合开挖工作人员的现场开挖，随时测出开挖边坡线，这个程序就能很好地完成这些工作须要。

锥坡护坡放样计算程序

锥坡护坡放样计算程序锥坡护坡放样计算程序1功能及适用范围锥坡尺寸及放样计算2使用说明（1）桥涵与路线斜交，洞口正做时，洞口端墙做成斜破或台阶。

低锥坡高度常取与洞口桥（涵）顶高度等高。

（2）当路线中线的垂直线与桥（涵）中心线的夹角较大时，以采用八字墙为宜。

3、程序清单ZHUI（385字节）G“H0”A“A”=MG◢B“B”=NG◢Z=0=>Goto1：≠>Goto2Lbi 1D“D”=T√（1+Mx2）/M◢F“F”=T√（1+Mx2）◢C“C”=T√（1+Nx2）/N◢E“E”=T√（1+Nx2）◢Q“M1”：J”N1”A“A1”=A+Q（H-G）◢B“B1”=B+J（H-G）◢F“F2”=T√（1+Qx2）◢E“E2”=T√（1+Jx2）◢L“L0”：V”H2”R“H1”=（MV+（L+NV）sinW）/（M-NsinW）◢I“I”= sinW/M◢P“HD”=（NR+L+NV）sinW）/M◢P“G1”=RM/ cosW◢P“G2”=VM/ cosW◢Goto 5Lbi 2K=0=>Goto3：≠>Goto4Lbi 3X“XN”=B√（Ax2-Yx2）/A◢X“XW”=B-X◢Goto 5Lbi 4S“AX”=A/ cosW◢X“XN”=B√（Sx2-Yx2）/S◢X“XW”=B-X◢Lbi 5符号意义：Z=0---------锥坡尺寸计算；Z≠0，K=0------正交锥坡放样计算；Z≠0，K≠0--------斜交锥坡放样计算；A---------长半轴；B--------短半轴；HD------斜交正做桥涵端墙两锥坡的高差；H0-------上段锥坡高度；YN------长半轴内坐标；XN------短半轴内坐标；XW------长半轴外坐标；AX------长半轴斜长度。

已投稿到：排行榜阅读(219)|评论(0)|收藏(0)|打印|举报前一篇：4800(缓和曲线)。

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点桩号。

CASIOf4800可编程计算器曲线放样程序

曲线计算公式、程序及算例广西建设职业技术学院测量教研室李向民2007年4月一、圆曲线中桩与边桩坐标计算公式1．根据已知的中线偏角、半径和交点桩号计算切线长T 、曲线长L 及外距E ，以及曲线主点的桩号切线长 2tan αR T = 曲线长180παR L =外距 )12(sec2cos-=-=ααR R R E切曲差（超距） D = 2T －L 式中α以度为单位。

交点的桩号已由中线丈量得到，根据交点的桩号和曲线测设元素，可计算出各主点的桩号，ZY 桩号 =JD 桩号－TQZ 桩号 = ZY 桩号＋2LYZ 桩号 = QZ 桩号＋2L为了避免计算中的错误，可用下式进行计算检核：JD 桩号 = YZ 桩号－T ＋D2．根据已知的两个交点的坐标，计算曲线主点的坐标和细部桩点的坐标（1）计算直圆点（ZY ）坐标根据JD 1和JD 2的坐标(x 1 , y 1)、(x 2 , y 2)，用坐标反算公式计算第一条切线的方位角α2-1和ZY 点坐标（x ZY , y ZY ），212112arctanx x y y --=-α122122sin cos --+=+=ααT y y T x x ZY ZY（2）计算圆心坐标因ZY 点至圆心方向与切线方向垂直，其方位角为αZY-O =α2-1 ± 90°（左偏角时用“+”，右偏角时用“－”）则圆心坐标（x o , y o ）为ozy ZY o o zy ZY o R y y R x x --+=+=ααsin cos（3）计算圆心至各细部点（和主点）的方位角设ZY 点至曲线上某细部里程桩点的弧长为l i ，其所对应的圆心角i β按下式计算得到：πβ180⋅=R l i i 则圆心至各细部点的方位角αi 为αi =（αZY-O ＋180°）±i β （左偏角时用“－”，右偏角时用“+”）（4）计算各细部点（和主点）的坐标根据圆心至细部点的方位角和半径，可计算细部点坐标io i i o i R y y R x x ααsin cos +=+=（5）计算各桩点边桩坐标设左边桩与中桩之间的垂直距离为D 左，右边桩与中桩之间的垂直距离为D 右，则左边桩的坐标为：io i i o i D R y y D R x x ααsin )(cos )(左左左左±+=±+=（左偏角时用“－”，右偏角时用“+”）右边桩的坐标为：io i i o i D R y y D R x x ααsin )(cos )(右右右右±+=±+=（左偏角时用“+”，右偏角时用“－”）注：可用全站仪按极坐标法测设线路主点和细部中桩，以及边桩；二、圆曲线计算程序（CASIO fx-4800P ）“YQS ”文件（主程序，计算圆曲线、直线的中桩坐标、边桩坐标）{}{}{}[][][][][][][][]{}{}2▲)90sin()(""▲)90cos()("":1:10:)sin )((:)cos )((:,211▲sin )(""▲cos )("")(180)(,11180sin cos 90sin cos 12""4:212""3:""2:180""1:)2tan(:,31:3:20""Pr :"":"":"":"",,,,2211Goto H H C B AbsH N Y V C B AbsH M X U C C H B K I P N B K I D M HK H K Lb Goto H H Q HZ R N Y V Q HZ R M X U OZ C Q R L O T I K L H K Lb J C J R F N J R E M Z B J B T P F B T D E Z Z YZ Z Z Z QZ Z T I ZY Z RA L Z A R T ZA Z A Lb Goto Goto R R OB og I Y P X D Y Y X X I P D Y X -=++=++=-=≠⇒=⇒≥-+=-+=-=++=++=⨯+=÷=--=+=+=+=⨯-=+=+=+=÷+=-=÷=÷=≠⇒⇒=ππ“OB ”文件（子程序，计算两点间的坐标方位角）BB Lb Goto W B W B P Y Lb Goto W B Goto D X D X P Y W Lb Goto B B P Y Lb Goto Goto D X =+=≠⇒=⇒>-+=≠⇒⇒>--÷-==≠⇒=⇒>-≠⇒⇒=----:414:360tan :tan 0:314:180tan :30:)()(:214:270:900:11:2:10111注释:R 为圆曲线半径（当算直线时输入0） I 为2JD 桩号1X ,1Y 是1JD 的XY 坐标2X ,2Y 是2JD 的XY 坐标A 为偏角Z ：右偏角时Z=1，左偏角Z=－1 K 为待放点桩号H 为边桩距：当为路线左边桩时符号为正，右边桩时符号为负，求中桩时输入0。

公路放样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我已经用过了，没发现什么问题，请大家提意见。

FX4800P测量程序集

CASIO fx 系列编程计算器测量程序集编写: 王劲松第一部分：CASIO fx-4800P 编程计算器测量程序集一．SHI JU CE TU （视距测图）1．用途：该程序用于“经纬仪视距法碎部测量”时，计算测站点至碎部点间的平距及碎部点的高程。

2．程序清单：C “H0”：I ：A “UP ”：B “DOWN ”：V “MIDDLE ”：L ：E=90-L ↙D=100Abs （A-B ）（cosE ）2◢ H=（C+I ）+DtanE-V3．程序说明：H0——测站点高程；I ——测站仪器高；UP ——塔尺上丝读数；DOWN ——塔尺下丝读数；MIDDLE ——塔尺中丝读数；L ——经纬仪竖盘读数盘左读数；D ——测站点至碎部点间平距；H ——碎部点的高程。

5．该程序若在fx-3950中的程序清单为：？→M ：？→A ：？→B ：？→C ：？→D ：100（A-B ）（cos(90-D)）2→X ◢ M+Xtan(90-D)-C →Y说明：M ——将测站高程H0+仪器高I ；A ——上丝读数；B ——下丝读数；C ——中丝读数；D ——竖盘盘左读数L 。

X ——测站点至碎部点的平距；Y ——碎部点的高程。

二．FAN SUAN （反算）1．用途：该程序是“坐标反算公式”程序，用于根据两点1、2的平面坐标（X1，Y1）、（X2，Y2），计算两点间的距离D12及坐标方位角A12。

2．程序清单：G “X1”：B “Y1”：C “X2”：H “Y2”：E=C-G ：F=H-B ↙Pol （E ，F ）：I “D12”◢ ∆+=⇒<3600J J J J “A12”3．程序说明：X1，Y1——点1的平面坐标；X2，Y2——点2的平面坐标； D12——点1至点2间平距；A12——点1至点2坐标方位角。

由于编程时用到了极坐标函数POL （），故在程序运行中，会出现I=？XXX （数字）及J=？XXX （数字）这是函数POL计算出的两个量，不能改变，直接回车默认即可。

CASIO fx-4800P程序

1、方位角计算程序:【FWJ】 (2)2、转换坐标与高程程序:【0】 (2)3、坐标计算主程序:【XY】 (2)4、高程计算主程序:【H】 (5)5、坐标计算子程序:【XY-1】 (5)6、高程计算子程序:【H-1】 (6)7、水平距离归算到高斯平面计算程序:【JLGF】 (8)8、任意多边形面积计算程序:【MJ】 (8)9、四边形平差计算程序:【DDSBX】 (8)10、坐标换带计算程序:【ZBFD】 (11)11、两直线交点计算程序:【L-XY-L】 (12)12、高斯投影坐标计算程序:【GSBL-XY】 (12)13、竖曲线计算程序:【SQX】 (13)14、复曲线计算程序:【FQX】 (13)15、匝道计算子程序:【FQX】 (14)1、方位角计算程序:【FWJ】置镜点A＂X【Z】＂:B＂Y【Z】＂:后视点C＂X【H】＂:D＂Y【H】＂:前视点E＂X【Q】＂:F＂Y【Q】＂↵M=C-A:N=D-B:V=E-A:W=F-B:L=√（M2+N2）:S=√（V2+W2）:I=AbsTan-1（N÷M）:Q= AbsTan-1（W÷V）↵M＞0＝＞Goto 1:≠＝＞Goto 2↵Lbl 1↵N＞0＝＞O=I:Goto 3:≠＝＞O=360-I:Goto 3↵Lbl 2↵N＞0＝＞O=180-I:Goto 3:≠＝＞O=180+I:Goto 3↵Lbl 3↵V＞0＝＞Goto 4:≠＝＞Goto 5↵Lbl 4↵W＞0＝＞H=Q:Goto 6:≠＝＞H=360-Q:Goto 6↵Lbl 5↵W＞0＝＞H=180-Q:Goto 6:≠＝＞H=180+Q:Goto 6↵Lbl 6↵O＞H＝＞X=O-H:Goto 9:≠＝＞X=O-H+360:Goto 9↵Lbl 9↵＂F【Z-H】=＂:O ◢＂L【Z-H】=＂:L ◢＂F【Z-Q】=＂:H ◢＂L【Z-Q】=＂:S ◢＂f【H-Z-Q】=＂:360-X（左角）◢＂f【Q-Z-H】=＂: X（右角）计算示例:2、转换坐标与高程程序:【0】计算选择:1.坐标计算;2.高程计算。

卡西欧Casiofx-4800P道路中边桩坐标计算程序

卡西欧Casiofx-4800P道路中边桩坐标计算程序程序清单如下：Casio fx-4800P道路中边桩坐标计算程序程序目的：依平曲线要素计算直线、圆曲线、缓和曲线的任意中桩、左、右桩坐标。

程序说明：K0：起始桩号X0：起始X坐标Y0：起始Y坐标ALF：起始方位角R：半径LS：缓和曲线长N：曲线左转N=1，右转N=2K：待求桩号LL、LR：左、右桩距离Q：左、右桩与中线斜交角求得XZ、YZ、XL、YL、XR、YR分别为中桩、左、右桩坐标。

一、直线段文件名：ZX (COMP)程式：L”K0”:O”X0”:P”Y0”:W”ALF”:Lbl 0:{K}:X”XZ”=O+(K-L)cosW◢Y”YZ”=P+(K-L)sinW◢{B}:S”XL”=X-B”LL”cos(W+Q) ◢T”YL”=Y-Bsin(W+Q) ◢{C}:U”XR”=X+C”LR”cos(W+Q) ◢V”YR”=Y+Csin(W+Q) ◢Goto 0注：在程序执行过程中，赋给的要素变数的值被固定不变，可对变数（K、LL、LR）赋予不同值，迅速求得所需坐标。

二、圆曲线段文件名：YQX (COMP)程式：L”K0”:O”X0”:P”Y0”:W”ALF”: Lbl 1:{K}:J=(-1)^N (K-L)÷R×180÷π:D=2Rsin((-1)^N J÷2):X”XZ”=O+Dcos(W+J÷2) ◢Y”YZ”=P+Dsin(W+J÷2) ◢{B}:S”XL”=X-B”LL”cos(W+J+Q) ◢T”YL”=Y-Bsin(W+J+Q) ◢{C}:U”XR”=X+C”LR”cos(W+J+Q) ◢V”YR”=Y+Csin(W+J+Q) ◢Goto 1注：若没有直接HY点方位角，则ALFHY=ALFZH±Ls/2/R×180/π,(左转-，右转+)。

三、缓和曲线文件名：HHQX (COMP)程式：L”K0”:O”X0”:P”Y0”:W”ALF”: M”LS”:Lbl 3:{K}:I=(-1)^N×(K-L)^2÷M÷R÷6×180÷π:D=(K-L)-(K-L)^5÷90÷(RM)^2:X”XZ”=O+Dcos(W+I)◢Y”YZ”=P+Dsin(W+I) ◢{B}:S”XL”=X-B”LL”cos(W+3I+Q) ◢T”YL”=Y-Bsin(W+3I+Q) ◢{C}:U”XR”=X+C”LR”cos(W+3I+Q) ◢V”YR”=Y+Csin(W+3I+Q) ◢Goto 3注：1、坐标计算方法是根据偏角法原理；2、缓和曲线（ZH~HY或YH~HZ）以ZH（或HZ）为起始点；3、平曲线左转（ZH~HY段N=1，YH~HZ段N=2），曲线右转（ZH~HY段N=2，YH~HZ段N=1）。

CASIOfx-4800P 路线计算(偏角法对称型)

CASIO fx-4800P 路线放样计算程序(偏角法对称型计算)程序说明：1、本程序是计算对称型圆曲线中、边桩坐标。

2、程序所占内存2400步左右。

3、本程序单个交点输入。

4、程序运行计算时有五大桩号提示。

L1 DegL2 Defm 19L3 Fixm 程序菜单1-设站，2-数据输入，3-路线坐标计算，4-设新点L4 Lbl 0L5 {A}:A”SZ-1,INPUT.SJ-2,LXFY-3,XD-4”L6 A=1=> Goto 1L7 A=2=> Goto 2L8 A=3=> Goto 3L9 A=4=> Goto BL10 Goto 0 输入站点与后视点坐标L11 Lbl 1L12 {BCDE}:B”ZDX”:C”ZDY”:D”HDX”:E:”HDY”L13 Pol(D-B,E-C)L14 Z[1]”HD”=I◢L15 J>0=>Z[2]”HA”=J◢≠>Z[2]”HA”=360+J◢L13 Goto 0 交点要素数据输入L14 Lbl 2L15 {FGHIKLMNRP}:F”JD1X”:G”JD2Y”:H”JDX”:K”JDY”:L”JD2X”:M”JD2Y”:N”JDLC”:R”JDR”:P”JDLS1”L16 Pol(H-F,K-G)L17 J>0=>Z[3]”1=>0”=J◢≠>Z[3]”1=>0”=360+J◢L18 Pol(L-H,M-K)L19 J>0=>Z[4]”0=>2”=J◢≠>Z[4]”0=>2”=360+J◢Z[3]+180>360=>Z[18]=Z[3]-180 计算交点转角和判断是左角还是右角Z[3]+180<360=>Z[18]=Z[3]+180Z[18]<Z[4]=>Z[19]=Abs(Z[18]+360-Z[4]])Z[18]>Z[4]=>Z[19]=Abs(Z[18]-Z[4])Z[19]>180=>U=1:O=Z[19]-180Z[19]<180=>U=-1:O=180-Z[19]L20 Z[5]=90P/R/πL21 Z[6]=(R+P^2/24/R)Tan(O/2)+(P/2-P^3/240/R^2) 切线长L22 Z[7]= πON/180+P 曲线长L23 Z[8]= πR(O-2Z[5])/180 圆曲线长L24 Z[13]=N-Z[6] ZH点L25 Z[14]=Z[13]+P HY点L26 Z[15]=Z[14]+Z[8]/2 QZ点L27 Z[16]=Z[14]+Z[8] YH点L28 Z[17]=Z[16]+P HZ点L29 Goto 0 路线计算输入里程桩号L30 Lbl 3L31 {S}:S”INPUT LC”L32 S<Z[13]+10=>S>Z[13]-10=>Goto C ZH点L33 P≠0=>S<Z[14]+10=>S>Z[14]-10=>Goto D YH点L34 S<Z[15]+10=>S>Z[15]-10=>Goto E QZ点L35 P≠0=>S<Z[16]+10=>S>Z[16]-10=>Goto F HY点L36 S<Z[17]+10=>S>Z[17]-10=>Goto G HZ点L37 S>Z[13]=>S≤Z[14]=>T=S-Z[13]:Goto 4 ZH点至HY点段L38 S>Z[14]=>S<Z[16]=>T=S-Z[14]:Goto 6 HY点至YH点段L39 S≥Z[16]=>S<Z[17]=>T=Z[17]-S: Goto 4 YH点至ZH点段L40 S≤Z[13]=>Goto 8 ZH点前直线段L41 S≥Z[17]=>Goto 9 HZ点后直线段L42 Goto 0 计算缓和段长偏角L43 Lbl 4L44 P≠0=>Z[9]=30T^2/π/R/PL45 P≠0=>Z[10]=√((T-T^5/(40R^2P^2))^2+(T^3/6RP)^2)L46 P≠0=>S≥Z[13]=>S≤Z[14]=>Goto 5 ZH点至HY点段L47 P≠0=>S≥Z[16]=>S≤Z[17]=>Goto 7 YH点至HZ点段L48 S>Z[14]=>S<Z[16]=>T=S-Z[14]:Goto 6 HY点至YH点段L49 S≤Z[13]=>Goto 8L50 S≥Z[17]=>Goto 9L48 Goto 0 计算ZH点至YH点段中线坐标L51 Lbl 5L52 U=1=>V=Z[3]-Z[9]:Z[11]”H1”=Z[3]-3Z[9] ◢U=-1=>V=Z[3]+Z[9]:Z[11]”H1”=Z[3]+3Z[9] ◢L53 Rec(Z[10],V)L54 X=H+Z[6]COS(180+Z[3])+IL55 Y=K+Z[6]SIN(180+Z[3])+JL56 Goto A 计算圆曲线段中线坐标L57 Lbl 6L58 Z[9]=90T/π/RL59 U=1=>V=Z[3]-Z[5]-Z[9]:Z[12]=Z[3]-Z[5]/3:Z[11]”YQ”=Z[3]-Z[5]-2Z[9] ◢U=-1=>V=Z[3]+Z[5]+Z[9]:Z[12]=Z[3]+Z[5]/3:Z[11]”YQ”=Z[3]+Z[5]+2Z[9] ◢L60 Rec(ABS(2RSinZ[9]),V)L61 X=H+Z[6]Cos(180+Z[3])+ √((P-P^3/40/R^2)^2+(P^2/6/R)^2)CosZ[12]+IL62 Y=K+Z[6]Sin(180+Z[3])+ √((P-P^3/40/R^2)^2+(P^2/6/R)^2)SinZ[12]+JL63 Goto A 计算YH点至HZ点段坐标L64 Lbl 7L65 U=1=>V=Z[4]+180+Z[9]:Z[11]”H2”=Z[4]+3Z[9] ◢U=-1=>V=Z[4]+180-Z[9]:Z[11]”H2”=Z[4]-3Z[9] ◢L66 Rec(Z[10],V)L67 X=H+Z[6]CosZ[4]+IL68 Y=K+Z[6]SinZ[4]+JL69 Goto A 计算ZH点前直线坐标L70 Lbl 8L71 Z[11]=Z[3]L72 Rec(N-S,Z[3])L73 X=H-IL74 Y=K-JL75 Goto A 计算HZ点后直线坐标L76 Lbl 9L77 Z[11]=Z[4]L78 Rec(S-N+2Z[6]-Z[7],Z[4])L79 X=H+IL80 Y=K+jL81 Goto A 计算边桩坐标与站点到计算点的平距和方位角L82 Lbl AL83 {W}:W”INPUT FX”L84 X”X”=X+WCos(90+Z[11]) ◢L85 Y”Y”=Y+WSin(90+Z[11]) ◢L86 Pol(X-B,Y-C)L87 I”HD”=I◢L88 J>0=>J”HA”=J◢≠>J”HA”=360+J◢L89 {A}:A”Cont.FY-3,EXT-4”L90 A=3=>Goto 3L91 A=4=>Goto 0 计算新点的坐标L92 Lbl bL93 {O}:O”XD.HD”:{Z}:Z”XD.HA”L94 Rec(O,Z)L95 X”XP”=B+I◢L96 Y”YP”=C+J◢L97 Goto 0 ZH点L98 Lbl CL99 P=0=>Z[13]”ZYD”=Z[13] ◢P≠0=>Z[13]”ZHD”=Z[13] ◢L100 {A}:A”WuDZ-1,NO-3”L101 A=1=>S=Z[13]: T=S-Z[13]:Goto 4L102 A=3⇒S<Z[13]⇒Goto 8≠> T=S-Z[13]:Goto 4L103 Lbl D YH点L104 Z[14]”HYD”=Z[14] ◢L105 {A}:A”WuDZ-1,NO-3”L106 A=1=>S=Z[14]:T=S-Z[13]:Goto 4L107 A=3=> T=S-Z[13]:Goto 4L108 Lbl E QZ点L109 Z[15]”QZD”=Z[15] ◢L110 {A}:A”WuDZ-1,NO-3”L111 A=1=>S=Z[15]:T=S-Z[14]:Goto 6L112 A=3=> T=S-Z[14]:Goto 6L113 Lbl F YH点L114 Z[16]”YHD”=Z[16] ◢L115 {A}:A”WuDZ-1,NO-3”L116 A=1=>S=Z[16]:T=Z[17]-S:Goto 4L117 A=3=> T=Z[17]-S:Goto 4L118 Lbl G HZ点L119 P=0=>Z[17]”YZD”=Z[17] ◢P≠0=>Z[17]”HZD”=Z[17] ◢L120 {A}:A”WuDZ-1,NO-3”L121 A=1=>S=Z[17]:T=Z[17]-S:Goto 4L122 A=3=>T=Z[17]-S:Goto 4。

CASIO_fx-4800P常用测量程序

一、QXFY 辛甫森公式放样程序1. U“X0”：V“Y0”2. A“XA”：B“Y A”：C“CA”：D“1÷RA”：E“1÷RB”：F“KA”：G“KB”3. Lb1 1：{HLR}：H“KI”：L“JJ”：R“DZ+Y-”4. H>G Goto 15. H<F Goto 16. P=(E-D) ÷Abs(G-F)：Q=Abs(H –F)：Z=P×Q：T=D+Z7. W=C+（Z+2D）Q×90÷π8. M=C+(Z÷4+2D)Q×22.5÷π：N=C+（3Z÷4+2D）Q×67.5÷π：K=C+(Z÷2+2D)Q×45÷π9. X=A+Q（cosC+4(cosM+cosN)+2cosK+cosW）÷12+Rcos(W-L)10. Y=B+Q(sinC+4(sinM+sinN)+2sinK+sinW) ÷12+ Rsin (W-L)11. Pol((X-U)，（Y-V）)J≤0J=J+360J“FWJ”12. I“S”13. Goto 1程序显示说明：须输入参数：X0:置镜点X (对应变量U)Y0:置镜点Y (对应变量V)XA:曲线起算点X (对应变量A)Y A:曲线起算点Y (对应变量B)CA：曲线起算点切线方位角(对应变量C) 1÷RA：1÷半径，即起算点曲率，右偏为正左偏为负(对应变量D)1÷RB：1÷半径，即曲终点曲率，右偏为正左偏为负(对应变量E)KA:起算点里程(对应变量F)KB:曲终点里程(对应变量G)KI:待求点里程(对应变量H)JJ:夹角(与前进方向切线方位角夹角，向右为正)(对应变量L)D“Z+Y－”：偏距，左正右负(对应变量R)计算结果: W: 待求点切线方位角(对应变量W) X:计算点x (对应变量X)Y:计算点y (对应变量Y)FWJ:放样方位角(对应变量J)S:放样距离(对应变量I)K BX 0Y 0本程序依据复化辛甫森公式计算原理改进而成，特点是把曲线按曲率变化点分成若干计算单元单独计算，不论直线（曲率为0）、圆曲线（曲率为1/R ）、卵形曲线，只要按曲率变化点分解弄清变化点曲率半径，右偏左偏曲线由曲率的正负号分别，既可求得该计算单元内任意里程中桩及斜交或正交的边桩。

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计算器大地坐标放样程序

计算点K
LX
置仪点
置方位角预
后视点
eh曲线外距p输入1时计算测点的左边点输入0时计算中点
主程序 WTO
(卡西欧 4800P 计算器用坐标放样程序)
L“L1”E“L2”A“ZH”：Z：F：U“JX”V“JY”M“X0”N“Y0”：J=180/πR：B“HZ”=A+Z/J+L/2+E/2▲ W“-1，1”：Prog“K”↙ LIb0：｛K｝：｛H｝：｛P｝：K≤A ＞Goto1△K≤A+L ＞Goto2△K＜B-E ＞Goto3△ K≤B ＞Goto4△Goto5△↙ LIb1：S=K-A：X=U-TcosF+ScosF+Hcos（F+90P）▲Y=V-TsinF+SsinF+Hsin（F+90P）▲Goto6↙ LIb2：S=K-A：Prog“A”：Goto6↙ LIb3：S=K-A-L：Prog“B”：Goto6↙ LIb4：S=B-K：Prog“C”：Goto6↙ LIb5：S=K-B：X=U+(I+S)cos(F+WZ)+Hcos(F+WZ+90P)▲ Y=V+(I+S)sin(F+WZ)+Hsin(F+WZ+90P)▲Goto6↙ LIb6：X≠M ＞Prog“G”↙ Goto0 子程序G：
L1－第一缓和曲线总长；L2－第二缓和曲线总长；Z－曲线总转角；F－ZH点至JD点的方位角：
-1 2 缓点桩号；HZ－缓直点桩号；JX－交点的横坐标(N)；JY－交点的纵坐标(E)； X0－置仪点的横坐标(N)；ZY－置仪点的纵坐标(E)；R－曲线半径：HZ－缓直点桩号； “-1，1?"—曲线左转时输如“-1”，曲线右转时输入“+1”；Eh——曲线外距 K－测点的桩号；H－测点边桩与中线之间的距离； P－输入“-1”时计算测点的左边点，输入“0”时计算中点；输入“+1”时计算右边点 X－测点的点的横坐标(N)；Y－测点的纵坐标(E)； LX－测距；C－置仪点与测点间的方位角(即拨角)。注：应用此程序时须预置置仪点至后视点间的方位角。

卡西欧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:下曲线方位角。

CASIO-fx4800P型计算器连续计算线路高程、坐标

CASIO-fx4800P型计算器连续计算线路高程、坐标及放样程序【简述】为了适应现场快速、准确、灵活的放样要求，作者根据线路施工测量特点，运用计算器的编程功能，使整条线路的施工测量计算数据能连续快速的计算，只要把整条线路各个交点处的计算要素输入子程序中，你便拥有整条线路的“数据库”。

在忙碌的施工现场，你不必携带大量的施工图和资料来查找平面、纵断面的设计要素，更不必担心设计要素的输入错误，从而使得计算和放样轻松、方便、快捷。

【计算范围】坐标部分包括：各等级公路和高速路的直线段、圆曲线段、加对称缓和曲线的圆曲线段中、边桩坐标及放样计算。

高程部分包括：各等级公路和高速路的直线段、竖曲线段、缓和超高段中、边桩高程及放样计算。

一、坐标及放样程序【起算数据】：交点里程桩号、交点坐标、前直线方位角、交点转角、圆曲线半径、缓和曲线长（一）主程序：XYFY2Fix4M"Xc=":P"Yc=" ＇如须放样输入测站坐标值,否则输入0Lbl0{HS}:H"K0+0":S"B=(-B,0,B)":Prog"A" ＇变量输入和声明S=0=>E=0:≠>E=90 ＇求边桩坐标时的偏角值判定L=πRN÷180+V ＇含有缓曲线的曲线总长T=(V÷2-V^3÷(240R^2))+(R+(V^2÷(24R)-V^4÷(2688R^3)))tan(N÷2)  ＇切线长A=Q-T:B=A+V:D=A+L:C=D-V ＇A-ZH(ZY)点桩号,B-HY点桩号,C-YH点桩号,D-HZ(YZ)点桩号Rec(T,F+180) ＇求ZH(ZY)点的坐标增量Z[1]=W+I:Z[2]=K+J ＇ZH(ZY)点坐标值Rec(T,F+GN) ＇求HZ(YZ)点的坐标增量Z[3]=W+I:Z[4]=K+J ＇HZ(YZ)点的坐标值Lbl1U=S÷(Abs(S+10E-19)):S=AbsS ＇左右偏角每件判定H<A=>Goto2: ≠> ＇第一直线上坐标计算判定H<B=>Goto3: ≠> ＇第一缓和曲线上坐标计算判定H<C=>Goto4: ≠> ＇净圆曲线上坐标计算判定H<D=>Goto5: ≠> Goto6⊿⊿⊿⊿ ＇第二缓和曲线和第二直线上坐标计算判定Lbl2Rec(Q-H,F+180) ＇第一直线上中桩坐标增量计算X=W+I:Y=K+J ＇中桩坐标值计算Rec(S,F+180-(180-E)U) ＇第一直线上与中桩同一断面的边桩增量计算X=X+I:Y=Y+J ＇边桩坐标值计算S=SU ＇边长条件判定Goto8Lbl3 ＇进入第一缓曲线段计算Z=H-A ＇待求点至ZH点的距离O=90Z^2÷(πRV) ＇所求点缓曲线对应的圆心角X=Z-Z^5÷(40R^2V^2)+Z^9÷(3456R^4V^4) ＇缓曲线上ZH点至待求的支距X坐标Z=Z^3÷(6RV)-Z^7÷(336R^3V^3)+Z^11÷(42240R^5V^5) ＇缓曲线上ZH点至待求点的支距Y坐标Lbl7Rec(X,F)X=Z[1]+I:Y=Z[2]+JRec(Z,F+90G) ＇把中桩支距坐标转换成测量统一坐标X=X+I:Y=Y+JRec(S,F+O G+EU) ＇曲线边桩坐标增量计算X=X+I:Y=Y+J ＇坐标计算结果S=SU ＇边长条件Goto8Lbl4 ＇进入主圆计算部分Z=H-A-V÷2 ＇曲线上待求点到HY点的里程O=180Z÷(Rπ) ＇待求点方位角所对应的圆心角X=Rsin O+(V÷2-V^3÷(240R^2))Z=R(1-cos O)+(V^2÷(24R)-V^4÷(2688R^3)) ＇主圆部分待求点支距坐标XY Goto7Lbl5 ＇进入第二缓和曲线计算Z=D-H ＇曲线上待求点到HZ点的里程O=90Z^2÷(πRV) ＇待求点方位角所对应的圆心角X=Z-Z^5÷(40Z R^2V^2)+^9÷(3456R^4V^4)Z=Z^3÷(6RV)-Z^7÷(336R^3V^3)+Z^11÷(42240R^5V^5) ＇待求点支距坐标XY Rec(X,F+GN+180)X=Z[3]+I:Y=Z[4]+J ＇把中桩支距坐标转换成测量统一坐标Rec(Z,F+GN+180-90G)X=X+I:Y=Y+JRec(S,F+GN+180-O G-(180-E)U) ＇曲线边桩坐标增量计算X=X+I:Y=Y+J ＇坐标计算结果S=SUGoto8Lbl6 ＇进入第二直线段计算部分Rec(H-D+T,F+GN) ＇中桩坐标增量计算X=W+I:Y=K+J ＇中桩坐标计算结果Rec(S,F+GN+EU) ＇边桩坐标增量计算X=X+I:Y=Y+J ＇边桩坐标计算结果S=SUGoto8Lbl8X=X◢ ＇显示坐标计算结果Y=Y◢M≠0=>Goto9: ≠>Goto0 ⊿Lbl9 ＇进入放样部分计算Pol(X-M,Y-P) ＇增量计算J<0=>J=J+360: ≠>J=J ⊿J"A"=Int J+0.01Int(60Frac J)+0.006Frac(60Frac J) ◢ ＇方位角计算结果（此显示值为度分秒格式）I"L"=I◢ ＇极距计算结果Goto0∙(二)子程序:AH≤ZY2(ZH2)=>Q=JD1:W=X1:K=Y1:R=R1:F=F0:N=N1:V=Ls1:G=1(-1):=>H≤ZY3(ZH3)=>Q=JD2:W=X2:K=Y2:R=R2:F=F1:N=N2:V=Ls2:G=1(-1):=>H≤ZY4(ZH4)=>Q=JD3:W=X3:K=Y3:R=R3:F=F2:N=N3:V=Ls3:G=1(-1):=>H≤ZY5(ZH5)=>Q=JD4:W=X4:K=Y4:R=R4:F=F3:N=N4:V=Ls4:G=1(-1):=>……………………………H≤ZY n+1(ZH n+1)=>Q=JD n:W=X n:K=Y n:R=R n:F=F n-1:N=N n:V=Ls n:G=1(-1)注:H—待求点桩号ZY n+1(ZH n+1)—后曲线起点桩号 Q—本曲线交点桩号 W—本曲线交点X坐标K—本曲线交点Y坐标 R—本曲线内圆曲线半径 F—前直线方位角 N—本交点转角V—本曲线内缓和曲线长 G—线路转向符,左转角-1,右转角为+1二、高程及放样程序【起算数据】：变坡点桩号A、变坡点高程B、前后纵坡C D、竖曲半径R、横坡度F、最大超高横坡度G、ZH点桩号、YH点桩号、HZ点桩号、施工层厚度N、视线高W （一）主程序：GCFYW"SXG="：N ＇常量输入（视线高程、施工层厚度）Lbl 1｛LО｝:L"K0+0"：О"B=" :Prog"B" ＇变量输入及声明K=C-D ＇坡度差及竖曲线偏角K>0=>J=-1:≠>J=1⊿ ＇凹凸竖曲线判断条件T=Abs(RK)÷2 ＇竖曲线切线长,如需显示则在后面加上◢H=A-T ＇竖曲线起点ZY桩号,如需显示则在后面加上◢X=A+T ＇竖曲线终点YZ桩号,如需显示则在后面加上◢M=L-A ＇待求点至变坡点的距离L≤H=>P=B+MC-N-W: ≠> ＇前纵坡直线段中桩高程计算L≤A=>P=B+MC+J(T-AbsM)2÷(2R)-N-W: ≠>  ＇前纵坡竖曲线中桩高程计算L≤X=>P=B+MD+J(T-AbsM)2÷(2R)-N-W: ≠> ＇后纵坡竖曲线中桩高程计算L>X=>P=B+MD-N-W⊿⊿⊿⊿⊿ ＇后纵坡直线段中桩高程计算E=0=>Goto 2 ＇直线部分中、边桩计算判断条件≠>L≤E=> Goto 2 ＇直线部分中、边桩计算判断条件≠>L>V=> Goto 2 ＇直线部分中、边桩计算判断条件≠>L>E=> Goto 3 ＇前缓曲超高部分中、边桩计算判断条件≠> L>U=> Goto 4⊿⊿⊿⊿ ＇后缓曲超高部分中、边桩计算判断条件Lbl 2O=0=>Z“H”=AbsP◢＇显示直线部分中、边桩高程计算结果≠>Y“HB”=Abs(P-OF)◢不需放样显示高程,否则显示放样水准尺计数⊿Goto 1Lbl 3S=（L-E）（F+G）÷（V-U）-F  ＇前缓曲线超高横坡度计算S≤F=> Goto 5：≠>S≤G=> Goto 6 ＇超高起点(终点)至零界面、零界面至全超高及全超高≠> Goto 7 ⊿⊿ 部分的计算判断条件Lbl 4S=（V-L）（F+G）÷（V-U）-F  ＇后缓曲线超高横坡度计算S≤F=> Goto 5：≠>S≤G=> Goto 6 ＇超高起点(终点)至超高变坡零界面、零界面至全≠> Goto 7 ⊿⊿ 超高、全超高部分计算判断条件Lbl 5O=0=>Z“H1”=AbsP◢＇超高起点(终点)至超高变坡零界面中、边桩高程≠>Y“H-D1”=Abs(P-OF)◢计算结果显示Q“H-G1”=Abs(P+OS)◢⊿Goto 1Lbl 6O=0=>Z“H2”=AbsP◢＇超高变坡零界面至全超高中、边桩高程≠>Y“H-D2”=Abs(P-OS)◢计算结果显示Q“H-G2”=Abs(P+OS)◢⊿Goto 1Lbl 7O=0=>Z“H3”=AbsP◢＇全超高中、边桩高程计算结果显示≠>Y“H-D3”=Abs(P-OG)◢Q“H-G3”=Abs(P+OG)◢⊿Goto 1∙∙注：W“SXG”-视线高N-施工层厚度L"K0+0"-待求点桩号О"B="-中桩至边桩距离（二）子程序：BL≤ZY2=>A=JD1:B=H1:C=I0:D=I1: R=R1:F=I h:E=ZH1:U=YH1:V=HZ1:G=I max1 :≠>L≤ZY3=>A=JD2:B=H2:C=I1:D=I2: R=R2:F=I h:E=ZH2:U=YH2:V=HZ2:G=I max2 :≠>L≤ZY4=>A=JD3:B=H3:C=I2:D=I3: R=R3:F=I h:E=ZH3:U=YH3:V=HZ3:G=I max3 :≠>L≤ZY4=>A=JD3:B=H3:C=I2:D=I3: R=R3:F=I h:E=ZH3:U=YH3:V=HZ3:G=I max3 :≠> ……………………L≤ZY n+1=>A=JD n:B=H n:C=I n-1:D=I n: R=R n:F=I h:E=ZH n:U=YH n:V=HZ n:G=I maxn注:ZY N+1:-下一个竖曲线起点桩号（如：变坡点2的计算范围为前竖曲线终点YZ1至后竖曲线起点ZY3，则在程序中“L≤ZY3”就应输入ZY3的里程桩。

放样程序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。

卡西欧计算器fx4800P

福建林业职业技术学院工程系土木工程室高国兴CASIO fx-4500PA计算中桩、边桩坐标程序直线、圆曲线中桩及左、右边桩计算程序fx-4800pC“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：L“Lμo=”：K“D=”：M“Jμo=”：Q=9θL÷（πR）：S=2RsinQ ：O =C＋Scos（N-Q）◢P=D+Ssin（N-Q）◢W=E-2Q◢X=O+Kcos（N-2Q-M）◢Y=P+Ksin（N-2Q-M）◢注：Xθ=起算点坐标Yθ=起算点坐标Wθ=起算点方位角R=曲线半径，线路前进方向，左+，右－直线R为无穷大Lμo=置镜点到待求点距离D左、右边距离Jμo=前进方向左（+90），右（－90）O=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标缓和曲线中桩及左、右边桩计算程序Fx-4800pC“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：F“Lθ=”：L“Lμo=”：K“D=”：M“Jμo=”←U=L－L^5÷（40R2F2）：V=L^3÷（6RF）－L^7÷（336R^3F^3）：Q=tan－1如有你有帮助，请购买下载，谢谢！（V÷U）：S=√（U2+V2）←B=9θL2÷（πRF）：O=C+Scos（N－Q）◢P=D+Ssin（N－Q）◢W=E－B◢X=O+Kcos（N－B－M）◢Y=P+Ksin（N－B－M）◢注：Xθ=起算点坐标Yθ=起算点坐标Wθ=起算点方位角R=曲线半径，线路前进方向，左+，右－Lθ=缓和曲线长Lμo=置镜点到待求点距离D左、右待求距离Jμo=前进方向左（+90），右（－90）O=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标放样程序fx-4800pRLI“XZ”：W：“YZ”：G“XH”：H“YH”←B=H－W ←C=G－I ←Prog“P”：U=A←K=√（B2＋C2）←。

非常实用的4800放线程序(增加计算竖曲线标高,增加使用说明)

卡西欧fx-4800p计算机（中、边线坐标放样程序，计算速度快，园曲线超过半圈后有误差）(此程序可以查找桩号和偏中距离)SUB-1A=0.1739274226:B=0.3260725774:K=0.0694318442:L=0.3300094782:X=U+W(ACOS(G +180QKW(1÷P+KWD)÷π)+BCOS(G+180QLW(1÷P+LWD)÷π)+BCOS(G+180QW(1-L)(1÷P+WD(1-L))÷π)+ ACOS(G+180QW(1-K)(1÷P+WD(1-K))÷π)):Y=V+W(ASIN(G+180QKW(1÷P+KWD)÷π)+BSIN(G+180QLW(1÷P+LWD)÷π)+BSIN(G+1 80QW(1-L)(1÷P+WD(1-L))÷π)+ ASIN(G+180QW(1-K)(1÷P+WD(1-K))÷π)):F=G+ 180QW(1÷P+WD)÷πS—O(放线主程序)Deg:Fix 3：Defm 12（说明：本程序为3个变坡点，如果增加变坡点，相应增加“s-o”程序的Defm后的数字为(变坡点个数+1)*3）LbI 7:C“XC=”: E“YC=”：T“H=”LbI 1:{N}: N“XL=1,2”:N=0=>{U,V,G,P,R,О,H,Q}: U“X0=”: V“Y0=”：G“F0=”: P“R1=”: R“R2=”：О“DK1=” : H “DK2=”: Q “L(-1),R(+1),Z(0)”: Prog“SJ”△LbI 0:{S,M,Z}:S“ZHUANG HAO=”: T≠0=>Z=0：Goto 8△{Z} :Z”KUAN DU”LbI 8N=1=> Prog“1”: GOTO 2: ≠＞△N=2=> Prog“2”: GOTO 2: ≠＞△N=3=> Prog“3”: GOTO 2: ≠＞△…………………………..GOTO 1LbI 2:S＜О-0.001=> GOTO 1: ≠＞△S＞H+0.001=> GOTO 1: ≠＞△D=（P-R)÷(2PR(H-О)):W=Abs(S-О): Prog“SUB1”: Z=1000=> GOTO 5△Z≠0=> GOTO 3 △T≠0=> GOTO 9 △X“XS=”▲ Y“YS=”▲F＜0=> F=F+360:≠＞△F“QX-FWJ=”▲LbI 4:I=0: J=0: PoI(X-C,Y-E+0.00001)：J＜0=> J=J+360:≠＞△J“FWJ=”▲ I“H D=”▲T=0=> Goto 0△LbI 9: Prog“BG”: {K}:J=G-T+K:J”H△”▲Goto 0LbI 3: {M}:M“PJ=”: F=F+M:X=X+ZCOSF▲Y=Y+ZSINF▲Goto 4LbI 5:DegJ=0:I=0: PoI(X-C,Y-E+0.00001Ran#)：J＜0=> J=J+360:≠＞△Abs(Icos(J-F)) ＜0.010=> Goto 6△ S=S-Icos(J-F):Pause 0: Goto 8LbI 6:Z=0:S”JI SUAN ZH=”▲J-F＜-180=>I”L= m”▲Goto 7: ≠＞△J-F＞180=>I”R= m”▲Goto 7: ≠＞△J-F＜0=> J-F＞-180=>I”R= m”▲Goto 7: ≠＞△△J-F＞0=> J-F＜180=>I”L= m”▲Goto 7: ≠＞△△I”ZX--PT”▲Goto 7竖曲线计算子程序BGV=4：Y=Z[1]Lb1 0S＜Z[1] => Goto 2△V＞4=>A=(Z[V-2]-Z[V-5])/(Z[V-3]-Z[V-6]): B=(Z[V+1]-Z[V-2])/(Z[V]-Z[V-3]):L=ABS(Z[V-1]*tan((tan-1 B- tan-1 A)/2))Y=Z[V-3]+L:≠＞△A=(Z[V+1]-Z[V-2])/(Z[V]-Z[V-3]): B=(Z[V+4]-Z[V+1])/(Z[V+3]-Z[V]):L=ABS(Z[V+2]* tan ((tan -1 B-tan -1 A)/2))X=Z[V]-L:U=z[v]+LA-B＞0=>Q=-1:≠＞△A-B＜0=>Q=1:≠＞△W=(S- X)/ Z[V+2]*180/piS≥Y => S≤X => ZG=Z[V-2]+A(S-Z[V-3]): Goto I≠＞△S≥X => S≤U => ZG= Z[V+1]-L*A +2* Z[V+2]*SIN(W/2)*SIN(SIN-1 A+Q*W/2)= Z[V+1]- ABS(Z[V+2]*TAN((SIN-1 B- SIN-1 A)/2))*A+2* Z[V+2]*SIN(W/2)*SIN(SIN-1 A+Q*W/2) : Goto I ≠＞△S＜Y =>V=V-3：Goto 0△S＞U => Z[V]≠Z[V-3] =>V=V+3：Goto 0△LbI 2：”MEI YOU SHU JU”: {G}LbI 1（标高数据输入程序）SJＩ=1：LbI ０：I”BIAN PO DIAN=”▲ {K}：K”ZHUANG HAO=”:Z[3I-2]=K: {K}：K”BIAO GAO=”:Z[3I-1]=K: {K}：K”BAN JING=”:Z[3I]=K:I＜3=>I=I+1：Goto 0△说明： I为变坡点号，本程序为3个（最少3个），如果增加变坡点，相应增加I＜后的数字，并增加“s-o”程序的Defm后的数字为(I+1)*3QXYS(现场输入曲线要素子程序)U“X0=”: V“Y0=”: G“F0=”: P“R1=”:R“R2=”: О“DK1=”: H“DK2=”:Q “L(-1),R(+1),0”(线路名称预装要素子程序) 1o=线元起点里程:H=线元终点里程: U=线元起点X坐标:V=线元起点y坐标:G=线元起点方位角:P=线元起点半径(直缓点、缓直点半径为1045)：R=线元终点半径(直缓点、缓直点半径为1045)： Q=(左转为-1，右转为+1，直线为0)：S≤o=> S≥H=> GOTO 3：≠＞△△o=线元起点里程:H=线元终点里程: U=线元起点X坐标:V=线元起点y坐标:G=线元起点方位角:P=线元起点半径(直缓点、缓直点半径为1045)：R=线元终点半径(直缓点、缓直点半径为1045)： Q=(左转为-1，右转为+1，直线为0)：S≤o=> S≥H=> GOTO 3：≠＞△△。

卡西欧fx-4800P计算器程序集(小刚)

计算器对应程序名称：{ZDZB}（转点坐标）A“XZ”B“YZ”C“XH”D“YH”：{RL}I=1：J=1：Pol（（C－A），（D－B））：F=R＋JRec（L，F）X“X”=I＋A◢Y“Y”=J＋B◢注：用于已知两点坐标，及待测点与测站点的连线与已知边（两已知点的连线）的水平夹角和待测点至测站点的水平距离求待测点坐标。

XZ、YZ—测站点坐标；XH、YH—后视点坐标；R—水平角（顺时针为正，逆时针为负）；L—待测点至测站点水平距离。

计算器对应程序名称：{FWJ}(方位角)X“X1”：Y “Y1”：U“X2”：V“Y2”G=U-X:H=V-YPol(G,H):I◢J<0==>J=+360⊿J“J0=”注：用于已知两点坐标，求两点之间的方位角和距离。

X1、Y1—前视（后视）点坐标；X2、Y2—测站点坐标；L—测站点至前视（后视）点距离；J0—方位角(按SHIFT键再按°′″键转换为60制角度)。

任意多边形面积计算程序fx-4800p（三）计算器对应程序名称：{MJ}Lbl 0:M“N”：N“E”：E=M：F=N：S=0Lbl 1:{XY}:S=S-(XN-YM)/2:X=E==>Y=F==>“㎡”:S ◢Goto O ⊿⊿M=X:N=Y:Goto 1注：用于计算任意多边形的面积。

N-起始点X坐标（闭合点X坐标）E-起始点Y坐标（闭合点Y坐标）X-前进点X坐标Y-前进点Y坐标S-多边形面积（取绝对值）应顺序依次输入点坐标，输完所有点坐标后应再次输入起点坐标，这样就形成了多边形的闭合，程序将自动计算出多边形的面积。

极坐标测设建筑物（放样）计算程序fx-4800p（四）计算器对应程序名称：{ZBCS}E:F:K:LG=K-E:H=L-FPOL(G,H):J<0==>B=J+360：≠==>B=J⊿Lbl 0{XY}:X=0==>G o t o E⊿G=X-E:H=Y-FPol(G,H):I◢J<0==>J=J+360⊿C=J-B:C<0==>C=C+360⊿C◢Goto 0Lbl E注：用于计算已知方向边AB（已知点A、B两点的连线）与A（测站点）点至任意放样点i方向边（测站点与待放样点的连线）的水平夹角Bi和水平距离。

CASIOfx_4800P在公路坡口_坡脚线放样测量中的应用

程序中调用了路线中桩、边桩坐标计算子程序。整个程序编写精简, 克服了计算器内存小、速度慢的缺点, 能很快计算出所需结果。 212 路基坡脚桩及坡口桩的放样测量
如图 1 所示, 放样时先根据路基横断面图大致得出或实地估测一个 H 0 值, 运行程序 PKPJ ZU O 2B IAO , 输入各要素值, 然后利用全站仪放样出与 H 0 值对应的 F 2 点, 测出 F 2 点的高程, 估测 F 2 点位附近的地面线坡比 1∶n, 计算出比较准确的平距 H 值, 计算出的平距 H 值会因估测地面线坡比 1∶n 的误差而导致与 H 值对应的 F 1 点并非真正的坡口 (脚) 点, 则重新设定 H 0 = H 重复以上操作, 逐步使与 H 值对应的 F 1 点逼近真正的坡口 (脚) 点, 直至 H 0 - H < 012 m 再往外预留一定的位置设置坡口 (脚) 桩 F 1 (预留的距离长短视有关规范及施工实际需要而定)。现举例介绍其具体操作如下。
主题词计算器施工·放样坡口·线坡脚·线应用
为了避免由于地形的复杂性对路线测设时产生的不精确影响, 现行高等级公路测设均利用国家地球大地坐标网系采用坐标法对路线定位。路线测设所需数据相当明了, 定出各交点坐标、曲线半径 R、曲线前后缓和曲线长 L s1、L s2, 即对整个路线的位置实现了准确的平面控制。而实际施工中由于地形复杂多变, 设计文件上提供的有限的数据无法满足施工的需要, 对路堑坡口线、路堤坡脚线的放样来说仅根据路线纵横断面图, 不但数据不够, 而且亦很不准确。
情况:
①H 0 > H 1、n > 0;
②H 0 > H 1、n < 0;
③H 0 < H 1、n < 0;