阅读下一篇
4800程序请高手修改，适合水利工程的放样！圆曲线和直线正反算,非常适合于水利工程中渠道的测量放样,但不知哪个语句有问题,圆曲线右偏时,计算结果错误,左偏和直线段都是对的,请大师百忙之中能抽出点空修改一下,不胜感谢!!!CASIO fx-4800P程序编制（里程中边桩计算坐标及反算）程序编制一、源程序(SZ-XY-SZ) "1.SZ => XY"："2. XY => SZ"：NU"X0"V"Y0"O"S0"G"F0"Q：Q=0=>R=1E-45：≠> R△J=0：M=AbsQ：K=1-M：N=1=>Goto 1：≠>Goto 2△←┙ Lbl 1：{SZ}：SZ：L=S-O：B=90QL÷π÷R：F=G+B：E=F+B+90：C=LK+2MRsinQB：X"XS" = U+Rec(C,F)+ZcosE◢ Y"YS"=V+J+ZsinE◢ Goto 1←┙ Lbl 2：W=G+90Q：E=U+Rec(R,W)：F=V+J←┙ Lbl 3：{XY}：XY：D=Pol(X-E,Y-F):T=J：J<0=>T=J+360△B=T-W-180M：P=Abs B：S"S"=O+ DKcosP+ MπRP÷180◢ Z"Z"=DKsinB+MQ(R-D)◢ Goto 3←┙ 二、使用说明 1.由里程、中边桩计算坐标 启动程序后按以下提示输入数据： N ？1 （N=1，由里程中边桩计算坐标；N≠1，由坐标反算里程及中边桩) X0 ？142.353 (直线或圆曲线起点的X坐标） Y0 ？368.166 (直线或圆曲线起点的Y坐标） S0 ？155.252 (直线或圆曲线起点的里程） F0 ？60°54′03″(直线或圆曲线起点的切线方位角） Q ？-1 (当线元为直线时Q=0；当线元为圆曲线且左偏时Q=-1；当线元为圆曲线且 右偏时Q=1) R ？ 100 (圆曲线的半径) S ？ 197.016 (中线里程) Z ？ -5.251 (中线左侧5.251m的边桩；在中线上Z=0，在左侧<0，在右侧Z>0) 显示计算结果 XS=172.7467767 YS=395.2316807 2.由坐标反算里程、中边桩 启动程序后按以下提示输入数据： N ？2 （N=1，由里程中边桩计算坐标；N≠1，由坐标反算里程及中边桩) X0 ？142.353 (直线或圆曲线起点的X坐标） Y0 ？368.166 (直线或圆曲线起点的Y坐标） S0 ？155.252 (直线或圆曲线起点的里程） F0 ？60°54′03″(直线或圆曲线起点的切线方位角） Q ？-1 (当线元为直线时Q=0；当线元为圆曲线且左偏时Q=-1；当线元为圆曲线且 右偏时Q=1) R ？ 100 (圆曲线的半径) X ？ 172.7467767 (待求里程及中边桩的点的X坐标) Y ？ 395.2316807 (待求里程及中边桩的点的Y坐标) 显示计算结果 S=197.016 Z=-5.251 三、注意事项 1.本程序主要是针对市政道路工程中的直线和圆曲线而编制的，未考虑缓和曲线等 曲线的计算； 2.程序中“R=1E-45”的意思为10的-45次方，输入程序时切莫输错。
回帖成功
经验值 +10
全部回复（2 ）
只看楼主 我来说两句抢地板你没有搞清楚6度分带和3度分带定义，看看下面的解释。
1．我国采用6度分带和3度分带：
1∶2.5万及1∶5万的地形图采用6度分带投影，即经差为6度，从零度子午线开始，自西向东每个经差6度为一投影带，全球共分60个带，用1，2，3，4，5，……表示．即东经0～6度为第一带，其中央经线的经度为东经3度，东经6～12度为第二带，其中央经线的经度为9度。
1∶1万的地形图采用3度分带，从东经1.5度的经线开始，每隔3度为一带，用1，2，3，……表示，全球共划分120个投影带，即东经1.5～ 4.5度为第1带，其中央经线的经度为东经3度，东经4.5～7.5度为第2带，其中央经线的经度为东经6度．我省位于东经113度－东经120度之间，跨第38、39、40共计3个带，其中东经115.5度以西为第38带，其中央经线为东经114度；东经115.5～118.5度为39带，其中央经线为东经117度；东经118.5度以东到山海关为40带，其中央经线为东经120度。
地形图上公里网横坐标前2位就是带号，例如：1∶5万地形图上的横坐标为20345486，其中20即为带号，345486为横坐标值。
2．当地中央经线经度的计算
六度带中央经线经度的计算：当地中央经线经度＝6°×当地带号－3°，例如：地形图上的横坐标为20345，其所处的六度带的中央经线经度为：6°×20－3°＝117°（适用于1∶2．5万和1∶5万地形图）。
三度带中央经线经度的计算：中央经线经度＝3°×当地带号（适用于1∶1万地形图）。
回复 举报
回复 举报