搜索
卡西欧5800程序（完整版）-1-说明：本程序适用于公路、桥梁、隧道测量。本程序简单、方便、快捷、拓展功卡西欧5800程序(完整版)卡西欧5800程序（完整版）-2-能宽，使用时只需按曲线要素表输入一次就可以计算整条线路（包括高程、超高段横坡），能正、反算，在已知坐标下可以反算出该点桩号及相对宽度，拓展功能有，放边、仰坡、隧道断面测量、开挖轮廓线等。主程序:MAIN＂ZH（θ）F（１）＂?M↓(0为正算、1为反算)IfM=θ:Then＂ZHUANGHAO＂?A：＂KUANDU＂?W:Else＂Ｘ＝＂?H：＂Ｙ＝＂?W:＂Ｚ＝＂？Ｑ：IfEnd↓(第一个交点参数)(交点桩号)…→P:(切线长度)…→T:(曲线总长)…→S:(圆半径)…→R=:(缓和曲线长)…→L:(第一方位角)…→U:(第二方位角)…→V:(交点X坐标)…→N:(交点Y坐标)…→E:(第一直线长、无为0)…→D:(第一坡度)…→Z〔8〕:(第二坡度)…→Z〔9〕:(缓和曲线超高段长度)…→Z〔10〕:(曲线偏向,右偏为+1,左偏为-1)…→K↓IfM=θ:ThenIfAP-T:Thengoto1:IfEnd:IfEnd↓Prog＂ZFXZ＂↓IfK=θ:Thengoto2:IfEnd↓…………(中间交点参数)Prog＂ZFXZ＂↓IfK=θ:Thengoto2:IfEnd↓…………(最后一个交点参数)IfM=θ:ThenIfAP-T+S+D:ThenGoto1:IfEnd:IfEnd↓卡西欧5800程序（完整版）-3-Prog＂ZFXZ＂↓IfK=θ:Thengoto2:IfEnd↓Lb11：＂NOTASK＂↓Lb12：IfM=1:ThenIfA=1:Then＂ZHUANGHAO＂:Z◢＂SJKUANDU＂:B◢IfEnd:IfEnd↓＂-------END-------＂KUANDU（拓展功能程序，用于反算）1→Ｍ:Prog＂MAIN＂↓Z→A:W→E:θ→W↓Prog＂GAOCHENG＂↓E→W↓Q-F→P↓IfP≤……(从小至大):Then……→D:Goto1:IfEnd↓……(同上)Lb11↓＂……＂:D◢(同上)◢＂----------END---------＂YUANK(B÷(2R))→F↓卡西欧5800程序（完整版）-4-2RSin(KFr)→C↓J+Fr→J↓Prog＂XZBH＂HHQXB-B^5÷(9θ(RL)2)→C↓KB2÷(6RL)→F↓J+Fr→J↓Prog＂XZBH＂PYJSIfO=θ:Then＂YUAN＂:J+Fr→J:IfEnd↓IfO=1:Then＂HHQX＂:J+2Fr→J:IfEnd↓IfO=2:Then＂LINE＂:J+18θ→J:IfEnd↓W→C↓IfAP-T+S-L:ThenJ-9θ→J:ElseJ+9θ→J:IfEnd↓Prog＂XZBH＂↓X=:X◢Y=:Y◢QXCS(有改)Prog＂QDZB＂↓卡西欧5800程序（完整版）-5-IfA≤P-T+L:ThenA-P+T→B:U→J:1→O:Prog＂HHQX＂:Goto1:IfEnd↓IfA≤P-T+S-L:ThenA-P+T-L→B:θ→0:L-L^3÷(90R2)→C:KL÷(6R)→F:U+Fr→J:Prog＂XZBH＂:U+3Fr→J:Prog＂YUAN＂:Goto1:IfEnd↓IfA≤P-T+S:ThenP-T+S-A→B:1→O:-K→K:V+180→J:Prog＂HHQX＂:Goto1:IfEnd↓IfA≤P-T+S+D:Then2→O:A-P+T-S→C:Prog＂XZBH＂:IfEnd↓Lb11：↓Prog＂PYJS＂↓Prog＂GA0CHENG＂QDZBN→X:E→Y:T→C↓IfAP-T+S-L:ThenV→J:ElseU+18θ→J:IfEnd↓Prog＂XZBH＂↓X→Z〔5〕:Y→Z〔6〕JDTZIfZ〔1〕θ:ThenZ〔1〕+36θ→Z[1]:IfEnd↓IfZ〔1〕≥36θ:ThenZ〔1〕-36θ→Z[1]:IfEnd↓IfZ〔2〕θ:ThenZ〔2〕+36θ→Z[2]:IfEnd↓卡西欧5800程序（完整版）-6-IfZ〔2〕≥36θ:ThenZ〔2〕-36θ→Z[2]:IfEnd↓FWJθ→I:θ→J↓Pol(H-G,W-Z)↓Jθ⇒J+36θ→J↓J→FDOTLINEPol(H-X,W-Y):I→N↓Pol(G-H,Z-W):I→E↓Pol(X-G,Y-Z):I→D↓(N+E+D)÷2→I↓√(I(I-N)(I-E)(I-D))→I↓2I÷D→I↓ZSPDIfA≤P-T+S+D:ThenProg＂QXCS＂:θ→K:IfEnd↓FSPDIfK=-1:ThenIfZ〔1〕Z〔2〕:ThenIfF≤Z〔1〕:ThenGoto1:IfEnd:IfF≥Z〔2〕:ThenGoto1:IfEnd:ElseIfF≤Z〔1〕:ThenF≥Z〔2〕:ThenGoto1:IfEnd:IfEnd:IfEnd:IfEnd↓卡西欧5800程序（完整版）-7-IfK=1:ThenIfZ〔1〕Z〔2〕:ThenIfF≥Z〔1〕:ThenGoto1:IfEnd:IfF≤Z〔2〕:ThenGoto1:IfEnd:ElseIfF≥Z〔1〕:ThenIfF≤Z[2]:ThenGoto1:IfEnd:IfEnd:IfEnd:IfEnd↓θ→A:Goto2↓Lb11↓IfO=θ:ThenProg＂FSYUAN＂:IfEnd↓IfO=1:ThenProg＂FSHHQX＂:IfEnd↓1→A↓Lb12FSTJU-90K→Z[1]↓V-90K→Z[2]↓Prog＂JDTZ＂↓P-T→A↓-1→O↓Prog＂JDZB＂↓Prog＂FSPD＂↓IfA=θ:ThenGoto1:IfEnd↓（有改）Z[1]→Z[1]:Z[1]+K(L÷(2R))r→Z[2]:1→O↓Prog＂JDTZ＂↓Prog＂JDZB＂↓卡西欧5800程序（完整版）-8-Prog＂FSPD＂↓IfA=1:Thenθ→K:Goto2:IfEnd↓Z[5]→X:Z[6]→Y:(KL)÷(6R)→F:L-L^3÷(90R2)→C:U+Fr→J↓Prog＂XZBH＂↓U+3Fr+90K→J:R→C↓Prog＂XZBH＂↓X→G:Y→Z↓Prog＂FWJ＂↓Z[2]→Z[1]:Z[1]+K((S-2L)÷R)r→Z[2]:θ→0↓Prog＂JDTZ＂↓Prog＂FSPD＂↓IfA=1:Thenθ→K:Goto2:IfEnd↓-K→K:V+9θK→Z[1]:Z[1]+K(L÷(2R))r→Z[2]:1→O↓Prog＂JDTZ＂↓P-T+S→A↓Prog＂JDZB＂↓Prog＂FSPD＂↓IfA=1:Thenθ→K:Goto2:IfEnd↓Lb11↓IfDθ:ThenP-T+S→A:Prog＂FSLINE＂:IfA=1:Thenθ→K:IfEnd:IfEnd↓Lb12卡西欧5800程序（完整版）-9-FSYUAN＂YUAN＂↓36θ+K(F-Z[1])→F↓F≥36θ⇒F-36θ→F⊿↓P-T+L+πRF÷18θ→Z:IfK=1:ThenR-I→B:ElseI-R→B:IfEnd↓FSHHQX＂HHQX＂↓Z[5]→X:Z[6]→Y↓Z[1]+18θ→J:R→C↓Prog＂XZBH＂↓X→G:Y→Z↓Z[5]→X:Z[6]→Y↓Prog＂DOTLINE＂↓IfI1:Thenθ→B:Goto3:ElseI→B:Prog＂FSHHQX1＂:I→Z[7]:B+I÷10→B:Prog＂FSHHQX1＂:IfIZ[7]:ThenGoto1:Else:Goto2:IfEnd:IfEnd↓Lb11↓B-I÷2→B:Prog＂FSHHQX1＂↓IfI1:Then-I→I:Goto3:ElseGoto1:IfEnd↓Lb12↓卡西欧5800程序（完整版）-10-B+I÷2→B:Prog＂FSHHQX1＂↓IfI1:ThenGoto3:ElseGoto2:IfEnd↓（有改）Lb13↓IfAP-T+L:ThenP-T+S-B-I→Z:ElseP-T+B+I→Z:IfEnd↓IfK=1:ThenIfAP-T+S-L:ThenD-E→B:ElseE-D→B:IfEnd:IfEnd↓IfK=-1:ThenIfAP-T+S-L:ThenE-D→B:ElseD-E→B:IfEnd:IfEndFSHHQX1Z[5]→X:Z[6]→Y:Z[1]+9θK→J↓Prog＂HHQX＂↓X→Z[3]:Y→Z[4]↓R→C:J+2Fr+9θK→J↓Prog＂XZBH＂↓X→G:Y→Z↓Z[3]→X:Z[4]→Y↓Prog＂DOTLINE＂JDZBProg＂QDZB＂↓Z[5]→Z[3]:Z[6]→Z[4]↓卡西欧5800程序（完整版）-11-IfO=-1:ThenP-T+S→A:Prog＂QDZB＂:Z[3]→Z[5]:Z[4]→Z[6]:ElseZ[1]+9θK+K(L÷(6R))r→J:L-L^3÷(9θR2)→C:Prog＂XZBH＂:IfEnd↓(Z[6]-Y+Xtan(Z[2])-Z[5]tan(Z[1]))÷(tan(Z[2])-tan(Z[1]))→G↓tanZ[2](G-X)+Y→Z↓Prog＂FWJ＂ZFXZIfM=θ:ThenProg＂ZSPD＂:ElseProg＂FSTJ＂:IfEndFSLINEProg＂QDZB＂↓X→G:Y→Z:J→N↓Prog＂FWJ＂↓N→J:F-J→F↓Icos(F)→G↓IfG≤D:ThenIfAP-T+S-L:ThenP-T+S+G→Z:Isin(F)→B:ElseP-T-G→Z:-Isin(F)→B:IfEnd:1→A:2→O:Elseθ→A:IfEndXZBHX+Ccos(J)→X↓Y+Csin(J)→Y卡西欧5800程序（完整版）-12-HENGPOIfA≤P-T+L-Z[10]:ThenZ[8]→V:Goto1:IfEnd↓IfA≤P-T+L:Then(Z[9]-Z[8])÷Z[10]→E:Z[8]+(A-P+T-L+Z[10])E→V:Goto1:IfEnd↓IfA≤P-T+S-L:ThenZ[9]→V:Goto1:IfEnd↓IfA≤P-T+S-L+Z[10]:Then(Z[8]-Z[9])÷Z[10]→E:Z[9]+(A-P+T-S+L)E→V:Goto1:IfEnd↓Z[8]→V↓Lb11GAOCHENG……(交点桩号)→O:……(交点高程)→D:……(小桩号坡度)→N:……(切线长度)→G:……(圆曲线半径)→R↓IfA≤O-G:Thenθ→K:Goto1:IfEnd↓IfA≤O+G:Then1→K:Goto1:IfEnd↓(K=0为直线、K=1为凸圆、K=-1为凹圆)……（同上）Lb11:Prog＂HENGPO＂↓K（A-O+G）2÷(2R)→P↓D+N(A-O)-P+WV→F↓DM:F◢卡西欧5800程序（完整版）-13-FWJJS(测回法测坐标)A＂XA＂:B＂YA＂:C＂XB＂:D＂YB＂:K＂CHANGDU＂:G＂JIAODU＂↓I=0:J=0:Pol(C-A,D-B):J0⇒J=J+360⊿↓E=J+G↓J＂FWJ＂◢X＂X＂=A+KcosE◢Y＂Y＂=B+KsinE◢＂-------END-------＂说明:＂JIAODU＂顺时钟为正、逆时针为负，＂XA＂、＂YA＂为测站点坐标、＂XB＂、＂YB＂为后视点坐标，＂X＂、＂Y＂为前视即待测点坐标，＂CHANGDU＂为测站点到待测点距离。