资源描述：
《5800卡西欧 隧道程序-----1主动竹山》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、CASIO5800------任意坐标正反算及隧道超欠挖程序1-1－SUIDAO－ZCX(隧道主程序)2-Lbl5:"ZS=1,FS=2,SD=3,QH=4"?N3-N=1=>Goto1:N=2=>Goto2:N=3=>Goto3:N=4=>Goto4:4-Lbl1:“(JSZH)K=”?S（计算桩号）：“（＋Z,－Y）Z=”?Z（计算偏距，左正右负）：Prog“SJ－PM”（平曲线数据库）：Abs(S－O)→W：Prog"SUB1－ZS"（正算子程序）：“X="：Locate4,4,X:"Y="：Locate4,4,Y：
2、F－90→F（该处F－90为计算正交90°边桩，要算斜交边桩即可改为？N：F－N→F）：S→K：Prog“SJ－GC”（竖曲.线数据库）：“H=”：Locate4,4,H◢5-Goto56-Lbl2：“X=”?X：“Y=”？Y：Prog“SJ－PM”（平曲线数据库）：X→I：Y→ J：Prog"SUB2－FS"（反算子程序）：O+W→S：“K="：Locate4,4,S：“（＋Z,－Y）P="：Locate4,4,Z：S→K：Prog“SJ－GC”（竖曲线数据库）：“H=”：Locate4,4,H◢7-Goto58-Lb
3、l3：“X=”?X：“Y=”？Y：Prog“SJ－PM”（平曲线数据库）：X→I：Y→ J：Prog"SUB2－FS"（反算子程序）：O+W→S：“K="：Locate4,4,S：“（＋Z,－Y）P="：Locate4,4,Z：S→K：Prog“SJ－GC”：“H=”：Locate4,4,H◢9-Prog“SJ－CQW”（隧道超欠挖数据库）:“（SJ-GD）H="：Locate4,4,F:“R:(+CW,-QW)=”：Locate4,4,W◢10-Goto511-Lbl4：“K=”?S（计算桩号）：“（＋Z,－Y）P=”
4、?Z（计算偏距，左正右负）：Prog“SJ－PM”（平曲线数据库）：Abs(S－O)→W：Prog"SUB1－ZS"（正算子程序）：F－90→F（该处F－90为计算正交90°边桩，要算斜交边桩即可改为？N：F－N→F）：“JJ=”?J（涵洞轴线于路线主线右夹角）：0→A：0→B：Prog"QHZBJS"（桥涵坐标计算程序）：12-Goto5以上为第一个主程序13-SJ-PM（子程序名-平曲线形数据库）1-IfS≥38990.919（线元起点里程）:Then9502.991→U（线元起点X坐标）：9616.568→V（线元起
5、点Y坐标）：38990.919→O（线元起点里程）：298°11’04.8”→G（线元起点方位角）：130→H（线元长度）：1×1045→P（线元起点曲率半径）：850→R（线元终点曲率半径）：－1→Q（线元左右偏标志：左-1右1）：IfEnd2-IfS≥39120.919:Then9561.437→U：9500.485→V：39120.919→O：293°48’11.62”→G：295.75→H：850→P：850→R：－1→Q：IfEnd3-IfS≥39416.670:Then9631.804→U：9214.762→V
6、：39416.670→O：273°52’03.4”→G：130→H：850→P：1×1045→R：－1→Q：IfEnd4-IfS≥39546.67:Then9633.951→U：9084.813→V：39546.67→O：269°29’10.2”→G：486.016→H：1×1045→P：1×1045→R：0→Q：IfEnd5-IfS≥40032.687:Then9629.593→U：8598.816→V：40032.687→O：369°29’10.2”→G：524.34→H：2500→P：2500→R：－1→Q：IfEn
7、d6-IfS≥40557.027:Then9570.142→U：8078.824→V：40557.027→O：257°28’09.1”→G：295.341→H：1×1045→P：1×1045→R：0→Q：IfEnd7-IfS≥40852.366:Then9506.063→U：7790.519→V：40852.366→O：257°28’09.1”→G：130→H：1×1045→P：800→R：1→Q：IfEnd8-IfS≥340982.366:Then9481.312→U：7662.936→V：40982.366→O：262
8、°07’28.12”→G：169.903→H：800→P：800→R：1→Q：IfEnd9-IfS≥41152.27:Then9467.011→U：7493.435→V：41152.27→O：274°17’35.205”→G：130→H：800→P：1×1045→R：1→Q：IfEnd以上为第二个数据子
