4800计算器放线程序

4800计算器程序（缓和曲线任意中、边桩）LBI 0：X：Y：{I}：{J}：A：R：U：N：{D}：{O}：Z：W：W=1＝＞GOTO 1：≠＞GOTO 2←LBI 1：B=90L2÷（ΠRA）：←C=√（（（I-J）-（I-J）5÷（40R2A2））2+（（I-J）3÷（6RA））2）：Q=U+BN÷3：S=U+BN+Z：T=U+BN+Z+180：GOTO 3：←LBI 2：E=90（I-J）÷（ΠR）：C=2R SinE:B=90A÷（ΠR）:Q=U+(B+E)N:S=U+(B+2E)+Z:T=U+(B+2E)N+Z-180:GOTO 3: ←LBI 3：F“XA”=X+C CosQ▲G“YA”=Y+C SinQ▲H“XR”=F+D CosS▲H“YR”=G+D SinS▲H“XL”=F+O CosT▲H“YL”=G+O SinT▲GOTO 0←说明：X Y—-起算点坐标（计算缓和曲线部分输ZH点、计算圆曲线部分输HY点）；I J---为计算桩号，I为大里程，J为小里程，保证（I-J）始终为正；A—-为缓和曲线长；R—-半径；U—-起始方位角（直缓点）；D O—计算边中距；Z—-一般为90度；N—-判别曲线左右偏位，右转输+1、左转输-1；W---当W=1时，程序计算缓和曲线部分，当W=0时，程序计算原曲线部分；F“XA”、 G“YA”---计算桩号的中桩坐标；H“XR”、 H“YR”---计算前进方向（F“XA”、 G“YA”对应）的右边桩坐标，H“XL”、 H“YL”---计算前进方向（F“XA”、G“YA”对应）的左边桩坐标注意：在计算YH至HZ间坐标时，X Y应输入HZ点的坐标值，U为HZ点的方位角-180度，N也相应相反，这时计算的左右边桩与线路前进方向的左右边桩正好相反，计算时要注意取值。

LX、RX：左侧或右侧点X坐标
LY、RY：左侧或右侧点Y坐标
I：置镜点至左或右点距离
J：置镜点至左或右点方位角
CONT：输入0计算下一里程；输入1则从本程序第一步开始
QX1计算范围：
DK214+832.674~DK216+053.229
QX2计算范围：
DK215+707.196~DK217+253.771(反算)
LbI 5 ↙
H=1=〉Y= -1×Y△ U=B+X cosT-YsinT：V=C+XsinT+YcosT：↙
X=U▲
Y=V▲
PoL（（X-M，Y-N）↙
I ▲
J＜0=〉J=J+360△↙
J ▲
{W}：W“NEXT”：W=1=〉Goto 1△↙
LHale Waihona Puke I 6 ↙ {O}：O“O=”：O=1=〉Goto 7△↙
QX3计算范围：
DK216+623.229~DK219+480.262
QX4计算范围：
DK217+923.771~DK222+114.707(反算)
J ▲
F=T ▲
Goto 6 △↙
LbI 3 ↙
L＞A=〉Goto 4 △ X=L-L5÷40÷（RA）2：Y=L3÷（6RA）-L7÷336÷（RA）3：Z=60×L2÷（πRA）+tan-1（Y÷X）：H=1=〉Z= -1×Z △F=T+Z▲
Goto 5 △↙
LbI 4 ↙
Z=180（Abs（E-D）-A）÷（πR）+90A÷（πR）：X=R sinZ+A÷2-A3÷（240R2）：Y=R（1-cos Z）+A2÷（24R）-A4÷（2688R3）：H=1=〉Z= -1×Z △ F=T+Z▲

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

CASIO 4800计算器程序使用说明一、程序列表：1。

PQX：主程序，计算路线的中边桩坐标。

(1)"L0"--- 输入测段的近似桩号，来调取合适的平曲线要素数据，输入0则默认上次输的平曲线要素。

输入-1可以手工输入交点桩号JL，交点X坐标JX，交点Y坐标JY，I0为前一交点与本交点的直线方位角，J0为本交点的偏角(左负右正)，R为圆曲线半径，LS为缓和曲线长度，L1为上一交点的HZ(或YZ)的桩号，L2为下一交点的ZH(或ZY)桩号。

(2)"L"---输入计算点的桩号(3)"JJ"---输入与路线前进方向的右交角（正交为90）(4)"YC"---输入与中桩的距离(左侧为负,右侧为正)注:若JJ和YC中任一个输入为0,则可返回上一级,重新输入桩号计算.若YC输入为-1,可以输入实测点的坐标X和Y来反算与中桩宽度YC,桩号差值DL和该点的近似桩号L.(5)"X,Y"数值1数值2显示计算点的坐标值X,Y(6)"A,D"ddd°mm′ss″数值4显示测站点与放样点的方位角及平距(7)"TMP"---进入自由运算状态,若计算结果为0则退出该状态.该状态会破坏变量I的内容.(8)"YC"---输入-1进入反算桩号模式,程序要求输x,y坐标,若x,y坐标其中任一输入为0则退出该状态.2.LYC程序:两个作用:一是根据实测坐标反算桩号L和与中桩宽度YC, 二是根据输入的三维坐标x,y,z和输入的设计标高SG以及"YC0","HC0","M"来进行边坡放样.(1)"L0"--- 输入测段的近似桩号，(2)"XF","YF","ZF"----输入测点的三维坐标x,y,z若ZF输为0则只反算桩号,若不为0则进行边桩放样.(3)"DL"---反算桩号时显示中间结果桩号差值DL,若DL值过大,可以重新输入测段的近似桩号来计算.(4) "L,YC"---显示桩号L和与中桩距YC(左负右正),存在变量L和O中.(5) "SG:"---输入路基边缘的设计高程(请分清左右),存在变量Z[10]中.(6) TW---显示填挖高度值(负值为挖方高度,正值为填方高度),存在变量C中.(7) "YC0"-路基横断面图上最后一个变坡点与中桩的水平宽度(左右均为正值),存在变量P中.(8)"HC0"---路基横断面图上最后一个变坡点与路基边缘设计标高的高差,挖方平台为正值,填方平台为负值,存在变量Q中.(9) "M="---路基横断面图上最后一级边坡的坡比,存在变量T中.(10) "BL"---显示在实测标高位置的路基设计宽度,存在变量U中.(11)"DB"---显示设计宽度和实测宽度的差值,存在变量J中.若DB为负值,则应往中桩位置移动(宽度减小),若DB为正值,则应往路线外侧移动(宽度增大).3、ZZ子程序---计算中桩坐标以及前进方位角的子程序。

第３ ８卷 第 ｌ ０期
２０ １２ 年 ４ 月
山 西 建 筑
Ｓ ＨＡＮ ＡＲＣ Ｔ Ｔ Ｅ ＸＩ ＨＩ ＥＣ ＵＲ
Ｖ０． ８ Ｎｏ．１ １３ ０
Ａ ｒ ２ １ ｐ． ０２
・２ ９ ・ ３
文章 编号 ：０ ９ ６ ２ （０ ２ １ —２ ９ ０ １０ —８ ５ ２ １ ）０ ０ ３ －２
方便该路段 的反 复放 样调用数据 。同时 结合 自己多年公 路工程测量工作 的经验及教 训 ， 新优 化计 要 素存储在 了计算器 内 ， 重 威远图 Ｓ ３０环境下进行数 字化成 图 ， Ｖ０ 取得 了很好 的效果 。 在测绘 领域 大行 其道 ， 完全 替代 传统纸 质作业 ， 而且随 着测绘 科 技 的 日益进 步 ， 各种新 测绘 技术 逐渐普 及 ， 必将极 大提 高广 大测
Ｆ：Ｈ点至 Ｊ 位角 ， 交点 坐标 ， 交点 １坐标 。 Ｄ方 Ｃ： Ｄ： ， ４０ Ｐ ５０ Ａ及 Ｃ ＳＯ Ｆ ４ ０ Ｐ平 台上 运行 的公路放 线程序 ｊ 汲取 和曲线 长 ， Ｚ Ａ Ｉ Ｘ一８０ ， 了 Ｐ ．５ ０平 台上放线程序 的优势 ， ＣＥ０ 同时 又克服 了 Ｐ ．５ ０手簿 ＣＥ ０
弊病 。
为了便 于记忆 ， 可将 值改为具体的交 点号 ， 同时使 Ｇ Ｔ ， Ｏ ＯＸ
编辑好后 运行 ， 完成对 ２ Ｑ Ｙ ｓ 可 ． ｘ ｓｚ的赋值 ， 这样 就将 曲线
Ｂ 价格 昂贵 、 功能单一 、 携带不方便 、 ａｉ语 言生涩不易调整编辑 的 Ｌ ＬＸ中 Ｘ值一一对应 。 Ｂｓ ｃ
３ 实际应 用
进一 步发挥 新技术 优质 、 效 高 以大 同市新建高层住 宅小 区“ 水泉湾龙 园” 规划验 收为例 ， 以 绘工作者 的工作 效率 和工作 热情 ， 的特点 。 前光有全站仪时 ， 不但 从城 市 已有控 制点 向测 区引入 坐标 困难 ，

已知任意点的里程、半宽，计算该点平面坐标的程序前言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均为零。

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全套计算程序（吐⾎推荐）整套卡西欧计算器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 丘地有关项⽬的计算程序公路中、边桩坐标计算及放样程序功能：任意半径曲线中桩、任意交⾓边桩坐标计算放样、中桩切线⽅位⾓、任意点置仪放样、两点间距离计算、两点⽅位⾓计算。

卡西欧4500、4800计算器计算程序卡西欧4500/4800计算器程序任意里程桩号计算程序1.主程序(TYQXjs)"1.SZ => XY"："2.XY => SZ"：N：U"X0"：V"Y0"：O"S0"：G"F0"：H"LS"：P"R0"：R"RN"：Q：C =1÷P：D=(P-R)÷(2HPR)：E=180÷π：N=1=>Goto 1：≠>Goto 2Δ←┘Lbl 1：{SZ}：SZ：W=Abs(S-O)：Prog "SUB1"：X"XS"=X◢Y"YS"=Y◢F”FS”=F-90◢Goto 1←┘Lbl 2：{XY}：XY：I=X：J=Y：Prog "SUB2"：S"S"=O+W◢Z"Z"=Z◢Goto 22. 正算子程序(SUB1)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))+Bc os(G+QEFW(C+FWD))+Acos(G+QE M W(C+M WD))):Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD) )+Bsin(G+QEFW(C+FWD)) +Asin(G+QE M W(C+M WD))) :F=G+QEW(C+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+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)÷sinF二、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。

Fx4800—计算器施工放样程序：F1Defm6：Norm:U“Z﹢Y‐”〉0⇒Z[2] =1：≠〉Z[2]=-1：⊿Deg：R：L：A：F“ZH=”：Q“NZH”：P“EZH”：B“ZXFWJ”：Fix3←Z[1]=90L∕(πR) ←Z[3]=L²∕(24R﹚﹣L4∕(2688R³﹚←M=L∕2‐L³∕(240R²)←T=M﹢(R﹢Z[3] )tg(A∕2) ◢Z=πR(A‐2Z[1] ) ∕180﹢2L◢E=(R﹢Z[3] ) ∕cos(A∕2) ­R◢Prog“F2”F2G“XZ”：H“YZ”：K“XH”：D“YH”←I=Pol(K­G,D­H) ：J〈0⇒J=J﹢360：≠〉J=J⊿J“A0”=J◢I“HD”=I◢Lbl0：Fixm：﹛CS﹜：Prog“F3”：N=Q﹢VcosB﹢Z[2]WsinB◢E=P﹢VsinB­Z[2]WcosB◢I=Pol(N­G,E­H) ：J〈0⇒J=J﹢360：≠〉J=J⊿J“A0”=J◢I“HD”=I◢Goto0F3N=C­F：N≤L⇒Z[1]=90N²∕(πRL) ：V=N­N5∕(40R²L²)­N9∕(3456R4L4) ­SsinZ[1] ：W=N³∕(6RL) ­N7∕(336R³L³)﹢ScosZ[1] ：≠〉N≤Z­L⇒Z[1]=180(N ­L∕2) ∕πR：V=(R­S)sinZ[1] ﹢M：W=R­(R­S)cosZ[1] ﹢Z[3] ：≠〉N≤Z ⇒N=F﹢Z­C：Z[1]=90N²∕(πRL) ：I=N­N5∕(40R²L²)­N9∕(3456R4L4) ­SsinZ[1]：J=N³∕(6RL)­N7∕(336R³L³)﹢ScosZ[1]：V=T﹢(T­I)cosA­JsinA：W=(T­I)sinA﹢JcosA：≠〉V=T﹢(C­Z­F﹢T)cosA­SsinA：W=(C­Z­F﹢T)sinA ﹢ScosA⊿⊿⊿程序运行说明：F1程序：“Z﹢Y­”=？曲线左右转系数；左转为正，右转为负。

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

CASIO4800系列计算器线路线路正反算程序经本人苦心钻研，奋战多日，终于编写出了速度快，精度高，功能全的线路坐标正反算程序，欢迎试用并提出宝贵意见。

部分引用请注明出处。

功能简介及特点：1、选用高斯-勒让德公式作计算内核，保证精度，模块化设计，便于扩充功能。

2、线元数据可自动从数据库调用，也可手工输入。

3、可管理多条线路,如里程不在线路或线元范围，将警告里程偏大、偏小。

4、边桩计算设计为导线式递推方式，可用于由一个中桩推出结构物所有角点坐标。

5、反算实现了智能化操作，只需输入线路号（或手工输线元资料）、坐标，不需近似里程，即可自动从起点向后开始试算出里程、位置，如对算出里程、位置表示怀疑，还可以让计算器从终点起再向前试算下一个可能的位置（匝道、回头曲线同一坐标可能会有一个以上结果）。

6、程序代码规范简洁，便于阅读、理解。

程序清单:ZFS///正反算主程序Norm:Lbl 1:U"1 ZS 2 FS"=1=>Prog "ZS":≠>U=2=>Prog"FS":≠>Goto 1ZS///正算子程序{T}:Lbl 1:{K}:T"1 B"=1=>Prog"ZZ":Prog"WY":Goto 1△Prog"ZZ":Prog"ZB":Goto 1FS///反算子程序Lbl 1:{VW}:V"X"W"Y":U=2:Lbl 2:Prog "ZZ":Pol(V-X,W-Y:J=J-O:I=Rec(I,J:K=K+I:AbsI<0.001=>"KJ":K:Pause1:J◢{Z}:Z"0 NEXT"=0=>U=0:Goto 2△Goto 1△Goto 2GS///高斯法中桩子程序S=K-L:G=(P-R)÷2PQR:A=.1739274226:B=.5-A:C=.0694318442:D=.3300094782:E=1-C:F=1-D: I=4:Lbl 1:B[I]=O+180π-1SB[I](P-1+SGB[I]:Dsz I:Goto 1:O=O+180π-1S(P-1+SG：X=X+S(AcosC+BcosD+AcosE+BcosF:Y=Y+S(AsinC+BsinD+AsinE+BsinFZZ///中桩计算子程序Prog"XL":Prog"GS"WY///外移点计算子程序Lbl 1:I=0:J=90:{IJ}:I"L"≠0=>Z=J"<":J=O+J:O=O+Z:X=X+Rec(I,J:Y=Y+J:Prog"ZB":Goto 1ZB///坐标显示子程序"XY":X:Pause 1:Y◢YC///里程异常处理子程序U=2=>K=LΔU=0=>K=MΔU=1:K<L=>"<<!"◢H=1ΔK>M=>">>!"◢H=1Δ---------------------------以上为程序运算部分,以下为数据库部分-------------------------------------- XL///线路数据库选择子程序Lbl 1:H=0:N"0 SD":N=0=>Prog"0"△N=1=>Prog"1"△N=2=>Prog"2"△...有几条线路仿上行格式输几行H=1=>{NLXYOPQRK}:Goto 10///手工输入子程序L"K0"XYO"A0"Q"LS"P"R0"R"RN":M=L+Q:Prog"YC"1///线路一数据库子程序L=线路起点里程:M=线路终点里程:Prog"YC":H=1=>Goto EΔX=起点X坐标:Y=起点Y坐标:O=起点方位角:Q=线元长:P=起点半径:R=终点半径:K<L+Q=>Goto EΔL=123:X=123:Y=123:O=123:Q=123:P=123:R=123:K≤L+Q=>Goto EΔ...按里程由小到大，每条线元输一行。

主程序F3LbI 1:A“X1”:B“Y1”:C“X2”:D“Y2”N=0:E=C-A:F=D-B ↙ Prog“F1”↙{P}:P≥1 Prog“F2”△↙LbI 6:{XY}:E=X-A:F=Y-B:Prog“F1”:N≠1 L=G ↙Z≥L M=Z-L-180: M=Z-L+180: △↙M >0 M=180-M ▲M=180+Abs M▲△ Goto 6 ↙子程序F1E=0 Goto4 △ I=tan-1Abs(F÷E):S=√ (E2+F2) ▲F≥0 Goto2△E<0 G=180+I▲G = 360-I▲△Goto 5↙LbI 2:E<0 G=180-I ▲G = I ▲△ Goto 5 ↙LbI 4:F>0 G = 90 ▲G =270 ▲△ Goto 5 ↙LbI 5:N=N+1:N=1 Z= G △↙子程序F2LbI 9:{SI}:P=G+180-I:X=A+Scosp▲Y=B+SsinP ▲{o}:o≤0 Goto 9 △ o≤1 A=X:B=Y:G=P+180:G>360 G = G-360:Goto 9 △↙说明:1、主程序F3，已知座标放线；2、P<1主程序进入座标放样计算，P≥1时主程序进入座标计算；3、F3中的S是站点至待放点的距离，M是后视点至待放点的左角。

4、F2中的O表示站点，O>1迁站重新输入（X1，Y1）（X2，Y2）计算座标。

输入转角I时；转角左转I取“+”，右转I取“—”。

5、F2中的S，是表示站点至待求座标点的距离，用测距仪测定。

主程序：PQXLbI O:A“K0”:B“X0”:C“Y0”:D“L0”:E“A0”:F“B0”:G“K1”:N :R:T:Z:L=K-A:S=K-A-D:I=G-K ↙{K} ↙N<1 Prog “P1”:Goto O △↙N=1 Prog “P2”:Goto O △↙Prog “P3”↙Goto O ↙子程序：P1Z≤1 X=B+[L-L5÷(40R2D2)]CosE+[L3cos(E+90)]÷(6RD)▲Y=C+[L-L5÷(40R2D2)]sinE+[ L3sin(E+90)] ÷(6RD) ▲Y=C+[L-L5÷(40R2D2)]sinE+[ L3sin(E-90)] ÷(6RD)▲子程序:P2Z≤1 X=B+[D- D3÷(40R2)]cosE+[(D2÷(6R))]cos(E+90)+[S-S3÷(6 R2 )+ S5 /(120R4 )]Cos[E+(90D) ÷(πR )]+[ S2÷(2R)-S4÷(24R3)+S6÷(720R5)]cos[E+(90D)÷(πR)+90] ▲ Y=C+[D- D3÷(40R2)]sinE+[(D2÷(6R))]sin(E+90)+[S-S3÷(6R2)+S5÷(120R4)]sin[E+(90D)÷(πR)]+[S2÷(2R)-S4÷(24R3)+S6÷(720R5)]sin[E+(90D)÷(πR)+90] ▲X=B+[D-D3÷(40R2)]cosE+[(D2÷(6R)]cos(E-90)+[S-S3÷(6R2) +S5÷(120R4)]cos[E-(90D)÷(πR)]+[S2÷(2R)-S4÷(24R3)+S6÷(720R5)]cos[E-(90D)÷(πR)-90] ▲Y=C+[D-D3÷(40R2)]sinE+[(D2÷(6R)]sin(E-90)+[S-S3÷(6R2) +S5÷(120R4)]sin[E-(90D)÷(πR)]+[S2÷(2R)-S4÷(24R3)+S6÷(720R5)]sin[E-(90D)÷(πR)-90] ▲子程序:P3Z≤1 X=B+TcosE+Tcos(E+F)+[I-I5÷(40R2D2)]cos(E+F+180) +[I3÷(6RD)]cos(E+F+180-90)▲Y=C+TsinE+Tsin(E+F)+[I-I5÷(40R2D2)]sin(E+F+180) +[I3÷(6RD)]sin(E+F+180-90)▲X=B+TcosE+Tcos(E-F)+[I-I5÷(40R2D2)]cos(E-F+180) +[I3÷(6RD)]cos(E-F+180+90)▲Y=C+TsinE+Tsin(E-F)+[I-I5÷(40R2D2)]sin(E-F+180)+[I3÷(6RD)]sin(E-F+180+90)▲说明:1.K0为ZH点桩号;(X0，Y0)为ZH点座标；L0为缓和曲线段长度，A0为直线方位角；B0为转角；K1为HZ点桩号；N为条件参数；R为半径；T为切线长；Z为条件参数；K为待求点桩号。

卡西欧4800计算器测量放样程序汇编4800程序使用说明书程序代码术语：连续曲线数据块、独立曲线数据块、长短链功能：1、放样对应里程中心点2、放样对应里程旋转任意角度外移点（图A点）3、放样对应里程旋转任意角度外移点的外移点（图B点）4、获取放样点坐标及对应里程中心点沿线路前进方向切线方位角程序输入注意事项：1、常用程序文件放在前面，便于调用，一般先建立“CIRCLE”、“XY-AL”、“AL-XY”三文件，文件名千万不能输错。

2、加粗带下划线词组为计算器中的函数或符号，只能从计算器中调出此函数或符号，不能从键盘输入。

符号←表示回车键“EXE”坐标输入通用格式：屏幕显示OPP NAME?（置镜点名称）或CPP NAME?（后视点名称）：1：输入-1：手动输入坐标X,Y2：输入大于1数字：输入用数字所代表的控制点名。

如数据库中没有本数字所代表的点名，则系统显示SynERROR in…（文件名）。

曲线放样程序（CIRCLE）运行说明：步骤1：屏幕提示“LOAD?”（输入曲线要素）1.1：输入1（默认）：输入里程后将自动判断所在曲线并调用（此功能必须保证曲线数据库中有连续曲线数据块，具体详见数据库建立）。

1.2：输入-1：屏幕提示手动输入各曲线要素，ZJ（转角）、R（半径）、L0(缓和曲线长)、ZH KM(直缓里程)、JDX(曲线交点X坐标)、JDY(曲线交点Y坐标)、A0(起始直线边前进方向方位角)、1 R,-1 L(右偏输入1，左偏输入-1)。

1.3：输入大于1的数字：输入用数字代表的曲线名称，比如13，表示放样点位于曲线13 上（曲线名称在建立数据库是自己命名，但一定要大于1）。

如库中没有此名称，系统显示“Syn ERROR in CIRCLE”。

（此功能必须保证曲线数据库中有独立曲线数据块）步骤2：屏幕提示“OPP NAME?”（输入置镜点名称）详见坐标输入格式。

步骤3：屏幕提示“DK+M?”（输入放样点对应中心里程）如K15+002.35应输入15002.35。

座标计算程序ADefm8XYD″X1″:E″Y1″∶F″X2″∶G″Y2″∶H″X3″∶V″Y3″RL″Ls″W″ZH″I=D-F∶J=E-G∶Prog″C″∶O=J∶I=H-F∶J=V-G∶Prog″C″∶U=JM=O-J∶M<0=>M=M+360◣M<180=>M=180-M∶C=1∶≠>M=M-180∶C= -1◣P=L2/（24R）∶Q=L/2-L3/（240R2）∶T=（P+R）×tg（M/2）+Q Fix 3∶S=RMπ/180+L∶S◢Norm∶Prog″B″BLbI 0∶Z∶Fixm∶{ KB}∶I=K-W∶J=Z∶BI< S-L=> I≤0=>M=I+BCosZ∶N=BSinZ∶Goto2◣C=1=>J=180-Z ◣I≤L=>Prog″D″∶≠>Prog″F″◣LbI 2∶J=O∶Prog″G″∶Goto 0◣I=S-II≤0=>M=I-BCosZ∶N= -BSinZ∶≠>C≠1=>J=180-Z◣Prog″D″∶N= -N◣J=U∶Prog″G″∶Goto 0CPol（I，J）∶J<0=>J=J+360◣EA=A-J:M=M-CBCosA∶N=CN-BsinAFA=90/（Rπ）×（2I-L）∶M=RsinA+Q∶N=R×（1-CosA）+P∶Prog″E″GA=CosJ∶J=SinJ∶I=F+TA-MA+NJ∶J=G+TJ-MJ-NA∶M=I∶N=J I=I-X∶J=J-Y∶Prog″C″∶Fix3∶J◢I◢NOrm∶Prog″8″8Fix3∶Z[1]=X+ICosJ∶Z[1]◢Z[2]=Y+IsinJ: Z[2] ◢NormDA=RL:M=I-I5/（40A2）:N=I3/（6A）-I7/（336A3）:A=90 I2/（Aπ）∶Prog″E″高程计算程序(不适应单向横坡)1F1 L1J″JD″D″HJ″TRO″H1″E″K1″P″H2″G″K2″L2 S=(D-O) /(J-E)：U=(P-D)/(G-J)：M=J-T:N=J+T：W=S-U：W<0=>C=1：≠>C=-1◣L3 Prog22F2 L1 LbI 0：Z：Fixm：{ KBI}：KBFI：K=K+BcosZ：B=BsinZL2 K<N=>K≤M=>H=D+S(K-J)-0.01I(AbsB-F) ：≠>H=D+S(K-J)+C(K-J+T)2/(2R) -0.01I (AbsB-F)◣≠> H=D+U(K-J)- 0.01I (AbsB-F)◣L3 Fix3：H◢NormL4 Goto 0J″JD″：竖曲线交点桩号D″HJ″：竖曲线交点高程T ：竖曲线切线长R ：竖曲线半径O″H1″：前一交点高程E″K1″：前一交点桩号P″H2″：后一交点高程G″K2″：后一交点桩号Z ：交角(与路线前进方向的右夹角)K ：竖曲半径B ：边桩距离,左负右正F ：设计标高偏离设计中心线的距离I ：路拱横坡，例如：2%只输入I=2即可。