测量员软件的坐标反算,算里程对得上,高程对不上,为什么?哪里出...
公路施工测量坐标计算系统 5.83本系统主要为公路新线、公路增建二线、公路互通、铁路新线、铁路复线、铁路电气化改造等工程的施工复测、施工放样、平面线形图绘制、设计图纸复核等而设计。
系统分为全线综合测设、积木法坐标计算、交点法坐标计算、互通式立体交叉、纵断面高程计算、放样辅助计算、交会定点计算、导线平差计算、水准平差计算、路基土石方计算十大模块。
>; 一、各模块主要功能> 1、全线综合测设(含断链及加宽超高处理)、积木法及交点法坐标计算:可以对公路主线、立交匝道及铁路线路进行中线桩、边线桩施工放样工作。
可计算的线形包括直线、圆曲线、缓和曲线、单交点对称型曲线、单交点非对称型曲线、S型曲线、C型曲线、卵形曲线、凸型曲线、复曲线、回头曲线等。
坐标计算时,可计算任意角度的边桩,同时系统在加桩时可一次计算多个边桩,桩间米数为自动计算时桩的间距,支持“桩间米数”与“加桩桩号”同时输入计算,逐桩计算时系统会将各主点坐标一并输出,支持多个“加桩桩号”一次输入计算。
如果给定置镜点、后视点坐标还可计算出放样角度及放样距离。
> 2、纵断高程计算:直线段高程计算、竖曲线高程计算及全线纵坡高程计算三模块可计算全线任意点高程。
> 3、导线平差计算:适用于各等级各类型闭、附合单导线的严密、近似平差计算。
严密平差时可以提供完整的精度评定及各种所需报表。
> 4、水准平差计算:适用于各类闭、附合水准平差计算。
> 5、放样辅助计算:可进行两点坐标正反算、缓和曲线起点反算、桥涵放样坐标计算。
> 6、交会定点计算:可进行前方交会、后方交会、侧方交会、测边交会计算。
> 7、坐标转换程序:可进行高斯投影正反算、坐标换带、方向与边长改化计算。
> 8、互通式立体交叉:可以计算任何复杂组合曲线,该项功能可以将一座互通中所有匝道的平面线位数据及纵断面数据一次性输入,或将几座、几十座、几百座互通中的匝道一次性输入,您只需输入互通匝道的编号(如1A,1代表1号互通,A代表1号互通中的A匝道,如果只有一座互通,只输匝道号即可),您只需输入有限的几个数据系统会自动搜索计算线路各点的坐标及高程。
>; 二、本系统主要特点> 1、功能全面,包含了公路、铁路施工测量的各个方面,更新版本将根据用户需求随时完善、增强。
> 2、表格式的数据操作,简单、方便,所输入的历史数据均可留在系统中,每次程序启动后均可显示以前的数据,包括计算结果。
本系统还可将用户输入资料保存为磁盘文件(*.stc)以便交流及随身携带,也可将原始数据或计算结果输出为EXCEL及文本文件。
> 3、所见即所得的报表输出功能,支持报表设计,用户可根据自已的需要设计出适合的报表,先进的数据计算引擎,计算速度极快,在预览页面可将报表保存为同式样的EXCEL或网页文件,在EXCEL中真正体现了人性化的报表界面,支持数据的直接显示、预览、打印。
> 4、导线严密平差采用条件平差,所计算数据的变量均采用双精度浮点型,计算精度极高。
线路中缓和曲线的计算精度0.05mm,由程序按精度动态选取计算项数。
> 5、漂亮的AutoCad输出功能, 可以将原始数据发送到AutoCad,生成.dwg文件,生成的AutoCad平面线位图包含百米桩、公里桩、起讫桩号及主点标志(如ZY、YZ、ZH、HY、YH、HZ、YY、GQ)等,生成的图形坐标系为大地坐标系,图形按大地坐标系绘制,系统提供了“世界坐标系→大地坐标系”、“大地坐标系→世界坐标系”间的转换,系统支持整座互通N个匝道的绘图及AutoCad输出。
> 6、本系统使现场施工放样的计算工作变的简单、方便,同时也使公路互通匝道复杂曲线的计算变的容易、准确,也许这才是你真正期待的施工测量软件。
> 7、本系统特别针对公路互通匝道的复杂曲线进行了优化设计,根据设计提供参数可选用多种方案进行计算,既可对组成匝道曲线的单个线元进行计算,也可将整条匝道的曲线参数输入进行全线计算,还可以根据匝道起点或终点坐标、方位角推算其它主点坐标及方位角,是互通匝道复杂曲线放样的最得力助手。
>; 愿更多的测量朋友早日从繁琐的手工计算中解脱出来,留给自已更多自由时间享受生活。
测量坐标反算怎么计算观测角和方位角
我不用这个型号,不一定说的十分准确,但你看了以后应该能明白将直角坐标转化为极坐标:例如将(1,1)转化为极坐标,只要输入“Pol(1,1) =”就行了,它会显示r=1.414....,θ=45 (如果你用Deg模式)或者r=1.414....,θ=0.785...(如果你用Rad模式)将极坐标转化为直角坐标用 Rec(),用法相似我用的计算器,Pol 在“+”键上,Rec 在“-”键上 再有就是如果要计算大量如 3∠30°+4∠60°这样的式子,可以利用复数模式,然后把实轴当成x轴,把虚轴当成y轴。
在复数模式下可以直接输入“3∠30”这样的表达,我的计算器上“∠”在“负号”键上。
进入复数模式的方法为“MODE”“CMPLX”
VB测量坐标正反算程序代码
展开全部 >反算->正算后,Y坐标与原来的差了0.5-0.7mm,不知道怎么回事,这两年工作忙也没有时间再深究,但是这样的计算精度做控制足够了,如果楼主或是者是哪位同仁见此贴能顺便把这个问题解决了,咱们就一起进步了!代码如下:'高斯坐标正算Private Sub DadiZs()Dim t As Double, Itp As Double, X0 As Double, N As Double, L0 As DoubleDim V As Double, ll As Double, W As Double, M As DoubleLat = Radian(Lat)Lon = Radian(Lon)L0 = Radian(Lo)If Tq = 0 Then a = 6378245 '54椭球参数 b = 6356863.01877305 ep = 0.006693421622966 ep1 = 0.006738525414683 f = (a - b) / a c = a ^ 2 / b d = b ^ 2 / a X0 = 111134.8611 * (Lat * 180# / Pi) - (32005.7799 * Sin(Lat) + 133.9238 * (Sin(Lat)) ^ 3 + 0.6973 * (Sin(Lat)) ^ 5 + 0.0039 * (Sin(Lat)) ^ 7) * Cos(Lat) 'X0 = 111134.8611 * (Lat * 180# / Pi) - (32005.7798 * Sin(Lat) + 133.9238 * (Sin(Lat)) ^ 3 + 0.6972 * (Sin(Lat)) ^ 5 + 0.0039 * (Sin(Lat)) ^ 7) * Cos(Lat)Else a = 6378140 '75椭球参数 b = 6356755.28815753 ep = 0.006694384999588 ep1 = 0.006739501819473 f = (a - b) / a c = a ^ 2 / b d = b ^ 2 / a X0 = 111133.0047 * (Lat * 180 / Pi) - (32009.8575 * Sin(Lat) + 133.9602 * (Sin(Lat)) ^ 3 + 0.6976 * (Sin(Lat)) ^ 5 + 0.0039 * (Sin(Lat)) ^ 7) * Cos(Lat)End Ifll = Lon - L0t = Tan(Lat)Itp = ep1 * Cos(Lat) ^ 2W = Sqr(1 - ep * Sin(Lat) ^ 2)V = Sqr(1 + ep1 * Cos(Lat) ^ 2)M = c / V ^ 3N = a / W'x = X0 + N * t * (Cos(Lat)) ^ 2 * ll ^ 2 / 2 + N * t * (5 - t * t + 9 * Itp + 4 * Itp * Itp) * (Cos(Lat)) ^ 4 * ll ^ 4 / 24 + N * t * (61 - 58 * t ^ 2 + t ^ 4 + 270 * Itp - 330 * t ^ 2 * Itp) * (Cos(Lat)) ^ 6 * ll ^ 6 / 720 + N * t * (1385 - 3111 * t ^ 2 + 543 * t ^ 4 - t ^ 6) * Cos(Lat) ^ 8 * ll ^ 8 / 40320x = X0 + N * t * (Cos(Lat)) ^ 2 * ll ^ 2 / 2 + N * t * (5 - t * t + 9 * Itp ^ 2 + 4 * Itp ^ 4) * (Cos(Lat)) ^ 4 * ll ^ 4 / 24 + N * t * (61 - 58 * t ^ 2 + t ^ 4 + 270 * Itp ^ 2 - 330 * t ^ 2 * Itp ^ 2) * (Cos(Lat)) ^ 6 * ll ^ 6 / 720 + N * t * (1385 - 3111 * t ^ 2 + 543 * t ^ 4 - t ^ 6) * Cos(Lat) ^ 8 * ll ^ 8 / 40320y = N * Cos(Lat) * ll + N * (1 - t * t + Itp) * (Cos(Lat)) ^ 3 * ll ^ 3 / 6 + N * (5 - 18 * t * t + t ^ 4 + 14 * Itp - 58 * Itp * t * t) * (Cos(Lat)) ^ 5 * ll ^ 5 / 120 + N * (61 - 479 * t ^ 2 + 179 * t ^ 4 - t ^ 6) * Cos(Lat) ^ 7 * ll ^ 7 / 5040r = Sin(Lat) * ll + Sin(Lat) * (Cos(Lat)) ^ 2 * ll ^ 3 * (1 + 3 * Itp + 2 * Itp ^ 2) / 3 + Sin(Lat) * (Cos(Lat)) ^ 4 * ll ^ 5 * (2 - t * t) / 15r = Degree(r)y = y + 500000#End Sub'高斯反算Private Sub DadiFs()Dim t As Double, Itp As Double, X0 As Double, Bf As Double, N As DoubleDim v As Double, ll As Double, W As Double, M As Double, L0 As DoubleL0 = Radian(Lo)X0 = x * 0.000001y = y - 500000#If Tq = 0 Then a = 6378245 '54椭球参数 b = 6356863.01877305 ep = 0.006693421622966 ep1 = 0.006738525414683 f = (a - b) / a c = a ^ 2 / b d = b ^ 2 / a If X0 < 3 Then Bf = 9.04353301294 * X0 - 0.00000049604 * X0 ^ 2 - 0.00075310733 * X0 ^ 3 - 0.00000084307 * X0 ^ 4 - 0.00000426055 * X0 ^ 5 - 0.00000010148 * X0 ^ 6 ElseIf X0 < 6 Then Bf = 27.11115372595 + 9.02468257083 * (X0 - 3) - 0.00579740442 * (X0 - 3) ^ 2 - 0.00043532572 * (X0 - 3) ^ 3 + 0.00004857285 * (X0 - 3) ^ 4 + 0.00000215727 * (X0 - 3) ^ 5 - 0.00000019399 * (X0 - 3) ^ 6 End IfElse a = 6378140 '75椭球参数 b = 6356755.28815753 ep = 0.006694384999588 ep1 = 0.006739501819473 f = (a - b) / a c = a ^ 2 / b d = b ^ 2 / a If X0 < 3 Then Bf = 9.04369066313 * X0 - 0.00000049618 * X0 ^ 2 - 0.00075325505 * X0 ^ 3 - 0.0000008433 * X0 ^ 4 - 0.00000426157 * X0 ^ 5 - 0.0000001015 * X0 ^ 6 ElseIf X0 < 6 Then Bf = 27.11162289465 + 9.02483657729 * (X0 - 3) - 0.00579850656 * (X0 - 3) ^ 2 - 0.00043540029 * (X0 - 3) ^ 3 + 0.00004858357 * (X0 - 3) ^ 4 + 0.00000215769 * (X0 - 3) ^ 5 - 0.00000019404 * (X0 - 3) ^ 6 End IfEnd IfBf = Bf * Pi / 180#t = Tan(Bf)Itp = ep1 * Cos(Bf) ^ 2W = Sqr(1 - ep * Sin(Bf) ^ 2)v = Sqr(1 + ep1 * Cos(Bf) ^ 2)M = c / v ^ 3N = a / WLat = Bf - 0.5 * v ^ 2 * t * ((y / N) ^ 2 - (5 + 3 * t * t + Itp - 9 * Itp * t * t) * (y / N) ^ 4 / 12 + (61 + 90 * t * t + 45 * t ^ 4) * (y / N) ^ 6 / 360)ll = ((y / N) - (1 + 2 * t * t + Itp) * (y / N) ^ 3 / 6 + (5 + 28 * t * t + 24 * t ^ 4 + 6 * Itp + 8 * Itp * t * t) * (y / N) ^ 5 / 120) / Cos(Bf)r = y * t / N - y ^ 3 * t * (1 + t * t - Itp) / (3 * N ^ 3) + y ^ 5 * t * (2 + 5 * t * t + 3 * t ^ 4) / (15 * N ^ 5)Lat = Degree(Lat)Lon = Degree(L0 + ll)r = Degree(r)End Sub有了正反算,换带也就完成了!用到的子程序:Public Const Pi = 3.14159265358979, p = 206264.806Public Cktq As String'角度化弧度Public Function Radian(a As Double) As Double Dim Ro As Double Dim c As Double Dim Fs As Double Dim Ib As Integer Dim Ic As Integer If a < 0 Then a = -a: t = 1 Ro = Pi / 180# Ib = Int(a) c = (a - Ib) * 100# Ic = Int(c + 0.000000000001) Fs = (c - Ic) * 100# If t = 1 Then Radian = -(Ib + Ic / 60# + Fs / 3600#) * Ro Else Radian = (Ib + Ic / 60# + Fs / 3600#) * RoEnd...
安卓系统公路坐标计算系统,有没有?
有的,安卓有公路工程施工测量计算系统类的app,内含功能有:详细用途:辐射路线范围内的任意点三维数据计算,数据批量计算,桥涵位四角点放样计算,弯道直做桩基坐标计算等。
支持交点法和积木法的坐标正算,支持交点法的坐标反算桩号和偏距。
如何安装:需要安装在 Android 3.0 (SDK 11) 及以上的智能手机上。
轻松工程测量系统的软件简介:
轻松工程测量系统分为4个版本,一个运行于电脑上“轻松工程测量系统”,一个是运行于安卓手机上的“轻松工程测量系统安卓版”,一个是运行于PPC手机上的“轻松工程测量系统掌上版”,一个是运行于普通手机上的“Easy.jar”。
4个软件可相互共享参数,安卓版、手机版和掌上版也可以在手机上输入参数,具有操作简便和集成度高的优点。
4个版本均有的功能:1、可同时计算整条线路的中桩或边桩的坐标,支持不限数量条线路;2、可以解算任何复杂线型及立交匝道,包括C型,S型、卵型、回头曲线等;3、可以计算与中线非正交交叉的特殊点位的坐标;4、平面反查功能,输入已知点坐标可以反算出对应的桩号和偏距;5、可以计算路面范围内任意点的高程6、支持断链。
7、坐标正算功能。
8、后方交会功能。
9、批量计算结构物角点坐标计算功能。