CASIO中边桩放样程序3.doc

1、CASIO 中边桩放样程序 3 程序名：TNT Defm 10 A“A0“:R:C“LS“:D“JD“ P=C224R-C42688R3 Q=C2-C3240R2 Z5=90CpR “T=“:T=(R+P)tan(AbsA2)+Q “W=“:W=(R+P)cos(A2)-R “L=“:L=(AbsA)-2Z5) pR180+2C “ZH=“:G=D-T “HY=“:Z1=G+C “QZ=“:Z2=G+L2 “YH=“:Z3=G+L-C “HZ=“:Z4=G+L N“JDX“：E“JDY“：F“QDFWJ“: O“DKA“: B“DKB“:H“ZJX“: K“ZJY“ AS=-1: S=1 U=

2、F+A2+90S V=W+R Z6=N+VcosU Z7=E+VsinU Lbl 1 Z:Z“DKI“ ZO=Z=O Goto 8 ZB=Z=B Goto 8 Lbl 8 ZG=L=T+G-Z:V=F+180:U=F Goto 2 ZZ1=L=Z-G:V=L-L5(90R2C2):L=30L2S(pRC):P=F+180:Q=F+L:U=F+3L Goto 4 ZZ3=L=F+A2+90S+180+180(Z- Z2)SRp:U=L+90S Goto 5 ZZ4=L= Z4-Z:V=L-L5(90R2C2):L=30SL2(pRC):P=F+A:Q=F+A+180-L:U=F-3L+A Got

3、o 4 Z Z4=L=Z- Z4+T:U=F+A:V=U Goto 2 Lbl 2 X=N+LcosV:Y=E+LsinV Goto 6 Lbl 4 X=N+TcosP+VcosQ:Y=E+TsinP+VsinQ Goto 6 Lbl 5 X= Z6+R cosL:Y= Z7+RsinL Goto 6 Lbl 6 WM:W“BIAN JU“:M“JIA JIAO“ UU=U+360 “QX-FWJ=“:UDMS “X=“:X “Y=“:Y W=0=Goto 3 W0=X=X+Wcos(U+M):Y=Y+Wsin(U+M) “XR=“:X “YR=“:Y Goto 3 WX=X+(AbsW)co

4、s(U+180+M):Y=Y+(AbsW)sin(U+180+M) “XL=“:X “YL=“:Y Goto 3 Lbl 3 Pol(X-H,Y-K) JJ=J+360 “FWJ=“:JDMS “CJ=“:I Goto 1 说明: A？ 输入转角：左转为负，右转为正 R？ 输入圆曲线半径 LS？ 输入缓和曲线长度 JD？ 输入交点桩号 JDX？JDY？ 输入交点 X，Y 坐标 QDFWJ？ 输入起点切线方位角 DKA？ 输入起点里程 DKB？ 输入终点里程 ZJX？ ZJY？ 输入置镜点 X，Y 坐标 ZDKI？ 输入待求点里程 QX-FWJ 待求点切线方位角 WBIAN JU？ 输入左右桩距

5、中桩边距（左侧输入 -，右侧输+） MJIA JIAO？ 输入斜交时边桩与线路方向右侧夹角，正交为 90度 X， Y 待求点中桩坐标 XR， YR 右桩坐标 XL，YL 左桩坐标 FWJ 置镜点至待求点方位角 CJ 置镜点至待求点距离5800-经典程序（缓园缓）5800“直+缓+圆+缓+ 直”型坐标计算主程序(QXJS)Prog “1”:“KZH” ?Q ：”ZHX=”? F ：“ZHY=” ?G ：“TZH JD” ?N ：“(Y1，Z-1)”?ILbl 1: “LICHENG=”?K ： “WAIYI=(Z-，Y+)”?D：Goto2Lbl 2: if KQ+L :then GotoA:e

6、lse Goto5 :ifendLbl 5: if KQ+B :then Goto6:else Goto7 :ifendLbl 6: K-QS： B W：Prog“2” ： N+I90S2(RB)O:O O+360O:O360 = O-360 O“X=”:UcosN-VsinN+F+Dcos(O+90) X“Y=”:VcosN+UsinN+G+Dsin(O+90) Y Goto1? 第一段缓曲Lbl 7：if KQ+L-C: then Goto8:else Goto9 :ifendLbl 8: K-QS：N+I90(2S-B)(R) O:O O+360 O:O360= O-360OProg “

7、3”： ”X=”UcosN-VsinN+F+Dcos(O+90) X“Y=”：VcosN+UsinN+G+Dsin(O+90) Y Goto1 圆曲线Lbl 9: Q+L-K S：C W：Prog “2”：N+IA+180 E：E-I90S2(RC)+180 O：O O+360 O:O360 = O-360 O -VV“X=”：(U-H)cosE-VsinE+F+T cosN+Dcos(O+90) X“Y=”：VcosE+(U-H)sinE+G+T sinN+Dsin(O+90) YGoto1 第二段缓曲Lbl A: N+IA+180 E：E+180 O：O O+360 O:O360 = O-

8、360 O -HcosE +F+T cosN X-HsinE+G+T sinN Y“X=”：X+(K-Q-L) cosO-D sinO“Y=”：Y+(K-Q-L) sin O+DcosOGoto1 第二段直线圆曲 缓曲参数子程序“1” ?A:?R: “L01” ?B: “L02”? CB2-B3(240 R2)MC2-C3(240 R2)JB2(24 R)- B4(2688 R3)PC2(24 R)- C4(2688 R3)ZM+(R+P)tan(A2)+(Z-P)sinATJ+(R+Z)tan (A2)+( P-Z)sinA HB2+C2+A R180 L缓曲子程序“2” S-S5(40R2

9、W2)+ S9(3456 R4 W4)-S13(599040R6 W6) UI(S3(6RW)- S7(336 R3 W3) +S11(42240 R5 W5) V圆曲子程序“3”Rsin(180(S-B2)R)+M UI (R (1-cos(180(S-B2)R)+P) V程序说明：本程序可以计算等长和不等长“直+缓+ 圆+缓+直”型线或者单圆曲线的中线坐标、外移桩坐标以及中线的切线方位角（可加入显示出来） 。先将主、子程序存入计算器，然后运行主程序“QXJS” ，输入 A(曲线偏角) ，曲线半径 R，第一缓和曲线长 L01，第二缓和曲线长 L02，( 等长缓和曲线时 L01= L02)，然

10、后显示曲线逐要素，接着输入 ZH坐标(ZHX ，ZHY)，ZH 到 JD坐标方位角 TZHJD，当曲线为左偏时(Y1，Z-1)输-1，右偏输 1，输入计算里程 K，外移距离 D，计算中桩时 D输 0，计算左边桩时 D输负数，算右边桩时 D输正数，当所输里程不在本曲线计算范围内时，屏幕显示 KOVER，继续输入有效里程可继续计算。对于单圆曲线，缓和曲线长输入 0。本程序缓和曲线 X计算取了 4项，Y 计算取了 3项，一般的曲线计算精度都可达到 mm级。5800 竖曲线高程（RGC）“JD -K”?A： “JD -H”?B： “+i，-i”? I：?：?T ： “n+1，u-1”?J： “”？W

11、： “K0= ”：I100I “K0=”：A-T D“H0=”：B-IT E“KZ=“：A+T U“HZ=“：E+2TI-4JT 2（2R ）VLbl 1：？K：Goto2Lbl 2：if KU：thenGoto3：else Goto6：ifendLbl 5：KU= Goto6Lbl 6：“H=”：E+（K-D）I-J（K-D） 2（2R）-WHGoto1JD K(交点桩号) JD H（交点直线高程）+i ，-i（后面坡度）R （竖曲线半径）T（T 长）HSGC= （后视高程）5800 计算器公路全线坐标正、反算计算程序2009.7.235800 正反算、隧道超欠挖程序.doc正算主程序(ZS

12、)Lb1 0FIX4：?S：?Z：Prog “PM-SJ”： Abs(S-O) W：Prog “SUB1“ ： “XS=“：X“YS=“：Y F-90F( 需要时可以让他显示，不要时不必输入) ：Prog“SQX-SJ”: Prog“SQX”：“H=”：HGoto 0反算主程序(FS)Lb1 0FIX4: ?S：?X：？Y：Prog“PM-SJ” ： X I ： Y J：Prog “SUB2“： “S=“：O+WS“Z=“：ZProg“SQX-SJ”：Prog“SQX” ：“H=”：HGoto 0隧道 3心圆放样主程序（SD-3XY）Lb1 0：Prog “FS”：1.5A：1.65B：0.8

13、9G：2.27C：3.3D：2.41E：0.51J：“H1” ：F：ifFH+ A： then E-AbsZW：IfEnd：ifF H+A And FH+A+B：then（D- （F-H-A ）-G-AbsZW：IfEnd ：ifF H+A+B：then（C-（F-H-A-J ）-AbsZW：IfEnd：“W=”：W （水平方向的超欠挖：正为欠 ,负为超）Goto0正算子程序(SUB1)1P C ： (P-R) (2HPR) D： 180 E ： 0.1739274226 A： 0.3260725774 B： 0.0694318442 K： 0.3300094782 L： 1-L F：1-K

14、M： U+W(Acos(G+QEKW(C+KWD)+Bcos(G+QELW(C+LWD)+Bcos(G+QEFW(C+FWD)+Acos(G+QEMW(C+MWD) X ：V+W(Asin(G+QEKW(C+KWD)+Bsin(G+QELW(C+LWD)+Bsin(G+QEFW(C+FWD)+Asin(G+QEMW(C+MWD) Y： G+QEW(C+WD)+90F ： X+ZcosF X： Y+ZsinF Y 反算子程序(SUB2)G-90 T： Abs(Y-V)cosT-(X-U)sin（T）) W： 0 Z：Lbl 0：Prog “SUB1“： T+QEW(C+WD)L： (J-Y)cosL-(I-X)sinL Z：ifAbsZK Goto 4 HL=:B+0.01 (L-J)D+0.01UV+Q H HO=:o-HZ Goto 1 Lbl 4: END说明：QZHAO：曲中点里程（竖曲线） ，QDHAO：起点里程，ZDHAO ：终点里程，B HB曲中点高程，SX：上下（路面标高下多少为水稳层面） ，I1：第一坡度，I2 ：第二坡度，R ：半径，T 切线长，LDQHAO：待求点里程，PY ：偏移（中桩到边桩的距离） ，XIELV：斜率（横坡的坡度，左负右正）o-YIGAO：仪器高