4800中边桩坐标计算程序
4850 4500 4800正反算程序
1．中边桩计算程序<1>主程序名—XYLbl 1:{KM}：K：M：Prog”3”:X=C+Mcos(W-90:Y=D+Msin(W-90:”X=”:X:Pause 0:”Y=”:Y▲Goto1<2>子程序—3PrOg”QX”：Prog”20”<3>曲线要素—QX数据实例：某高速公路中线设计如下图所示K<2000=>B:E:F:O:P:Q:R: K≤4570=>B=25:E=1000:F=1000:O=100P=66:Q=4000:R=800: K≤5040=>B=-17:E=1086.4378:F=1555.1451:O=90:P=91:Q=4570:R=800: K≤5670=>B=35:E=1168.2556:F=2016.0909:O=120:P=74:Q=5040:R=1000: B=-25:E=1180.9927:F=2636.2334:O=150:P=109:Q=5670:R=1500注：无缓和曲线时，O=0.00001当输入里程小于2000时，为新曲线要素输入，可修改值域范围<4> 计算过程—20Z=O：Prog”8”：A=B/AbsB:L=ABπR/180+O:T=(D+RcosN)tan(AB/2)+C-RsinN：K≤Q-T=>C=(K-Q)cosP+E：D=(K-Q)sinP+F:W=P： K≤Q-T+O=>Z=K-Q+T：Prog”9”：K≤Q-T+L-O=>Z=O: Prog”9”:V=90(K-Q+T-O)/ πR:S=2R sinV:N=W+AV:C= C+S cosN:D=D+S sinN:W=W+2AV: Z=Q-T+L-K: Prog”8”:V=P+B-180-AV:W=P+B-AN :C=S cosV+E+T cos(P+B:D=S sinV+F+T sin(P+B: Z=K-Q+2T-L:W=P+B:C=E+ZcosW:D=F+Z sinW△△△△N=Z[3]<5> 缓和曲线方程式—8V=RO:C=Z-Z^5/40V2+Z^9/3456V^4:D=Z^3/6V-Z^7/336V^3+Z^11/42240V^5:N= 90Z^2/πV:V=tan-1(D/C:S=(D^2+C^2)^0.5<6> 子程序—9Prog”8”:C=Scos(P+AV)+E-TcosP:D=Ssin(P+AV)+F-TsinP:W=P+AN2.桩号、边桩距返算程序—KM方式一：试算法（速度慢，程序简单）Fixm:K=Q-T+L-O:Prog”20”Lbl 1:{XY}Lbl 2:POL(X-C,Y-D:K=Isin(J-W+90)+K:Abs sin(J-W+90)<0.0001＝>”K=”:K:Pause0:”M=”:M=Icos(J-W+90▲≠>Prog”20”:Goto2△方式二：解算法（程序复杂，计算速度快）Defm5: Lbl 1:Fixm:{XY}:Pol(X-E,Y-F:Z[1]=I:Z[2]=J:cos(J-P<0＝>K=Q+Icos(J-P: ≠>K=Q+Icos(J-P-B)+2T+L△K≤Q-T＝>M=Icos(J-P+90:Goto5≠>Goto2△△Lbl 2:Z=O:Porg”8”:U=(D+RcosN)+cos(B/2):Z=P+B/2+90A:C=UcosZ+E:D=UsinZ+F:Pol(X-C,Y-D:Asin(J-P-AN+90 A<0＝>K=K-AZ[1]cos(Z[2]-P+90)tan(90 (K-Q+T)^2/πRO):Goto3:≠>Asin(J-P-B+AN+90A>0 ＝>K=K-AZ[1]cos(Z[2]-P-B-90 )tan(90(K-Q+T-L)^2/πRO):Goto4:≠>K=Q-T+O+Asin-1(sin(J-P-AN+90 A))×πR/180 :M=A(I-R:Goto5△△Lbl 3:Z=K-Q+T:Prog”9”Pol(X-C,Y-D:K=K+Isin(J-W+90 :Abs sin(J-W+90<.001＝>M=Icos(J-W+90 :Goto5: ≠>Goto3△Lbl 4:Z=Q-T+L-K:Prog”8”:V=P+B-180-AV:W=P+B-AN:C=cosV+E+Tcos(P+B:Pol(X-C,Y-D:K=K+Isin(J-W+90 :Abs sin(J-W+90 <.001＝>M=Icos(J-W+90:Goto5: ≠>Goto4△Lbl 5:”K=”:K:Pause0:”M=”:M▲注：程序“20”为中桩计算程序Q—直缓点里程；T—切线长，L—曲线长；O—缓和曲线长；W—切线方位角Pol—极坐标转换，为涵数特别注意数字0和字母O的区别一、程序功能本程序由一个主程序(TYQXjs)和两个子程——正算子程序(SUB1)、反算子程序(SUB2)序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。
4800程序集
R: 半径 A: 偏角 E: 外距 K: 放样中桩桩号 JU LI: 距离
LS: T: JDK: FWJ: B:
缓和曲线长度 切线长 交点桩号 方位角 距中桩宽度(放边桩左+右-)
B
Lbl 0 ： Z “ Z=90 ” ： Fixm ： {KB} ： I=K-W+T ： J=Z ： B ： I<S-L=>I ≤ 0=>"ZX1":M=I+B cosZ ： N=BsinZ：Goto2⊿C=1=>J=180-Z⊿I≤L=>"LS1": Porg“D”：≠>"INY": Porg“F”⊿ Lbl 2：J=O：Porg“G”：Goto0⊿I=W-T+S-K I≤0=>"ZX2":M=I-B cosZ：N=-BsinZ：≠>"LS2":C=-1=>J=180-Z⊿Porg“D”：N=-N⊿J=U：Porg“ G”：Goto0
4800P极坐标放样输入步骤(中边桩放样) 4800P极坐标放样输入步骤(中边桩放样)
A
XYD“X1”E“Y1”F“X2”G“Y2”H“X3”V“Y3”RL“LS”W“JDK” I=D-F：J=E-G：Porg“C”：O=J：I=H-F：J=V-G：Porg“C”：U=J M=O-J：M<0=>M=M+360⊿M“A”=180-M◢M<0=>C=-1：≠> C=1⊿M=AbsM： 2 2 P=L ÷(24R)-L^4÷(2688R^3)：Q=L÷2- L^3÷(240R )： (R+P)tan(M÷2)+Q：Prog“Z”： T=Ans ◢: I“E”=(R+P)÷cos(M÷2)-R◢RπM÷180+L：Prog“Z”： S=Ans◢I“ZH”=W-T◢I“HY”=WT+L◢I“QZ”=W-T+S÷2◢I“YH”=W-T+S-L◢I“HZ”=W-T+S◢:Porg“B”
4800公路中边桩高程计算程序
4800公路中边桩高程计算程序４８００公路中边桩高程计算程序fx-4800高等级公路中边桩标高程计算程序（适用超高方式为有分隔带绕左内侧旋转，无分隔绕线路中心旋转）随着高等级公路建设的不断发展，对路基施工高程控制要求不断提高，经常在现场要对路基中边桩高程进行测量，由于施工线路较长，高程数据较多，而且只提供设计桩号的高程，对非设计断面的横坡及高程计算相当复杂，因此利用fx-4800计算器的编程功能及扩展变量的储存功能，编制一个程序，可以预先输入整条线路的曲线要素，使用时，只要输入任意点桩号就可以计算中边桩高程。
程序由中桩高程计算主程序和横坡计算子程序组成，程序如下：1、中桩高程计算程序文件名（ZZGC）程序说明Lb1 0Fix 3（输入变坡点数） N=?（输入扩展变量位置数） V=?M=V（输入待求桩号） {K}Lb1 1K>Z[2+M]-Z[3N+3+M]=> （确定待求桩号在哪个竖曲线内）M=M+1：Goto 1（读取该竖曲线半径） R=Z[2N+2+M]（读取该竖曲线切线长） T=Z[3N+2+M]（读取该变坡点前坡率）I=Z[4N+2+M]÷100（读取该变坡点后坡率）L=Z[4N+3+M]÷100（计算待求桩号与该竖曲线起点距离）S=K-Z[1+M]+Z[3N+2+M]M=V=> （如果桩号在起点与第1竖曲线起点之间，转Lb1 5 ）Goto 5⊿（计算坡率差） A=I-L（判断竖曲线凹凸）J=AbsA÷AS （如果距离在前半曲线内，计算改正值）Y=S^2÷2R ：Goto 2 ⊿S<2T=> （如果距离在后半曲线内，计算改正值）Y=(2T-S)^2÷2R ：Goto 3 ⊿Goto4Lb1 2H=Z[N+2+M]-I(T-S)- YJD"H" =D ◢Goto 6Lb1 3H= Z[N+2+M]+L(S-T)- YJD"H" =D ◢Goto 6Lb1 4（在直线内，计算高程） H=Z[N+2+M]+L(K-Z[1+M])D"H" =D ◢Goto 6Lb1 5I=Z[V+4N+3] ÷100H=Z[V+N+3]-I(Z[V+2]-K）D"H" =D ◢Lb1 6(输入边桩距离，右正，左负) {B}Prog "HP js" (转横坡计算子程序，应与横坡计算文件名相同)Fix 3B<0=> D=D-QAbsB÷100 ：Goto 7 ⊿B>0=> D=D-PAbsB÷100 ：Goto 8 ⊿Lb1 7D"ZBH" =D ◢（显示左边桩高程）Goto 0Lb1 8D"YBH" =D ◢（显示右边桩高程）Norm：1Goto 0中桩高程计算程序扩展变量设置表起点第1变坡点第2变坡点第3变坡点第n变坡点终点里程Z[V+1]Z[V+2]Z[V+3]Z[V+4]Z[V+n+1] Z[V+n+2]高程Z [V+n+3]Z[V+n+4]Z[V+n+5]Z[V+2n+2]R 竖曲线半径Z[V+2n+3] Z[V+2n+4] Z[V+2n+5] Z[V+3n+2] T（竖曲线切线长）Z[V+3n+3] Z[V+3n+4] Z[V+3n+5] Z[V+4n+2]I （坡率）Z[V+4n+3] Z[V+4n+4] Z[V+4n+5] Z[V+5n+2] Z[V+5n+3]2、横坡计算程序文件名（HP js）程序说明Lb1 0（输入平曲线交点数） N=?（输入标准横坡值） I=?（输入LC值） T=?（输入扩展变量位置） V=?M=V(输入桩号,如作为子程序使用则无此行) {K}Lb1 1K>Z[2+M] => M=M+1 ：Goto 1 ⊿（读取平曲线全长） L=Z[N+2+M]（读取LS1） E=Z[2N+2+M]（读取LS2） F=Z[3N+2+M]（读取标准超高值） H=Z[4N+2+M]（读取线路偏向，右=1，左=-1） A=Z[5N+2+M]S=K-Z[M+1]M=V=> P=I ：Q=I ：Goto 7 ⊿E=0=> （无LS则不设超高） P=I ：Q=I ：Goto 7 ⊿S≤T=> （如果该点在第1 Lc内，转Lb2） S=S ：Goto 2 ⊿S≤E=> （如果该点在 Lc-Ls1终点，转Lb3） S=S-T ：Goto 3 ⊿S≤L-F=> （如果该点在圆曲线内，转Lb4）Goto 4 ⊿S≤L-T=> （如果该点在Ls2起点-Lc，转Lb 5）S=S-(L-F) ：Goto 5 ⊿S≤L=> （如果该点在第2Lc内，转Lb6） S=T-(L-S) ：Goto 6 ⊿（在直线） P=I ：Q=I ： Goto 7Lb1 2A=1=> （右偏） P=I ：Q=I-2IS÷T ：Goto 7 ⊿A=-1=> （左偏） P= I-2IS÷T ：Q=I ：Goto 7 ⊿Lb1 3A=1=> P=I+S(H-I) ÷(E-T) ：Q=-P ：Goto 7 ⊿A=-1=> P=-I- S(H-I) ÷(E-T) ：Q=-P ：Goto 7 ⊿Lb1 4A=1=> P=H ：Q=-H ：Goto 7 ⊿A=-1=> P=-H ：Q=H ：Goto 7 ⊿Lb1 5A=1=> P=H-S(H-I) ÷(F-T)：Q=-P ：Goto 7 ⊿A=-1=> P=-H+S(H-I) ÷(F-T)：Q=-P ：Goto 7 ⊿Lb1 6A=1=> P=I：Q=-I+2IS÷T ：Goto 7 ⊿A=-1=> P=-I+2IS÷T ：Q=I ：Goto 7 ⊿Lb1 7Fix 3P"YI"=P ◢（显示右横坡，如不需显示则无“◢”）Q"ZI"=Q ◢（显示左横坡，如不需显示则无“◢”）Norm ：1(如作为子程序使用则无此行) Goto 0横坡计算程序扩展变量设置表起点第1交点第2交点第3交点第Z交点终点线路起点、曲线起点、线路终点桩号Z[V+1] Z[V+2] Z[V+3] Z[V+4] Z[V+Z+1] Z[V+Z+2]L (平曲线全长) Z[V+Z+3] Z[V+Z+4] Z[V+Z+5] Z[V+2Z+2]LS1 Z[V+2Z+3] Z[V+2Z+4] Z[V+2Z+5] Z[V+3Z+2]LS2 Z[V+3Z+3] Z[V+3Z+4] Z[V+3Z+5] Z[V+4Z+2]i (标准超高值) Z[V+4Z+3] Z[V+4Z+4] Z[V+4Z+5] Z[V+5Z+2]偏转方向(右偏=1，左偏=-1) Z[V+5Z+3] Z[V+5Z+4] Z[V+5Z+5] Z[V+6Z+2]3、使用说明把上述程序输入到fx-4800内，然后扩展足够的变量个数，即至少为5N+3+6Z+2个，N为变坡点个数，Z 为平曲线交点数。
卡西欧FX4800计算中边桩程序
卡西欧FX4800计算中边桩程序,程序：McW“1.js 2.SZ”:W=1=>Goto 1 ΔW=2=> O“KOU LING”:O≠123456=>O=0“OUT” ◢Goto 4 ΔO=0:Defm 83:Z[81]=1:Goto 0←┘Lbi 0←┘{ABCDEFGU}:A“X0”:B“Y0”:C“F0’:D“R0”:E“RN’:F“D0”:G“LS”:U“G” ←┘Z[Z[81]]=A:Z[Z[81]+10]=B:Z[Z[81]+20]=C:Z[Z[81]+30]=1÷D:Z[Z[81]+40]=1÷E:Z[Z[81]+5 0]=F: Z[Z[81]+60]=F+G: Z[Z[81]+70]=U←┘A=0=> Dsz Z[81]:Goto 1ΔIsz Z[81]:Goto 0←┘Lbi 1←┘{HS}:H“D’:S“Z”:Z[82]=1:Goto 2←┘Lbi 2←┘Z[81]>Z[82] =>”OUT” ◢:Goto5←┘H≤Z[Z[82]+60]=>A=Z[Z[82]]:B=Z[Z[82]+10]:Z[Z[82]+20]=C:D=Z[Z[82]+30]: E=Z[Z[82]+ 40]: F=Z[Z[81]+50]: G=Z[Z[81]+60]: U=Z[Z[81]+70]: Goto3:ΔIsz Z[82]:Goto 2Lbi 3←┘P＝U（E-D）÷Abs（G-F）：Q＝Abs（H-F）：I＝PQ：J＝C+90 Q（I+2UD）/π：J<0=> J=J+360ΔM＝C+45 Q（I÷4+2UD）÷2π：N＝C+135Q（3I÷4+2UD）÷2π：K＝C+45Q（I ÷2+ 2UD）÷π←┘S=0=>Z=0：Goto4ΔS＜0=>Z＝－1：Goto4ΔZ＝1：Goto4←┘Lbi 4X＝A+Q(Cos C+4（Cos M+Cos N）+2Cos K+Cos J) ÷12 +ZSCos（J+90Z) ←┘Y＝B+Q(Sin C+4（Sin M+Sin N）+2Sin K+Sin J) ÷12 +ZSSin（J+90Z) ←┘S=0=>“X”:X:Pause 0: “Y” :Y◢Goto 1ΔS<0=>“XL”:X:Pause 0: “YL”:Y◢Goto 1ΔS>0=>“XR”:X:Pause 0: “YR”:Y ◢Goto 1 ←┘Lbi5←┘二、变量及说明X0：Y0：F0――――曲线元起点X、Y坐标及起点正切线方位角R0：RN――――――曲线元起点及终点半径D0：LS：Q―――曲线元起点桩号、路线长度及线路左右偏标志（左=-1,直线=0,右=1）D――――――――曲线元中待求点桩号Z―――――――――计算边桩距中线平距，左边输入负值，右边输入正值，中桩输入0 X：YXL:YLXR:YR ―――――――待求点中边桩桩号的X，Y坐标扩充变量：Z[Z[81]]: Z[Z[81]+10]: Z[Z[81]+20]: Z[Z[81]+30]: Z[Z[81]+40]: Z[Z[81]+50]: Z[Z[81]+60]: Z[Z[81]+70]: 分别为各线元X0:Y0:F0;R0:RN:D0:LS:Q(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
4800P计算器测量程序
拉萨高建监理有限公司：刘小坚编直线、圆曲线中桩及左、右边桩计算程序fx-4800p=”：K“D=”：C“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：L“Lμo=”：M“JμoQ=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μ=置镜点到待求点距离oD左、右边距离Jμ=前进方向左（+90），右（－90）oO=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标缓和曲线中桩及左、右边桩计算程序Fx-4800pC“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：F“Lθ=”：L =”：K“D=”：M“Jμo=”←“LμoU=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μoD左、右待求距离=前进方向左（+90），右（－90）JμoO=中桩坐标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）←C=X“X－”－I←B=Y“Y－”－W←Prog“P”←L“L”=√（B2＋C2）◢V=A－U：V<θ==>V=V＋36θ⊿V “V=”◢PA=tan－1（B÷C）←B≥θ==> C≥θ==> A=A：≠=> C<θ==> A=A＋18θ⊿⊿≠=> B<θ==> C≥θ==>A=A＋36θ: ≠=>C<θ==>A= A＋18θ⊿⊿⊿←XZ、YZ—置镜点X、Y坐标；XH、YH—后视点坐标；X-、Y-—前视点坐标；输出：R=水平角、L=置镜点至前视点水平距离。
公路曲线中桩边桩坐标fx4800P计算程序
公路曲线中桩边桩坐标fx4800P计算程序在快速发展的公路建设事业中,使用GPS坐标控制系统的高等级公路日渐增多,并且,随着高精度的测量设备的广泛采用,其他等级公路也开始普遍应用坐标控制。
使用坐标控制的公路项目,有着线型流畅、行车速度快而舒适、环境优美等特点,这些都来源于高质量的设计与施工,卡西欧fx-4800p计算器由于其轻便、精度高、易于操作,能够解决设计、施工当中很多的实际困难,因此,倍受公路工程技术人员的青睐。
本人通过在高速公路多年的施工经验,编写了许多公路测量实用程序,如常用的中桩边桩计算程序,匝道坐标计算程序,施工放样程序,换带程序等等。
下面把公路中常用的中桩边桩计算程序介绍给大家,希望本程序能够对公路测量同行有所帮助.。
1 程序清单:LbI 0:Defm 6↙″CURVE MODE″:{M}:M″0:T1=T2,1:T1≠T2″↙M=0=>Goto 7:≠>M=1=>Goto 8:≠>Goto 0⊿⊿↙LbI 7:{ABCDEFGR}↙A″ZHD″:B″HZD″:C″XJD″:D″YJD″:E″ELPHA″:F″PJ:Z(-),Y(+)″:G″L0″:R↙T=(R+G2÷(24R)-G ÷(2688R ))tan(AbsF÷2)+0.5G-G ÷(240R2) ↙U=G:V=T: Goto 1↙LbI 8:{ABCDEFGUTVR}↙A″ZHD″:B″HZD″:C″XJD″:D″YJD″:E″ELPHA″:F″PJ:Z(-),Y(+)″:G″L01″:U″L0 2″:T″T1″:V″T2″: R↙LbI 1:{H}:H″DQD″↙H≥B=>M=1: ≠>H>B-U=>M=2: ≠>H≥A+G=>M=3: ≠>H≥A=>M=4: ≠>HM=5⊿⊿⊿⊿⊿↙M≤2=>L=Abs(H-B): ≠>L=Abs(H-A)⊿↙M=1=>Z[1]=L: ≠>M=2=>Z[1]=√((L-L ÷(40R2U2)+L ÷(3456R U ))2+(L ÷(6RU)- L ÷(336R U )+ L÷(42240R U ))2): ≠>M=3=>Z[1]=√((G-G ÷(40R2)+G ÷(3456R ))2+(G2÷(6R)-G ÷(336R )+G ÷(42240R ))2):≠>M=4=>Z[1]=√((L-L ÷(40R2G2)+L÷(3456R G ))2+ (L ÷(6RG)- L ÷(336R G )+ L÷(42240R G ))2): ≠>M=5=>Z[1]=L⊿⊿⊿⊿⊿↙M≤2=>Z[2]=C+Vcos(E+F): Z[3]=D+Vsin(E+F): ≠>Z[2]=C+Tcos(E+180): Z[3]=D+Tsin(E+180) ⊿↙M=1=>Z[4]=E+F:≠>M=2=>Z[4]=E+F+180:≠>M=5=>Z[4]=E+ 180:≠>Z[4]=E ⊿⊿⊿↙N=F÷AbsF↙M=1=>I=0:≠>M=2=>I=-N(30L2÷(ΠRU)):≠>M=3=>I=N(30G÷(ΠR)):≠>M=4=>I=N(30L2÷(ΠR G)):≠>M=5=>I=0⊿⊿⊿⊿⊿↙Z[4]=Z[4]+I↙Z[5]=Z[2]+Z[1]cosZ[4]↙Z[6]=Z[3]+Z[1]sinZ[4]↙M≠3=>Goto 3⊿↙LbI 2:P=90L÷(ΠR):Q=90(L-G)÷(ΠR)↙Z[5]= Z[5]+2RsinQcos(E+NP)↙Z[6]= Z[6]+2RsinQsin(E+NP)↙LbI 3↙X″X(ZX)″=Z[5]◢Y″Y(ZX)″=Z[6]◢LbI 4↙M=3=>I=90N(2L-G) ÷(ΠR): ≠>I=3I⊿↙M=1=>P=E+F: ≠>M=2=>P=E+F+180: ≠>M=5=>P=E+180: ≠>P=E⊿⊿⊿↙P=P+I-90:Q=P+180↙M=2=>X=P-90: ≠>M=5=>X=P+180: ≠>X=Q-90⊿⊿↙XX=X+360: ≠>X>360=>X=X-360⊿⊿↙X″QXFWJ(Z-Y)″=X◢{SW}:S″SZ ″: W″SY ″:AbsS+AbsW=0=>Goto 1⊿↙M=2=>Goto 5: ≠>M=5=>Goto 5: ≠>Goto 6⊿⊿↙LbI 5:S=-S:W=-W↙LbI 6↙X″X(Z)″=Z[5]+ScosP◢Y″Y(Z)″=Z[6]+SsinP◢X″X(Y)″=Z[5]+WcosQ◢Y″Y(Y)″=Z[6]+WsinQ◢Goto 1↙2 程序参数说明:开始运行程序时选择曲线类型(CURVE MODE),0为等切线曲线,1为不等长切线曲线。
卡西欧4800坐标计算程序
QL（坐标反算）Lbi 0:C“X0”:D“Y0”:{XY}:X“X2”Y“Y2”:(X-C)=O=>Goto 1:≠Lbi 1:W“Q”=0◢Goto 0Lbi 2:Prog“FWJ”Fix 4W“Q”=IntW+0.01Int(60FracW)+0.006Frac(60FracW) ◢NormT“L”= ((X-C)2+(Y-D)2)◢Goto 0说明：（已知两点坐标，反算方位角及两点间的距离）先按FILE键，光标选择QL，按EXE运行。
输入：X0? 测站点（或起算点）X轴坐标，按EXEY0? 测站点（或起算点）Y轴坐标，按EXEX2? 后视点（或方向点）X轴坐标，按EXEY2? 后视点（或方向点）Y轴坐标，按EXE显示： Q 方位角（如：125.0325即表示125。
03’25”）,按EXE L 两点间距离再按EXE进行循环运算，重复输入X2？、Y2?否则按AC键退出。
XY(坐标正算)Lbi 0:C“X0”:D“Y0”:{WM}:W“Q”M“L”:X=C+McosW◢Y=D+MsinW◢Goto 0说明：（已知一点坐标、方位角、距离，求另一点坐标）先按FILE键，光标选择XY，按EXE运行。
输入：X0? 测站点（或起算点）X轴坐标，按EXE Y0? 测站点（或起算点）Y轴坐标，按EXE Q? 已知方位角，按EXEL? 两点间距离，按EXE显示：X 所求点X轴坐标，按EXEY 所求点Y轴坐标，按EXE再按EXE进行循环运算，重复输入Q? 、L?否则按AC键退出。
ZX（直线坐标计算）Lbi 0:G“QD”：A“QDX”: B“QDY”:Q“Q”:{L,K}:Prog“ZZ”:Goto 0说明：（计算直线段任意里程桩号坐标）先按FILE键，光标选择XY，按EXE运行。
输入：QD? 直线段起点里程，按EXEQDX? 起点X轴坐标，按EXEQDY? 起点Y轴坐标，按EXEQ? 已知方位角，按EXEL? 所求点里程，按EXEK? 所求点距中线的宽度（左负右正），按EXE显示：X 所求点X轴坐标，按EXEY 所求点Y轴坐标，再按EXE进行循环运算，重复输入L? 、K?否则按AC键退出。
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 丘地有关项⽬的计算程序公路中、边桩坐标计算及放样程序功能：任意半径曲线中桩、任意交⾓边桩坐标计算放样、中桩切线⽅位⾓、任意点置仪放样、两点间距离计算、两点⽅位⾓计算。