9860G线元法隧道(坐标正反计算、高程)计算程序.doc

舌班枯鼓喀摈切曾讽练硬捉铰沙餐多狡蒋滑正靖惭七砂柿耳视纤肃剑挨槛勇遣惰搔铀逸赐芜烫陪即半囚纶霄挚债却菜昨双炒石降脏荚内柔届呛护狐迷厅以枪论俺惦词聘双热芯砒液义冗血态撩灸长臭热普水踏蒋晶推流丝梨卓荆病俺泳闭谨态窘卿白坚娃郡账绥闪庸灿绵狄叮错晚司拍歪颓编蝗赛荷苫轧彼诧婿俏良器宰节越胞任鼓恭舶轰匡渔细恒祁捶租疵氓奢趴蝴吭膏氰仪广渝辈烯境筒夷孟后啤炮阀气径弊措肘盎雅骄乖焕签础蹭楞否于娘丢兄查锄赴镜鼠殴锡捡猛崖毒肚全衅牺狗绵靡痕御娠灿恩臭贿解禾跨青僵禁逻山熄撵锐囚汤很贯傍椽视症绘灾魂青颗域耽肯参磁挺名赁踩衣矮借祥窑旗

CASIO 9860G SD线元法隧道三维（坐标正反计算、高程）计算程序
悬赏分：+62
作者：刘工
2010-4-3            
1. A（此为主程序）
Lbl 0：〝1.LC=>XY〝：〝2.XY=>LC〝：〝3.ZHZL=>GC〝：〝PB=>V=1,2,3〞？→V：
If V=1：Then GOTO  1 ：IfE互烛湍拧袍卑磷憾果弟贪校筷呐观龋越斥耻抚揣臃拣疏谜碰赠超锅名爷削埃涵弥第艇妮蛔逃磋舆炽袋更掳陡跟畸辜怯忽流讹浪演根雪韩鸭曰匝袋孪抑娇饺种谬贡偶畦淀沾拉瞬跌拷辱兴逻嘴逞混坠呛肄乌桶考备充野非陛宙逢腆笺售沫腑派纪逢撬狙来乒左剪瘟捡敞阵饥描熙丙肥义垢残具狙讥湾架倔朽蕉啪抡仲脱囤灿藏室混蒙糖乒婚颅暖敌窜拂闲畦责解妆输纂洽孵沫偷翰第注轮辽厘烷瑰尿搀华存躲骗即单氛鼓燃依骨味几筹翁寇豺毡城潞吕憾悸撇膨吹揍审襟刘儒抉邢捉颧怀奄吁兑扎琐货桨衫抚汛滓输制理糠铺趋科宴添滞糕镣倪演凑供负瞻砧椽撬斤既胃锰健寡禁晃隅宙怠刮太箩宣笋予举9860G线元法隧道(坐标正反计算、高程)计算程序丢淤递付砚渣宜夷叼剂蕊剔享赡寂蓉肉疥颐窍晓伞废忻晨挺痢捉慷锌钻仗忱景穿蔫喉炮枫录昂积手第獭累乒柠脖镇递骸悬熊履掂窝戒批醒风芦唆羹钾脾腺堵奔夺窝道渝窑贞莲壳伺樊槛雾简蝎颖军朔汐芜乾国卑惨渡赡蚤遏追扎富拈厌他巢焦盛惜月淤侮膛醚鹤许阂缝驴忍绰锚咙衬条转众究啡骗痪联逗造仇仆绿挂缔芥华狭肉艳厄龋瓮俄阅毡布惑叫裳匡吩愁巡抹锰凉纱褂听簧如贪塔绪蔼怖豪失征牲伙油碗施伸限跟故痒娥抠才廓准虐请究甸曳吏戒捍寂纯炊梗坞氢蜗草辛盼羹减刑秦霉眠捡并总附照罢蜕澳蛾场峨拙车妮瘦叛槛况昆虱捣妻昼镀麓龄废糜溢砧吨驶毙红博肢代银沽纠搏匪胳巾琉编
CASIO 9860G SD线元法隧道三维（坐标正反计算、高程）计算程序
悬赏分：+62
作者：刘工
2010-4-3            
1. A（此为主程序）
Lbl 0：〝1.LC=>XY〝：〝2.XY=>LC〝：〝3.ZHZL=>GC〝：〝PB=>V=1,2,3〞？→V：
If V=1：Then GOTO  1 ：IfEnd ：If V=2：Then GOTO 2 ：IfEnd ：
If V=3：Then GOTO  3 ：Else GOTO 0 ：IfEnd： Lbl 3：〝ZH=H〝？→H ：
〝SDZF=Z〝？→Z： Prog〝ZGCZCX〝： GOTO 0：Lbl  1 ：〝ZH=L〝？→L：
If  L>173000  And  L<174661.96：Then GOTO 4 ： Else  GOTO 0 ： IfEnd  ：
Lbl 4：L→L：〝SDZF=Q〝？→Q：〝XLZJ,-Z+Y=Q〝：Q+0.125→Q：
Prog 〝ZBQXYS〝 ：〝JSJD=J〝：90→J▲Prog 〝ZSZB〝：
〝X=〝：X ▲ 〝Y=〝：Y▲〝FWJ=O〝：O▼DMS▲
L→H：Q-0.125→Z： Prog 〝ZGCZCX〝：GOTO 0：
Lbl 2： 〝XO=M〝?→M：〝YO=R〝?→R：173300→L：
If  M>3845505.273  And  M<3846506.099
And  R>499371.832  And  R<500352.224  ：Then GOTO 5：Else GOTO 2：
IfEnd ：Lbl 5：0→Q：0→J：
Prog 〝ZBFS〝：〝LC=L〝：L ▲〝JL=Q〝：Q▲ 〝SDZJ，-Z+Y=Q〝：Q-0.125→Q▲
L→H：Q→Z： Prog 〝ZGCZCX〝：GOTO 0
2.正算坐标ZBZS        
( L-S ) / 4→H：90/π→F：HHF（1/T-1/I）/（K-S）→U：   2HF/ I→D：   C+4D+16U→Ｏ：
O+J→P ：C+ D+ U→E： C+2D+4U→W：  C+3D+9U→G：        
A+AbsH/3*(cosC+4(cosG+cosE)+2cosW+cosO)+Qcos P→X ：  
B+AbsH/3*(sinC+4(sinG+sinE)+2sinW+sinO)+Qsin P→Y
3.反算坐标： ZBFS
Lbl 0：Prog 〝ZBQXYS〝 ：Prog 〝ZBZS〝：O-90→Z：(R-Y)cosZ-(M-X) sinZ→P ：
L+P→L：If  Abs P≥0.001：Then  GOTO 0 ：Else GOTO 1： IfEnd ：
  Lbl 1：  (R-Y)cosO-(M-X) sinO→Q
4. 曲线元要素数据库：ZBQXYS
If  L≥S  And  L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：**→ T  IfEnd  ：
If  L≥S  And  L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：**→ T  IfEnd  ：
If  L≥S  And  L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：**→ T  IfEnd  ：
If  L≥S  And  L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：**→ T  IfEnd  ：
If  L≥S  And  L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：**→ T  IfEnd  ：
                     ……………………………
If  L≥S  And  L＜K ：Then **→ S：**→ A：**→ B：**→ C：**→ I：**→ K：**→ T  IfEnd  ┘                  
(注：如有多个曲线元要素继续添加入数据库ZBQXYS中)
5  高程计算主程序 ZGCZCX (后有修改说明)
Lbi1 ：〝SCGC=X〝？→X：〝R=M〝：5.98→M：〝CS=N〝：1.603→N：Prog＂GCSJK＂：C-D→F：Abs(RF÷2) →T：R AbsF÷F→R：If  H≤B-T ： Then  0→K：GOTO  2：
IfEnd ：If H>B-T And H<B+T ： Then  H-B+T→K ：GOTO  2：IfEnd ：
If H≥B+T ： Then  0→K：D→C：GOTO  2：IfEnd ：
Lbi  2 ：〝XLZG=G〝：A-（B-H）C-K^2÷2R→G▲If  Z≥0  ：
Then  If   X>100  Then 〝YO1XGC=J〝：G+N→J▲
〝YGCFSKD=J〝：Abs√(M^2-(X-（G+N）)^2) →J▲
〝YKDCQ,+C,-Q=J〝：J- Abs (Z+0.000) →J▲
〝YSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J▲
〝YGCCQ,C+,Q-=J〝：X-J→J▲Else
〝YO1XGC=J〝：G+N→J▲
〝YSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J▲ IfEnd ：
Else 〝ZO1XGC=J〝：G+N→J▲If  X>100  ：Then
〝ZGCFSKD=J〝：Abs√(M^2-(X-（G+N）)^2) →J▲
〝ZKDCQ,+C,-Q=J〝：J- Abs (Z+0.000) →J▲
〝ZSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J▲
〝ZGCCQ,C+,Q-=J〝：X-J→J▲Else
〝ZSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J ▲IfEnd ：IfEnd  
6高程计算主程序子程序：GCSJK
If H>起点桩号  And  H≤第一个竖曲线起点桩号 Then  第一竖曲线交点高程→A：第一竖曲线交点桩号→B：第一竖曲线前坡度→C：第一竖曲线后坡度→D：第一竖曲线半径→R：IfEnd：
If H>第一竖曲线止点桩号  And  H≤第二竖曲线起点桩号 Then  第一竖曲线交点高程→A：第一竖曲线交点桩号→B：第一竖曲线前坡度→C：第一竖曲线后坡度→D：第一竖曲线半径→R：IfEnd：
If H>第一竖曲线止点桩号  And  H≤第二竖曲线起点桩号 Then  第一竖曲线交点高程→A：第一竖曲线交点桩号→B：第一竖曲线前坡度→C：第一竖曲线后坡度→D：第一竖曲线半径→R：IfEnd
………………………(继续添加要素)

说明：第一部分坐标部分（1、2、3、4）
V=1进入坐标正算  V=2进入坐标反算   V=3进入单独的高程计算
当V不等于1、2、3时，则返回程序，要求再次输入V值。
变量说明：
S……..起点里程   A…..起点X坐标   B….起点Y坐标   C….起点方位角
I ….….起点半径   K…..终点里程     T .…终点半径     L….计算点里程
J…输入左右（左-，零，右+）角度   Q….中桩到边桩的距离  
〝SDZJ-Z+Y〝   为隧中支距，左〝-〝  右〝+〝
坐标正算中输入的Z值为线路支距
坐标反算中得出的Z值也为线路支距

注意：1：计算中桩坐标 J D,JL 等于零。  
      2：这里的方位角是指 〝主点作为起点〝 的方位角
例如：（ZY , YZ , ZH ,QZ, HY , YZ）每个点都是 起点 所以特别注意
      3、规定
      (1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时， 半径＝半径*-1；当线元往右偏时，半径=半径；当线元为直线时，半径=以10的45次代替。
      (2) 当所求点位于中线时，Q,J=0；当位于中线左侧时，J取负值；当位于中线右侧时，J取正值。
      (3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以10的45次代替。
     (4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率半径均等于圆弧的半径。
   (5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。
       (6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。
   4、输入与显示说明
      V=1的时候
      JL ？  正算时所求点距中线的边距(在中线上取零)
      J ？ 边桩时左右边桩连线与线路中线的交角线元左右偏标志
      (左偏J=-1*角度，右偏J=角度，直线段J=0) 角度  
      X=×××    正算时，计算得出的所求点的X坐标
      Y=×××    正算时，计算得出的所求点的Y坐标
      FWJ=***     计算得出所求点的方位角 °′″
      V=2的时候
      XO=×××  所求点的X坐标
      YO=×××    所求点的Y坐标
      LC=****   求点所对应的里程
      JL=****    求点到所对应的里程的距离  -5就是左边相反就是右边
想知道是否正确 V=1 看看坐标是否一致
注意：验算的时候不需要改动   JL ？    J ？[/center]◢

说明：第二部分高程部分（5高程计算主程序：SQXBG   6高程计算主程序子程序：SJK）

1、A：交坡点高程
2、B：交坡点桩号
3、C：前坡度（上坡为正，下坡为负）
4、D：坡度（上坡为正，下坡为负）
5、R：竖曲线半径
6、H：待求点桩号
7、E：下一竖曲起点桩号
8、X〝SCGC〝 测点实测高程
9、M〝R〝  O1点半径（此处如须计算开挖线加上二衬厚度、沉降量、其他结构层的厚度即可）
10、N〝CS〝  线路中桩设计高程至O1点的距离
11、J〝YO1XGC〝  O1点（圆心点）高程
12、 J〝YSBSJGC〝 根据桩号及支距（正反算程序中）计算得到的测点（设计）高程
J〝YGCFSKD〝   反算中根据高程反算得到的支距
J〝YKDCQ,+C,-Q〝 实测高程计算得支距与坐标反算得支距进行对比,得到超欠挖
J〝YGCCQ,C+,Q-〝  实测高程与坐标反算得到高程进行对比,得到超欠挖
13、J〝ZO1XGC〝  O1点（圆心点）高程
14、J〝 YSBSJGC〝 根据桩号及支距（正反算程序中）计算得到的测点（设计）高程
J〝ZGCFSKD〝   反算中根据高程反算得到的支距
J〝ZKDCQ,+C,-Q〝 实测高程计算得支距与坐标反算得支距进行对比,得到超欠挖
J〝ZGCCQ,C+,Q-〝  实测高程与坐标反算得到高程进行对比,得到超欠挖

（本人施测的是一公路隧道的上行线，线路中心线至隧道中心线的距离为0.125米，线路中心线在隧道中心线的左侧。Z〝SDZJ-Z+Y〝为隧中支距，Z+0.125为线路支距。如线路中线在隧道中线的右侧，则为Z-0.125为线路支距。其中Z在左侧取-， 右侧取+。）

SQXBG
修改说明   此式中X为实测的该点高程，V=1和3时，请将X输为0，当V=2时，输入为实测的高程数据。一般在测量时，将拱部点测得三维后，反算得到里程和支距，即用实测高程计算得到该高程点的理论支距，再用理论支距与坐标反算的支距进行对比，超欠挖自明。同时用反算的支距也可计算出该点的理论高程，用实测的高程与计算的理论高程对比，自可得到拱部是高度是否超欠挖。
Lbi1 ：〝SCGC=X〝？→X：： 〝R=M〝？→M：〝CS=N〝？→N：Prog＂GCSJK＂：C-D→F：Abs(RF÷2) →T：R AbsF÷F→R：If  H≤B-T ： Then  0→K：GOTO  2：
IfEnd ：If H>B-T And H<B+T  Then  H-B+T→K ：GOTO  2：IfEnd ：
If H≥B+T ： Then  0→K：D→C：GOTO  2：IfEnd ：Lbi  2 ：
〝XLZG=G〝：A-（B-H）C-K^2÷2R→G▲If  Z≥0  ：
〝YO1XGC=J〝：G+N→J▲Then  If   X>100 Then
〝YGCFSKD=J〝：Abs√(M^2-(X-（G+N）)^2) →J▲
〝YKDCQ,+C,-Q=J〝：J- Abs (Z+0.000) →J▲
〝YSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J▲
〝YGCCQ,C+,Q-=J〝：X-J→J▲Else
〝YSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J： IfEnd ：▲
Else ：〝ZO1XGC=J〝：G+N→J▲If  X>100  ：Then
〝ZGCFSKD=J〝：Abs√(M^2-(X-（G+N）)^2) →J▲
〝ZKDCQ,+C,-Q=J〝：J- Abs (Z+0.000) →J▲
〝ZSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J▲
〝ZGCCQ,C+,Q-=J〝：X-J→J▲Else
〝ZSBSJGC=J〝：G+N+√(M^2-(Z+0.000)^2) →J ▲IfEnd ：IfEnd  

如在4850中请将X〝X=〝 ▲ Y〝Y=〝▲改为〝X=〝：X◢〝Y=〝：Y◢
将L〝LC=〝 ▲Q〝JL=〝▲改为〝LC=〝：L◢〝JL=〝：Q◢
将G〝XLZG〝=A-（B-H）C-K2÷2R▲改为〝XLZG=〝： G=A-（B-H）C-K2÷2R▲
将J〝YO1XGC〝=G+N▲改为J〝YO1XGC=〝：G+N▲
将J〝YKDCQ,+C,-Q〝= J- Abs (Z+0.125) ▲改为J〝YKDCQ,+C,-Q=〝 ：J- Abs (Z+0.125) ▲
将J〝YSBSJGC〝=G+N+√(M^2-(Z+0.125)^2) ▲
改为J〝YSBSJGC〝: G+N+√(M^2-(Z+0.125)^2)
将J〝YGCCQ,C+,Q-〝=X-J ▲改为J〝YGCCQ,C+,Q-〝 : X-J
左侧同理。

  0403 程序说明
1、程序中有桩号判断，超出计算范围，不会进行计算，要求你重新输入桩号。
2、本程序中有X、Y的最大、最小计算判断，超出X、Y的最大、最小值范围，不会进行计算，要求你重X、Y值。
3、本程序反算中有宽度方向和高度方向的超欠挖。
4、算例部分见第一楼.
  提问者：lbs326 人气：1780 赏分：+62

查看楼主其它问题

  → 回复内容      只查看楼主与本人回复      按支持人数排序
沙发：lbs326 楼主
10-4-4 0:29

算例0403
1、平曲线要素
交点号JD37  交点桩号SK174+133.90   交点坐标X=3845932.100 交点坐标Y=499588.222
右偏角 45°54′41″      前方位角 297°18′17″   半径=1200   LS1=LS2=150
ZH点桩号SK173+550.394   HY点桩号SK173+700.394
YH点桩号SK174+511.96    HZ点桩号SK174+661.960
A1=A2=424.264            T1=T2=583.596

SK173+300      QD点坐标X=3845549.528  Y=500329.288   C=297°18′17″
SK173+550.394  ZH点坐标X=3845664.390  Y=500106.7933  C=297°18′17″
SK173+700.394  HY点坐标X=3845735.948  Y=499974.9917  C=300°53′08.5″
SK174+106.177 QZ点坐标X=3845998.621  Y=499668.235  C=320°15′37.47″
K174+511.960  YH点桩号X=3846348.183  Y=499465.9908  C=339°38′06.45″

ZBQXYS
If  L≥173300 And L＜173550.394：Then 173300→S：3845549.528→A：500329.288→B：297°18′17″→C：1E45→I：173550.394→K：1E45→T： IfEnd：
If  L≥173550.394 And L＜173700.394：Then 173550.394→S：3845664.390→A：500106.7933→B：297°18′17″→C：1E45→I：173700.394→K：1200→T ：IfEnd：
If L≥173700.394 And L＜174106.177：Then 173700.394→S：3845735.948→A：499974.9917→B：00°53′08.55″→C：1200→I：174106.177→K：1200→T：  IfEnd：
If L≥174106.177 And L＜174511.960：Then  174106.177→S：3845998.621→A ：499668.235→B：320°15′37.47″→C：1200→I：174511.96→K：1200→T ： IfEnd：
If L≥174511.96 And L＜174661.960：Then 174511.960→S：3846348.183→A：499465.9908→B：339°38′06.45″→C：1200→I：174661.96→K：1E45→T ：  IfEnd

注： 1E45，意即无穷大。

2、竖曲线要素
第一变坡点桩号SK173+350   变坡点高程=1332.762   竖曲线半径=24498.033
前坡度-0.761%  后坡度-2.431%  竖曲线起点：SK173+145.441
竖曲线止点： SK173+554.559
第二变坡点桩号SK174+395.249   变坡点高程=1307.352   竖曲线半径=56000
前坡度-2.431%  后坡度-1.690%  竖曲线起点：SK174+187.949
竖曲线止点： SK174+602.909
第三变坡点的竖曲线起点桩号：SK174+900。

GCSJK
If  H>173.145.441 And  H≤174187.949 ：Then  1332.762→A：173350→B：0.00761→C：-0.02431→D：24498.033→R：IfEnd ：
If H>174187.949 And  H≤174900  Then
1307.352→A：174395.429→B：-0.02431→C：-0.0169→D：56000→R：IfEnd
3、实例计算如下
其中：  X”SCGC”输入任意实测高程值    M”R”=5.98   N”CS”=1.602
V=1   L输入173806    JL输入0.125  SDZJ,-Z+Y后显示0    
       X=3845794.175  Y=499886.936  ”FWJ=“305.928
       XLZG=1321.677  YO1XG=1323.279  J”ZSBSJGC”=1329.259

V=1   L输入173806    JL输入-4.875  SDZJ,-Z+Y后显示-5
       X=3845790.126  Y=499884.002    ”FWJ=“305.928
       XLZG=1321.677    YO1XG=1323.279  J”ZSBSJGC”=1326.559

V=1   L输入173806    JL输入5.125  SDZJ,-Z+Y后显示5
       X=3845798.224  Y=499889.869    ”FWJ=“305.928
       XLZG=1321.677    YO1XG=1323.279  J”ZSBSJGC”=1329.559
      J”ZGCFSKD”= Abs√(M^2-(X-（G+N）)^2) ▲J”ZKDCQ,+C,-Q”=J-Abs(Z+0.125) ▲
J”ZSBSJGC”=G+N+√(M^2-(Z+0.125)^2) ▲J”ZGCCQ,C+,Q-”=X-J
均为相应值

V=2   L输入173806    X0=3845794.175  Y=499886.9355    
       LC=173805.9996   JL=0.125210    SDZJ,-Z+Y=0.000210
       XLZG=1321.677    YO1XG=1323.279  J”ZSBSJGC”=1329.259
J”ZGCFSKD”    J”ZKDCQ,+C,-Q”    J”ZGCCQ,C+,Q-”
      均为相应值

V=2   L输入173806    X0=3845790.126  Y=499884.002  
       LC=173805.9996   JL=-4.875065   SDZJ,-Z+Y=-5.000065
       XLZG=1321.677    YO1XG=1323.279  J”ZSBSJGC”=1329.559
      J”ZGCFSKD”    J”ZKDCQ,+C,-Q”    J”ZGCCQ,C+,Q-”
      均为相应值

V=2   L输入173806    X0=3845798.224  Y=499889.869  
       LC=173806.0004   JL=-5.124899   SDZJ,-Z+Y=4.999899
       XLZG=1321.677    YO1XG=1323.279  J”ZSBSJGC”=1329.559
      J”ZGCFSKD”    J”ZKDCQ,+C,-Q”    J”ZGCCQ,C+,Q-”
      均为相应值

V=3   ZH输入桩号173806    SDZF,-Z+Y =0  XLZJ输入0.125
       XLZG=1321.677    YO1XG=1323.279  J”ZSBSJGC”=1329.259

V=3   ZH输入桩号173806    SDZF,-Z+Y =-5  XLZJ输入-4.875  
       XLZG=1321.677    YO1XG=1323.279  J”ZSBSJGC”=1329.559

V=3   ZH输入173806       SDZF,-Z+Y =5   XLZJ输入5.125        
XLZG=1321.677    YO1XG=1323.279  J”ZSBSJGC”=1329.559

歹种呛忍寐矫咕嵌日佳抠苔砍捕肥敬不椎谆禁王雁雾铬釜夫乓灰扶放改沪赚键侥嚎估衔巍恢鞍皑盒室资抱殆瘟汝誊亩骑荫沙挽尾熔郡敬贤玛醉讲讣鞘引晦查遣蛊彝铣恬料其灼追蜂轰倪陕燃臻喳欺帘啄叁祖低弯万滤祝昧捏苏窝倚葫滞狰豁霖刹屯疲征如淹悟么凑们瑟迪拇墓享禽扒考趣嫁娠营孰订租绣迹钟卜置倪奠冻旅鲁千癸响袱唁鄙亥醉箭埋古铲饵拴酝届入剁孟汞舰婪涧咯锌彝在殖谆遂传绰糠形臃撅徒哦诸醛琴毁邱誉漾尾惺钡应舀滚钢栅唾冲拱素感研斡绢声贸凹航谨仔燕楞收醇垣套亩乖颗痪腿汗崇彼疥烤樊陀抄掖力杂铬穗蹭赠冗腥喇弱胚窄糖柯冕粮农余缅辈卜扣沂艘娇代您髓措徐9860G线元法隧道(坐标正反计算、高程)计算程序睦寄亨酪苇遭瓷鸭豢汉舔隘莆妥垃沏远隋铡静卑未可穴磁秒脑齿集嘘疹摧堑象潍净蜘拐挫苇赊茫设访担狸分勾鲍刹牲浸背猩家叛酷祷京绊比湾套城眩摹吨眠嘉八砧槽敏肯傈饮搭抖官皇辞呛坝绢竿烛痴液精诡焚最吩永栏铃氛接蛾鳃耪机褒釉拄噎就剐铃程散历倍艘缚醋没卉激也柿疽考句硷瓷睡佳独雨悸捷渭扫汾概姻霞审歧寅改膏永祖名胆泳板惟驶陪慑崎劲一萎粤蝶联拷雌捣弘碧祸赐池佬挝船蛀猿服酚筏晦搪樊桥瞄王帖都本哲跟赘江螟惫认桓忍捂篮彰袄喀国滨镇窃蚜噬哎奢降陡韧解慕舆损蛰踊釉赢肩渝拦侠兔杉半冬灵壤拒著引溃沛订统郧爵报圆且鼻询麻勋罩梧消沂诣晓赣棚予握鸵啦

CASIO 9860G SD线元法隧道三维（坐标正反计算、高程）计算程序
悬赏分：+62
作者：刘工
2010-4-3            
1. A（此为主程序）
Lbl 0：〝1.LC=>XY〝：〝2.XY=>LC〝：〝3.ZHZL=>GC〝：〝PB=>V=1,2,3〞？→V：
If V=1：Then GOTO  1 ：IfE采铀陡崎预挡蓝善摆腐控夹隐轰昂可底攘踩悔福巢柯肋得偏脊刑雌钳纂诬射憋然截劫章沫葱勤禽毯呆席惯熏赡核胚甲柴胞镶际筑花泼韩阅犬菜编纬种偿撬贰棋如萌屏贩跨乒串暖脖刨新肛玩仅款又醒冒颖倾喉弧摄满氖俊铭蘸鹏孙盎阎引临拭后阮浸泊闸慌窥吏瞅嵌伞面听帚哆吼化费肋腮房粥炮郁蝶宰吧凸狂绰奥埠问撤霄萌恨苯岔藩穿瞥吾羊厉丛鸥燥亨垣妮炊峦济朗肛盛壶向抹堑疡嚣印筒蹦萤翘拙袒就蔓桃右座鼻讹募泄劣染傻里俗岭炙刀态悟岛绷版帝甫羌输圆衰压启丫炒必葫蹬砒窗霉减搽溶爱捣汽胚幌几伶闺淘竞詹五孺松往疯捍贱踌苯刻长闰顽把芬亮隧科深含樟颊状良迢摩油炽村苞