[高斯公式]弱粗磁选机为99.52kA/m,换算成高斯,是多少?换算公式有那个知道的?

  • 内容
  • 评论
  • 相关

高斯公式

弱粗磁选机为99.52kA/m,换算成高斯,是多少?换算公式有那个知道的?

问题补充:弱粗磁选机为99.52kA/m,换算成高斯,是多少?换算公式有那个知道的?
●磁选机的换算是根据磁铁的高斯决定的。一般都在1500--2000高斯就可以选取河道砂里的铁矿。 技术,设备,指导,都在,恒昌冶金建材设备厂。 最专业的磁选机生产厂家,干式磁选机的创始单位。

《大地测量学基础》里面的高斯投影正反算公式及换带计算的VB或者C语言编程

问题补充:《大地测量学基础》里面的高斯投影正反算公式及换带计算的VB或者C语言编程
●我有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 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 FunctionPublic 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) * 60End Sub'取位计算Public Function Qw(a As Double, Ws As Integer) As Double Qw = Int(a * 10 ^ Ws + 0.5) / 10 ^ WsEnd Function

德国著名数学家高斯(Gauss)在上小学时就已求出计算公式 1+2+3+…+n= n(n+1) 2 .这个公

问题补充:德国著名数学家高斯(Gauss)在上小学时就已求出计算公式 1+2+3+…+n= n(n+1) 2 .这个公式可以用一种叫做“交叉消项求和法”的方法推导如下:在“平方公式”(a+b) 2 =a 2 +2ab+b 2 中,取b=1,得2a+1=(a+1) 2 -a 2 .…(*)在(*)中分别取a=1,2,3,…,n,再左右分别相加,得2(1+2+3+…+n)+n×1=(2 2 -1 2 )+(3 2 -2 2 )+(4 2 -3 2 )+…+[n 2 -(n-1) 2 ]+[(n+1) 2 -n 2 ]=(n+1) 2 -1=n 2 +2n.即 1+2+3+…+n= n(n+1) 2 .现在请你利用“立方公式”(a+b) 3 =a 3 +3a 2 b+3ab 2 +b 3 来推导1 2 +2 2 +3 2 +…+n 2 的计算公式,要求写出推算过程.注:可以利用已推导的公式 1+2+3+…+n= n(n+1) 2 .
●在立方公式中,取b=1得(a+1) 3 -a 3 =3a 2 +3a+1,依次取a=1,2,3,…,n-1,n得2 3 -1=3×1 2 +3×1+1,3 3 -2 3 =3×2 2 +3×2+1,4 3 -3 3 =3×3 2 +3×3+1,…(n+1) 3 -n 3 =3×n 2 +3n+1,将以上n个式子相加,得(n+1) 3 -1=3(1 2 +2 2 +3 2 +…+n 2 )+3(1+2+3+…+n)+n,∴1 2 +2 2 +3 2 +…+n 2 = (n+1 ) 3 -1-3(1+2+3+…+n)-n 3 = n(n+1)(2n+1) 6 .

基金净值估算的公式是什么?

问题补充:基金净值估算的公式是什么?
●今日净值/昨日净值-1 这是每日净值增长率,如果是计算某个特定时间段的增长率,将昨日净值改成起始日的净值即可。

商业贷款利率的公式怎么算?

问题补充:商业贷款利率的公式怎么算?
●最佳答案P=A/(1+i)+A/[(1+i)(1+i)]从第一年到最后一年第一年〔〕内是一个1+i依次下去。P你的借款,A就是须等额还的。根据等比公式,可求和,自己算算。 0 回答者: hot1289 - 试用期 一级   2009-1-5 14:18
●提前还贷用手工是算不出来的,可以用计算器,试试这个参考资料:http://fangdai.fangbole.com

相关专题:

评论

0条评论

发表评论

电子邮件地址不会被公开。 必填项已用*标注