CASIO fx ABCY線元法坐標(biāo)正反算程序V

CASIO卡西歐計算器程序網(wǎng)站：/blog論壇：適用：CASIOfx-5800PQQ：２９５１８８３１６——若有疑問請至Email：ceo@CASIOfx-5800P線元法坐標(biāo)正反算程序V2.0說明：本程序適用于卡西歐計算器CASIOfx-5800P,可對全線貫通坐標(biāo)正反算、豎曲線高程計算。該程序可計算任意線型，包含（直線、圓曲線、緩和曲線、卵形曲線）等,還可以能通過坐標(biāo)反推該點里程和距中線距離,適用測量員專用。主程序名：ABCYT第1步Deg：Fix3：10→DimZ第2步Lbl3：＂1.DK=>XY＂：＂2.XY=>DK＂：＂Q＂?W：＂DK＂?S：Prog＂ABCYTSJ＂：IfP=0：Then10^(45)→P：IfEnd：IfR=0：Then10^(45)→R：IfEnd第3步1÷P→C：(P-R)÷(2HPR)→D：180÷π→E：IfW=1：ThenGoto1：ElseGoto2：IfEnd第4步Lbl1：＂W＂?Z：＂α＂?N：Abs(S-O)→W：Prog＂ABCYTZ＂第5步Cls：＂F=＂：Locate3,1,F°：＂X=＂：Locate3,2,X：＂Y=＂：Locate3,3,Y◢第6步Prog＂ABCYTSQX＂：Cls：＂H=＂：Locate3,1,H◢第7步1→W：90→N：Goto3第8步Lbl2：?X：?Y：X→I：Y→J：Prog＂ABCYTF＂：O+W→S第9步Cls：＂K=＂：Locate3,1,S：＂S=＂：Locate3,2,Z◢第10步2→W：Goto3正算子程序名：ABCYTZ第1步0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L第2步1-L→F：1-K→M第3步U+W×(A×cos(G+Q×E×K×W×(C+K×W×D))+B×cos(G+Q×E×L×W×(C+L×W×D))+B×cos(G+Q×E×F×W×(C+F×W×D))+A×cos(G+Q×E×M×W×(C+M×W×D)))→X第4步V+W×(A×sin(G+Q×E×K×W×(C+K×W×D))+B×sin(G+Q×E×L×W×(C+L×W×D))+B×sin(G+Q×E×F×W×(C+F×W×D))+A×sin(G+Q×E×M×W×(C+M×W×D)))→Y第5步G+Q×E×W×(C+W×D)→F：F+N→Z[1]第6步X+Z×cos（Z[1]）→X：Y+Z×sin（Z[1]）→Y反算子程序名：ABCYTF第1步Lbl2：（S-O）→W：0→Z：Prog＂ABCYTZ＂：F-90→Z[9]：(J-Y)×cos(Z[9])-(I-X)×sin(Z[9])→Z[10]第2步IfAbs(Z[10])>0.001：ThenS+Z[10]→S：Goto2：ElseGoto1：IfEnd第3步Lbl1：(Y-J)÷sin(Z[9])→Z數(shù)據(jù)庫名：ABCYTSJ第1步Goto1第2步Lbl1：IfS<7586.707OrS>13346.96：ThenCls：Locate2,2,＂PQX＂：Locate4,3,＂CHAOXIAN＂：Locate10,4,＂→Stop＂◢第3步Stop：IfEnd第4步Lbl1：IFS<7946.707：Then98°56′56″→G：7586.707→o：3378605.445→U：453648.704→V：0→P：4500→R：360→H：1→Q：Return：IfEnd第5步Lbl1：IFS<11766.03：Then101°14′26″→G：7946.707→o：3378544.714→U：454003.518→V：4500→P：4500→R：3819.323→H：1→Q：Return：IfEnd第6步Lbl1：IFS<12126.03：Then149°52′11″→G：11766.03→o：3376389.890→U：457018.324→V：4500→P：0→R：360→H：1→Q：Return：IfEnd第7步Lbl1：IFS<13346.96：Then152°09′41.68″→G：12126.03→o：3376073.846→U：457190.654→V：0→P：0→R：1220.93→H：0→Q：Return：IfEnd第n步……………………數(shù)據(jù)輸入說明：第1步Goto1第2步Lbl1：IfS<本條線路起點里程S>本條線路止點里程Cls：Locate2,2,＂PQX＂：Locate4,3,＂CHAOXIAN＂：Locate10,4,＂→Stop＂◢第3步Stop：IfEnd第4步Lbl1：IfS<本線元止點里程：Then線元起點切線方位角→G：線元起點樁號→O：線元起點坐標(biāo)X→U：線元起點坐標(biāo)Y→V：線元起點半徑（直線為0、曲線為半徑）→P：線元止點半徑（直線為0、曲線為半徑）→R：線元長度→H：線元轉(zhuǎn)向（左轉(zhuǎn)為-1、右轉(zhuǎn)為1、直線為0）→Q：Return：IfEnd第n步Lbl1：每增加一行則為增加一個線元要素。豎曲線子程序名：ABCYTSQX第1步S→C：Prog＂ABCYTSQXSJ＂：A→Z[1]：B→Z[2]：C→Z[3]：If(Z[1]-Z[2])<0：Then1→Z[8]：Else-1→Z[8]：IfEnd第2步R×Abs(Z[1]÷100-Z[2]÷100)→L：L÷2→T：T^(2)÷2÷R→E：K-T→Z[4]：Z[4]+L→Z[5]第3步IfZ[3]≤Z[4]：ThenH-(K-Z[3])×Z[1]÷100→X：Goto3：ElseIfZ[3]≥Z[4]AndZ[3]<K：ThenH+(Z[3]-K)×Z[1]÷100→Z[6]：(Z[3]-Z[4])^(2)÷2÷R→Z[7]：Z[6]+Z[7]×Z[8]→X：Goto3：ElseIfZ[3]=K：ThenH+E×Z[8]→X：Goto3：ElseIfZ[3]>KAndZ[3]≤Z[5]：ThenH+(Z[3]-K)×Z[2]÷100→Z[6]：(Z[5]-Z[3])^(2)÷2÷R→Z[7]：Z[6]+Z[7]×Z[8]→X：Goto3：ElseIfZ[3]≥Z[5]：ThenH+(Z[3]-K)×Z[2]÷100→X：IfEnd：Lbl3：X→H：Return豎曲線數(shù)據(jù)庫：ABCYTSQXSJ第1步Goto1第2步Lbl1：IfS<5000.000OrS>11211.997：ThenCls：Locate2,2,＂SQX＂：Locate4,3,＂CHAOXIAN＂：Locate10,4,＂→Stop＂◢第3步Stop：IfEnd第4步Lb11：IfS<5900.000：Then5800.000→K：323.527→H：20000→R：-0.5800→A：0.4200→B：Return：IfEnd第5步Lb11：IfS<8982.000：Then8910.000→K：336.589→H：20000→R：0.4200→A：-0.3000→B：Return：IfEnd第6步Lb11：IfS<11211.997：Then11187.000→K：329.758→H：20000→R：-0.3000→A：-0.5500→B：Return：IfEnd第n步……………………數(shù)據(jù)輸入說明：第1步Goto1第2步Lbl1：IfC<本條線路豎曲線起點里程C>本條線路豎曲線止點里程nCls：Locate2,2,＂SQX＂：Locate4,3,＂CHAOXIAN＂：Locate10,4,＂→Stop＂◢第3步Stop：IfEnd第4步Lbl1：IfC<本條豎曲線圓直樁號或止點樁號：Then變坡點樁號→K：變坡點高程→H：豎曲線半徑→R：第一縱坡（百分?jǐn)?shù)單位）→A：第二縱坡（百分?jǐn)?shù)單位）→B：Return：IfEnd第n步Lbl1：每增加一行則為增加一個豎曲線要素。程序輸入說明：本程序中除了淺黃底色O表示為字母，其余均為數(shù)字0，輸入程序時每輸入完成1步則按EXE換行，需認(rèn)真、仔細(xì)，子程序輸入方式和主程序相同，若字體小請按住CTRL鍵然后再滑動鼠標(biāo)滾動條進行縮放頁面大小。本程序中多數(shù)指令在FUNCTION中（2：COMPLX、3：PROG）查找。Deg和Fix按SHIFT再按MODESETUP查找。程序數(shù)據(jù)庫可采用“HYPERLINK"/blog/search.asp?q=%E6%9B%B2%E7%BA%BF%E5%9D%90%E6%A0%87%E8%AE%A1%E7%AE%97%E7%A8%8B%E5%BA%8FVBA&"曲線坐標(biāo)計算程序VBA”自動生成fx-5800P數(shù)據(jù)庫。程序演示步驟：《坐標(biāo)正算》運行主程序ABCYT1.DK=>XY2.XY=>DKQ?1(輸入1為坐標(biāo)正算、輸入2為坐標(biāo)反算)DK?=10000(計算里程)W?=5(邊樁偏距：左為負(fù)，右為正)α?=90(邊樁偏角：正交為90°，斜交自擬)F=127°23ˊ02.02″(計算切線方位角)X=3377702.697(計算結(jié)果坐標(biāo)X)Y=455855.490(計算結(jié)果坐標(biāo)Y)H=333.319（計算豎曲線高程）說明：按EXE鍵返回主程序界面。《坐標(biāo)反算》運行主程序ABCYT1.DK=>XY2.XY=>DKQ?1(輸入1為坐標(biāo)正算、輸入2為坐標(biāo)反算)DK?=10000(計算里程)X?3377700.567（輸入反算點坐標(biāo)X）Y?455950.689（輸入反算點坐標(biāo)Y）K=10076.066（反算結(jié)果里程）S=-51.759(反算結(jié)果偏距：負(fù)為偏左,正為偏右)說明：按EXE鍵返回主程序界面。其他說明須知：：當(dāng)計算里程小于于或大于數(shù)數(shù)據(jù)庫中指指定的樁號號時會提示示超限顯示示。如：輸入里程11000會提示如