CASIO中边桩放样程序3.doc

CASIO中边桩放样程序3? 程序名：TNT?Defm 10?AA0:R:CLS:DJD?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◢?HZ=:Z[4]=G+L◢?NJDX：EJDY：FQDFWJ: ODKA: BDKB:HZJX: KZJY?A0=S=-1: ≠S=1⊿?U=F+A÷2+90S?V=W+R?Z[6]=N+VcosU?Z[7]=E+VsinU?Lbl 1?{Z}:ZDKI?Z≤O=Z=O◢?Goto 8⊿?Z≥B=Z=B◢?Goto 8⊿?Lbl 8?Z≤G=L=T+G-Z:V=F+180:U=F?Goto 2 ⊿?Z≤Z[1]=L=Z-G:V=L-L∧5÷(90R2C2):L=30L2S÷(pRC):P=F+180:Q=F+L:U=F+3L?Goto 4 ⊿?Z≤Z[3]=L=F+A÷2+90S+180+180(Z- Z[2])S÷R÷p:U=L+90S?Goto 5 ⊿?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?Goto 4 ⊿?Z Z[4]=L=Z- Z[4]+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= Z[6]+R cosL:Y= Z[7]+RsinL?Goto 6?Lbl 6?{WM}:WBIAN JU:MJIA JIAO?U0=U=U+360⊿?QX-FWJ=:U→DMS◢?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 ⊿?W0=X=X+(AbsW)cos(U+180+M):Y=Y+(AbsW)sin(U+180+M)?XL=:X◢?YL=:Y◢?Goto 3 ⊿?Lbl 3?Pol(X-H,Y-K)?J0=J=J+360 ⊿?FWJ=:J→DMS◢?CJ=:I◢?Goto 1?⊿?说明:?A？????????????????????????????????输入转角：左转为负，右转为正?R？????????????????????????????????输入圆曲线半径?LS？?????????????????????????????? 输入缓和曲线长度?JD？?????????????????????????????? 输入交点桩号?JDX？JDY？???????????????????????? 输入交点X，Y坐标?QDFWJ？????????????????????????????输入起点切线方位角?DKA？??????????????????????????????输入起点里程?DKB？??????????????????????????????输入终点里程?ZJX？ ZJY？????????????????????????输入置镜点X，Y坐标?Z〝DKI〞？???????????????????????? 输入待求点里程?QX-FWJ?????????????????????????????待求点切线方位角?W〝BIAN JU〞？???????????????????? 输入左右桩距中桩边距（左侧输入-，右侧输+）?M〝JIA JIAO〞？????????????????????输入斜交时边桩与线路方向右侧夹角，正交为90度?X，Y?????????????????????????????? 待求点中桩坐标?XR，YR???????????????????????????? 右桩坐标?XL，YL???????????????????????????? 左桩坐标?FWJ????????????????????????????????置镜点至待求点方位角?CJ?????????????????????????????????置镜点至待求点距离 ?5800----经典程序（缓＋园＋缓） 5800“直+缓+圆+缓+直”型坐