已知一點(diǎn)經(jīng)緯度及與另一點(diǎn)距離和航向,求另一點(diǎn)經(jīng)緯度

本文結(jié)合Vincenty公式計(jì)算橢圓形地球模型目標(biāo)點(diǎn)的方法

  /**
      * 已知一點(diǎn)經(jīng)緯度及與另一點(diǎn)距離和航向,求另一點(diǎn)經(jīng)緯度
      *
      * @param lon  已知一點(diǎn)的經(jīng)度
      * @param lat  已知一點(diǎn)的緯度
      * @param brng 已知一點(diǎn)與另一點(diǎn)的方向 (角度)
      * @param dist 已知一點(diǎn)與另一點(diǎn)的距離 :米
      * @return
      */
    def computerOffsetPosition(lon: Double,
                               lat: Double,
                               brng: Double,
                               dist: Double): (Double, Double) = {


      //1. Calculate the destination point useing Vincenty's formula.
      // 角度轉(zhuǎn)弧度
      val lat1 = lat * math.Pi / 180
      val lon1 = lon * math.Pi / 180
      val brg = brng * math.Pi / 180


      // 扁率
      val flat = 298.257223563
      // 地球 半長(zhǎng)軸
      val a = 6378137.0
      //地球 半短軸
      val b = 6356752.314245

      val f = 1 / flat
      val sb = math.sin(brg)
      val cb = math.cos(brg)
      val tu1 = (1 - f) * math.tan(lat1)
      val cu1 = 1 / math.sqrt((1 + tu1 * tu1))
      val su1 = tu1 * cu1
      val s2 = math.atan2(tu1, cb)
      val sa = cu1 * sb
      val csa = 1 - sa * sa
      val us = csa * (a * a - b * b) / (b * b)
      val A = 1 + us / 16384 * (4096 + us * (-768 + us * (320 - 175 * us)))
      val B = us / 1024 * (256 + us * (-128 + us * (74 - 47 * us)))
      var s1 = dist / (b * A)
      var s1p = 2 * math.Pi
      var cs1m = 0.0
      var ss1 = 0.0
      var cs1 = 0.0
      var ds1 = 0.0


      //
      while (math.abs(s1 - s1p) > 1e-12) {
        cs1m = math.cos(2 * s2 + s1)
        ss1 = math.sin(s1)
        cs1 = math.cos(s1)
        ds1 = B * ss1 * (cs1m + B / 4 * (cs1 * (-1 + 2 * cs1m * cs1m) - B / 6 * cs1m * (-3 + 4 * ss1 * ss1) * (-3 + 4 * cs1m * cs1m)))
        s1p = s1
        s1 = dist / (b * A) + ds1
      }


      val t = su1 * ss1 - cu1 * cs1 * cb
      val lat2 = math.atan2(su1 * cs1 + cu1 * ss1 * cb, (1 - f) * math.sqrt(sa * sa + t * t))
      val l2 = math.atan2(ss1 * sb, cu1 * cs1 - su1 * ss1 * cb)
      val c = f / 16 * csa * (4 + f * (4 - 3 * csa))
      val l = l2 - (1 - c) * f * sa * (s1 + c * ss1 * (cs1m + c * cs1 * (-1 + 2 * cs1m * cs1m)))
      val lon2 = lon1 + l

      (lon2 * 180 / math.Pi, lat2 * 180 / math.Pi)
    }

參考資料

http://www.movable-type.co.uk/scripts/latlong-vincenty.html
http://www.geomidpoint.com/destination/calculation.html

?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末懂盐,一起剝皮案震驚了整個(gè)濱河市吱七,隨后出現(xiàn)的幾起案子景醇,更是在濱河造成了極大的恐慌,老刑警劉巖吝岭,帶你破解...
    沈念sama閱讀 218,284評(píng)論 6 506
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件三痰,死亡現(xiàn)場(chǎng)離奇詭異吧寺,居然都是意外死亡,警方通過(guò)查閱死者的電腦和手機(jī)散劫,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,115評(píng)論 3 395
  • 文/潘曉璐 我一進(jìn)店門(mén)撮执,熙熙樓的掌柜王于貴愁眉苦臉地迎上來(lái),“玉大人舷丹,你說(shuō)我怎么就攤上這事抒钱。” “怎么了颜凯?”我有些...
    開(kāi)封第一講書(shū)人閱讀 164,614評(píng)論 0 354
  • 文/不壞的土叔 我叫張陵谋币,是天一觀的道長(zhǎng)。 經(jīng)常有香客問(wèn)我症概,道長(zhǎng)蕾额,這世上最難降的妖魔是什么? 我笑而不...
    開(kāi)封第一講書(shū)人閱讀 58,671評(píng)論 1 293
  • 正文 為了忘掉前任彼城,我火速辦了婚禮诅蝶,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘募壕。我一直安慰自己调炬,他們只是感情好,可當(dāng)我...
    茶點(diǎn)故事閱讀 67,699評(píng)論 6 392
  • 文/花漫 我一把揭開(kāi)白布舱馅。 她就那樣靜靜地躺著缰泡,像睡著了一般。 火紅的嫁衣襯著肌膚如雪代嗤。 梳的紋絲不亂的頭發(fā)上棘钞,一...
    開(kāi)封第一講書(shū)人閱讀 51,562評(píng)論 1 305
  • 那天,我揣著相機(jī)與錄音干毅,去河邊找鬼宜猜。 笑死,一個(gè)胖子當(dāng)著我的面吹牛硝逢,可吹牛的內(nèi)容都是我干的姨拥。 我是一名探鬼主播,決...
    沈念sama閱讀 40,309評(píng)論 3 418
  • 文/蒼蘭香墨 我猛地睜開(kāi)眼趴捅,長(zhǎng)吁一口氣:“原來(lái)是場(chǎng)噩夢(mèng)啊……” “哼垫毙!你這毒婦竟也來(lái)了霹疫?” 一聲冷哼從身側(cè)響起拱绑,我...
    開(kāi)封第一講書(shū)人閱讀 39,223評(píng)論 0 276
  • 序言:老撾萬(wàn)榮一對(duì)情侶失蹤,失蹤者是張志新(化名)和其女友劉穎丽蝎,沒(méi)想到半個(gè)月后猎拨,有當(dāng)?shù)厝嗽跇?shù)林里發(fā)現(xiàn)了一具尸體膀藐,經(jīng)...
    沈念sama閱讀 45,668評(píng)論 1 314
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 37,859評(píng)論 3 336
  • 正文 我和宋清朗相戀三年红省,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了额各。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點(diǎn)故事閱讀 39,981評(píng)論 1 348
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡吧恃,死狀恐怖虾啦,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情痕寓,我是刑警寧澤傲醉,帶...
    沈念sama閱讀 35,705評(píng)論 5 347
  • 正文 年R本政府宣布,位于F島的核電站呻率,受9級(jí)特大地震影響硬毕,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜礼仗,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,310評(píng)論 3 330
  • 文/蒙蒙 一吐咳、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧元践,春花似錦韭脊、人聲如沸。這莊子的主人今日做“春日...
    開(kāi)封第一講書(shū)人閱讀 31,904評(píng)論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)。三九已至慎恒,卻和暖如春任内,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背融柬。 一陣腳步聲響...
    開(kāi)封第一講書(shū)人閱讀 33,023評(píng)論 1 270
  • 我被黑心中介騙來(lái)泰國(guó)打工死嗦, 沒(méi)想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留,地道東北人粒氧。 一個(gè)月前我還...
    沈念sama閱讀 48,146評(píng)論 3 370
  • 正文 我出身青樓越除,卻偏偏與公主長(zhǎng)得像,于是被迫代替她去往敵國(guó)和親外盯。 傳聞我的和親對(duì)象是個(gè)殘疾皇子摘盆,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 44,933評(píng)論 2 355

推薦閱讀更多精彩內(nèi)容