卡西欧4800 450测量程序测量实用计算程序_.doc

PAGE .PAGE 1. 测量实用计算程序 （适用于CASIO 4500/4800） 一）线路坐标计算程序 采 用 的 公 式 1、曲线要素公式： 内 移 值p= Ls2/（24R） 切线增量q= Ls/2- Ls3/（240R2） 切 线 长T=（R+P）tg(A/2)+ q 切 线角β0= Ls/(2R) 曲 外 距E=（R+P）SEC(A/2)-R 曲 线 长L=R(A-2β0)π/180+2 Ls 2、缓和曲线上任一点与ZH点之间的弦长公式： C=L-L5/（90R2Ls2） 3、缓和曲线任一点的偏角δ公式： δ=（L/ Ls）2δ0 δ0=1/3β0 （其中L为弧长 R为半径 Ls为缓和曲线长 A为曲线偏角） 4、其它均采用座标增量公式： ΔX=LCOSθ ΔY=Lsinθ 然后与JD的座标相加： X=XJD+ΔX Y=YJD+ΔY 其中：L为计算点至交点JD的长度 θ为JD至计算点的方位角 XJD不交点JD的X座标 YJD不交点JD的Y座标 圆曲线增设缓和曲线示意图 JD JD ZH HZ HY YH A O P q T E β0 R QZ 程序功能： 可计算直线、缓和曲线、圆曲线上任一点的中桩座标及其法向边桩座标。 A：曲线偏角 T：切线距 E：外矢距 R：圆曲线半径 ZH：直缓点 HY：缓圆点 QZ：曲中点 YH：圆缓点 HZ：缓直点 一）单交点对称型曲线坐标计算程序（CASIO 4500/4800） Defm 6 A:C”LS=”:D”JD=”:R”R=” P=Cxy2/24/R Q=C/2-C xy3/240/R xy2 B=90C/R/л T=(R+P)tg(absA/2)+Q E=(R+P)/cos(A/2)-R L=(absA-2B) ЛR/180+2C G”ZH”=D-T◢H”HY”=G+C z[6]”QZ”=G+L/2 K”YH”=G+L-C M”HZ”=G+L N”JD X=”:W”JD Y=”:F”FANGWEIJIAO”:J A0→S=-1:≠→S=1⊿ U=F+A/2+90S V=E+R B=N+VcosU O=W+VsinU X”X0=”：Y”Y0=” Z[1]=X Z[2]=Y Lb1 1 {Z} Z≤G→L=D-Z V=F+180 U=F Goto 2⊿ Z≤H→L=Z-G V=L-L xy5/90/(RC) xy2 L=30SL xy2/R/л/C P=F+180 Q=F+L U=F+3L Goto 4⊿ Z≤K→L=F+A/2+180+90S+180S(Z-I)/R/л U=L+90S Goto 5⊿ Z≤M→L=M-Z V=L-L xy5/90/(RC) xy2 L=30SL xy2/(RлC) P=F+A Q=P+180-L U=Q-2L-180 Goto 4⊿ ZM→L=Z-M+T V=F+A U=V Goto 2⊿ Lbl 2 X=N+LcosV◢ Y=W+LsinV◢ Goto 6⊿ Lbl 3 {E} P”XL”=X+Ecos(U-90) ◢ Q”YL”=Y+Esin(U-90) ◢ Z[3]=P-Z[1] Z[4]=Q-Z[2] Pol(Z[3],Z[4]) J≥0→J”FWJ”=J◢ ≠→J”FWJ”=J+360◢⊿ Z[5]”L”=I◢ P”XR”=X+Ecos(U+90) ◢ Q”YR”=Y+Esin(U+90) ◢ Z[3]=P-Z[1] Z[4]=Q-Z[2] Pol(Z[3],Z[4]) J≥0→J”FWJ”=J◢ ≠→J”FWJ”=J+360◢⊿ Z[5]”L”=I◢ Goto 1 Lbl 4 X=N+TcosP+VcosQ◢ Y=W+TsinP+VsinQ◢ Goto 6 Lbl 5 X=B+RcosL◢ Y=O+RsinL◢ Goto 6 Lbl 6 J=1→Goto 3⊿ Goto 1 说明：A 曲线偏角（左偏为负数） LS 缓和曲线长度 D JD交点里程 R 圆曲线半径 N JD点X坐标 W JD点Y坐标 F 起算方位角ZH至JD J 输入1时计算中桩两侧坐标输入0时只计算中桩坐标 E 输入中桩至两侧的距离 XL YL 为左侧坐标 XR YR 为右侧坐标 注： 针对具体一个曲线可将已知条件数据直接输入程序中。减少计算过程。比如R=800，可将800直接放入程序中代替R。 二）已知两点坐标计算方位角程序 X”XA=”:Y”YA=”:S”XB=”:T”YB=” A=(S-X) B=(T-Y) Pol(A,B) W≥0=W=W:≠W=W+360⊿ F”FWJ”=W◢ 说明：XA： A点横坐标 YA： A