卡西欧5800计算程序 - 复制

卡西欧5800计算程序 ＂ZS=1,FS=2＂？N: 1÷P →C:(P-R)÷(2HPH)→D:180÷π→E: If N=1: Then Goto 1: Else Goto 2: IfEnd←┚ LbI 1:1 →I:0 →Z：Abs(K-Ｏ) →W: Prog＂ZS＂←┚ F-90→F←┚ ＂JJ＂?K:＂PJ＂?L: ＂ZX=＂：X+Lcos(F+K) →Z[3]◢ ＂ZY=＂: Y+Lsin(F+K) →Z[4]◢ ＂QXFWJ=＂:F DMS◢ Abs(Z) →Z:Goto 8←┚ LbI 2:＂X＂?I:＂Y＂?J: Prog＂FS＂:＂FSZH=＂:Ｏ+W→K◢ ＂FSJL=＂:Z◢ Lbl 8 正算子程序（ZS）（不运行） 1÷P→C:(P-R)÷(2HPR) →D: 180÷π→E←┚ 0.1739274226→A： 0.3260725774→B： 0.0694318442→K： 0.3300094782→L： 1-L→F： 1-K→M：U+W（Acos（G+QEKW（C+KWD））+Bcos（G+QELW（C+LWD））+Bcos（G+QEFW（C+FWD））+Acos（G+QEMW（C+MWD）））→X： V+W（Asin（G+QEKW（C+KWD））+Bsin（G+QELW（C+LWD））+Bsin（G+QEFW（C+FWD））+Asin（G+QEMW（C+MWD）））→Y： G+QEW（C+WD）+90→F： X+ZcosF→X： Y+ZsinF→Y 3反算子程序（FS）（不运行） G-90→T： Abs（（Y-V））cos（T）-（X-U）sin（T）→W： 0→Z←┚ Lbl 0←┚ prog＂ZS＂：T+QEW（C+WD）→L：（J-Y）cosL-（I-X）sinL→Z：If Abs(Z)＜0.001: Then  Goto1：Else W+Z→W：IfEnd :Goto 0←┚ Lbl 1： 0→Z：Prog＂ZS＂：（J-Y）÷sinF→Z ZX-WN（运行主程序，该程序适用于匝道，对全段完整非对称曲线计算太过麻烦） ＂CZX＂?S(仪站X坐标):＂CZY＂?W（仪站Y坐标） LbI 0: ＂K＂?K: If K≤126.9（第1条单一曲线的终点下面同上）: Then Goto A：Else If K≤176.9 And K＞126.9: Then Goto B:Else If K≤259.562 And K＞176.9: Then Goto C:Else If K≤309.562 And K＞259.562: Then Goto D： IfEnd:IfEnd:IfEnd:IfEnd←┚ LbI A:92094.336（起点X坐标）→U:8287.962（起点Y坐标）→V:0起点桩号→O:145°11＇54＂（方位角）→G:126.9（曲线长度）→H:10^(45) （起点半径）→P:10^(45) （止点半径）→R:+1（路线左右偏，左负右正，直线输0）→Q:Prog ＂WN＂:Goto W LbI B:91990.134→U:8360.388→V:126.9→O:145°11＇54＂→G:50→H:10^(45) →P:150 →R:+1→Q:Prog ＂WN＂:Goto W LbI C:91947.609→U:8386.570→V:176.9→O:154°44＇51＂→G:82.662→H:150 →P:150 →R:+1→Q:Prog ＂WN＂:Goto W LbI D:91867.101→U:8399.992→V:259.562→O:186°19＇19＂→G:50→H:150 →P: 10^(45) →R:+1→Q:Prog ＂WN＂:Goto W LbI W:＂PJ1＂?T←┚（该项是只左右边桩再左右偏距，输0为不再左右偏，可以直接出方位角、距离，适用于桥梁桥台、盖梁、涵洞八字墙等放样，以路线前进方向，前-，后+） If T=0：Then Z[3]→Z: Z[4]→M: Goto P: Else Goto V: IfEnd←┚ LbI V:＂JJ1＂? O←┚（左右边桩再偏夹角，用180°减去路线夹角） ＂X1=＂: Z[3]+Tcos（F+N+ O）→U◢ ＂Y1=＂ :Z[4]+Tsin（F+N+ O）→V◢ U→Z: V→M: GotoP←┚ LbI P:Pol(Z-S,M-W): If J≤0：Then J+360°→J: IfEnd←┚ ＂JL=＂:I◢（仪站至测点的距离） ＂FWJ=＂:J  DMS◢（仪站至测点的方位角） Goto0 备注： 1． 以道路中线前进方向（即里程增大的方向）区分左右；当线元往左偏时Q=-1；当元线往右偏时，Q=1：当元线为直线时，Q=0。 2． 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次方代替。 3． 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。 4． 当线元为完整的缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次方代替。与圆曲线相接时，曲率半径等于圆曲线的半径，止点跟直线相接时，曲率半径为无穷大，以10的45次方代替；与圆曲线相接时，曲率半径等于圆曲线的半径。 5． 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线衔接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线衔接时，曲率半径等于圆曲线的半径。 二、运行跟输入与显示说明 1.运行：ZX-WN 2.显示“CZX”输入测站：X坐标，显示“CZY”输入测站：Y坐标 3.显示：“K”输入所计算的桩号 4、显示“ZS=1,FS=2”，选择计算方式，输入1正算；输入2反算 5.输1开始正算 6.显示“JJ”正交输90，斜交输跟路线的夹角 7.显示“PJ”输入边桩偏距，左负右正，中桩输0 8.显示“ZX=”所求点的X坐标 9.显示“ZY=”所求点的Y坐标 10.显示“QXFWJ”所求点的切线方位角 11.显示“PJ1” 所求点再骗距离，输0为不再左右偏，可以直接出方位角、距离，本项适用于桥梁桥台、盖梁、涵洞八字墙等放样，以路线前进方向，左+，右-。只限于直线） 12. 显示“JJ1”再偏输入夹角（正交输90，） 13. 显示“X1”所求点X坐标 14. 显示“Y1”所求点Y坐标 15. JL=仪站与测点的距离 16. FWJ=仪站与测点的方位角 17. 反算时输入：显示“显示“ZS=1,FS=2”，选择计算方式，输入2反算 18. 显示“X？”输入反算时所求点的X坐标 19. 显示“Y？”输入反算时所求点的Y坐标 20. 显示FSZH=反算时，计算得出的所求点的里程 30. 显示FSJL=反算时，计算得出的所求点的边距（负为左偏，正为右偏） 在本网页下载匝道的曲线要素附件。在我的新浪博客里面有明细的说明，匝道贯通任一点坐标正反算，欢迎大家指导！网址：http://blog.sina.com.cn/u/1439499043 卡西欧5800程序完整版 ＂ZS=1,FS=2＂？N: 1÷P →C:(P-R)÷(2HPH)→D:180÷π→E: If N=1: Then Goto 1: Else Goto 2: IfEnd←┚ LbI 1:1 →I:0 →Z：Abs(K-Ｏ) →W: Prog＂ZS＂←┚ F-90→F←┚ ＂JJ＂?K:＂PJ＂?L: ＂ZX=＂：X+Lcos(F+K) →Z[3]◢ ＂ZY=＂: Y+Lsin(F+K) →Z[4]◢ ＂QXFWJ=＂:F DMS◢ Abs(Z) →Z:Goto 8←┚ LbI 2:＂X＂?I:＂Y＂?J: Prog＂FS＂:＂FSZH=＂:Ｏ+W→K◢ ＂FSJL=＂:Z◢ Lbl 8 正算子程序（ZS）（不运行） 1÷P→C:(P-R)÷(2HPR) →D: 180÷π→E←┚ 0.1739274226→A： 0.3260725774→B： 0.0694318442→K： 0.3300094782→L： 1-L→F： 1-K→M：U+W（Acos（G+QEKW（C+KWD））+Bcos（G+QELW（C+LWD））+Bcos（G+QEFW（C+FWD））+Acos（G+QEMW（C+MWD）））→X： V+W（Asin（G+QEKW（C+KWD））+Bsin（G+QELW（C+LWD））+Bsin（G+QEFW（C+FWD））+Asin（G+QEMW（C+MWD）））→Y： G+QEW（C+WD）+90→F： X+ZcosF→X： Y+ZsinF→Y 3反算子程序（FS）（不运行） G-90→T： Abs（（Y-V））cos（T）-（X-U）sin（T）→W： 0→Z←┚ Lbl 0←┚ prog＂ZS＂：T+QEW（C+WD）→L：（J-Y）cosL-（I-X）sinL→Z：If Abs(Z)＜0.001: Then  Goto1：Else W+Z→W：IfEnd :Goto 0←┚ Lbl 1： 0→Z：Prog＂ZS＂：（J-Y）÷sinF→Z ZX-WN（运行主程序，该程序适用于匝道，对全段完整非对称曲线计算太过麻烦） ＂CZX＂?S(仪站X坐标):＂CZY＂?W（仪站Y坐标） LbI 0: ＂K＂?K: If K≤126.9（第1条单一曲线的终点下面同上）: Then Goto A：Else If K≤176.9 And K＞126.9: Then Goto B:Else If K≤259.562 And K＞176.9: Then Goto C:Else If K≤309.562 And K＞259.562: Then Goto D： IfEnd:IfEnd:IfEnd:IfEnd←┚ LbI A:92094.336（起点X坐标）→U:8287.962（起点Y坐标）→V:0起点桩号→O:145°11＇54＂（方位角）→G:126.9（曲线长度）→H:10^(45) （起点半径）→P:10^(45) （止点半径）→R:+1（路线左右偏，左负右正，直线输0）→Q:Prog ＂WN＂:Goto W LbI B:91990.134→U:8360.388→V:126.9→O:145°11＇54＂→G:50→H:10^(45) →P:150 →R:+1→Q:Prog ＂WN＂:Goto W LbI C:91947.609→U:8386.570→V:176.9→O:154°44＇51＂→G:82.662→H:150 →P:150 →R:+1→Q:Prog ＂WN＂:Goto W LbI D:91867.101→U:8399.992→V:259.562→O:186°19＇19＂→G:50→H:150 →P: 10^(45) →R:+1→Q:Prog ＂WN＂:Goto W LbI W:＂PJ1＂?T←┚（该项是只左右边桩再左右偏距，输0为不再左右偏，可以直接出方位角、距离，适用于桥梁桥台、盖梁、涵洞八字墙等放样，以路线前进方向，前-，后+） If T=0：Then Z[3]→Z: Z[4]→M: Goto P: Else Goto V: IfEnd←┚ LbI V:＂JJ1＂? O←┚（左右边桩再偏夹角，用180°减去路线夹角） ＂X1=＂: Z[3]+Tcos（F+N+ O）→U◢ ＂Y1=＂ :Z[4]+Tsin（F+N+ O）→V◢ U→Z: V→M: GotoP←┚ LbI P:Pol(Z-S,M-W): If J≤0：Then J+360°→J: IfEnd←┚ ＂JL=＂:I◢（仪站至测点的距离） ＂FWJ=＂:J  DMS◢（仪站至测点的方位角） Goto0 备注： 1． 规定以道路中线前进方向（即里程增大的方向）区分左右；当线元往左偏时Q=-1；当元线往右偏时，Q=1：当元线为直线时，Q=0。 2． 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次方代替。 3． 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。 4． 当线元为完整的缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次方代替。与圆曲线相接时，曲率半径等于圆曲线的半径，止点跟直线相接时，曲率半径为无穷大，以10的45次方代替；与圆曲线相接时，曲率半径等于圆曲线的半径。 5． 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线衔接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线衔接时，曲率半径等于圆曲线的半径。 二、运行跟输入与显示说明 1.运行：ZX-WN 2.显示“CZX”输入测站：X坐标，显示“CZY”输入测站：Y坐标 3.显示：“K”输入所计算的桩号 4、显示“ZS=1,FS=2”，选择计算方式，输入1正算；输入2反算 5.输1开始正算 6.显示“JJ”正交输90，斜交输跟路线的夹角 7.显示“PJ”输入边桩偏距，左负右正，中桩输0 8.显示“ZX=”所求点的X坐标 9.显示“ZY=”所求点的Y坐标 10.显示“QXFWJ”所求点的切线方位角 11.显示“PJ1” 所求点再骗距离，输0为不再左右偏，可以直接出方位角、距离，本项适用于桥梁桥台、盖梁、涵洞八字墙等放样，以路线前进方向，左+，右-。只限于直线） 12. 显示“JJ1”再偏输入夹角（正交输90，） 13. 显示“X1”所求点X坐标 14. 显示“Y1”所求点Y坐标 15. JL=仪站与测点的距离 16. FWJ=仪站与测点的方位角 17. 反算时输入：显示“显示“ZS=1,FS=2”，选择计算方式，输入2反算 18. 显示“X？”输入反算时所求点的X坐标 19. 显示“Y？”输入反算时所求点的Y坐标 20. 显示FSZH=反算时，计算得出的所求点的里程 30. 显示FSJL=反算时，计算得出的所求点的边距（负为左偏，正为右偏） CASIO5800中桩高程全线贯通程序 《GC1224》 LbI 0 “Kxxx+xxx.xxx”？S:Prog“GCSJK-C”:Prog“GC”:“H(Z)=”:G▲ Goto 0 《GC》 If V>U:Then 1→G:Else If VD+T:Then S-D→L:H+LV÷100→G:IfEnd: IfEnd: IfEnd: IfEnd:Return 《GCSJK-C》 Goto 1 LbI 1 If S≤(终点里程):Then (半径)→R: (切线长)→T: (交点里程)→D: (交点高程)→H: (前纵坡)→U: (后纵坡)→V:Return: IfEnd LbI 1 If S≤():Then ()→R: ()→T: ()→D: ()→H: ()→U: ()→V:Return: IfEnd 5800计算程序，可计算任意桩号坐标及高程。 一、程序功能         本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、曲线要数（SUB4,4-1）、边坡放样程序(BIANPO)，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标及中桩高程，对该曲线段范围内任意里程中边桩坐标进行正反算。   二、源程序 增加变量18→DimZ 1.主程序(ZHUCHENXU) "1.SZ → XY，2.XY → SZ，3.SDYX，4. BIANPO "？N： Lbl 1：”ZHUANGHAO=”?S： Prog "SUB3"： N≥2=>Goto 2： Abs(S-O)→W：”BIANZHU=”?→Z:Prog "SUB1"：Prog"SUB4"：“H=”H◢ "XS=”:X→X◢"YS=”:Y→Y◢"FS=”:(F-90) →F:F►DMS◢ Goto1 Lbl 2：”CX=”?X: X→I：”CY=”?Y: Y→J：”DMG=”?→Z[7]：Prog "SUB2"： "S=":(O+W) →S◢"Z="Z→Z◢ Z→Z[17] :If N=3:Then Prog”SDYX”: IfEnd ：If N=4:Then Prog”BIANPO”:IfEnd:Goto 2 2.SUB1(正算子程序名) 0.1739274226→A:0.3260725774→B 0.0694318442→K:0.330009482→L 1-L→F:1-K→M G+QEKW(C+KWD)→Z[1] G+QELW(C+LWD)→Z[2] G+QEFW(C+FWD)→Z[3] G+QEMW(C+MWD)→Z[4] A×cos(Z[1])→X  (剩號可省略) X+Bcos(Z[2])→X X+Bcos(Z[3])→X X+Acos(Z[4])→X U+WX→X Asin(Z[1])→Y Y+Bsin(Z[2])→Y Y+Bsin(Z[3])→Y Y+Asin(Z[4])→Y V+WY→Y G+QEW(C+WD)+90→F X+Zcos(F)→X Y+Zsin(F)→Y 3.SUB2(反算子程序名) G-90→T (Y-V)cos(T)-(X-U)sin(T)→W Abs(W)→W:0→Z LbI 4:Prog"SUB1" T+QEW(C+WD)→L (J-Y)cos(L)-(I-X)sin(L)→Z If Abs(Z)＜1E-6:Then 0→Z :Prog"SUB1" (J-Y)÷sin(F)→Z Else W+Z→W:Goto 4:IfEnd 注:1E-6即是10的負6次方,亦即是等於0.000001 輸入時按SHIFT---log---(-)---6 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>And S<…… …… If S>236005.651:Then Cls:Stop: IfEnd Lbl 1: 1÷P→C：(P-R)÷(2HPR) →D：180÷π→E： 5、曲线主程序:   1-E.BG(SUB4) Fix 3:Prog”Z.EBG”: R Abs(D-C)/2→T: if D-C>θ :Then 1→W:Else -1→W:ifend if Sθ:Then Z+IL→H:Else Z+IL+W(T-L)2/2/R→H:"HS=":H◢ 曲线数据库: Z.EBG(SUB4-1) if S<332.599:Then 0.02793→C:-0.03309→D:1800→R:235→A:32.7→Z: goto 1:ifend if S>322.599 And K<734.085:Then -0.03309→C:-0.00485→D:6000→R:460→A:25.254→Z: goto 1:ifend -- -- Lbl 1 C—前坡:D—后坡:R—呵呵,都知道是什么!A—变坡点:Z—变坡点设计高 O—从设计高程点处垂直向下的距离:N—距设计高程处的平距(若你的设计高程线是路中线的话，请把0.75改为0):J—所求桩号处的横坡. 6. 边坡放样程序(BIANPO) （SUB6） “QPDJL=”? → Z[3]: “QPDGD=” : Prog “（SUB4）”：H→ Z[4]◢“PG=” ? → Z[5]：PTK→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] ◢IfEn 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[17]-（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=” ………………边坡超欠挖宽度（+

表

关于同志近三年现实表现材料材料类招标技术评分表图表与交易pdf视力表打印pdf用图表说话 pdf

超，-表欠） 三、使用说明 1、规定       (1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。       (2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。       (3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。       (4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。       (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。        (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。 2、输入与显示说明            SZ → XY，2.XY → SZ，3.SDYX，4. BIANPO       N ?  选择计算方式，输入1表示进行由里程、边距计算坐标 ；输入2表示由坐标反算 里程和边距。输入3表示隧道圆心放样和计算实测半径；输入4表示进行路基边坡放样。 4、SUB3数据库说明： S待求桩号，O=曲线起点桩号，U曲线起点X坐标，V曲线起点Y坐标，G曲线起点切线方位角， P曲线起点半径，　R曲线终点半径， H=曲线长度，Q转向（直线0，左转-1，右转1） 有关路基和隧道的CASIO 5800P 万能曲线 计算程序 曲线任意里程中边桩坐标正反算 (CASIO fx-5800P计算器)程序 一、程序功能         本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序（SDYX）构成，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。   二、源程序 增加变量16→DimZ 1.主程序(ZHUCHENXU) "1.SZ → XY，2.XY → SZ，3.SDYX，4. BIANPO "？N： Lbl 1：”ZHUANGHAO=”?S： Prog "SUB3"： N≥2=>Goto 2： Abs(S-O)→W：”BIANZHU=”?→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：(P-R)÷(2HPR) →D：180÷π→E： 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×Sin（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） 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] ◢ 三、使用说明 1、规定       (1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。       (2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；当位于中线中线右侧时，Z取正值。       (3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。       (4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。       (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。        (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。 2、输入与显示说明            SZ → XY，2.XY → SZ，3.SDYX，4. BIANPO       N ?  选择计算方式，输入1表示进行由里程、边距计算坐标 ；输入2表示由坐标反算 里程和边距。输入3表示隧道圆心放样和计算实测半径；输入4表示进行路基边坡放样。  3、盖板涵斜交操作说明： （以左前点为例） 先把盖板涵斜交角度减９０后＝Ａ 再盖板涵左长度*ＣｏｓＡ＝Ｂ，盖板涵左长度*ＳｉｎＡ＝Ｃ，盖板涵身宽度/ＣｏｓＡ＝Ｄ 利用YQXJS程序计算此桩号正交时Ｂ宽度的坐标值，及法线方位角。 再转到NE程序，Ｘ，Ｙ，Ｆ三项不要修改，只改Ｌ＝Ｃ＋Ｄ/２（计算后点Ｄ前为—） 4、SUB3数据库说明： S待求桩号，O=曲线起点桩号，U曲线起点X坐标，V曲线起点Y坐标，G曲线起点切线方位角， P曲线起点半径，　R曲线终点半径， H=曲线长度，Q转向（直线0，左转-1，右转1） 5800改编版，含数据库，全线路中边桩坐标正反算程序，含正交，斜交正反算 XH            主程序 LBI 4：“1.SZ=>NE”:“2.NE=>SZ”:?Q:?S:？H:？K：Prog“数据库名”↙ Lbl 0:Q=1 => Goto1:Q=2 => Goto2:↙ Lbl 1:?Z:Prog“正算程序”:“X=”:N◢:“Y=”:E◢:“F=”:F◢: Goto4↙ Lbl 2: “N=”:?B: “E=”:?C:B→N: C→E:Prog“主程序名”: “S=”:S◢: “Z=”:Z◢: Goto4↙ IF S<***:Then***→A:***→O:***→U:***→V:***→P:***→R: ***→L: Return:IfEnd↙ 每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加一个工程增加一个文件。 ZBZS           正算子程序 0.5（1÷R-1÷P）÷L→D:S-O→X↙ U+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N↙ V+∫(sin(A+(X÷P+DX2)×180÷π,0,X)→E↙ A+(X÷P+DX2)×180÷π→F↙ N+Zcos(F+K) →N:E+Zsin(F+K) →E SJK           数据库 H=1=>Prog“1”：H=2=>Prog“2”：每增加一个线元，数据库增加一个H和Prog“  “ ZBFS           反算子程序 Lbl 1:0→Z：1→Q：Prog“数据库名”: Prog“正算程序名”↙ Pol(N-B+10^(-46), E-C+10^(-46)):Isin(F-K-J) →W:S+W→S↙ Abs(W)>0.0001 => Goto1↙ Lbl 2: 0→Z：Prog“正算程序名”:(C-E) ÷sin(F+K) →Z 5800计算器全线坐标计算放样正反算（定稿） 5800计算器全线坐标计算放样正反算程序（定稿）                                           彭赐明 主程序  坐标正反算 程序名称：ZBZFS LB1  A↙ Cls : Fix 4 : 30→Dim Z :"0=ZS,1=FS"?Z ↙ If  Z=0:Then  Goto B:IfEnd↙(Z=0进入里程点坐标正算） If  Z=1:Then  Prog"FSLCBZ ": Goto A:IfEnd↙(Z=1进入反算里程边桩） Lb1 B  ↙ “K=”?K ：（计算里程） Prog"SJK1 ":Prog”ZBFY” :Goto A↙ 子程序  数据库  SJK1 IF  K<本段曲线终点里程  AND  K≥上段曲线终点里程 ：THEN  本段终点里程→Z[1] : 上段曲线终点里程→Z[2] ：1→O （注：左偏曲线输入-1→O,右偏曲线输入1→O）: 半径→R : 曲线偏角→A:第一缓和曲线→Z[6] : 第二缓和曲线→Z[7] : 交点 X→B :交点 Y→C : 小里程向交点方位角→E : 交点向大里程方位角→F : Prog”XLZBJSCX”:Return: IFEND↙ IF…………Prog”XLZBJSCX”:Return:IFEND（曲线段分段输入）↙ 补充直线段输入如下(单独直线段） IF K<本段直线终点里程 AND  K≥本段直线起点里程:THEN 本段直线终点里程→Z[3]:终点X→Z[16]:终点Y→Z[17]:方位角→E: Z[16]+ (K- Z[3])*COS E→Z[18]:Z[17]+ (K- Z[3])*SIN E→Z[19] : Return:IFEND 子程序坐标正算，名称：XLZBJSCX LB1  2 ↙（曲线要素计算） Z[6]/2- Z[6]^3/(240*R^2)+ Z[6]^5/(34560*R^4) →Z[8] ↙  （M1） Z[7]/2- Z[7]^3/(240*R^2)+ Z[7]^5/(34560*R^4) →Z[9] ↙  （M2） Z[6]^2/(24*R)- Z[6]^4/(2688*R^3) →Z[10] ↙  （P1） Z[7]^2/(24*R)- Z[7]^4/(2688*R^3) →Z[11] ↙  （P2） π*A*R/180+0.5*( Z[6]+ Z[7])→Z[25] ↙   （曲线总长） 90* Z[6]/(R*π) →Z[14] ↙    （第一缓和曲线总偏角） 90* Z[7]/(R*π) →Z[15] ↙（第二缓和曲线总偏角,可以省略） Z[8]＋（R+Z[10])TAN(A/2)-(Z[10]-Z[11] )/SIN A→Z[12]↙   (切线T1) Z[9]＋（R+Z[11])TAN(A/2)+(Z[10]-Z[11] )/SIN A→Z[13]↙   (切线T2) B+ Z[12]*COS (E+180)→ Z[16] ↙  （ZH点X） C+ Z[12]*SIN(E+180)→ Z[17] ↙   （ZH点Y） Z[1]- Z[25]→Z[3] ↙       (ZH点里程) Z[3]+ Z[6]→Z[4] ↙   (HY点里程) Z[1]- Z[7]→Z[5] ↙   (YH点里程) GOTO 3 ↙ LB1  3 ↙(判断里程点与曲线关系) IF  K≤Z[3]  AND  K> Z[2] : THEN  GOTO  4 : IFEND ↙ IF  K≤Z[4]  AND  K> Z[3] : THEN  GOTO  5 : IFEND ↙ IF  K≤Z[5]  AND  K> Z[4] : THEN  GOTO  6 : IFEND ↙ IF  K≤Z[1]  AND  K> Z[5] : THEN  GOTO  7 : IFEND ↙ LB1  4 ↙（里程小于直缓点直线独立坐标） K- Z[3] →Z[23] : 0→Z[24] : E→T : GOTO  8↙ LB1  5 ↙（第一缓和曲线独立坐标） K- Z[3] →H ↙ H-H^5/(40*R^2* Z[6]^2)+H^9/(3456*R^4* Z[6]^4) →Z[23] ↙ H^3/(6*R* Z[6])-H^7/(336*R^3* Z[6]^3) →Z[24] ↙ 90*H^2/( R*π* Z[6]) →T ↙ IF  O>0  ：THEN  T +E→T : ELSE  E-T →T : T<0=>360+T→T : IFEND ↙ GOTO 8 ↙ LB1 6 ↙（圆曲线独立坐标） K- Z[4] →H ↙ H*180/( R*π)+ Z[14]→T ↙ R*SIN T+ Z[8]→Z[23] ↙ R*(1-COS T)+ Z[10]→Z[24] ↙ IF  O>0  ：THEN  T +E→T : ELSE  E-T →T : T<0=>360+T→T : IFEND ↙ GOTO 8 ↙ LB1 7 ↙（第二缓和曲线独立坐标） Z[1] -K  →H ↙ H-H^5/(40*R^2* Z[7]^2)+H^9/(3456*R^4* Z[7]^4) →U↙ H^3/(6*R* Z[7])-H^7/(336*R^3* Z[7]^3) →V ↙ 90*H^2/( R*π* Z[7]) →T ↙ Z[13]COS A+ Z[12]-U*COS A-V*SIN A→Z[23] ↙ Z[13]*SIN A-U*SIN A+V*COS A→Z[24]  ↙ IF  O>0  ：THEN  F-T→T : T<0=>360+T→T : ELSE  F+T →T : IFEND ↙ GOTO  8 ↙ LLb1   8 IF  O<0  : THEN  - Z[24]→Z[24] : IFEND ↙ Z[16]+Z[23]*COS E-Z[24]*SIN E→Z[18] ↙ Z[17]+Z[23]*SIN E+Z[24]*COS E→Z[19] ↙ ReTurn↙ 子程序反算里程边桩，名称：FSLCBZ Lb1  1↙ "XK="?X:"YK="?Y↙（输入任意测点的XY坐标）:“K=”?K （试算里程，任意输入标段内里程点即可，也可以输入大致的估算里程加快速度）↙ Lb1  2↙ Prog"SJK1 ":T-90 →W:W<0=>360+W→W:Abs((Y-Z[19])*Cos W-(X-Z[18])*Sin W)→S↙ If  S<0.0001:Then  Goto  4:Else  Goto 3:Ifend↙ Lb1  3↙ K+S→K: Prog"SJK1":T-90 →W:W<0=>360+W→W:Abs((Y-Z[19])*Cos W-(X-Z[18])*Sin W)→Q↙ If  Q<0.0001 :Then Q→S: Goto  4:Else IF  QS  :THEN  K-Q→K:Goto  2:Ifend:Ifend:Ifend↙ Lb1  4↙ Pol (X-Z[18],Y-Z[19]: "DP(-Z+Y)=":I◢(偏距）（由于该程序不能准确判断边桩左右方向，暂作修改，取消左右边判定） "K=":K+S→K◢（里程） Return↙ 子程序坐标放样：ZBFY LB1  0 ↙ “XHS="?G(后视点X):"YHS="?L(后视点Y):"XZJ="?M(置镜点X):"YZJ="?N(置镜点Y):Pol(G-M,L-N):"DH=":I(后视距)◢J<0=>J+360→J:"FH=":J→DMS◢(后视方位角) “QXJ=” :T◢    （计算里程点切线方位角，可以不显示） “XI=” : Z[18] ◢   （中线X） “YI=” : Z[19] ◢   （中线Y） Pol(Z[18]-M,Z[19]-N):"DI=":I（中桩放样距）◢J<0=>J+360→J:"FI=":J→DMS◢（中桩放样方位角） “PJ=”?P◢     (输入边桩与线路夹角，左-右+) “PD=”?D◢    （输入边桩距） Z[18]+D*COS(T+P) →Z[20] ↙ Z[19]+D*SIN(T+P) →Z[21] ↙ “XP=”: Z[20] ◢     （边桩X） “YP=”: Z[21] ◢     （边桩Y） Pol(Z[20]-M,Z[21]-N):"DP=":I◢（边桩放样距）J<0=>J+360→J:"FP=":J→DMS◢（边桩放样方位角） Return↙ 专业修改4500-4800-4850计算程序转换5800计算器程序 专业4500-4800-4850P计算程序修改5800计算器程序，有需要帮助的联系我，希望大家可以合作愉快。为同行的难题做出解答。修改程序着做好程序电子版本和相关的例子。以免后面出错造成用着很大的压力。联系QQ：8696847 谢谢发贴：+2 分 【测量空间】www.celiang.net[0 查看楼主其它文章  <<返回   → 回复内容      只查看楼主与本人回复 沙发：安然-CR201 09-4-3 11:21 回 请帮我修改4850程序编程5800的 曲线元程序清单（适用于复杂匝道坐标计算） Lb1 0：{Q}：A“X0”：B“Y0”：G“C0”：E“R0”：F“RI”：P“ＤＫ0”：Q“DKI”：H“ZZ-YZ：-1，1”＝ -1=>F＝- F：E＝- E：⊿H“ZZ-YZ：-1，1”＝1=>F＝F：E＝E：⊿E>F=>Ｄ＝1：⊿ ED= -1：⊿E＝F=>X＝A+F×（sin(G+180×（Q-P）÷F÷π) –sinG）◢ Y=B –F×(cos(G+180×（Q-P）÷F÷π)-cosG）◢ J=G+（Q-P）×180÷F÷π◢ J<0=> J +360◢ ⊿J≥360=> J= J-360◢ ⊿Goto 0：⊿C＝（W“ＥＮＤ：Ｓ１”-Ｐ）×Ｆ×Ｅ÷（Ｅ-Ｆ）← Ｃ<0=>Ｃ＝-Ｃ⊿← Ｔ“Ｌ０”＝Ｃ÷Ｅ← Ｌ＝Ｔ+Ｄ×（Ｑ-Ｐ） Ｕ＝（Ｌ-Ｔ）-（Ｌ^５-Ｔ^５）÷（40×C^2）+（L^9-T^9）÷(３４５６×Ｃ^４) －（Ｌ^１３-Ｔ^１３）÷(５９９０４０×Ｃ^６) ← Ｖ=（Ｌ^３-Ｔ^３）÷(６×Ｃ) -（Ｌ^７-Ｔ^７）÷(３３６×Ｃ^３)+ （Ｌ^１１-Ｔ^１１）÷(４２２４０×Ｃ^５) -（Ｌ^１５-Ｔ^１５）÷(９６７６８００×Ｃ^７) ← Ｚ=Ｇ-Ｄ×Ｔ２×１８０÷２÷Ｃ÷π← X=Ａ+Ｄ×Ｕ×cos(Z)-V×sin(Z) ◢ Y=B+Ｄ×Ｕ×sin(Z)+V×cos(Z) ◢ H=-1=>F=-F:E=-E:K=-１⊿← H=1=>F=F:E=E:K=１⊿← Ｅ>Ｆ=>Ｊ=(Ｇ-K×180×C÷２÷π÷Ｅ２+Ｋ×180×(Ｑ-Ｐ+Ｃ÷Ｅ)２÷２÷Ｃ÷π) ◢ ≠=>Ｊ=(Ｇ+K×180×C÷２÷π÷Ｅ２-Ｋ×180×(-Ｑ+Ｗ+Ｃ÷Ｆ)２÷２÷Ｃ÷π) ◢ Goto 0← 内容详解：“X0”起点坐标 “Y0”起点坐标 “C0”切线方位角 “R0”起曲半径  “RI”终曲半径 “DK0”起点里程 “DKI”待求点里程 “ZZ-YZ:-1，1？”曲线左偏-1,右偏1 “ＥＮＤ：Ｓ１？”曲线终点 直线段“R0”, “RI”输入“99999999” 2 楼：feizai1126 楼主 09-4-3 12:59 回 曲线元程序清单（适用于复杂匝道坐标计算） Lb1 0 “X0”？A： “Y0”？B： “C0”？D： “R0”？E： “RI”？F： “ＤＫ0”？P： “DKI”？Q： “ZZ-YZ：-1，1”？H :H＝ -1=>F＝- F：E＝- E “ZZ-YZ：-1，1”？H:H＝1=>F＝F：E＝E ifE>F：thenＤ＝1：ifend ifE A+F×（sin(G+180×（Q-P）÷F÷π) –sinG）→X◢ B –F×(cos(G+180×（Q-P）÷F÷π)-cosG）→Y◢ G+（Q-P）×180÷F÷π→J◢ J<0=> J +360→J◢ J≥360=> J-360→J◢ Goto 0 “ＥＮＤ：Ｓ１”？W （W-Ｐ）×Ｆ×Ｅ÷（Ｅ-Ｆ）→C← Ｃ<0=> -Ｃ→C← “Ｌ０=”:Ｃ÷Ｅ→T← Ｔ+Ｄ×（Ｑ-Ｐ）→L （Ｌ-Ｔ）-（Ｌ^５-Ｔ^５）÷（40×C^2）+（L^9-T^9）÷(３４５６×Ｃ^４) －（Ｌ^１３-Ｔ^１３）÷(５９９０４０×Ｃ^６) →U ← （Ｌ^３-Ｔ^３）÷(６×Ｃ) -（Ｌ^７-Ｔ^７）÷(３３６×Ｃ^３)+ （Ｌ^１１-Ｔ^１１）÷(４２２４０×Ｃ^５) -（Ｌ^１５-Ｔ^１５）÷(９６７６８００×Ｃ^７) ← Ｚ=Ｇ-Ｄ×Ｔ２×１８０÷２÷Ｃ÷π→V← “X=”:Ａ+Ｄ×Ｕ×cos(Z)-V×sin(Z) →X ◢ “Y=”:B+Ｄ×Ｕ×sin(Z)+V×cos(Z) →Y◢ H=-1=>F=-F:E=-E:K=-１← H=1=>F=F:E=E:K=１← IfＥ>Ｆ：then (Ｇ-K×180×C÷２÷π÷Ｅ２+Ｋ×180×(Ｑ-Ｐ+Ｃ÷Ｅ)２÷２÷Ｃ÷π) →J ◢ else (Ｇ+K×180×C÷２÷π÷Ｅ２-Ｋ×180×(-Ｑ+Ｗ+Ｃ÷Ｆ)２÷２÷Ｃ÷π) →J ◢ Goto 0← 3 楼：'小白 09-6-9 17:41 回 评：+10 分 Defm 40← J〝FixmC=〞=7＝﹥Fixm：GOTO6△←(可要可不要) Fixm← {A,B,C,D}:A"X0=":B"Y0=":C"X1=":D"Y1="← Lbl 0← Pol(C-A,D-B)← Z[0]=I← "S0="← Z[0]▲ Z[1]=J← "A0="← Z[1]＜0=〉Z[2]=Z[1]+360:≠=〉Z[2]=Z[1]△Z[2]→DMS▲ Lbl 1← {X}:X"N="← X=0=〉Goto 5:≠=〉X=1=〉Goto 2:≠=〉X=2=〉Goto 6:≠=〉GOTO 3△← Lbl 2← {S,T}:S"AZ=":T"D="← Z[3