卡西欧fx-5800p计算器测量程序
CASIO-fx-5800P实用工程测量程序
CASIO-fx-5800P实用工程测量程序今天，我想向大家介绍一款非常实用的工程测量程序：CASIO-fx-5800P。
CASIO-fx-5800P是一款非常实用的计算器，可以用于各种工程测量和计算。
在这篇文章中，我将详细介绍该计算器的功能和使用方法。
什么是CASIO-fx-5800P？CASIO-fx-5800P是CASIO公司的一款高级科学计算器，该计算器集成了丰富的计算功能和工程测量功能，可以帮助用户准确地进行各种计算和测量。
该计算器适用于各种工程测量、科学计算、数据分析等工作。
CASIO-fx-5800P的功能下面是CASIO-fx-5800P常用的功能：1. 基本运算功能CASIO-fx-5800P可以进行各种基本运算，如加减乘除、开方、开方根、倒数等等。
2. 三角函数和反三角函数CASIO-fx-5800P 提供了三角函数和反三角函数的计算功能，如正弦函数、余弦函数、正切函数、反正弦函数、反余弦函数、反正切函数等。
3. 统计学计算CASIO-fx-5800P 提供了各种统计学计算功能，如数据输入、平均数、方差、标准差、偏差等。
4. 矩阵功能CASIO-fx-5800P 可以完成任何矩阵的基本计算，如矩阵乘法、矩阵求逆、矩阵行列式、矩阵分解、矩阵特征向量和特征值等。
5. 工程测量CASIO-fx-5800P 可以进行各种工程测量计算，如距离计算、面积计算、容积计算、温度计算、时间计算等。
6. 复数运算CASIO-fx-5800P 可以进行各种复数运算，如加减乘除、转换成极坐标形式等。
7. 方程求解CASIO-fx-5800P 可以解各种方程，如一次方程、二次方程、三次方程、四次方程、多项式方程、微积分方程等。
CASIO-fx-5800P在工程测量中的应用下面，我将介绍CASIO-fx-5800P 在工程测量中的应用。
CASIO-fx-5800P 是一种非常实用的计算器，在工程测量中有着广泛的应用。
CASIOfx-5800P矩阵编程计算器测量程序集锦梁宝禄
测量程序集锦梁宝禄2008.7.12CASIO fx-5800P 矩阵编程计算器测量程序集锦梁宝禄1、单交点对称基本形曲线偏角法中桩放样计算最近看了覃辉老师的CASIO fx-5800P 矩阵编程计算器《工程测量与公路测设程序加油站操作手册》后，发现个别语句中缺乏命令或符号，如PR16主程序中两句Else If F=0:Then X[K] List X[K+1]都缺List，程序不能正常运行，应该修改为Else If F=0:Then List X[K] List X[K+1]。
本人根据CASIO fx-5800P 矩阵编程计算器的特点整编了这个程序。
与覃辉老师的CASIO fx-5800P 矩阵编程计算器《工程测量与公路测设程序加油站操作手册》中的PR13、 PR16相比，它不管有没有缓和曲线都能用（没有缓和曲线提示Lh=?时，输入0即可），而且本程序还考虑到了有缓和曲线的圆曲线测设多数在HY、YH上置镜，设置了提示是否在HY、YH 上置镜，并将在HY、YH 上置镜的偏角、弦长计算出来，用起来更方便。
主程序：Deg:ClrStat:FreqOn:Norm 1 设置角度单位为十进制度15 DimZ 定义额外数组变量"JDZH="?Z 输入以m 为单位的交点桩号"JDLXZJ（-L,+R)="?D 输入交点路线转角,左偏为负,右偏为正D Z[6]:Abs(D) D 保存转角及符号Fix 3"R="?R 输入圆曲线半径"Lh="?H 输入缓和曲线长"ZZJJL=" ？I 输入整桩间距H2÷(24R) P:0.5H-H^(3)÷(240R2 ) Q 计算切线增量与内移值(R+P)tan(0.5D)+Q T 计算切线长90H÷( πR) B 计算缓和曲线偏角πR(D-2B)÷180 A 计算圆曲线长A+2H L 计算曲线长(R+P)cos(0.5D)^(-1）-R E 计算外距2T-L J:Fix 3 计算切曲差"T=":T 显示切线长"LY=":A 显示圆曲线长"L=":L 显示曲线长"E=":E 显示外距"J=":J 显示切曲差"B=":2B÷3 DMS 显示缓和曲线β角Z-T Z[1] 计算ZH 点桩号 1Z[1]+H Z[2] 计算HY 点桩号2Z[2]+0.5A Z[3] 计算QZ 点桩号3Z[3]+0.5A Z[4] 计算YH 点桩号4Z[4]+H Z[5] 计算HZ 点桩号5H=0 Goto 1 没有缓和曲线进入Lbl 1 "ZHZH=":Z[1] 显示ZH 点桩号 1"HYZH=":Z[2] 显示HY 点桩号2"QZZH=":Z[3] 显示QZ 点桩号3"YHZH=":Z[4] 显示YH 点桩号4"HZZH=":Z[5] 显示HZ 点桩号5Z[1] List X[1]:0 List Freq[1] 存储ZH 点桩号2 K 为计数变量赋初值H Z[10]:Prog "Z[10]-XY" 调子程序计算HY 或YH 点的独立坐标Z[13] Z[11]:Z[14] Z[12] 存储HY 点的独立坐标Int(Z[1]÷I)I+I List X[K] 计算并存储从ZH 点开始的第一个整桩号Prog "X[K]-HGC" 调子程序计算并显示弦切角G 与弦长C0 F 清除HY 点计算标记Do 计算ZH 点至QZ 点K+1 K 计数变量计数List X[K-1]+I List X[K] 计算并存储整桩号If List X[K]<Z[2] ZH~HY 点间Then Prog "X[K]-HGC" 调子程序计算ZH~HY 点间的点Else If F=0:Then List X[K] List X[K+1]Z[2] List X[K]Prog "X[K]-HGC" 调子程序计算HY 点1 F:K+1 K 标记HY 点已完成，计数变量计数，再计算逐桩点Prog "X[K]-HGC" 调子程序计算HY 点后的第一个整桩点Else Prog "X[K]-HGC" 调子程序计算HY~QZ 点间的点IfEnd:IfEndLpWhile List X[K]+I<Z[3] 还没有计算到 QZ 点时继续循环K+1 K 计数变量计数Z[3] List X[K] QZ 点的桩号Prog "X[K]-HGC" 调子程序计算QZ 点K+1 K 计数变量计数Int(Z[3]÷I)I+I List X[K]Prog "X[K]-HGC" 调子程序计算QZ 点开始的第一个整桩号0 F 清除YH 点计算标记Do 计算QZ~HZ 点间的点K+1 K 计数变量计数List X[K-1]+I List X[K] 计算并存储整桩号If List X[K]<Z[4] QZ~YH 点间Then Prog "X[K]-HGC" 调子程序计算ZH~HY 点间的点Else If F=0:Then List X[K] List X[K+1]Z[4] List X[K]Prog "X[K]-HGC" 调子程序计算YH 点1 F:K+1 K 标记YH 点已完成，计数变量计数，再计算逐桩点Prog "X[K]-HGC" 调子程序计算YH 点后的第一个整桩点Else Prog "X[K]-HGC" 调子程序计算YH~HZ 点间的点IfEnd:IfEndLpWhile List X[K]+I<Z[5] 还没有计算到HZ 点时继续循环 K+1 K:Z[5] List X[K]:0 List Freq[K] 存储HZ 点桩号0 List X[K]:2B÷3 List Y[K]Goto 2 完成计算进入Lbl 2Lbl 1"ZYZH=":Z[1] 显示ZY 点桩号 1"QZZH=":Z[3] 显示QZ 点桩号2"YZZH=":Z[5] 显示YZ 点桩号3Z[1] List X[1]:0 List Freq[1] 存储ZY 点桩号2 K 为计数变量赋初值Int(Z[1]÷I)I+I List X[K] 计算并存储从ZY 点开始的第一个整桩号 Prog "X[K]-GC" 调子程序计算并显示弦切角G 与弦长CDo 计算ZY 点至QZ 点K+1 K 计数变量计数List X[K-1]+I List X[K] 计算并存储整桩号Prog "X[K]-GC" 调子程序计算并显示弦切角G 与弦长CLpWhile List X[K]+I<Z[3] 还没有计算到 QZ 点时继续循环K+1 K 计数变量计数Z[3] List X[K] QZ 点的桩号Prog "X[K]-GC" 调子程序计算并显示弦切角G 与弦长CK+1 K 计数变量计数Int(Z[3]÷I)I+I List X[K] 计算并存储从QZ 点开始的第一个整桩号Prog "X[K]-GC" 调子程序计算并显示弦切角G 与弦长CDo 计算YZ 点至逐桩点的弦长K+1 K 计数变量计数List X[K-1]+I List X[K] 计算并存储整桩号Prog "X[K]-GC" 调子程序计算并显示弦切角G 与弦长CLpWhile List X[K]+I<Z[5] 还没有计算到 QZ 点时继续循环K+1 K:Z[5] List X[K]:0 List Freq[K] 存储YZ 点桩号Lbl 2Return没有缓和曲线时由逐桩点桩号计算弧长、弦切角与弦长子程序：X[K]-GC入口参数为逐桩点桩号 List X[K] ，计算出的弦切角存储在 List Y[K] ，弦长存储在 List Freq[K]。
卡西欧fx-5800p计算器测量程序
卡西欧fx-5800p计算器测量程序（作者：水江华）1.坐标反算程序"ZBFS QH1-4"◢Deg：Fix 3←┘"X+YiS(m）="?A←┘Lb1 0:"X+YiE(m)，0=>END="?B←┘Abs（B）=0=>Goto E←┘Arg（B-A)→JJ<0=>J+360→J"DIST(m）="：Abs（B-A)◢"α（DMS)=":J▶DMS◢Goto 0←┘Lb1 E:"ZBFS QH1-4=>END"2.坐标正算程序"ZBZS QH1-3"◢Deg：Fix 3←┘"XS(m)= "？A:"YS(m)= "？B←┘Lb1 1:"DIST(m)= "？L←┘If L≤0:Then Goto 2:IfEnd←┘"α（Deg)="？R←┘A+Lcos（R）→C←┘B+Lsin（R）→D←┘Fix 3："XE(m)= ":C◢"YE(m)= ":D◢Goto 1←┘Lb1 2:"ZBZS QH1-3=>END"3.单一闭、附合导线近似平差程序"BFHDXPC QH1-8"◢Deg:Norm 1:FreqOn←┘n→N←┘If List Y[N]=0:Then N-1→DimZ:Goto 0←┘Else N→DimZ:Goto 1: IfEnd←┘Lb1 0: "CLOSE Or CONECT TRA VE"◢"ANGLE NUM=":N◢"SIDE NUM=":N-1◢"UNKNOWN P NUM=":N-2◢"CLOSE(0)，CONNECT(≠0)="?→Z←┘Fix 3："XA(m)，≤0=>αA→B(Deg)="？A←┘If A>0：Then "YA(m)= "？B：Else "αA→B(Deg)="？R：IfEnd←┘"XB(m)= "？C:"YB(m)= "？D←┘C+Di→U：U→V←┘If A>0：Then Pol（C-A，D-B）：Cls←┘J<0=>J+360→J：J→R←┘"DIST A→B(m)="：I◢"αA→B(DMS)="：R▶DMS◢IfEnd←┘If Z≠0：Then "XC(m)= "？E:"YC(m)= "？F←┘E+Fi→V←┘"XD(m)，≤0=>αC→D(Deg)="？G←┘If G>0：Then "YD(m)= "？H←┘Pol（G-E，H-F）：Cls←┘J<0=>J+360→J：J→S←┘"DIST C→D(m)="：I◢"αC→D(DMS)="：S▶DMS◢Else "αC→D(Deg)="？S：IfEnd←┘Else If R>180：Then R-180→S：Else R+180→S：IfEnd←┘IfEnd←┘∑y→M←┘For 1→I To N←┘If I=1：Then R+List X[I]→L：Else L+List X[I]→L：IfEnd←┘If L>180：Then L-180→L：Else L+180→L：IfEnd←┘Nent←┘3600(L-S)→T←┘"α CLOSE ERROR(S)="：T◢40→W←┘Abs(T)>W=>"α CLOSE ERROR OVRE!"←┘-T÷N÷3600→P：0→O←┘For 1→I To N←┘If I=1：Then R+List X[I]+P→L←┘Else L+List X[I] +P→L：IfEnd←┘If L>180：Then L-180→L：Else L+180→L：IfEnd←┘If I<N：Then List Y[I]<L→Z[I] ：Z[I]+O→O：IfEnd←┘Nent←┘3600(L-S)→T←┘"CHECK α CLOSE ERROR(S)="：T◢U+O-V→O←┘Int(M÷Abs(O))→K←┘"DELTA X(m)= "：ReP(O)◢"DELTA Y(m)= "：ImP(O)◢"RELAT CLOSE ERROR=1÷"：K◢K<4000=>"RELAT CLOSE ERROR OVER! "←┘For 1→I To N-1←┘Z[I]-OList Y[I]÷M→X←┘If I=1：Then U+X→Y：Else Y+X→Y：IfEnd←┘Norm 1："POINT n="：I◢Fix 3："X(m)= "：ReP(Y)◢"Y(m)= "：ImP(Y)◢Nent←┘Y-V→Q←┘"CHECK X (m)= "：ReP(Q)◢"CHECK Y (m)= "：ImP(Q)◢Goto E←┘Lb1 1："NO DIRECT TRA VE"◢"ANGLE NUM="：N-1◢"SIDE NUM="：N◢"UNKNOWN P NUM="：N-1◢"XA(m)= "？A:"YA(m)= "？B←┘"XB(m)= "？C:"YB(m)= "？D←┘A+Bi→U:C+Di→V←┘0→H:U+List Y[1]<H→Z[1]←┘For 1→I To N-1←┘H+List X[1]→H←┘If H>180：Then H-180→H：Else H+180→L：IfEnd←┘以下未完程序由读者完成。
CASIO fx—5800计算器 工程测量与公路测量程序
CASIO fx—5800计算器工程测量与公路测量程序1、坐标正算〝X0=〞?X:〝Y0=〞?Y:〝I=〞?I:〝J=〞?JX+ICos(J)→U:Y+ISin(J)→V〝X=〞:U （待求点的X坐标）〝Y=〞:V （待求点的Y坐标）说明：X0 Y0：已知点坐标I：两点的距离J：方位角２、坐标反算Lbl 0〝X1=〞?X:〝Y1=〞?Y:〝X2=〞?U:〝Y2=〞?VPol(U-X,V-Y):J<0 J+360→J〝I=〞:I〝J=〞:J DMSGOTO 0说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角３、圆曲线〝X0=〞?X: 〝Y0=〞?Y:〝FWJ=〞?D:〝QDHAO=〞?G: 〝ZDHAO=〞?C: 〝R=〞?R Lbl 1〝DQHAO=〞?LL<G Or L﹥C GOTO 2〝PY=〞?K180(L-G)÷(πR) →E2RSin(0.5E) →FReC(Abs(F),D+0.5E)：Cls〝X=〞:X+I+KCos(D+E+90) →A〝Y=〞:Y+J+KSin(D+E+90) →BD+E→o:o<0 360+o→0o〝FWJ=〞:o DMSGoto 1Lbl 2〝END〞说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO 终点里程，R：半径，DQHAO：待求点里程，PY：偏移量４、竖曲线〝QZHAO =〞?J: 〝H+B〞=?B:〝I1=〞?C:〝I2=〞?D:〝R=〞?R:〝T=〞?T: ((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(0.5R(D-C) ÷100)→S〝T〞:SJ-T→XJ＋T→YLbl 0〝DQ=〞?LIf L<X:Then Goto 1:Else If L﹥Y:Then Goto 1:If End:If End〝GC=〞:B+C(L-J) ÷100+A(L-J+T) ÷(2R) →HGoto 0Lbl 1〝END〞说明：QZHAO：曲中点里程，H+B：曲中点高程，I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。
卡西欧5800计算器测量程序-txt
CASIO5800程序编辑说明
CASIO 5800程序编辑说明CASIO-5800P计算器程序编辑说明一(程序名称:直线坐标计算——Z-X-Z程序内容:1. “X=“,A : “Y=“,B : “Q=”,Q2. LbI 03. “N=”,N : “S=”,S : ”E=”,E4. A + N cos(Q) ?D : B + N sin(Q) ?F5. D + S cos(Q + E) ?6. F + S sin(Q + E) ?7. Goto 0内容说明:A 、 B——以知点即起算点的x,y坐标值;Q——直线段方位角;N——直线段距离;S——边桩距离;E——转向角;(左转为“,E”，右转为“E”) 二(程序名称:圆曲线任意坐标计算——ZY-YZ程序内容:1. “Q=”,Q : “ X= ”,W : “ Y= “,K : “R= ”,R:“F=”,F : “N=”,N : “U=”,U2. R tan(N?2) ? T3. Q–T ? A4. W+T cos(F+180) ?M : K+T sin(F+180) ?G5. LbI 06. “H=” ,H : ” S=” ?,S : “E=” ,E7. Abs(H - A) ? D8. 180 D?(Rπ) ?О9. R sin(О) ?C10. R (1-cos(О)) ?D11. M+C cos(F) ? I : G+C sin(F) ? J12. I+D cos(F+90U) ?X : J+D sin(F+90U) ? Y13. X+S cos(F+ОU+E) ?14. Y+S sin(F+ОU+E) ?15. Goto 0内容说明: Q——交点里程桩号;W 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”)H——圆曲线上任意一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”) 三(程序名称:极坐标放样元素计算——J-Z-B-F-J程序内容: 1. “X=”,A : “Y=”,B : “X0=”,C :“Y0=”,D2. PoI ( C - A,D - B ) : CIs3. If J，0 : Then J+360?E : EIse J?E:IfEnd:E?DMS?4. I?5. LbI 06. “XN=”,U7. WhiIe U?0 (输入“0”即结束程序)8. “YN=”,V9. PoI(U-A,V-B):CIs10. If J，0:Then J+360?F:EIse J?F:IfEnd:F?DMS?11. I?12. F – E ? H13. If H，0:Then H+360?H:IfEnd : H?DMS?14. Goto 0内容说明: A、B——测站点坐标C、D——0方向点坐标E——计算出的测站点至0方向点的方位角I——计算出的测站点至0方向点的距离U，V——N方向点坐标F——计算出的测站点至N方向点的方位角I——计算出的测站点至N方向点的距离H——计算出的0方向与N方向的水平夹角表格:点号 X坐标 Y坐标距离方位角起止点号夹角测站点0点 0?01点 0?12点 0?2四(程序名称:有缓和曲线的圆曲线上点位坐标计算 F-Y-X-Y 程序内容:1(“Q=”,Q :“J=”,J :“K=”,K :“R=”,R :“F=”,F :“N=”,N :“I =”,I :“U=”,U2(6 ? Dim Z3(90 I?(Rπ) ? G (切线角，即缓和曲线角计算)3 24 4(I?(24R) - I?(2688R) ? P (内移距)32 5(I?2 - I?(240R) ? M (切线增值)6((R+P) tan (N?2)+M ? T (切线长)7(πRN ? 180 + I ? L (曲线长)8(Q – T ? A : A + I ? B :A + L ? D : D – I ? C9(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2]10(LbI 011(“H=”,H :“S=”,S :“E=”,E12(H – A – I ? Z13(180 Z?(Rπ) + G ? О14(R sin(О) + M ? X15(R (1 –cos(О)) + P ? Z16(Z[1]+ Xcos( F ) ? Z[3] : Z[2] + X sin( F )? Z[4]17(Z[3]+ Z cos (F + 90U ) ? Z[5] :Z[4] + Z sin(F + 90U )? Z[6]18(Z[5]+ S cos ( F +ОU + E ) ?19. Z[6] + S sin( F+ОU + E ) ?20(Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”) H——有缓和圆曲的线圆曲线上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”)第9项——ZH点坐标;五(程序名称:缓和曲线段上点位坐标计算 F-H-X-Y程序内容:1 (“Q=”,Q :“J=”,J :“K=”,K :“R=”,R : “F=”,F :“N=”,N :“I =”,I :“U=”,U2(12 ? Dim Z32 3(I?2 - I?(240R) ? M (切线增值)3 24 4(I?(24R) - I?(2688R) ? P (内移距)5(πRN ? 180 + I ? L (曲线长)6(M+ (R+P) tan (N?2) ? T (切线长)7(Q – T ? A : A + I ? B : (ZH : HY)A + L ? D : D – I ? C (HZ:YH)8(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2] 9. J + T cos(F+NU) ? Z[3] : K + T sin (F+NU) ? Z[4] 10(LbI 011(“H=”,H :“S=”,S :“E=”,E12. H，B? Goto 113. H，D? Goto 214(LbI 115(Abs(H - A) ? Z216(90 Z?(πR I ) ?О229445 17(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155318(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 19(Z[1]+ Xcos( F ) ? Z[5] : Z[2] + X sin( F )? Z[6] 20(Z[5]+ Z cos (F + 90U ) ? Z[7] :Z[6] + Z sin(F + 90U )? Z[8]21(Z[7]+ S cos ( F +ОU + E ) ?22. Z[8] + S sin( F+ОU + E ) ?23(Goto 024. LbI 225. D - H ? Z226(90 Z?(πR I ) ?О229445 27(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155328(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 29(Z[3]+ X cos( F + NU+180 ) ? Z[9] :Z[4] + X sin( F + NU+180)? Z[10]30(Z[9]+ Z cos (F + NU+180 - 90U ) ? Z[11] :Z[10] + Z sin(F + NU+180 - 90U )? Z[12]31(Z[11]+ S cos ( F +NU+180 - ОU -(180 – E)) ?32. Z[12] + S sin( F+ NU+180 - ОU -(180 - E)) ?33. Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前直线段正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”) H——缓和曲线段上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”)第8项——ZH点坐标第9项——HZ点坐标。
(嘘~~群内共享,切勿泄漏)卡西欧5800测量用计算程序
CASIO Fx-5800P 实用小程序（写了一个上午，希望认真学习）编辑：军开机按MODE SETUP 进入选择计算模式。
选择 5：PROG(编程)进入菜单如下： 1.NEW（新建）2.RUN(运行)3 EDIT(编辑)4 DELETE（删除）如果新建程序选择1 新建。
输入名称后按EXE 后选择 1COMP计算后即可进行程序编辑状态。
认真输入下述程序即可。
一些符号都在 FUNCTION – PROG 里面CASIO Fx-5800P 平曲线坐标计算程序（备注：文件名称可命名为 PQX（即平曲线），当然你也可以随便写）个别符号我已写上批注。
?A:?R:?C:?DC2÷24÷R－C^(4) ÷2688÷R^(3)→PC÷2-C^(3) ÷240÷R2→QC×90°÷π÷R→B〞T〞:(R+P)tan(Abs(A) ÷2)+Q→T◢〞W〞:(R+P) ÷cos(A÷2)-R→W◢〞L〞:(Abs(A)-2B) πR÷180°+2C→L◢D-T→G:G+C→H:G+L÷2→I:G+L→M:G+L-C→K?N:?E:?F:?JIf A<0:Then -1→S:Else 1→S:IfEndF+A÷2+90°S→UW+R→VN+Vcos(U) →BE+Vsin(U) →O?ZZ≤G=>Goto 1:Z≤H=>Goto 3:Z≤K=>Goto 4:Z≤M=>Goto 6:Z>M=>Goto 7Lbl 1T+G-Z→L:F+180°→V:F→U〞X〞:N+Lcos(V) →X◢〞Y〞:E+Lsin(V) →Y◢Goto 5Lbl 2?W:?Q〞X〞:X+Wcos(U+Q) →X◢〞Y〞:Y+Wsin(U+Q) →Y◢Goto 8Lbl 3Z-G→LL-L^(5) ÷90°÷R2÷C2→V30°S÷π÷R÷C×L2→LF+180°→P:F+L→Q:F+3L→U〞X〞:N+Tcos(P)+Vcos(Q) →X◢〞Y〞:E+Tsin(P)+Vsin(Q) →Y◢Goto 5Lbl 4F+A÷2+180°+90°S+(Z-I)÷R÷π×180°S→L L+90°S→U〞X〞:B+Rcos(L) →X◢〞Y〞:O+Rsin(L) →Y◢Goto 5Lbl 6M-Z→LL-L^(5)÷90°(RC) 2→V30°S÷π÷R÷C×L 2→LF+A→P:F+A+180°-L→Q:F-3L+A→U〞X〞:N+Tcos(P)+Vcos(Q) →X◢〞Y〞:E+Tsin(P)+Vsin(Q) →Y◢Goto 5Lbl 7Z-M+T→L:F+A→U:U→V〞X〞:N+Lcos(V) →X◢〞Y〞:E+Lsin(V) →Y◢Goto 5Lbl 5If J=1:Then Goto 2:Else Goto 8:IfEndLbl 8〞THANKYOU〞备注：A 线路偏角（左为负，又为正）R 半径C 缓和曲线长度D 交点桩号T 切线长W 外矢距L 曲线总长N 交点坐标XE 交点坐标YF 直缓点的方位角J 是否计算边桩是按 1 否按 0Z 待求点的里程桩号如需计算边桩，需输入下列要素：W 边桩至中桩距离（左为负，右为正）Q 边桩与路线夹角CASIO Fx-5800P 竖曲线坐标计算程序（备注：文件名称可命名为 SQX（即竖曲线），当然你也可以随便写）Lbl 1？R:?D:?M:?C:?F〞T〞:0.5Abs(F-C)R→T◢0.5T2÷R→E(F-C) ÷Abs(F-C) →V?LL≤D=>Goto 2:L>D=>Goto 3Lbl 2If D-L≤T:Then M-(D-L)C+V(T-D+L) 2÷2÷R→H:Else M-(D-L)C→H:IfEnd Goto 4Lbl 3If L-D≤T:Then M+(L-D)F+V(T-L+D) 2÷2÷R→H:Else M+(L-D)F→H:IfEnd Goto 4Lbl 4〞H〞:H◢备注：R 竖曲线半径计算出竖曲线切线长TD 边坡点里程桩号M 边坡点高程C 输入变坡点后段坡率以路线前进方向F 输入变坡点前段坡率以路线前进方向E 外矢距L 待求点里程桩号H 待求点高程。
卡西欧fx-5800p计算器 公路测量常用程序
FX-5800p计算器公路测量常用程序一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。
主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。
程序坐标计算适应于任何线型.二、源程序1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)程序名:1ZD-XYLb1 0:Norm 2F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)Z[1]=90（与路线右边夹角）Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢Ｇoto 0２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix3:”H=”:Locate 6,4,H◢“I=”: Locate 6,4,I◢Goto 03.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：3JSX：Y：1268．123→K(置仪点X坐标)2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）Y-L→E：X-K→F：Pol(F,E):IF J<0:ThenJ+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示)Fix 3:”S=”:Locate 6,4,I◢4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离)程序名：4JH-XYLbI 0:Norm 290→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量)1→F:Prog”THB”:?L:Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: ＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:5．主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5FBXLbI 0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog“THB”:Z:D:”M0”?M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:If D<0:Then 0.75-L→D:GotoH:Else L-0.75→D:Goto H:IfEndLbI H:Prog”H”:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]<0:Then –z[5] →G:Goto W:Else Z[5] →G:Goto T:LbI W:Prog “W0”:Z[10]+Z[11] →A: If G>A:Then Goto 1:Else If G>Z[10]:Then Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto Z:LbI 2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:Goto Z:LbI 3:L+Z[12]+G×Z[7]:Goto z:LbI T:L+0.5→N:If G>Z[17]:Then (N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:Goto Z:Else (N+G×Z[15])→S:Goto z:LbI Z:Z[3]→D:Fix 2:Abs(D)-S→T:”L0=”:L Locate 6,4,T◢＂Ｄ＝＂：Locate 6,4,Ｄ◢“TW=”: Locate 6,4,Z[5]◢Goto 06．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GDProg “G0”Z-C→E:(B-A)×E/S+A→L:L:7．坐标计算次程序（ＴＨＢ）程序名：THB18→DimZ：＂ＫＭ＂?Z：Prog ＂Ｘ０＂1÷P→Ｃ： (P-R)÷(2HPR) →Ｓ：180÷π→Ｅ：Ｆ=1=>Goto 1：Ｆ=2=>Goto 2←┘Lbl 1：?Ｄ： Abs(Ｚ－O) →W：Prog "Ａ"：X：Ｙ：Ｇoto 3LbI 2:Ｘ：Ｙ：Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 3LbI 3:IF Ｆ＝１Then Ｘ：Ｙ：Else Ｚ：Ｄ8. 正算子程序(Ａ)程序名：A0.1184634425→A： 0.2393143352→B：0.2844444444→N 0.046910077→K：0.2307653449→L：0.5→M： U+W(Acos(G+QEKW(C+KWＳ))+Bcos(G+QELW(C+LWＳ))+Ncos(G+QEMW(C+MWＳ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS))) →X：V+W(Asin(G+QEKW(C+KWＳ))+Bsin(G+QELW(C+LWＳ))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WＳ))) →Y：G+QEW(C+WＳ)+Ｚ［１］→Ｚ［２］：X+Ｄcos（Ｚ［２］）→Ｘ： Y+Ｄsin（Ｚ［２］）→Ｙ9. 反算子程序(Ｂ)程序名：BG-90→Ｔ： Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ：0→Ｄ：Lbl 0：Prog "Ａ"： T+QEW(C+WＳ) →Ｌ： (J-Y)cos(L)-(I-X)sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto1：Else W+Ｄ→W:Goto 0←┘Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］) →D:10．高程计算子程序（H）程序名：HProg “S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:If T=O:Then Q+LI→H:Goto 0:Else IfZ<F:Then Q+LI→H:Goto 0:Else If Z≤E:Then Q+LI+L2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I:H:I:11.高程超高计算程序（I）程序名：IProg”I0”:W=1=> Goto 0:W=2=>Goto 1:LbI 0:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷L+M)→V:Goto 2:IfEnd: LbI 1:If L=0:Then Abs(D)×M→V:Goto 2:ElseAbs(D)×(((3((Z-C)÷L)2-2((Z-C)÷L)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V:12．数据子程序(附后示例)①程序名：X0（坐标计算要素程序）If Z≥25900 And Z≤26615.555:Then 25900→O:11587.421→U:1847.983→V:101。
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
卡西欧fx-5800p计算器测量程序（作者：水江华）
1.坐标反算程序
"ZBFS QH1-4"◢
Deg：Fix 3←┘
"X+YiS(m）="?A←┘
Lb1 0:"X+YiE(m)，0=>END="?B←┘
Abs（B）=0=>Goto E←┘
Arg（B-A)→J
J<0=>J+360→J
"DIST(m）="：Abs（B-A)◢
"α（DMS)=":J▶DMS◢
Goto 0←┘
Lb1 E:"ZBFS QH1-4=>END"
2.坐标正算程序
"ZBZS QH1-3"◢
Deg：Fix 3←┘
"XS(m)= "？A:"YS(m)= "？B←┘
Lb1 1:"DIST(m)= "？L←┘
If L≤0:Then Goto 2:IfEnd←┘
"α（Deg)="？R←┘
A+Lcos（R）→C←┘
B+Lsin（R）→D←┘
Fix 3："XE(m)= ":C◢
"YE(m)= ":D◢
Goto 1←┘
Lb1 2:"ZBZS QH1-3=>END"
3.单一闭、附合导线近似平差程序"BFHDXPC QH1-8"◢
Deg:Norm 1:FreqOn←┘
n→N←┘
If List Y[N]=0:Then N-1→DimZ:Goto 0←┘
Else N→DimZ:Goto 1: IfEnd←┘
Lb1 0: "CLOSE Or CONECT TRA VE"◢
"ANGLE NUM=":N◢
"SIDE NUM=":N-1◢
"UNKNOWN P NUM=":N-2◢
"CLOSE(0)，CONNECT(≠0)="?→Z←┘
Fix 3："XA(m)，≤0=>αA→B(Deg)="？A←┘
If A>0：Then "YA(m)= "？B：Else "αA→B(Deg)="？R：IfEnd←┘"XB(m)= "？C:"YB(m)= "？D←┘
C+Di→U：U→V←┘
If A>0：Then Pol（C-A，D-B）：Cls←┘
J<0=>J+360→J：J→R←┘
"DIST A→B(m)="：I◢
"αA→B(DMS)="：R▶DMS◢
IfEnd←┘
If Z≠0：Then "XC(m)= "？E:"YC(m)= "？F←┘
E+Fi→V←┘
"XD(m)，≤0=>αC→D(Deg)="？G←┘
If G>0：Then "YD(m)= "？H←┘
Pol（G-E，H-F）：Cls←┘
J<0=>J+360→J：J→S←┘
"DIST C→D(m)="：I◢
"αC→D(DMS)="：S▶DMS◢
Else "αC→D(Deg)="？S：IfEnd←┘
Else If R>180：Then R-180→S：Else R+180→S：IfEnd←┘
IfEnd←┘
∑y→M←┘
For 1→I To N←┘
If I=1：Then R+List X[I]→L：Else L+List X[I]→L：IfEnd←┘
If L>180：Then L-180→L：Else L+180→L：IfEnd←┘
Nent←┘
3600(L-S)→T←┘
"α CLOSE ERROR(S)="：T◢
40→W←┘
Abs(T)>W=>"α CLOSE ERROR OVRE!"←┘
-T÷N÷3600→P：0→O←┘
For 1→I To N←┘
If I=1：Then R+List X[I]+P→L←┘
Else L+List X[I] +P→L：IfEnd←┘
If L>180：Then L-180→L：Else L+180→L：IfEnd←┘
If I<N：Then List Y[I]<L→Z[I] ：Z[I]+O→O：IfEnd←┘Nent←┘
3600(L-S)→T←┘
"CHECK α CLOSE ERROR(S)="：T◢
U+O-V→O←┘
Int(M÷Abs(O))→K←┘
"DELTA X(m)= "：ReP(O)◢
"DELTA Y(m)= "：ImP(O)◢
"RELAT CLOSE ERROR=1÷"：K◢
K<4000=>"RELAT CLOSE ERROR OVER! "←┘
For 1→I To N-1←┘
Z[I]-OList Y[I]÷M→X←┘
If I=1：Then U+X→Y：Else Y+X→Y：IfEnd←┘Norm 1："POINT n="：I◢
Fix 3："X(m)= "：ReP(Y)◢
"Y(m)= "：ImP(Y)◢
Nent←┘
Y-V→Q←┘
"CHECK X (m)= "：ReP(Q)◢
"CHECK Y (m)= "：ImP(Q)◢
Goto E←┘
Lb1 1："NO DIRECT TRA VE"◢
"ANGLE NUM="：N-1◢
"SIDE NUM="：N◢
"UNKNOWN P NUM="：N-1◢
"XA(m)= "？A:"YA(m)= "？B←┘
"XB(m)= "？C:"YB(m)= "？D←┘
A+Bi→U:C+Di→V←┘
0→H:U+List Y[1]<H→Z[1]←┘
For 1→I To N-1←┘
H+List X[1]→H←┘
If H>180：Then H-180→H：Else H+180→L：IfEnd←┘以下未完程序由读者完成。