連通圖求解最小生成樹的普林姆(prim)算法和克魯斯卡爾(kruskal)算法之JavaScript實(shí)現(xiàn)

最近在看《大話數(shù)據(jù)結(jié)構(gòu)》坑雅,圖的算法。書中用C語言講解的衬横,下面用JavaScript實(shí)現(xiàn)普林姆(prim)算法和克魯斯卡爾(kruskal)算法求解連通網(wǎng)的最小生成樹

  • 普林姆(prim)算法
// 普林姆算法尋找連通網(wǎng)的最小生成樹
const _ = require('lodash')
// 圖的鄰接矩陣
const G_0 = [
  [0, 10, Infinity, Infinity, Infinity, 11, Infinity, Infinity, Infinity],
  [10, 0, 18, Infinity, Infinity, Infinity, 16, Infinity, 12],
  [Infinity, 18, 0, 22, Infinity, Infinity, Infinity, Infinity, 8],
  [Infinity, Infinity, 22, 0, 20, Infinity, 24, 16, 21],
  [Infinity, Infinity, Infinity, 20, 0, 26, Infinity, 7, Infinity],
  [11, Infinity, Infinity, Infinity, 26, 0, 17, Infinity, Infinity],
  [Infinity, 16, Infinity, 24, Infinity, 17, 0, 19, Infinity],
  [Infinity, Infinity, Infinity, 16, 7, Infinity, 19, 0, Infinity],
  [Infinity, 12, 8, 21, Infinity, Infinity, Infinity, Infinity, 0],
]

function prim(G) {
  'use strict'
  // 初始化: 從下標(biāo)為0的頂點(diǎn)開始計(jì)算, lowcost存入0到其他頂點(diǎn)的權(quán)重
  let lowcost = G[0], len = G.length, adjvex = _.times(len, () => 0)
  for (let i = 1; i < len; i++) {
    let min = Infinity, j = 1, k = 0
    while (j < len) {
      // 尋找當(dāng)前頂點(diǎn)到未加入生成樹頂點(diǎn)中的最小權(quán)重
      if (lowcost[j] != 0 && lowcost[j] < min) {
        min = lowcost[j]
        k = j
      }
      j++
    }
    // 打印當(dāng)前尋到的最小邊
    console.log(adjvex[k], k)
    // 設(shè)置第k個(gè)點(diǎn)為已加入生成樹
    lowcost[k] = 0

    // 比較第k個(gè)點(diǎn)到其他未加入生成樹頂點(diǎn)的權(quán)重與之前已加入頂點(diǎn)到所有點(diǎn)的權(quán)重
    for (let m = 1; m < len; m++) {
      if (lowcost[m] != 0 && G[k][m] < lowcost[m]){

        lowcost[m] = G[k][m]
        adjvex[m] = k

      }
    }
  }
}

prim(G_0)
  • 克魯斯卡爾(kruskal)算法
/**
 * Created by janeluck on 17/7/11.
 */
// 克魯斯卡爾算法尋找連通網(wǎng)的最小生成樹
const _ = require('lodash')
// 圖的鄰接矩陣
const G_0 = [
  [0, 10, Infinity, Infinity, Infinity, 11, Infinity, Infinity, Infinity],
  [10, 0, 18, Infinity, Infinity, Infinity, 16, Infinity, 12],
  [Infinity, 18, 0, 22, Infinity, Infinity, Infinity, Infinity, 8],
  [Infinity, Infinity, 22, 0, 20, Infinity, 24, 16, 21],
  [Infinity, Infinity, Infinity, 20, 0, 26, Infinity, 7, Infinity],
  [11, Infinity, Infinity, Infinity, 26, 0, 17, Infinity, Infinity],
  [Infinity, 16, Infinity, 24, Infinity, 17, 0, 19, Infinity],
  [Infinity, Infinity, Infinity, 16, 7, Infinity, 19, 0, Infinity],
  [Infinity, 12, 8, 21, Infinity, Infinity, Infinity, Infinity, 0],
]
// 生成權(quán)值從小到大的邊集數(shù)組
function generateEdge(G) {
  'use strict'
  let edge = [], len = G.length
  for (let i = 0; i < len; i++) {
    for (let j = i + 1; j < len; j++) {
      // 排除不存在的邊
      if (G[i][j] !== Infinity) {
        edge.push({
          'begin': i,
          'end': j,
          'weight': G[i][j]
        })
      }
    }
  }
  return _.sortBy(edge, 'weight')
}
function kruskal(G) {
  'use strict'
  const edge = generateEdge(G), find = function (parent, f) {
    while (parent[f] > 0) {
      f = parent[f]
    }
    return f
  }
  let parent = _.times(G.length, () => 0)
  for (let i = 0; i < edge.length; i++) {
    const n = find(parent, edge[i]['begin']), m = find(parent, edge[i]['end'])

    // n與m不等, 索命此邊沒有與現(xiàn)有生成樹形成環(huán)路
    if (n !== m) {
      // 將此邊的結(jié)尾頂點(diǎn)放入下標(biāo)為該起點(diǎn)的parant中
      parent[n] = m
      // 打印當(dāng)前尋到的最小邊
      console.log(edge[i])
    }
  }
}
kruskal(G_0)

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
  • 序言:七十年代末裹粤,一起剝皮案震驚了整個(gè)濱河市,隨后出現(xiàn)的幾起案子蜂林,更是在濱河造成了極大的恐慌遥诉,老刑警劉巖,帶你破解...
    沈念sama閱讀 221,273評(píng)論 6 515
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件噪叙,死亡現(xiàn)場(chǎng)離奇詭異矮锈,居然都是意外死亡,警方通過查閱死者的電腦和手機(jī)睁蕾,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 94,349評(píng)論 3 398
  • 文/潘曉璐 我一進(jìn)店門苞笨,熙熙樓的掌柜王于貴愁眉苦臉地迎上來,“玉大人子眶,你說我怎么就攤上這事瀑凝。” “怎么了臭杰?”我有些...
    開封第一講書人閱讀 167,709評(píng)論 0 360
  • 文/不壞的土叔 我叫張陵粤咪,是天一觀的道長(zhǎng)。 經(jīng)常有香客問我渴杆,道長(zhǎng)寥枝,這世上最難降的妖魔是什么宪塔? 我笑而不...
    開封第一講書人閱讀 59,520評(píng)論 1 296
  • 正文 為了忘掉前任,我火速辦了婚禮囊拜,結(jié)果婚禮上某筐,老公的妹妹穿的比我還像新娘。我一直安慰自己冠跷,他們只是感情好来吩,可當(dāng)我...
    茶點(diǎn)故事閱讀 68,515評(píng)論 6 397
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著蔽莱,像睡著了一般弟疆。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上盗冷,一...
    開封第一講書人閱讀 52,158評(píng)論 1 308
  • 那天怠苔,我揣著相機(jī)與錄音,去河邊找鬼仪糖。 笑死柑司,一個(gè)胖子當(dāng)著我的面吹牛,可吹牛的內(nèi)容都是我干的锅劝。 我是一名探鬼主播攒驰,決...
    沈念sama閱讀 40,755評(píng)論 3 421
  • 文/蒼蘭香墨 我猛地睜開眼,長(zhǎng)吁一口氣:“原來是場(chǎng)噩夢(mèng)啊……” “哼故爵!你這毒婦竟也來了玻粪?” 一聲冷哼從身側(cè)響起,我...
    開封第一講書人閱讀 39,660評(píng)論 0 276
  • 序言:老撾萬榮一對(duì)情侶失蹤诬垂,失蹤者是張志新(化名)和其女友劉穎劲室,沒想到半個(gè)月后,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體结窘,經(jīng)...
    沈念sama閱讀 46,203評(píng)論 1 319
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡很洋,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 38,287評(píng)論 3 340
  • 正文 我和宋清朗相戀三年,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了隧枫。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片喉磁。...
    茶點(diǎn)故事閱讀 40,427評(píng)論 1 352
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡,死狀恐怖官脓,靈堂內(nèi)的尸體忽然破棺而出协怒,到底是詐尸還是另有隱情,我是刑警寧澤确买,帶...
    沈念sama閱讀 36,122評(píng)論 5 349
  • 正文 年R本政府宣布斤讥,位于F島的核電站纱皆,受9級(jí)特大地震影響湾趾,放射性物質(zhì)發(fā)生泄漏芭商。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 41,801評(píng)論 3 333
  • 文/蒙蒙 一搀缠、第九天 我趴在偏房一處隱蔽的房頂上張望铛楣。 院中可真熱鬧,春花似錦艺普、人聲如沸簸州。這莊子的主人今日做“春日...
    開封第一講書人閱讀 32,272評(píng)論 0 23
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽岸浑。三九已至,卻和暖如春瑰步,著一層夾襖步出監(jiān)牢的瞬間矢洲,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 33,393評(píng)論 1 272
  • 我被黑心中介騙來泰國打工缩焦, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留读虏,地道東北人。 一個(gè)月前我還...
    沈念sama閱讀 48,808評(píng)論 3 376
  • 正文 我出身青樓袁滥,卻偏偏與公主長(zhǎng)得像盖桥,于是被迫代替她去往敵國和親。 傳聞我的和親對(duì)象是個(gè)殘疾皇子题翻,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 45,440評(píng)論 2 359

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