卡西欧5800公路测量程序.docVIP

卡西欧5800公路测量程序 听说卡西欧4850已经停产了，不得已买了个5800.。。可是以前的程序不知道怎么改。。。郁闷 急需一个5800的放样程序，要求能随意求任意桩号的中边桩坐标的。。。各位高手帮帮忙啊。。。。先谢谢了。。 我的邮箱：764867843@QQ.com 实在不好意思，我没有积分，所以只能从心里感激了！ 这是一篇来自百度知道的问题 丁丁妈妈93 乞丐 UID 328110 精华 0 积分 -68 帖子 0 威望 -34 ZD币 8 元 阅读权限 0 注册 2008-5-20 状态 离线 沙发 发表于 2009-4-17 09:01 资料 个人空间 短消息 加为好友 卡西欧5800公路测量程序 [此问题的推荐答案] CASIO fx—5800计算器 工程测量与公路测量程序 1、坐标正算 ＂X0=″?X:＂Y0=″?Y:＂I=″?I:＂J=″?J X+ICos(J)→U:Y+ISin(J)→V ＂X=″:U （待求点的X坐标） ＂Y=″:V （待求点的Y坐标） 说明：X0 Y0：已知点坐标I：两点的距离J：方位角 2、坐标反算 Lbl 0 15/5291 ＂X1=″?X:＂Y1=″?Y:＂X2=″?U:＂Y2=″?V Pol(U-X,V-Y): J0 J+360→J ＂I=″:I ＂J=″:J DMS GOTO 0 说明：X1Y1：第一点的坐标，X2Y2第二点的坐标，I：两点的距离，J：方位角 3、圆曲线 ＂X0=″?X: ＂Y0=″?Y:＂FWJ=″?D:＂QDHAO=″?G: ＂ZDHAO=″?C: ＂R=″?R Lbl 1 ＂DQHAO=″?L LG Or L＞C GOTO 2 ＂PY=″?K 180(L-G)÷(πR) →E 2RSin(0.5E) →F ReC(Abs(F),D+0.5E)：Cls ＂X=″:X+I+KCos(D+E+90) →A ＂Y=″:Y+J+KSin(D+E+90) →B D+E→o0 360+o→0o ＂FWJ=″ DMS Goto 1 Lbl 2 ＂END″ 说明：X0Y0：起始点的坐标，FWJ：起始点的方位角，QDHAO：起点里程，ZDHAO终点里程，R：半径，DQHAO：待求点里程，PY：偏移量 4、竖曲线 ＂QZHAO =″?J: ＂H+B″=?B:＂I1=″?C:＂I2=″?D:＂R=″?R:＂T=″?T: ((D-C)÷100) ÷Abs((D-C) ÷100)→A:Abs(0.5R(D-C) ÷100)→S ＂T″:S J-T→X J＋T→Y Lbl 0 ＂DQ=″?L If LX:Then Goto 1:Else If L＞Y:Then Goto 1:If End:If End ＂GC=″:B+C(L-J) ÷100+A(L-J+T) ÷(2R) →H Goto 0 Lbl 1 ＂END″ 说明：QZHAO：曲中点里程，H+B：曲中点高程，I1：第一坡度，I2：第二坡度，R：半径，T：切线长，DQ：待求点里程。 5．正算偏移 ＂X0=″?A: ＂Y0=″?B:＂FWJ=″?D: Lbl 0 ＂LS=″?L: ＂PY=″?C ReC(L,D) ＂X=″:A+I+CCos(D+ 90) →X ＂Y=″:B+J+CSin(D+ 90) →Y Goto 0 说明：X0 Y0：已知点坐标，LS：两点距离，FWJ：方位角 6.万能公式 ＂X0=″?A:＂Y0=″?B:＂FWJ=″?C:＂1÷R-QD″?D:＂1÷R-ZD″?E:＂QDHAO″?F: ＂ZDHAO″?G Lbl 1 ＂DQHAO=″?H:＂PY=″?o If HF:Then Goto 2:Else If H＞G:Then Goto 2:If End:IfEnd (E-D)÷Abs(G-F) →P:Abs (H-F) →QQ→I:C+90Q(I+2D) ÷π→J:C+45Q(I÷8+D) ÷π→M:C+135Q(3I÷8+D) ÷π→N:C+45Q(I÷2+2D) ÷π→K A+Q(Cos(C) +4(Cos(M)+Cos(N))+2Cos(K)+Cos(J))÷12→U: B+Q(Sin(C)+4(Sin(M)+Sin(N))+2Sin(K)+Sin(J))÷12→V ＂X=″:U+oCos(J+90) →X ＂Y=″:V+oSin(J+90) →Y ＂FWJ=″: J DMS Goto 1 Lbl 2 ＂END″ 说明：X0Y0：起开点坐标，FWJ：起开点方位角，1÷R-QD：起开点曲率，1÷R