測量鄰帶計算方法

Ⅰ 高斯投影正『反算公式間接進行換帶計算的實質是什麼

高斯投影換帶計算利用了高斯投影的正、反算公式，其實質是：將橢球面上的大地坐標（B，L）作為過渡坐標。
將某投影帶（如第1帶，中央子午線為L1）內有關點的平面坐標（x1，y1）1，利用高斯投影反算公式換算成橢球面上的大地坐標（B，l1），進而得到L＝L1+l1；根據鄰帶（如第2帶，中央子午線為L2）的中央子午線來計算經差l2,即，l2＝L-L2；然後再由大地坐標（B，l2）利用高斯投影正算公式得到鄰帶的平面坐標（x2，y2）。

Ⅱ 高斯投影換帶計算

VERSION 5.00
Begin VB.Form Form1
Caption = "Form1"
ClientHeight = 5490
ClientLeft = 60
ClientTop = 345
ClientWidth = 7410
LinkTopic = "Form1"
ScaleHeight = 5490
ScaleWidth = 7410
StartUpPosition = 3 '窗口預設
Begin VB.CommandButton Command3
Caption = "克氏計算"
Height = 495
Left = 2760
TabIndex = 19
Top = 4800
Width = 1215
End
Begin VB.CommandButton Command2
Caption = "退出"
Height = 615
Left = 3960
TabIndex = 18
Top = 4080
Width = 2415
End
Begin VB.CommandButton Command1
Caption = "計算"
Height = 615
Left = 360
TabIndex = 17
Top = 4080
Width = 2175
End
Begin VB.Frame Frame3
Caption = "輸出坐標"
Height = 1455
Left = 120
TabIndex = 12
Top = 2280
Width = 6855
Begin VB.TextBox Text6
Height = 495
Left = 3960
TabIndex = 16
Text = "Text6"
Top = 360
Width = 2175
End
Begin VB.TextBox Text5
Height = 375
Left = 720
TabIndex = 14
Text = "Text5"
Top = 480
Width = 1455
End
Begin VB.Label Label8
Caption = "Y="
Height = 375
Left = 3480
TabIndex = 15
Top = 480
Width = 255
End
Begin VB.Label Label7
Caption = "X="
Height = 375
Left = 240
TabIndex = 13
Top = 480
Width = 255
End
End
Begin VB.Frame Frame2
Caption = "輸入換代的中央子午線"
Height = 855
Left = 0
TabIndex = 5
Top = 1080
Width = 7095
Begin VB.TextBox Text4
Height = 375
Left = 5280
TabIndex = 9
Text = "Text4"
Top = 240
Width = 1335
End
Begin VB.TextBox Text3
Height = 375
Left = 1800
TabIndex = 8
Text = "Text3"
Top = 240
Width = 1095
End
Begin VB.Label Label6
Caption = "要換到的帶的中央子午線"
Height = 495
Left = 3600
TabIndex = 11
Top = 240
Width = 1095
End
Begin VB.Label Label5
Caption = "所在的帶的中央子午線"
Height = 495
Left = 240
TabIndex = 10
Top = 240
Width = 1095
End
Begin VB.Label Label3
Caption = "L0="
Height = 375
Left = 4920
TabIndex = 7
Top = 360
Width = 255
End
Begin VB.Label Label4
Caption = "L0="
Height = 255
Left = 1440
TabIndex = 6
Top = 360
Width = 375
End
End
Begin VB.Frame Frame1
Caption = "輸入坐標"
Height = 975
Left = 0
TabIndex = 0
Top = 0
Width = 7095
Begin VB.TextBox Text2
Height = 375
Left = 4080
TabIndex = 4
Text = "Text2"
Top = 360
Width = 2295
End
Begin VB.TextBox Text1
Height = 375
Left = 360
TabIndex = 2
Text = "Text1"
Top = 360
Width = 2175
End
Begin VB.Label Label2
Caption = "Y="
Height = 375
Left = 3600
TabIndex = 3
Top = 360
Width = 375
End
Begin VB.Label Label1
Caption = "X="
Height = 375
Left = 120
TabIndex = 1
Top = 360
Width = 255
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim x, y, b, L As Integer

Private Sub Command1_Click()

Dim x, y, L0, b1, c, bf, bf1, bf2, nf, z, b2, b3, b4, b5, b, L, l1 As Variant

x = Val(Text1.Text)
y = Val(Text2.Text)
L0 = Val(Text3.Text)

b1 = (x / 6367452.1328)
c = Cos(b1) * Cos(b1)
bf = b1 * 206264.806247096 + (52289760 + (2936975 + (2383 + 22 * c) * c) * c) * Sin(b1) * Cos(b1) / 10 ^ (10)

bf1 = bf / 206264.806247096
bf2 = Cos(bf1) * Cos(bf1)

nf = 6399596.652 - (21565.045 - (108.996 - 0.603 * bf2) * bf2) * bf2
z = y / (nf * Cos(bf1))
b2 = (0.5 + 0.00336975 * bf2) * Sin(bf1) * Cos(bf1)
b3 = 0.3333333 - (0.1666667 - 0.001123 * bf2) * bf2
b4 = 0.25 + (0.161612 + 0.005617 * bf2) * bf2
b5 = 0.2 - (0.16667 - 0.00878 * bf2) * bf2
b = bf - (1 - (b4 - 0.147 * z * z) * z * z) * z * z * b2 * 206264.806247096
L = (1 - (b3 - b5 * z * z) * z * z) * z * 206264.806247096
l1 = L0 * 3600 + L

Debug.Print l1
Debug.Print b
Dim l2, b6, c1, n, a0, a4, a6, a3, a5, x1, y1 As Variant

l2 = (l1 - Val(Text4.Text) * 3600) / 206264.806247096
b6 = b / 206264.806247096

c1 = Cos(b6) * Cos(b6)
n = 6399596.652 - (21565.045 - (108.996 - 0.603 * c1) * c1) * c1
a0 = 32144.5189 - (135.3646 - (0.7034 - 0.0041 * c1) * c1) * c1
a4 = (0.25 + 0.00253 * c1) * c1 - 0.04167
a6 = (0.167 * c1 - 0.083) * c1
a3 = (0.3333333 + 0.001123 * c1) * c1 - 0.1666667
a5 = 0.00878 - (0.1702 - 0.20382 * c1) * c1
x1 = 6367452.1328 * b / 206264.806247096 - (a0 - (0.5 + (a4 + a6 * l2 * l2) * l2 * l2) * l2 * l2 * n) * Cos(b6) * Sin(b6)
y1 = (1 + (a3 + a5 * l2 * l2) * l2 * l2) * l2 * n * Cos(b6)
Debug.Print x
Debug.Print y
Text5.Text = x1
Text6.Text = y1

End Sub

Private Sub Command3_Click()
Dim x, y, L0, b1, c, bf, bf2, bf1, nf, z, b2, b3, b4, b5, b, L, l1 As Variant
'可氏

x = Val(Text1.Text)
y = Val(Text2.Text)
L0 = Val(Text3.Text)

b1 = (x / 6367558.4969)
c = Cos(b1) * Cos(b1)
bf = b1 * 206264.806247096 + (50221746 + (293622 + (2350 + 22 * c) * c) * c) * Sin(b1) * Cos(b1) / 10 ^ (10)

bf1 = bf / 206264.806247096
bf2 = Cos(bf1) * Cos(bf1)

nf = 6399698.902 - (21562.267 - (108.973 - 0.612 * bf2) * bf2) * bf2
z = y / (nf * Cos(bf1))
b2 = (0.5 + 0.003369 * bf2) * Sin(bf1) * Cos(bf1)
b3 = 0.333333 - (0.166667 - 0.001123 * bf2) * bf2
b4 = 0.25 + (0.161612 + 0.00562 * bf2) * bf2
b5 = 0.2 - (0.1667 - 0.0088 * bf2) * bf2
b = bf - (1 - (b4 - 0.12 * z * z) * z * z) * z * z * b2 * 206264.806247096
L = (1 - (b3 - b5 * z * z) * z * z) * z * 206264.806247096
l1 = L0 * 3600 + L

Debug.Print l1
Debug.Print b

Dim l2, b6, c1, n, a0, a4, a6, a3, a5, x1, y1 As Variant

l2 = (l1 - Val(Text4.Text) * 3600) / 206264.806247096
b6 = b / 206264.806247096

c1 = Cos(b6) * Cos(b6)
n = 6399698.902 - (21562.267 - (108.973 - 0.612 * c1) * c1) * c1
a0 = 32140.404 - (135.3302 - (0.7092 - 0.004 * c1) * c1) * c1
a4 = (0.25 + 0.00252 * c1) * c1 - 0.04166
a6 = (0.166 * c1 - 0.084) * c1
a3 = (0.3333333 + 0.001123 * c1) * c1 - 0.1666667
a5 = 0.0083 - (0.1667 - (0.1968 + 0.004 * c1 * c1) * c1 * c1) * c1 * c1
x1 = 6367558.4969 * b / 206264.806247096 - (a0 - (0.5 + (a4 + a6 * l2 * l2) * l2 * l2) * l2 * l2 * n) * Cos(b6) * Sin(b6)
y1 = (1 + (a3 + a5 * l2 * l2) * l2 * l2) * l2 * n * Cos(b6)
Debug.Print x
Debug.Print y
Text5.Text = x1
Text6.Text = y1

End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""

End Sub

Private Sub Command2_Click()
End

End Sub

Ⅲ 求大地測量學高斯正反算，高斯鄰帶換算C語言或者C#可以運行的程序。

只有高斯投影正反算，大地主題解算
當時太懶了，沒寫坐標換帶，不過換帶的程序是有，沒源碼

Ⅳ 我要用VB編一個能進行高斯投影正反算和鄰帶換算的程序 哪個高手幫幫忙 萬分感謝

我有VB的，自己很多年前寫的，一直用，但是正算－>反算－>正算後，Y坐標與原來的差了0.5－0.7mm，不知道怎麼回事，這兩年工作忙也沒有時間再深究，但是這樣的計算精度做控制足夠了，如果樓主或是者是哪位同仁見此貼能順便把這個問題解決了，咱們就一起進步了！代碼如下：

'高斯坐標正算
Private Sub DadiZs()
Dim t As Double, Itp As Double, X0 As Double, N As Double, L0 As Double
Dim V As Double, ll As Double, W As Double, M As Double
Lat = 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 If
ll = Lon - L0
t = Tan(Lat)
Itp = ep1 * Cos(Lat) ^ 2
W = Sqr(1 - ep * Sin(Lat) ^ 2)
V = Sqr(1 + ep1 * Cos(Lat) ^ 2)
M = c / V ^ 3
N = 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 / 40320
x = 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 / 40320

y = 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 / 5040
r = 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) / 15
r = 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 Double
Dim v As Double, ll As Double, W As Double, M As Double, L0 As Double
L0 = Radian(Lo)
X0 = x * 0.000001
y = 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 If
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
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 If
End If
Bf = Bf * Pi / 180#
t = Tan(Bf)
Itp = ep1 * Cos(Bf) ^ 2
W = Sqr(1 - ep * Sin(Bf) ^ 2)
v = Sqr(1 + ep1 * Cos(Bf) ^ 2)
M = c / v ^ 3
N = a / W
Lat = 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.806
Public 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#) * Ro
End Function
'弧度化角度
Public Function Degree(a As Double) As Double
Dim Bo As Double
Dim Fs As Double
Dim Im As Integer
Dim Id As Integer
If a < 0 Then a = -a: t = 1
Bo = a
Call DMS(Bo, Id, Im, Fs)
If t = 1 Then Degree = -(Id + Im / 100# + Fs / 10000#) Else Degree = Id + Im / 100# + Fs / 10000#
End Function
Public Sub DMS(a As Double, Id As Integer, Im As Integer, Fs As Double)
Dim Bo As Double
Dim c As Double
c = a
c = 180# / Pi * c
Id = Int(c)
Bo = (c - Id) * 60
Im = Int(Bo)
Fs = (Bo - Im) * 60
End Sub
'取位計算
Public Function Qw(a As Double, Ws As Integer) As Double
Qw = Int(a * 10 ^ Ws + 0.5) / 10 ^ Ws
End Function
另外,站長團上有產品團購,便宜有保證

Ⅳ 關於高一物理紙帶實驗中的問題，用這個公式s△=at^2該怎麼算瞬時速度和逐差發又該怎麼算寫詳細點

0-1間距s1=1.40cm
1-2間距s2=2.15cm
2-3間距s3=2.90cm
3-4間距s4=3.70cm
4-5間距s5=4.40cm
s1=v0t+1/2at^2,
s2=v1t+1/2at^2=(vo+at)t+1/2at^2=v0t+3/2at^2
所以S2-S1=at^2即a=(s2-s1)/t^2
但計算時一般採用逐差法，即
（1）（S3+S4）—（S1+S2）/4T^2 T=0.1s

a=0.76m/s2
（2）根據一段位移的平均速度等於這段時間的中間時刻的瞬時速度得出第四個計數點的速度
V=（S4+S5）/2T=0.40m/s
親，給個好評吧

Ⅵ 河南省GPS控制點圖形圖像資料庫建立

採用北京 1954 坐標系、高斯－克呂格投影 3°分帶、1985 國家高程基準作為建庫數據基礎，河南省域跨越 37°、38°、39°帶，測量的坐標數據存在三套數據，通常構建資料庫時坐標系統的中央經線為 114°，即 38°帶。為確保整個省域建庫數據為統一的坐標系統，就應把 37°帶、39°帶內的控制點坐標進行換算，一般採用高斯投影正、反算公式間接進行換帶計算，再將39°帶、37°帶的控制點坐標換算成 38°帶的控制點坐標（表 3-5）。

表 3-5 GPS 控制點 3 度分帶相鄰帶坐標換算對應表（河南省）

基於上述建庫思路、文件組織、參數及屬性結構設置等，對河南省 GPS 控制點成果數據進行整理匯總，在 MapGIS 軟體平台上，基於簡化後的 1∶5 萬比例尺基礎地理底圖，構建了河南省 GPS 控制點圖形圖像資料庫（圖 3-7），實現了 GPS 控制點圖形圖像、空間位置、屬性三者的綜合管理，為後期的數據生產提供寶貴的基礎資料，起到「一勞永逸」的功效。

圖 3-7 河南省 GPS 控制點圖形圖像資料庫

GPS 控制點圖形圖像資料庫的特點主要有：

（1）三套編號系統，即標准編號、景內編號、測量編號。

（2）四套坐標數據，即北京 1954、西安 1980、WGS84、概略經緯度。

（3）掛接點位影像、圖形及實地照片等，使控制點信息更加豐富。

（4）多種矢量數據的空間疊合。如與權屬庫、圖幅、影像范圍框間的疊合，便於查看控制點的區域性分布、與圖幅及影像間的關系。一般利用影像頭文件中的幅寬經緯度描述可直接在MapGIS 軟體平台上對其空間范圍進行定位，不受 MapGIS 庫體基礎坐標系統的影響，圖 3-8 為河南省項目區內 SPOT 5 影像在以北京 1954 坐標系、3°分帶、38°帶為投影參數的 GPS 控制點圖形圖像庫里空間位置情況。

圖 3-8 SPOT 5 數據在 MapGIS 軟體里的空間位置展現（河南省）

（5）查詢檢索直觀便捷。可以利用屬性欄位、圖形選取等方法，圈定某一作業區內的控制點數據。

Ⅶ 請教：在北京54坐標系中，已知兩點坐標，求兩點間的距離，但兩點在相鄰的兩個帶內，如何計算

「兩個帶」是什麼意思？

直角坐標系就可以直接用公式計算

Ⅷ 打點計時器在紙帶上打出來的點之間怎樣計算能告訴我步驟嗎

打點計時器每隔0.02s打一次點，你問的問題？打出的點？計算什麼？是計算點的加速度還是瞬時速度還是什麼呃，先看下面1、自由落體運動初始點的分析：看紙帶的前兩個點的距離是否接近2mm，接近2mm的紙帶才是由靜止開始的自由落體運動實驗紙帶。 2、實驗紙帶是否研究勻變速運動的分析：測量紙帶上相鄰各點的距離之差是否相等，若相等就是勻變速運動，否則就不是；即勻變速運動的紙帶相鄰兩點的距離差滿足 s(n)+s(n+1)=aT*T 3、計算勻變速運動中某點瞬時速度；由勻變速運動物體在某段位移的平均速度等於物體在該段位移中點時刻的瞬時速度；即 V（n）=〔s(n)+s(n+1)〕/2t s(n)指第N-1個計時點到第N個計時點的位移,s(n+1）指第N個計時點到第N+1個計時點的位移？〔s(n)+s(n+1)〕指第N-1個計時點到第N+1個計時點的位移.(即把要求的點包括在了他們中間即N處) ，t指發生兩個相鄰計數點(N-1到N,N到N+1)之間的時間間隔.2T就是時間間隔總和 4、計算勻變速運動的加速度： （1）、理想紙帶的加速度計算：由於理想紙帶描述的相鄰兩個計數點間的距離之差完全相等，即有：S2-S1=S3-S2=…=S(n)-S(n-1)=△S=aT*T；故其加速度 a=△S/(T*T) (2)、實際的實驗紙帶加速度計算：由於實驗過程中存在一定的誤差，導致各相鄰兩個計數點間的距離之差不完全相等，為減小計算加速度時產生的偶然誤差，採用隔位分析法計算，可以減小運算量，方法是，用S1,S2,S3.......表示相鄰計數點的距離，兩計數點間的時間間隔為T,根據=aT*T有 S4-S1=(S4-S3)+(S3-S2)+(S2-S1)=3a1T*T 同理S5-S2=S6-S3=3a2T*T 求出a1=(S4-S1)/3T*T a2=(S5-S2)/3T*T a3=(S6-S3)/3T*T 再求平均值計算加速度 ：a=(a1+a2+a3)/3

Ⅸ 在測量工作中哪些情況下需要進行鄰帶換算，如何換帶計算

應該北京54坐標或者西安80坐標,要知道帶號才行,知道帶號要致知道所點哪縣,便確定央經線,央經線用軟體進行轉換.

Ⅹ 控制測量中為什麼要進行換帶計算

高斯投影平面上的中央子午線投影為直線且長度不變，其餘的子午線均為凹向中央子午線的曲線，其長度大於投影前的長度，離中央子午線越遠長度變形越大。為了限制高斯投影的長度變形，必須依據中央子午線進行分帶，把投影范圍限制在中央子午線東、西兩側一定的狹長帶內分別進行。但這又使得統一的坐標系分割成各帶的獨立坐標系。於是，因分帶的結果產生了新的矛盾，即在生產建設中提出了各相鄰帶的互相聯系的問題。這個問題是通過一個帶的平面坐標換算到相鄰帶的平面坐標，簡稱為「鄰帶換算」