CASIO fx ABCY線元法坐標正反算程序V

CASIOfx-5800P線元法坐標正反算程序V2.0說明：本程序適用于卡西歐計算器CASIOfx-5800P,可對全線貫通坐標正反算、豎曲線高程計算。該程序可計算任意線型，包含（直線、圓曲線、緩和曲線、卵形曲線）等,還可以能通過坐標反推該點里程和距中線距離,適用測量員專用。主程序名：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撐步優(yōu)趁0.1739甜27422媽6撿→僅A辦：球0.3260敞72577搭4團→作B攔：強0.0694穗31844招2迫→鄭K各：蝕0.3300汽09478揉2馳→嘉L植第膚2隱步臉綁1-瞎L說→感F韻：局1-透K盟→嶼M染第幅3店步廳亦U+W套×壁(孝A務(wù)×塵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弄×農(nóng)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(xué)張×扭D))+B董×賀sin(G+筍Q袋×他E莫×門F配×導(dǎo)W妹×泳(訓(xùn)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穩(wěn)：微Y+Z啊×墊si骨n寇（傷Z[1]夜）縱→祝Y悔反算子程序慧名顫：咽AB掉CYT關(guān)F勉第怕1灘步百仗Lbl忘2府：稼（絹S-么O解）者→像W唱：熱葵0孩→趟Z泉：選免Prog螞＂壇ABCYTZ韻＂跟：鳴F習-9震0仔→列Z[9]遠：網(wǎng)(毀J商-旬Y搜)餅×洲cos(阻Z[9]銳)陜-(叉I費-陰X獨)童×棍sin(陶Z[9]牽)吐→槍Z[10]伯第泰2騙步砍那IfAbs庸(霜Z[10]忠)>0.00努1旗：情Then可S繁+借Z[10]橡→屈S?。吼圙oto2六：婦ElseG革oto紫1記：漸IfEnd憶第玉3脫步些倆Lbl崖1爸：總(燕Y踐-蹦J渠)÷腸sin族(盈Z[9]西)咸→孫Z找數(shù)據(jù)庫賊名木：飲AB委CYT面SJ殺第吸1館步籃研Goto1鋤第租2里步齊Lbl愧1戀：鍛If耽S猾<斃7舉586騎.707用Or磁S搞>肌13346.霜96尋：肺ThenC泡l西s巾：戀Locate榆2,2,桌＂險PQX墳＂立：字Locate般4,3,麥＂年CHAOXI酷AN蝶＂蜻：粗Locate帳10,4,灑＂襖→糧Stop從＂拋◢待第滋3澇步仿Sto紙p成：寫IfEnd秋第聽4篇步迅泄Lbl1幸：塊IFS<7瑞946.70陡7戚：激Then9園8°5賭6象′華5皺6鈔″擴→泛G矩：朗7586.7葉0屑7命→州o管：虎337860柜5.44茅5牙→平U龜：藝453648戲.70開4倡→衫V籠：哥0慶→秤P喂：積450秩0傳→想R才：籌36叮0?！XH勉：癥失1任→彎Q霧：彼Return撇：翻IfEnd漿第豬5竄步巴卡Lbl1間：給IFS<1奸1766.0賞3冰：糊Then1騾01°1春4蘭′甜2刃6彈″壽→栽G領(lǐng)：迅7946.7宜0詳7行→黃o嗽：妹337854瞇4.71哥4居→該U驟：姿454003五.51遼8哪→咽V的：憂450葵0放→評P相：惠450芳0厚→騰R考：死3819.洞32嫩3欺→絹H業(yè)：測深1拒→拐Q奏：釣Return玉：稻IfEnd遙第遼6宰步糖歌Lbl1航：墨IFS<1征2126.0持3鷹：本Then1像49°5鳥2寄′等1福1企″殃→沿G應(yīng)：右11766.辰0攝3鍵→兆o職：森337638菊9.89幸0貍→強U當：光457018服.32膠4縣→云V挨：夏450億0煮→研P俯：史0拒→陷R務(wù)：片36販0書→揉H劈：梅駝1趟→疫Q昆：控Return?。耗慖fEnd界第少7鄰步凡域Lbl1憲：埋IFS<1賞3346.9專6輕：燥Then1計52°0續(xù)9粗′受41.6職8種″軌→殺G支：雨12126.鵲0臂3獎→輪o粘：投337607守3.84援6乒→廊U聰：農(nóng)457190填.65布4禿→沉V置：駛0寺→沿P擴：蚊0選→脅R采：村1220.9茂3須→澤H何：陷0竟→劣Q掃：陡Return快：柔IfEnd民第表n資步閃寨………………雁………………橡………………猶……日數(shù)據(jù)輸入說明秋：爸第椅1漸步侵盟Goto1尊第箏2產(chǎn)步劣Lbl傷1調(diào)：航If股S辱<宅本久條這線路熟起點里程臺S開>坐本胸條扒線路乏止點里忽程奸Cl徑s軋：古Locate舍2,2,踏＂郵PQX構(gòu)＂巴：繼Locate傾4,3,辨＂有CHAOXI坐AN鎮(zhèn)＂灰：白Locate茅10,4,盟＂暈→肺Stop災(zāi)＂震◢副第貫3駐步爽Sto容p慰：陵IfEnd電第質(zhì)4可步神Lbl劇1熄：愁I(lǐng)f虎S雅<鐮本線元止點里勉程型：殺Then捐線元匪起點切線方位夫角兇→猾G場：寄線元起點樁號分→霜O斑：奮線元起點坐腸標械X臺→季U繁：雪線元起點坐昌標封Y味→邊V腦：證線元起點半徑衛(wèi)（直線矮為詞0遭、曲線為半徑話）怎→拉P濕：異線元止點半徑刮（直線肢為隸0前、曲線為半徑費）伶→遙R辰：量線元長度莫→鏟H?。汉叹€元轉(zhuǎn)向（左姓轉(zhuǎn)額為塌-忌1裙、右轉(zhuǎn)發(fā)為猴1野、直線鍋為姥0顫）叢→捆Q勁：甜Retur幟n誤：拿IfEnd菠第妖n傳步統(tǒng)Lbl給1洗：每增加一行蛛則為增加一個挎線元耍要素。畫豎曲線子程序世名：攝AB處CYTSQX魄第浙1企步睛聞S瘡→云C澇：北Prog唯＂階AB吐CYTSQX折SJ靜＂巷：賺A悔→喪Z[1畏]谷：沸B樹→貼Z[2宏]招：驢C框→塞Z[3腫]條：欲If(Z[夫1]-Z[2決])<鈔0準：嘉Then凱1膀→酷Z[8撞]引：臉Else-顫1溉→啞Z[8紫]祥：拾IfEnd老第柄2雅步刊R×Abs罪(Z[1]÷盜100-Z[陣2]÷100尸)猾→內(nèi)L岔：象L÷要2政→腸T恭：嘗T^(2)÷雅2÷表R濟→肯E閉：耍K-果T想→毒Z[4推]耽：側(cè)Z[4]+展L地→懇Z[5]簽第叼3驚步倡IfZ[釀3]拘≤陷Z[4警]閣：輸ThenH贈-(K-Z[完3])×Z[庭1]÷10獲0殘→突X淡：醒Goto譽3裳：頂ElseI歐fZ[3]箏≥灘Z[4]A碌ndZ[3拼]<亭K席：巴ThenH剖+(Z[3]臺-K)×Z[稅1]÷10填0培→記Z[6駝]翻：靜(適Z[3]-Z巾[4]略)殊^(2)÷2麗÷剝R鑒→袖Z[7年]悠：椅Z[6]+Z聚[7]×Z[誘8臉]睜→毛X麻：攀Goto庭3淹：首ElseI泳fZ[3]若=金K索：頸ThenH惱+E×Z[8屢]踩→劇X譯：困Goto藥3災(zāi)：聾ElseI錢fZ[3]鎮(zhèn)>KAnd為Z[3]或≤茄Z[5瓶]享：攤ThenH絮+(Z[3]子-K)×Z[拳2]÷10鬧0潤→浸Z[6]智：昌(油Z[5]-Z捷[3]揮)她^(2)÷2講÷稱R被→烘Z[7挽]土：將Z[6]+Z辦[7]×Z[川8泰]遺→壘X增：斧Goto忠3隙：丘ElseI鄭fZ[3]如≥講Z[5夠]晃：縮ThenH乏+(Z[3]楊-K)×Z[杯2]÷10憲0咐→已X描：槐IfEn兇d廣：步Lbl葉3摩：銷X尖→斷H洞：游Return障豎曲線數(shù)據(jù)庫造：醬AB污CYTSQX乏SJ遺第啄1媽步同Goto攜1均第毀2銜步留Lbl門1上：秒If等S爬<5000.押000Or基竄S巖>1凡1211.9康97島：歪ThenC猛l則s吵：炸Locate訪2,2,僵＂打SQX絲＂男：惰Locate駱4,3,全＂炮CHAOXI潛AN草＂仰：疤Locate頭10,4,確＂狂→騰Stop搞＂額◢般第錫3昆步母Sto尿p相：盲IfEnd槳第侍4而步濫Lb1文1灌：踏If記S享<5900它.000積：摸Then5紫800再.000默→北K奔：鈔323.52李7港→古H昆：回2000燒0綠→擁R伍：瓜-0.580火0嚷→艱A揚：焦0.420陡0亦→千B燈：裂Retur硬n幟：憶IfEnd編第曠5候步悶Lb1態(tài)1旁：朽If銜S朝<8982餅.000概：肝Then8伐910成.000撒→啊K勢：饒336.58摩9頸→公H止：議2000指0局→過R塊：怒0.420叛0紀→臨A津：而-0.300堅0場→湖B悉：歡Retur愈n宇：翠IfEnd河第兔6康步屆Lb1季1澇：立If休S米<11211概.99饞7女：棕Then1真1187姑.000黑→降K影：娛329.75酬8申→贏H傻：扣2000罩0佩→扭R闖：根-0.300杰0五→藥A寇：雹-0.550毫0姻→輸B滾：光Retur武n悟：腥IfEnd詢第趟n夸步赴卸………………注………………庭………………完……沫數(shù)據(jù)輸入說明燕：掌第鵝1獻步昂Goto侮1伴第調(diào)2聰步充Lbl久1納：軟IfC勢<逃本條線路豎曲坡線起點里秩程傲C份>咱本條線路豎曲調(diào)線止點里藏程殃nCl徹s妻：輩Locate桂2,2,貸＂朋SQX棟＂萬：捆Locate申4,3,始＂朱CHAOXI華AN胳＂康：央Locate回10,4,亞＂巧→昨Stop宇＂涼◢距第沈3招步朝Sto棚p壽：利IfEnd父第瓶4壩步襪Lbl肆1青：倚IfC箱<桶本條豎曲線圓邁直樁號或止點貼樁號絕：桃Then坡李變坡點樁偷號胖→猴K絞：變坡點高裁程目→糞H漲：豎曲線半際徑扣→岔R糠：第一縱坡（粉百分數(shù)單位盲）怎→船A貨：第二縱坡（挖百分數(shù)單位刃）庫→禁B出：鞋Retur膝n絮：酬IfEnd希第傾n肝步查Lbl柿1衰：每增加一行榆則為增加一個若豎曲線要素。朗程序輸入說明漂：辦借革本程序中除了烏淺黃底色釣O貌表示為字母墻，惕其余棚均夕為數(shù)生字柄0視，輸入程序時娛每輸入完歷成型1量步則桐按腥EX簽E經(jīng)換行，需認真醉、仔細，子程翁序輸入方式和飾主程序相同，挎若字體小請按劃住燦CTR斥L頌鍵然后再滑動柿鼠標滾動條進懇行縮放頁面大貴小。案本程序中多數(shù)路指令漁在凝FUNCTI塑O瓜N也中脾（報2圈：車COMPL姜X茅、勵3覽：川PRO濾G烤）查找。騾De脅g揉和易Fix并蜂按娘SHIF害T昏再麥按瘋MODES烈ETU翅P濕查找。菜程序數(shù)據(jù)庫可蹲采佛用杠“距曲線坐標計算閱程律序匯VBA怠”召自動生錦成瞧fx-580廈0解P及數(shù)據(jù)庫。豪程序演示步驟擺：《坐標正算》脅運行主程矩序闖ABCYT樸1.皆DK太=>值XY稀2.候XY菊=>DK獵Q它?綢概1翻記(戲輸上入錫1憤為坐標正算、滴輸陶入刺2棟為坐標反算耕)戴DK?=扇100揚00邀(等計算里蔬程叼)低W?=啟5悅(孟邊樁鞠偏距招：三左為負悶，名右為崗正專)看α糟?=90(貧邊樁店偏角喜：薄正交仿為烤90°攀，斜交自擬際)丘F終=荷127團°重23符ˊ規(guī)02庭.熊02躲″閑(象計算抽切線方位漏角漁)草X=葬337770開2.697姥(憤計算結(jié)果坐浮標侮X)凝Y=蠅455855電.490遼(樹計算結(jié)果坐哨標聾Y)科H=333預(yù).31剪9真（計算豎曲線仍高程）項說明：袋按賀EX搖E環(huán)鍵返回主程序應(yīng)界面?！蹲鴺朔此恪酚赀\行主程疊序仇ABCYT怪1.傳DK超=>耽XY眨2.龍XY抄=>DK而Q卵?舉馬1鋤創(chuàng)(谷輸悠入連1證為坐標正算、甜輸糊入焰2綁為坐標反算孕)處DK?=閱100欺00年(叨計算里省程謀)戚X?阿337770灣0.56寺7訊（輸入反算點齡坐糕標發(fā)X式）蹈Y?棒455950唯.689嘉元（輸入反算點膜坐食標緩Y碌）垂K=夫10076.餓066誤沒（死反算結(jié)果龍里程）稠S動=-燈51.759謠穗第(垮反算結(jié)果衛(wèi)偏距：羨負為層偏雙左擇,探正為義偏挑右去)歐說