当前位置：文档之家 › 道路的CASIO 5800P 万能曲线 计算程序

道路的CASIO 5800P 万能曲线 计算程序

  • 格式：doc
  • 大小：52.00 KB
  • 文档页数：5

道路的CASIO 5800P 万能曲线 计算程序 曲线任意里程中边桩坐标正反算 (CASIO fx-5800P计算器)程序 程序功能 本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序（SDYX）构成，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。 源程序 增加变量20→DimZ 1.主程序(AZFS) (P-R)÷(2HPR) →D：180÷π→E："1.SZ → XY，2.XY → SZ，3.SDYX，4. BIANPO "？N： Lbl 1：”XYLC=”?S： Prog "SUB3"： N≥2=>Goto 2： Abs(S-O)→W：”PYJ=”?→Z:Prog "SUB1"： "XS=”:X→X◢"YS=”:Y→Y◢"FS=”:(F-90) →F:F►DMS◢Prog "FA"：Goto 1: Lbl 2：”CX=”?X: X→I：”CY=”?Y: Y→J：”DMG=”?→Z[7]：Prog "SUB2"： "S=":(O+W) →S◢"Z="：Z→Z◢If N=3:Then Prog”SDYX”: IfEnd ：If N=4:Then Prog”BIANPO”:IfEnd:Goto 2 2. 正算子程序(SUB1) 0.1739274226 →Z[1]： 0.3260725774→B： 0.0694318442→K： 0.3300094782→L： (1-L) →F： (1-K)→M： U+W(Z[1]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+Z[1]cos(G+QEMW(C+MWD))) →X： V+W(Z[1]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD)) +Bsin(G+QEFW(C+FWD))+Z[1]sin(G+QEMW(C+MWD))) →Y： G+QEW(C+WD)+90→F： X+ZcosF→X： Y+ZsinF→Y

3. 反算子程序(SUB2) G-90 →Z[2]： Abs((Y-V)cosZ[2]-(X-U)sinZ[2]) →W： 0→Z：Lbl 0：Prog "SUB1"： Z[2]+QEW(C+WD) →L： (J-Y)cosL-(I-X)sinL→Z： If Abs(Z)<1E-6:Then Goto1：Else W+Z→W：Goto 0: IfEnd Lbl 1： 0→Z：Prog "SUB1"： (J-Y)÷sinF→Z 4. 数据库(SUB3) If S<226100：（曲线起点里程）Then Cls:Stop: IfEnd If S<226255.833：（圆曲线起点里程）Then 226100→O： 99037.9736→U： 4282.3590→V： 201.3266304→G： 1045→P： 1045→R： 253.543→H： 0→Q: Goto 1:IfEnd …… …… If S>236005.651（线路终点里程桩号）:Then Cls:Stop: IfEnd Lbl 1: 1÷P→C： 4、SUB3数据库说明： S待求桩号，O=曲线起点桩号，U曲线起点X坐标，V曲线起点Y坐标，G曲线起点切线方位角， P曲线起点半径， R曲线终点半径， H=曲线长度，Q转向（直线0，左转-1，右转1）

5. 算方位角程序(FA) LbI0：“XC=”? A : “YC=”? T :X：Y 0→J： POI（X-A，Y-T）→I：“BC=”：I◢If J＜0： Then 360+J→J：ElseJ→J :IfEnd “FW=”：J►DMS◢ Goto0 6. 使用方位角算坐标(NE) LbI0：“X=”? X: “Y=”? Y: “L=”? L:“F0”?F： L×Cos（F）+X→N: “N=”N◢L×Si

n（F）+Y→E: “E=”E◢ Goto0 7. 边坡放样程序(BIANPO) “QPDJL=”? → Z[3]: “QPDGD=”? → Z[4]: “PG=” ? → Z[5]：2→Z[6]： “P1=” ? → Z[8]： “P2=” ? → Z[9]： “P3=” ? → Z[10] (没有的话就删)： Z[7]-Z[4] → Z[11]：If Z[11]〈0： Then AbsZ[11] →Z[11]: “T=”：Z[11] ◢Else“W=”：Z[11] ◢IfEnd Z[11]÷Z[5] →Z[12]：If Z[12]〈1 Then Z[8]×Z[11] →Z[13]：Else Z[8]×Z[5]+Z[9]×Z[5]×（Z[12]-1）→Z[13]：IfEnd: AbsZ-（Z[13]+Z[6] ×Int Z[12]+Z[3]）→Z[14]:“BP+C-J=”: Z[14] ◢ 说明： Z[3]= QPDJL ……………… 起坡点离中桩距离 Z[4]=“QPDGD” ……………起坡点设计标高 Z[5]=“PG” ……………… 坡高 Z[6]=“PTK” ……………… 平台宽度 Z[7]=“DMG” ………………实测地面高度 Z[8]=“P1” ……………… 一级边坡坡度 Z[9]=“P2” ……………… 二级边坡坡度 Z[10]=“P3” ……………… 三级边坡坡度(没有的话就删) Z[14]=“BP+C-J=” ………………边坡超欠挖宽度（+表超，-表欠） 8. 隧道圆心放样程序（SDYX） “RS=”？ →Z[17]:”RZ=” ？→Z[18]: “RX=”？ →Z[19]: “RW=”？ →Z[20]: （如要储存：把（”RS=”？）换成圆的半径就OK了） IF S<137778.025:THEN 259.468-0.00725×(S-136000) +1.515 →Z[10]:“NGC=”：Z[10] ◢ELSE 248.092-0.00725×(S-137778.025)- (S-137778.025)^2/90000→Z[10]:“YLJ=”：Z[10] ◢IfEnd Z[10]- Z[7] →Z[15]:”GC=”: Z[15] ◢ IF Z[15]≥4.7:√（Z[17]^2-ABS(Z-4.33)^2）- Z[15]→Z[16]: “Z[16]1=”:Z[16] ◢IfEnd IF0≤ Z[15]AND Z[15]＜4.7:√（Z[18]^2- Z[15] ^2）-ABS(Z-4.33)→Z[16]: “Z[16] =”:Z[16] ◢IfEnd IF Z[15]＜ 0AND Z[15]＞-2.5:√（Z[19]^2- Z[15] ^2）-ABS(Z-4.33)-2.5→Z[16]: “Z[16] =”:Z[16] ◢IfEnd IF Z[15]＜-2.5:√（Z[20]^2-ABS(Z-4.33) ^2）-11.8+ Z[15]→Z[16]: “Z[16]2 =”:Z[1 6] ◢IfEnd 以上为插入的开挖程序（每一条隧道的数据不一样都要休改）

IF S<229000:THEN 243.997+0.0205×(S-226520)-(S-227318)^2/2/16000+1.503 →Z[10]:“NGC=”：Z[10] ◢ELSE 286.385-0.023×(S-230500)- (S-230593.753)^2/2/165000+1.503→Z[10]:“YLJ=”：Z[10] ◢IfEnd Z[10]- Z[7] →Z[15]:“+SG,-JD”：Z[15] ◢√（Z[15]^2+(ABS(Z)-6.8)^2）→Z[16]: “R=”:Z[16] ◢ “XYLC=”：输入所求桩号所在线元的任意桩号 CX、CY：输入实测坐标。DMG输入实测高程 S、C：所测点的实际计算里程、偏距（左-，右+） RS、RZ、RX、RW：输入圆的设计半径. NGC:为程序自算的设计高程，不用算。 GC:为设计高程与实测高程的差值 ，（正值为挖，负值为填） “Z[16]R=”:隧道超欠挖值（正为超，负为欠） 使用说明 1、规定 (1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。 (2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。 (3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。 (4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。 (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。 (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。

合集下载

5800p高程程序

5800p高程程序

CASIO-5800P路面高程控制测量程序（一）“XXX”主程序(注：本程序用“_”代替空格，其余均无空格)Clr Mat：Fix 3：Clr stat：FreqOn0→M(数字零)Cls：“1ZX_2YX”？→ECls：？KE=1＝＞prog“ZX”E=2＝＞prog“YX”Mat C[1,1] →F:Mat C[1,2] →Z:Mat C[1,3] →X:Mat C[1,4] →Y:Mat C[1,5] →R:Mat C[1,6] →B:Mat C[1,7] →GX/100→X:Y/100→YRabs(Y-X)/2→TCls:“HS”？A: “BM(HS)”?C:Cls:“SXG=”:Locate5,1,A+C◢Lb1 A:Cls: “QS”?PCls:?KIf K<F or K>Z:Then Cls :Locate6,2, “K Out ！”◢Stop :If EndIf Y>X:Then 1→W:Else -1→W:If EndIf K<B:Then -X→I:Else Y→I:If EndAbs(B-K) →LIf L>T:ThenG+IL→H:Cls:“H（ZZ）=”:Locate7,1,H◢Goto B:ElseG+IL+W(T—L) 2(平方)/2/R→H：Cls:“H(ZZ)=”Locate7,1,H◢Goto B:If EndLb1 B:“JGC（H）”？O“BJ”？N11→Dim Z“ZXHP__YXHP”? →JJ=1＝＞Prog“ZXHP”J=2＝＞Prog“YXHP”Mat D[1,1] →Z[2]:Mat D[1,2] →Z[3]:Mat D[1,3]→Z[4]:Mat D[1,4]→Z[5]:Mat D[1,5]→Z[6]:Mat D[1,6] →Z[7]:Z[4]+((Z[5]-Z[4])*(K-Z[3])):(Z[2]-Z[3]) →U:Z[6]+(Z[7]-Z[6])*(K-Z[3]))/(Z[2]-Z[3]) →SCls:If N≤0:Then H-0-U(N+1)/100→V:Else H-0+S(N+1)/100→V:If endCls :V-A-C+P→QCls:“HC=”: “HS=”:Loacte6,1,A+C-P:Locate6,2,V◢Cls:“H=”:Locate6,1,Q◢M+1→M:K→List→X[M]:V→List Y[M]:Q→List Freq[M]Goto A:If end（二）“ZX”（主线竖曲线）子程序If K<本线路起点桩号Or K>本线路终点桩号：Then Cls ：Locate 6,2，“K_ ERR!”◢Stop ：IfEndIf K≤下一曲线起点或本线路终点桩号：Then [[上一曲线终点或本线路起点桩号，下一曲线起点或本线路终点桩号，前纵坡（只输入%前的数字且上坡为正，下坡为负需输入负号），后纵坡（同上），本曲线半径，本曲线交点桩号，本曲线标高]]→Mat C：Goto 1 ：IfEnd ……………………………………………同理循环输入………………………………………LbI 1(三)“ZXHP”（主线横坡）子程序If K<本线路起点桩号Or K>本线路终点桩号：Then Cls ：Locate 6,2，“K_ ERR!”◢Stop ：IfEndIf K≤下一横坡起变点或本线路终点桩号：Then [[下一横坡起变点或本线路终点桩号，上一横坡起变点或本线路起点桩号，左幅起点横坡（只需输入横坡%前数字且低于中线为负），左幅终点横坡，右幅起点横坡，右幅终点横坡]] →Mat D：Goto 1 ：IfEnd ……………………………………………同理循环输入………………………………………LbI 1(四)“YX”（右线竖曲线）子程序If K<本线路起点桩号Or K>本线路终点桩号：Then Cls ：Locate 6,2，“K_ ERR!”◢Stop ：IfEndIf K≤下一曲线起点或本线路终点桩号：Then [[上一曲线终点或本线路起点桩号，下一曲线起点或本线路终点桩号，前纵坡（只输入%前的数字且上坡为正，下坡为负需输入负号），后纵坡（同上），本曲线半径，本曲线交点桩号，本曲线标高]]→Mat C：Goto 1 ：IfEnd ……………………………………………同理循环输入………………………………………LbI 1（五）“YXHP”（右线横坡）子程序If K<本线路起点桩号Or K>本线路终点桩号：Then Cls ：Locate 6,2，“K_ ERR!”◢Stop ：IfEndIf K≤下一横坡起变点或本线路终点桩号：Then [[下一横坡起变点或本线路终点桩号，上一横坡起变点或本线路起点桩号，0（此为数字零，一般左线为主线），0，右幅起点横坡，右幅终点横坡]] →Mat D：Goto 1 ：IfEnd……………………………………………同理循环输入………………………………………LbI 1。

卡西欧5800计算器编程入门程序集

卡西欧5800计算器编程入门程序集

fx-5800P易学易用程序集卡西欧(中国)贸易有限公司版程序列表备注；；用户对用本书疑问，请发邮件到：gongchengji@ 。

欢迎交流！卡西欧的客服热线：400-700-6655。

联系:gongchengji@ 。

G1G2G3G4G5G6G7G8G9G10G111-1G12G12-10-10-2fx-5800P G2011-9-30...常用测量程序1极坐标放样程序（已知坐标计算边长、方位角计算程序），程序名5 J<0J+360→J把小于6 7 "FWJ="：J DMS ◢显示方位角2已知边长方位角计算坐标程序，程序名3建筑轴线偏移程序(或扩大基础程序)。

程序名（）（）4测角前方交会坐标计算，程序名5测角后方交会坐标计算，程序名3 Pol((C –A),(D –B)) : J<0J+360→J : J →Z[4] 计算点（）的方位角4 Pol((E –A),(F –B)) : J<0J+360→J : J →Z[5]计算点（）的方位角5 6 Z[1]<0Z[1]+360→Z[1]计算点（）的顶角并存贮到变量 7 Pol((E –C),(F –D)): J<0J+360→J : J →Z[4] 计算点（）的方位角 8 Pol((A –C),(B –D)): J<0J+360→J : J →Z[5] 计算点（）的方位角9Z[4]-Z[5]→Z[2]方位角计算顶角10 Z[2]<0Z[2]+360→Z[2]计算点（）的顶角并存贮到变量 11 Pol((A –E),(B –F)) : J<0J+360→J :J →Z[4] 计算点（）的方位角 12 Pol((C –E),(D –F)) : J<0J+360→J : J →Z[5]计算点（）的方位角13 14 Z[3]<0Z[3]+360→Z[3]计算点（）的顶角并存贮到变量 15 tan(Z[1]) tan(G) ÷(tan(Z[1])- tan(G))→Z[7] 计算点（）的参数 计算点（）的参数 计算点（）的参数（）（）（）6坐标转换计算程序，程序名-D （）（）（）7直线中边桩坐标计算程序,程序名8圆曲线中边桩坐标计算程序,程序名9完整缓和曲线中边桩坐标计算程序,程序名fx-5800P 程序使用流程：本程序数据和主程序是分开的，编程时将不同的工程数据存放到不同的数据文件里，如A匝道，文件名为A ，将匝道A 所有的曲线线元参数输入A文件里。

CASIO fx-5800P编程计算器公路与铁路施工测量程序QH1-4母机程序逐屏图片资料

CASIO fx-5800P编程计算器公路与铁路施工测量程序QH1-4母机程序逐屏图片资料


• 输入完QH1−4N程序后, 按 键返回,
• 记录下机器的剩余内存字节数,设为B
• 应有F−B=204字节,否则,程序输入有误！
坐标反算边长与方位角母机qh14n程序逐屏图片坐标反算边长与方位角程序qh14n逐屏图片
坐标反算边长与方位角 程序QH1−4逐屏图片
• 程序输入是否正确的数字检查方法！
• QH1−4程序需要占用174字节内存。
• 输入程序前,按
键,
• 记 按 键返回,
• 记录下机器的剩余内存字节数,设为B
• 应有F−B=174字节,否则,程序输入有误！
坐标反算边长与方位角 母机QH1−4N程序逐屏图片
坐标反算边长与方位角 程序QH1−4N逐屏图片
• 程序输入是否正确的数字检查方法！
• QH1−4N程序需要占用204字节内存。
• 输入程序前,按
键,
• 记录下机器的剩余内存字节数,设为F
casio5800曲线坐标反算里程偏距

casio5800曲线坐标反算里程偏距

Casio5800曲线坐标反算里程偏距“ZH-X=”?H：“ZH-Y=”?G: “ZH-K=”?D: “ZJ(R+,L-)=”?Z: “R=”?R: “HC=”?L: “a(ZH→JD)=”?A 输入曲线要素(R+L2÷(24R))tan(Abs(Z÷2) )+(L÷2-L^(3)÷(240R2))→T 切线长R(Abs(Z))π÷180+L→S 曲线长Abs(Z)÷Z→V↙转向（左转-1,右转+1）Lbl 0：?K 试算里程（里程越接近计算越快）If K≤D:Then Goto1：Ifend：If K≤D+L:Then Goto2：Ifend：If K≤D+S-L:Then Goto3：Ifend：If K≤D+S:Then Goto4：Ifend：If K ﹥D+S:Then Goto5：Ifend↙判断语句Lbl 1 第一直线段Rec(D-K,180):I→X:J→Y:A→C: Goto6↙Lbl 2 第一缓和曲线段K-D→E 曲线长E-E^(5)÷(40R2L2)+E^(9)÷(3456R^(4)L^(4))→X 坐标增量E^(3)÷(6RL)-E^(7)÷(336R^(3)L^(3))→Y 坐标增量A+90VE2÷(πRL)→C 缓和曲线切向方位角Goto6↙Lbl 3 圆曲线段K-(D+L÷2)→E 曲线长RSin(180E÷(πR))+L÷2-L^(3)÷(240R2)→X 坐标增量RSin(180E÷(πR)) tan(90E÷(πR))+L2÷(24R)→Y 坐标增量A+V180E÷(πR)→C 圆曲线切向方位角Goto6↙Lbl 4 第二缓和曲线段D+S-K→E 曲线长T-( E-E^(5)÷(40R2L2)+E^(9)÷(3456R^(4)L^(4)))→XE^(3)÷(6RL)-E^(7)÷(336R^(3)L^(3))→YPol(X,Y)Rec(I,Abs(Z)+J)T+I→XJ→YA+V(Abs(Z)-90E2÷(πRL))→C 缓和曲线切向方位角Goto6↙Lbl 5 第二直线段Rec(K-(D+S)+T, Abs(Z)): T+I→X:J→Y:A+Z→C:Goto6↙Lbl 6“X0=”?P ：“Y0=”?B 待求点坐标Pol(X,Y) 弦长偏角计算Rec(I,A+VJ)H+I→X G+J→Y 试算里程处中桩坐标（需正算时可显示）（P-X）cos(C)+(B-Y)sin(C)→Q 待求点与试算里程处的里程近似差IFAbs(Q)<0.0001:Then goto7:Else：K+Q→K:goto0Lbl 7“LC=”:K+Q◢“PJ=”:(B-Y)cos（C）-(P-X)sin（C）◢里程偏距显示Goto0↙返回计算下一点说明：本程序包含有正算全部过程，适当修改可进行正算。