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

CASIO卡西歐計算器程序網(wǎng)站：論壇：適用：CASIOfx-5800PQQ：２９５１８８３１６——EvaluationWarning:ThedocumentwascreatedwithSpire.Docfor.NET.CASIOfx-5800P線元法坐標(biāo)正反算程序V2.0說明：本程序適用于卡西歐計算器CASIOfx-5800P,可對全線貫通坐標(biāo)正反算、豎曲線高程計算。該程序可計算任意線型，包含（直線、圓曲線、緩和曲線、卵形曲線）等,還可以能通過坐標(biāo)反推該點(diǎn)里程和距中線距離,適用測量員專用。主程序名：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必×co堆s敢（如Z[1盜]兔）塊→逃X羅：植Y+Z×林si輔n追（箭Z[1鉗]刪）?！繷失反算子程技序名：省ABCY柳TF篇第銜1藝步西眉Lbl折2波：（涌S-漫O盟）夜→幅W冶：司懸0防→稍Z觸：物Pro盾g廊＂秋ABCY犁TZ電＂聲：五F-9料0亭→票Z[9桃]館：守(J-Y鏟)×co乖s(Z[摟9])-誰(I-X奸)×si僑n(Z[程9]珠)蠟→僅Z[10耗]參第它2什步粉攤IfA掌bs(Z墻[10]叨)>0.案00篇1三：艷Then釀S+Z陣[10誕]紗→本S侄：過Goto呀終2殲：怎Else碰Got型o依1科：僅IfEn尊d緩第齡3址步苗例Lbl獎1盟：樹(Y-J慎)÷si潔n(Z[鞭9]認(rèn))瓜→冒Z碌數(shù)據(jù)庫名信：徹ABCY賀TSJ頑第留1鄉(xiāng)步覆Got輪o1很第晉2躁步負(fù)Lbl招優(yōu)1杠：杜IfS互<758送6.70窩7Or瀉S>1皮3346菌.9董6昌：逆Then尚Cl醫(yī)s紫：滲Loca調(diào)te2許,2,炒＂擁PQX墨＂淺：惱Loca命te4石,3,年＂蝴CHAO智XIAN膚＂裝：悲Loca瘡te1雪0,4,有＂渠→層Stop頸＂扎◢凳第擇3式步農(nóng)Sto炊p腥：勸IfEn善d股第統(tǒng)4舞步滋Lbl善價1葬：斥IFS農(nóng)<794款6.70脾7說：閘Then副98°鄉(xiāng)5潮6剛′聯(lián)5攪6窄″怠→稈G匪：溫7586虧.70誘7酒→斜o投：難3378回605.敵44銅5?！臮薦：辰4536柜48.7蔬0歐4貓→釀V伙：特0泄→嶼P狼：呀450驅(qū)0歲→片R爹：矛36刻0龜→夸H亡：仰危1蔥→盆Q膽：丸Retu國r佩n勞：桶IfEn切d瓜第警5稅步牛Lbl案壁1圖：匯IFS病<117帽66.0錫3儀：做Then聞101脈°1構(gòu)4存′漲2酒6浮″翅→累G餡：凈7946盤.70別7育→現(xiàn)o匯：春3378氣544.惑71層4妥→蹄U垂：澡4540丈03.5縫1血8悠→看V趟：芒450咳0貧→廈P自：描450欠0參→妥R關(guān)：各381捏9.32扔3呢→晴H仇：捏因1央→顧Q橋：鮮Retu敗r趴n須：探IfEn字d倦第悄6儉步贊Lbl撐頃1怪：趣IFS異<121攀26.0適3襪：寄Then涼149夸°5合2全′潑1省1張″買→鬧G淚：量1176駕6.0閉3隆→早o狗：邁3376妹389.釘89辜0沙→笑U商：核4570掏18.3逗2宜4蔬→露V景：束450群0戒→費(fèi)P茶：鵲0旅→督R吧：貿(mào)36刊0滔→醫(yī)H廟：叫窄1染→斑Q?。喝etu攀r勞n廢：盟IfEn陸d旦第篩7招步在Lbl閑繳1鎖：逼IFS狐<133便46.9殺6甲：兼Then戶152電°0柳9喜′券41.6塔8帆″跑→后G斧：毀1212貪6.0撞3錄→榴o幫：哥3376擾073.習(xí)84逗6敬→惜U社：荒4571束90.6泥5獵4墊→凳V駐：繩0孕→洗P嘴：蚊0誠→跡R冰：撒1220烘.9喇3劑→童H司：蔥0物→營Q甜：別Retu猛r腔n估：閑IfEn秘d廳第次n皇步電栗…………癢…………脂…………形…………倚…………嚴(yán)數(shù)據(jù)輸入嶼說明：躺第社1吐步希Got彼o1也第董2襲步貼Lbl脹曉1直：被IfS卵<鄉(xiāng)本條線路狹起點(diǎn)里剖程圾S矛>滴本條線路裹止點(diǎn)里俯程跪Cl荷s依：決Loca誰te2列,2,蜜＂決PQX叨＂匪：絨Loca吼te4讀,3,掛＂永CHAO燒XIAN孫＂笛：瑞Loca勝te1壓0,4,菊＂址→警Stop耍＂川◢稀第諒3慈步呢Sto剪p狐：終IfEn備d杏第秒4絲步偶Lbl樸士1獅：羽IfS棟<塊本線元止括點(diǎn)里程擇：過The評n競線元起點(diǎn)憲切線方位吼角掩→拾G陷：線元起段點(diǎn)樁著號鴉→奶O鄰：線元起罵點(diǎn)坐謝標(biāo)括X驢→燕U勢：線元起悲點(diǎn)坐陜標(biāo)押Y襯→礙V鞏：線元起贈點(diǎn)半徑（起直線摩為籠0爸、曲線為腐半徑尋）偉→驗(yàn)P翠：線元止附點(diǎn)半徑（岔直線少為但0頁、曲線為守半徑凳）確→浙R固：線元長呈度夢→聾H遵：線元轉(zhuǎn)劫向（左轉(zhuǎn)桃為兔-襯1眠、右轉(zhuǎn)巾為右1眠、直線截為挽0獨(dú)）傲→餓Q值：灶Retu畫r饞n旺：躺IfEn決d斤第注n歪步咸Lbl然偏1沒：每增加剩一行則為郊增加一個度線元要素點(diǎn)。帝豎曲線子仇程序名毀：里ABCY領(lǐng)TSQX墓第廈1慣步欠蓬S訊→倘C解：造Prog握患＂欠ABCY該TSQX療SJ永＂鄰：濃A爆→殲Z[1螞]背：現(xiàn)B拒→順Z[2育]釀：誰C濕→傅Z[3循]僵：齡If(分Z[1]偉-Z[2不])<柄0蹄：警Then既虜1遍→遮Z[8司]饒：包Else轉(zhuǎn)-冊1宅→鞏Z[8扭]獲：斜IfEn微d框第棟2孟步淘R×A非bs(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姑步憐If唯Z[3]猛≤筍Z[4量]舌：可Then所H-(疏K-Z[潛3])×稠Z[1]陶÷10提0番→賓X霸：鴨Goto滴巴3午：盯Else章If三Z[3]守≥悶Z[4]膜And厭Z[3蓋]<磚K英：哲Then世H+(樂Z[3]鈔-K)×瞇Z[1]斥÷10賓0逮→郊Z[6愛]備：可(銳Z[3]繞-Z[4撕]聯(lián))志^(2)古÷2÷段R遍→搭Z[7欄]丑：蕉Z[6]蔽+Z[7式]×Z[賭8飾]供→設(shè)X棋：砌Goto繭浮3煉：普Else薦If覆Z[3]腿=乓K窗：釣Then凈H+E糾×Z[8蹈]偉→搬X賭：惡Goto浪托3蔽：買Else蔽If蹈Z[3]汁>KA源ndZ祖[3]蟻≤桌Z[5吹]俊：托Then晶H+(漸Z[3]爬-K)×芹Z[2]請÷10幟0前→織Z[6]態(tài)：繳(聾Z[5]屠-Z[3宿]統(tǒng))蝶^(2)段÷2÷飼R籠→火Z[7糧]科：贏Z[6]迷+Z[7褲]×Z[球8擔(dān)]腿→明X錦：槍Goto跳攤3緊：動Else箱If軋Z[3]哈≥屋Z[5捎]攤：界Then歲H+(出Z[3]撓-K)×兇Z[2]烈÷10妖0爆→秀X姐：傅IfEn哄d禮：市Lbl盯3?。航諼楚→葬H更：抗Retu與rn啟豎曲線數(shù)漆據(jù)庫敢：彼ABCY駝TSQX愁SJ羨第丙1結(jié)步敢Got適o1細(xì)第唱2灑步療Lbl去要1析：核IfS符<500陡0.00斯0Or沿S>1朽1211決.99冒7愁：群Then俱Cl行s火：古Loca闖te2篩,2,拆＂懷SQX柏＂課：百Loca衡te4誰,3,號＂罰CHAO賄XIAN燈＂隸：袋Loca錦te1練0,4,容＂遷→柱Stop栽＂果◢魯?shù)谌?靠步失Sto詞p增：床IfEn黑d婆第安4牽步派Lb1密五1嘗：饅IfS四<590語0.00濟(jì)0五：夾Then普580昌0.00奉0鍛→堡K頂：抓323.期52徹7慘→漢H暫：勺2000昏0弄→喊R狗：橡-0.5洪80患0收→認(rèn)A旱：里0.42嚼0叛0仍→贏B沫：促Retu朵r弓n慚：肚IfEn譯d改第搏5擴(kuò)步艦Lb1撲遣1裳：著IfS蕉<898暢2.00域0怒：凝Then夢891跡0.00繪0疼→利K禿：凱336.鹿58礙9阻→沾H瓣：授2000孔0花→愁R鮮：厲0.42略0售0搜→胸A極：該-0.3撇00墨0作→縫B值：幟Retu撈r灰n搭：否IfEn申d暖第的6蒜步荒Lb1乎橡1棉：孤IfS弱<112嚷11.9亂9汁7掌：撫Then孔111貝87.0耗0草0忘→委K倚：決329.妖75蟲8糖→笨H不：向2000紫0端→笨R墓：狂-0.3常00大0冠→鑼A順：伴-0.5豬50揪0娃→開B疤：妖Retu染r研n從：附IfEn盛d淡第刃n劃步疊制…………夾…………佛…………虜…………幟…………延數(shù)據(jù)輸入姨說明：拼第閘1精步富Got走o1室第頭2詳步宵Lbl關(guān)胡1葉：騰IfC及<瘡本條線路辛豎曲線起很點(diǎn)里念程拜C港>椅本條線路甩豎曲線止墾點(diǎn)里分程論nCl磁s亞：收Loca紐te2女,2,飛＂釘SQX勁＂貌：沒Loca總te4健,3,軋＂徑CHAO釣XIAN你＂做：啊Loca合te1靜0,4,掌＂峽→粥Stop遮＂筐◢掩第測3汪步睛Sto支p地：翠IfEn婚d例第綠4讀步陪Lbl貼網(wǎng)1艷：原IfC蝦<拌本條豎曲究線圓直樁椅號或止點(diǎn)棋樁號東：工Then銳即變坡點(diǎn)樁貸號扭→聞K嗽：變坡點(diǎn)串高件程?！螲觸：豎曲線昌半溫徑蛙→花R午：第一縱凍坡（百分個數(shù)單位畫）趕→爆A跪：第二縱參坡（百分辣數(shù)單位胞）俱→禁B暈：珠Retu悠r鹿n侮：駕IfEn爸d有第剖n錢步厲Lbl誦鑼1妨：每增加吵一行則為較增加一個衛(wèi)豎曲線要棍素。虜程序輸入淺說明：鴉涉場本程序中需除了淺黃伐底色此O多表示為字寸母，其余榮均為數(shù)籮字翻0串，輸入程脆序時每輸敘入完死成跳1底步則弊按話EX泄E纖換行，需岔認(rèn)真、仔麥細(xì)，子程滲序輸入方嶄式和主程戴序相同，劫若字體小壘請按重住警CTR去L再鍵然后再毒滑動鼠標(biāo)燦滾動條進(jìn)匆行縮放頁慢面大小。趴本程序中川多數(shù)指令壞在志FUNC好TIO雷N庫中陪（怠2濃：犧COMP雅L劫X遣、揭3致：客PRO氏G碗）查找。喘De姻g臭和暫Fix魯?shù)鸢词躍HIF牲T舉再師按死MODE興SET浪U礎(chǔ)P喉查找。嘴程序數(shù)據(jù)匠庫可采名用崗“奏曲線坐標(biāo)嶄計算程飛序移VBA摧”籍自動生拿成抱fx-5暗800明P析數(shù)據(jù)庫。撞程序演示歌步驟：燭《坐標(biāo)正截算》蓄運(yùn)行主程技序跨ABCY騙T胡1.DK河=>XY腫2.XY勞=>DK虹Q?1命鼠(轉(zhuǎn)輸裙入澆1貴為坐標(biāo)正刑算、輸端入深2棕為坐標(biāo)反野算裕)圖DK?=微100虛00貴(病計算里跪程腥)穩(wěn)W?=瞇5融(蛾邊樁偏距路：左為負(fù)全，右為注正昌)百α俗?=9德0材(川邊樁偏角甘：正交敵為劑90輸°戰(zhàn)，斜交自貸擬地)睜F=1采27°2捆3霸ˊ墨02.0朵2爛″以(振計算切線協(xié)方位哭角救)憐X=3箭3777零02.6纏97恰(駐計算結(jié)果車坐樓標(biāo)泰X)碗Y=4舒5585礙5.49擦0也(置計算結(jié)果歐坐沾標(biāo)陡Y)況H=3窯33.3誰1逮9戲（計算豎怨曲線高程泄）眉說明：籮按淘EX喂E轉(zhuǎn)鍵返回主傅程序界面慮。琴《坐標(biāo)反皮算》高運(yùn)行主程惡序測ABCY妙T抵1.DK覽=>XY津2.XY甩=>DK侵Q?1輸全(西輸列入妙1襖為坐標(biāo)正僅算、輸黃入棚2異為坐標(biāo)反曲算償)姿DK?=仔100蜜00竹(言計算里導(dǎo)程短)污X?3灶3777草00.5圈6孕7杜（輸入反攜算點(diǎn)坐徐標(biāo)調(diào)X傷）摟Y?4嫌5595香0.68勇9帝見（輸入反朗算點(diǎn)坐誠標(biāo)田Y廢）低K=1里0076貪.066最鈴段（反算結(jié)喉果里程）哲S=-5院1.75臥9帝丹(的反算結(jié)果哲偏距：負(fù)杠為偏總左品,附正為偏構(gòu)右便)茫說明：兄