CASIO中边桩放样程序.doc

《CASIO中边桩放样程序.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、CASIO中边桩放样程序3 程序名：TNT Defm10 A"A0":R:C"LS":D"JD" P=C2÷24÷R-C∧4÷2688÷R∧3 Q=C÷2-C∧3÷240÷R2 Z[5]=90C÷p÷R "T=":T=(R+P)tan(AbsA÷2)+Q◢ "W=":W=(R+P)÷cos(A÷2)-R◢ "L=":L=((AbsA)-2×Z[5]) pR÷180+2C◢ "ZH=":G=D-T◢ "HY=":Z[1]=G+C◢ "QZ=":Z[2]=G+L÷2◢ "YH=":Z[3]=G+L-C◢

2、 "HZ=":Z[4]=G+L◢ N"JDX"：E"JDY"：F"QDFWJ":O"DKA":B"DKB":H"ZJX":K"ZJY" A<0=>S=-1:≠>S=1⊿ U=F+A÷2+90S V=W+R Z[6]=N+VcosU Z[7]=E+VsinU Lbl1 {Z}:Z"DKI" Z≤O=>Z=O◢ Goto8⊿ Z≥B=>Z=B◢ Goto8⊿ Lbl8 Z≤G=>L=T+G-Z:V=F+180:U=F Goto2⊿ Z≤Z[1]=>L=Z-G:V=L-L∧5÷(90R2C2):L=30L

3、2S÷(pRC):P=F+180:Q=F+L:U=F+3L Goto4⊿ Z≤Z[3]=>L=F+A÷2+90S+180+180(Z-Z[2])S÷R÷p:U=L+90S Goto5⊿ Z≤Z[4]=>L=Z[4]-Z:V=L-L∧5÷(90R2C2):L=30SL2÷(pRC):P=F+A:Q=F+A+180-L:U=F-3L+A Goto4⊿ Z>Z[4]=>L=Z-Z[4]+T:U=F+A:V=U Goto2⊿ Lbl2 X=N+LcosV:Y=E+LsinV Goto6 Lbl4 X=N+T

4、cosP+VcosQ:Y=E+TsinP+VsinQ Goto6 Lbl5 X=Z[6]+RcosL:Y=Z[7]+RsinL Goto6 Lbl6 {WM}:W"BIANJU":M"JIAJIAO" U<0=>U=U+360⊿ "QX-FWJ=":U→DMS◢ "X=":X◢ "Y=":Y◢ W=0=>Goto3⊿ W>0=>X=X+Wcos(U+M):Y=Y+Wsin(U+M) "XR=":X◢ "YR=":Y◢ Goto3⊿ W<0=>X=X+(AbsW)cos(U+180+M):Y=Y+(A

5、bsW)sin(U+180+M) "XL=":X◢ "YL=":Y◢ Goto3⊿ Lbl3 Pol(X-H,Y-K) J<0=>J=J+360⊿ "FWJ=":J→DMS◢ "CJ=":I◢ Goto1 ⊿ 说明: A？                                输入转角：左转为负，右转为正 R？                                输入圆曲线半径 LS？                              输入缓和曲线长度 JD？       

6、                       输入交点桩号 JDX？JDY？                        输入交点X，Y坐标 QDFWJ？                            输入起点切线方位角 DKA？                              输入起点里程 DKB？                              输入终点里程 ZJX？ZJY？                        输入置镜点X，Y坐标 Z〝DKI〞？    

7、                    输入待求点里程 QX-FWJ                             待求点切线方位角 W〝BIANJU〞？                    输入左右桩距中桩边距（左侧输入-，右侧输+） M〝JIAJIAO〞？                    输入斜交时边桩与线路方向右侧夹角，正交为90度 X，Y                              待求点中桩坐标 XR，YR                          

8、  右桩坐标 XL，YL                            左桩坐标 FWJ                                置镜点至待求点方位角 CJ                                 置镜点至待求点距离 5800----经典程序（缓＋园＋缓）5800“直+缓+圆+缓+直”型坐标计算主程序(QXJS)Prog“1”:“K—ZH”?Q：”ZHX=”?F：“ZHY=”?G：“TZH—JD”?N：“(Y1，Z