下载此文档

卡西欧5800计算器坐标正反算程序.doc.doc


文档分类:建筑/环境 | 页数:约2页 举报非法文档有奖
1/2
下载提示
  • 1.该资料是网友上传的,本站提供全文预览,预览什么样,下载就什么样。
  • 2.下载该文档所得收入归上传者、原创者。
  • 3.下载的文档,不会出现我们的网址水印。
1/2 下载此文档
文档列表 文档介绍
主程序坐标正反算程序名称: ZBZFS Lb1 A↙ 30→ Dim Z :"0=ZS,1=FS"?Z ↙ If Z=0:Then Goto B:IfEnd ↙(Z=0 进入里程点坐标正算) If Z=1:Then Prog"FSLCZ "↙(Z=1 进入反算里程边桩) Lb1 B↙ Prog ” ZBZS ”↙子程序反算里程桩名称: FSLCZ Lb1 1↙"XK="?X:"YK="?Y ↙(输入任意测点的 X、Y 坐标) “ K= ”?K ↙( 试算里程, 任意输入标段内里程点即可, 也可以输入大致的估算里程加快速度) Lb1 2↙ Prog"SJK ":T-90 → W:W<0=>360+W → W:Abs((Y-Z[19])*Cos(W)-(X-Z[18])*Sin(W)) →S↙ If S<:Then Goto 4:Else Goto 3:Ifend ↙ Lb1 3↙ K+S → K: Prog"SJK":T-90 → W:W<0=>360+W → W:Abs((Y-Z[19])*Cos W-(X-Z[18])*Sin (W) →Q↙ If Q< :Then Q→ S: Goto 4:Else if Q<S: Then K+Q → K: Goto 2 :Else if Q> S :Then K-Q → K:Goto 2:Ifend:Ifend:Ifend ↙ Lb1 4↙ Pol (X-Z[18],Y-Z[19]: "DP(-Z+Y)=":I ◢( 偏距) "K=":K+S →K◢(里程) Goto 1↙子程序坐标正算名称: ZBZS Lb1 0↙“ XHS="?G( 后视点 X):"YHS="?L( 后视点 Y):"XZJ="?M( 置镜点 X):"YZJ="?N( 置镜点 Y):Pol(G -M,L-N):"DH=":I( 后视距)◢ J<0=>J+360 → J:"FH=":JDMS ◢( 后视方位角) Lb1 1↙“ K= ”?K :(输入所需计算里程) Prog"SJK "↙ XI: Z[18] ↙ YI: Z[19] ↙ Pol(Z[18]-M,Z[19]-N): J<0=>J+360 →J↙“ PJ= ”?P↙( 输入桩与线路夹角) “ PD= ”?D ↙(输入桩距中线的距离) Z[18]+D*Cos(T+P) → Z[20] ↙ Z[19]+D*Sin(T+P) → Z[21] ↙“ X= ”: Z[20] ◢(放样坐标 X) “ Y= ”: Z[21] ◢(放样坐标 Y) Pol(Z[20]-M,Z[21]-N):"D=":I ◢(放样距) J<0=>J+360 → J:"F=":JDMS ◢(放样方位角) Goto 1↙子程序数据库名称: SJK if K< 本段曲线终点里程 And K≥上段曲线终点里程: Then 本段曲线终点里程→ Z[1] : 上段曲线终点里程( 第一段曲线输起点的里程)→ Z[2] :1→O(注: 左偏曲线输入-1→ O, 右偏曲线输入 1→O): 半径→R: 曲线偏角→ A: 第一缓和曲线→ Z[6] : 第二缓和曲

卡西欧5800计算器坐标正反算程序.doc 来自淘豆网www.taodocs.com转载请标明出处.

非法内容举报中心
文档信息
  • 页数2
  • 收藏数0 收藏
  • 顶次数0
  • 上传人ying_xiong01
  • 文件大小0 KB
  • 时间2016-07-16