卡西欧4800测量放样程序

卡西欧4800 万能程序文件名：ZXA”CZX”:B”CZY”:C”FYX”:D”FYY”回车Pol(C-A,D-B) 回车E”FWJ”=J▲F”L”=I▲文件名：(主程序TXTL)运行这个A”CZ-X=”回车B”CZ-Y=”回车Lbi0回车Prog”SJ”回车Prog”JS”回车Goto0回车文件名：（JS）Norm:Deg: 回车Z［5］=90O÷R∏:P=O²÷(24R):M=O÷2-O∧3÷240÷R²:L=R∏(AbsQ-2Z［5］) ÷180:T=(R+P) tan(AbsQ÷2)+M回车D=E-F:D≦0﹦﹥Goto1:≠﹦﹥D≦O﹦﹥Goto2: ≠﹦﹥D=E-F-O:D≦L﹦﹥Goto3: ≠﹦﹥D=F+2O+L-E:D≥0﹦﹥Goto4: ≠﹦﹥Goto5△△△△回车Lbi1回车S=E-F:C=Z:U=Z回车Goto6回车Lbi2回车U=D-D∧5÷(40R²O²):V=D∧3÷(6RO):Z［1］=90D²÷(RO∏) 回车Goto7回车Lbi3回车U=M+Rsin(Z［5］+180D÷R∏ ):V=R+P-Rcos（Z［5］+180D÷R∏）:Z［1］= Z［5］+180D÷R÷∏回车Goto7回车Lbi7回车Z［2］=tan-1(V÷U):S=∫（U²+V²）: 回车Q≦0﹦﹥C=Z-Z［2］:U=Z-Z［1］: ≠﹦﹥C=Z+Z ［2］:U=Z+Z［1］△回车Goto6回车Lbi4回车U=D-D∧5÷(40R²O²):V=D∧3÷(6RO):Z［2］= tan-1(V÷U):S=∫（U²+V²）:Z［1］=D²*180÷(6RO∏)*3回车Q≦0﹦﹥C=Z+Q+Z［2］+180:U=Z+Q+Z［1］: ≠﹦﹥C=Z+Q-Z［2］+180:U=Z+Q-Z［1］△回车Goto8回车Lbi8回车X=ScosC+G+T cosZ+T cos(Z+Q):Y=SsinC+H+T sinZ+ T sin(Z+Q) 回车Goto9回车Lbi5回车S=(E-F-2O-L):U=Z+Q:C=U:Goto8回车Lbi6回车X=ScosC+G:Y=SsinC+H回车Goto9回车Lbi9:Fix4回车Z［3］”X”=X+Wcos(U+K)▲Z［4］”Y”=Y+Wsin(U+K)▲Pol(Z［3］-A,Z［4］-B:Fixm:J<0﹦﹥J=J+360△J”FWJ”=J▲I”L”=I▲Norm回车文件名：SJ{ K,E,W,N }回车E”CS空格DK+”回车W”BIAN 空格KUAN空格E=”回车K”Y+90°><Z-90°”回车N”1:ZHENG空格XI”回车N=1﹦﹥Prog”Z”:≠﹦﹥N=2﹦﹥Prog”Z1”:≠﹦﹥N=3﹦﹥Prog”Z2”:≠﹦﹥N=4﹦﹥Prog”Z3”:≠﹦﹥Prog”GYDL” :≠﹦﹥N=3﹦﹥Prog”ZY”回车文件名【数据库】（Z）E≦第二条曲线ZH点里程﹦﹥F=第一条曲线ZH点里程：O=第一条缓和曲线长：R=第一条半径长度：G=第一条曲线ZH点X的坐标：H=第一条曲线ZH 点Y的坐标:Z=第一条曲线方位角：Q=第一条曲线转角值：≠﹦﹥E≦第三条曲线ZH点里程﹦﹥F=第二条曲线ZH点里程：O=第二条缓和曲线长：R=第二条半径长度：G=第二条曲线ZH点X的坐标：H=第二条曲线ZH点Y的坐标:Z=第二条曲线方位角：Q=第二条曲线转角值：≠﹦﹥以此类推文件名：（QXYS）R”R”:L”L0”:A”ZXJ”回车B”B0”=(L÷2R)*(180÷∏) ▲M”M”=( L÷2)-(L∧3÷240R²)▲P”P’=L²÷240R▲T”T”=M+(R+P)*tan(A÷2)▲Z”L”=L+∏RA÷180▲E=(R+P)*(1÷cos(A÷2))-R▲Q=2T-Z回车（4800注意变量）解释：CZ-X= 输入置镜点X坐标CZ-Y=输入置镜点Y坐标CS DK+?输入待求里程BIAN KUAN E=?输入距离中桩的距离Y+90°><Z-90°? 输入构造物与线路的夹角1:ZHENG XI？选着数据库坐标XY….FWJ=置镜点到放样点的方位角L=置镜点到放样点的平距循环。

卡西欧4800测量放样程序卡西欧4800测量放样程序“RMGL”（母文件）2 G “JDK” N“JDX” E“JDY” RH“LS1”Q “LS2” F “FWJ”Z “ZJ”3 Z[1]=90H / πR4 Z[2]=90Q / πR5 Z[3]= H2 / 24R6 Z[4]= Q2 / 24R7 Z[5]=H/2-H3 /240R28 Z[6]= Q/2-Q3 /240R29 O“T1”=（R+ Z[3]）10 U “T2”=(R+ Z[4])11 S=(AbsZ- Z[1]- Z[2])Rπ/180+H+Q12 A “ZH”=G-O13 B “HY”=A+H14 T “YH”=A+S-Q15 M“HZ”=A+S16 Z[9]=N+Ocos(F+180)17 Z[10]=E+O sin (F+180)18 Z[11]=N+Ucos(F+Z)19 Z[12]=E+U sin (F+Z)22 { k}Goto 5: ≠＞k≤B＝＞≠＞k≤M ＝＞≠＞Goto 025 { VD}K-A）27 Z[7]=L-L5/（40R2H2）28 Z[8]= L3/（6RH）- L7/（336 R3H3）29 C=√－（Z[7]2+ Z[8]2）：J= tan-1（Z[8]/ Z[7]）30 I=180 L2/（2πRH）△31 Z＞32 W=F+IP33 X= Z[9]+C cos(F+JP)+ Dcos(W+180-V)▲Y= Z[10]+Csin (F+JP)+ D sin(W+180-V) ▲“ZXGL”△35 { VD}K-B）37 I=(L/R+H/2/R)*180/π38 Z[7]=R sinI+ Z[5]39 Z[8]=R(1-cosI)+ Z[3]40 C=√－（Z[7]2+ Z[8]2）：J= tan-1（Z[8]/ Z[7]）41 Z＞0 ＝＞P =1：≠＞P= -1 △42 W=F+IP43 X= Z[9]+C cos(F+JP)+ Dcos(W+180-V)▲Y= Z[10]+Csin (F+JP)+ D sin(W+180-V) ▲ Prog “ZXGL”△44 Lb1 345 { VD}K-M）47 Z[7]= L-L5/（40R2Q2）48 Z[8]= L3/（6RQ）- L7/（336 R3Q3）49 C=√－（Z[7]2+ Z[8]2）：J= tan-1（Z[8] / Z[7]）50 I=180 L2/（2πRQ）△51 Z＞52 W=F+Z - IP53X=Z[11]+Ccos(F+Z-JP-180)+Dcos(W+180 -V) ▲ Y= Z[12]+Csin (F+Z-JP-180)+D sin (W+180-V) ▲ Prog “ZXGL”△55 { VD}K-M）57 W=F+Z58 X=Z[11]+LcosW+Dcos(W+180-V) ▲Y= Z[12]+Lsin W+ D sin (W+180-V) ▲ZXGL”△60 { VD}K-A）62 W=F63 X=Z[9]+Lcos(W+180)+Dcos(W+180-V) ▲Y= Z[10]+Lsin (W+180)+ D sin(W+180-V) ▲“ZXGL”△“ZXGL”（子文件）2 { K}3 G=22338.223 : N=204739.5 :E=2412.7 : R=800 : H=110 : Q=110 :F=213022’48” : Z=16022’32.1” :K≤22506.679 ＝＞Prog “RMGL”△.4 G=22919.881 : N=204362.6 :E=1967.4 : R=1000 : H=150 : Q=150 :F=229045’20” : Z=-17052’8.7” :K≤23149.409 ＝＞Prog “RMGL”△5 G=24321.732 : N=203169.9 :E=1225.4 : R=520 : H=210 : Q=210 :F=211053’11.3”:Z=-4907’12.4”:K≤24633.426“RMGL”△6 G=24868.523 : N=202616.7 : E=1397:R=550 : H=151.39 : Q=151.39 :F=162045’58.9”:Z=32014’17.6”:K≤25094.281“RMGL”△注: G 交点桩号N 交点桩号X坐标E 交点桩号Y坐标R 圆曲线半径H 缓和曲线长度Q 缓和曲线长度F 方位角Z 转角值(左为- 右为+)K 第二缓和曲线终点(圆曲线终点)操作数据： K 放样桩号D 与中桩距离（中桩为0，左-，右+）V 与中线夹角（中桩为0，左-90，右90）一个程序只能实行一个S曲线如二个必须重新编一个程序。

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

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

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

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

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

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

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

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

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

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

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

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

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

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

卡西欧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 3LbI 7:C“XC=”: E“YC=”LbI 1:{N}: N“XL=1,2”:N=3=>{U,V,G,P,R,О,H,Q}: Prog“QXYS”: ≠＞△LbI 0:{S,M,Z}:S“ZHUANG HAO=”: LbI 8N=1=> Prog“TDGS--SJ”: GOTO 2: ≠＞△N=2=> Prog“00000”: GOTO 2: ≠＞△N=3=> Prog“QXYS”: 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“KUAN DU=”: Z=1000=> GOTO 5△Z≠0=> GOTO 3 △X“XS=”▲ Y“YS=”▲F＜0=> F=F+360:≠＞△F“QX-FWJ=”▲LbI 4:I=0: J=0: PoI(X-C,Y-E)：J＜0=> J=J+360:≠＞△J“FWJ=”▲ I“HD=”▲ G OTO 0Lb1 5:M“PJ=”: F=F+M:X=X+ZCOSF▲Y=Y+ZSINF▲Goto 4Lb1 5:DegF=F-M:J=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 8Lb1 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 7QXYS(现场输入曲线要素)U“X0=”: V“Y0=”: G“F0=”: P“R1=”:R“R2=”: О“DK1=”: H“DK2=”:Q “L(-1),R(+1),0”TDGS—SJ(线路名称)S＞0=>S≤线元终点里程=>U=线元起点x坐标:V=线元起点y坐标:G=线元起点方位角: P=线元起点半径(直缓点、缓直点半径为1045)：R=线元终点半径(直缓点、缓直点半径为1045)：Q=(左转为-1，右转为+1，直线为0)：GOTO 3：≠＞△△S≤线元终点里程=>U=线元起点x坐标:V=线元起点y坐标:G=线元起点方位角:P=线元起点半径(直缓点、缓直点半径为1045)：R=线元终点半径(直缓点、缓直点半径为104 5)：Q=(左转为-1，右转为+1，直线为0)：GOTO 3：≠＞△。

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

一、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 ）、卵形曲线，只要按曲率变化点分解弄清变化点曲率半径，右偏左偏曲线由曲率的正负号分别，既可求得该计算单元内任意里程中桩及斜交或正交的边桩。