b'\n_START_ARTICLE_\nPrimov algoritem\n_START_PARAGRAPH_\nPrimov algoritem je algoritem, ki v grafu oziroma v matriki povezav poi\xc5\xa1\xc4\x8de povezavo, ki je najcenej\xc5\xa1a, a je razli\xc4\x8dna od 0. To povezavo oz. to\xc4\x8dki (vozli\xc5\xa1\xc4\x8di), ki pripadata tej povezavi, in povezava sama sestavljajo drevo. Nato pa za vse ostale to\xc4\x8dke, ki \xc5\xa1e niso vklju\xc4\x8dene v drevo, izra\xc4\x8dunamo, katera to\xc4\x8dka v drevesu je najbli\xc5\xbeje ali j ali k, ter jo vklju\xc4\x8dimo v drevo. Ko to\xc4\x8dko vklju\xc4\x8dimo v drevo, ji postavimo neskon\xc4\x8dno vrednost cene. Za preostale to\xc4\x8dke, ki \xc5\xa1e niso v drevesu, znova pogledamo, ali je na novo dodana to\xc4\x8dka bli\xc5\xbeje k to\xc4\x8dki, ki \xc5\xa1e ni vklju\xc4\x8dena v drevo kot to\xc4\x8dka, ki je bila pred dodajanjem nove to\xc4\x8dke tej to\xc4\x8dki najbli\xc5\xbeje._NEWLINE_Algoritem je leta 1930 razvil \xc4\x8de\xc5\xa1ki matematik Vojt\xc4\x9bch Jarn\xc3\xadk. Leta 1957 ga je neodvisno od njega razvil ameri\xc5\xa1ki matematik in ra\xc4\x8dunalnikar Robert Clay Prim, nizozemski ra\xc4\x8dunalnikar Edsger Wybe Dijkstra pa ga je leta 1959 na novo odkril. Zaradi tega algoritem v\xc4\x8dasih imenujejo algoritem DJP, Jarn\xc3\xadkov algoritem ali Prim-Jarn\xc3\xadkov algoritem._NEWLINE_\xc4\x8casovna zahtevnost Primovega algoritma je \xce\x98(n\xc2\xb2)\n_START_SECTION_\nPostopek\n_START_PARAGRAPH_\nprocedure Prim (n, c, vrednost, drevo)// n - to\xc4\x8dke, c - povezavebegin_NEWLINE_vrednost := c[k,l] // povezava z min ceno(drevo[1,1], drevo[1,2]) := (k,2)  // 1.veja min vpetega drevesafor i:= 1 to n do_NEWLINE_ begin_NEWLINE_  if c[i,l] < c[i,k] then_NEWLINE_    r[i] := l_NEWLINE_  else_NEWLINE_    r[i] := k_NEWLINE_  r[k], r[l] := 0_NEWLINE_  for i:= 2 to n-1 do_NEWLINE_   begin // poi\xc5\xa1\xc4\x8di 1<= j <= n tako, da r[j] != 0 in c[j, r[i]] = min_NEWLINE_    (drevo[i,1], drevo[i,2]) := (i, r[i])_NEWLINE_    vrednost := vrednost + c[i,r[i]]_NEWLINE_    r[i] := 0_NEWLINE_    for k := 1 to n do_NEWLINE_    begin _NEWLINE_      if r[k] != 0 and c[k,r[k]] > c[k,i] then_NEWLINE_        r[k] := i_NEWLINE_    end_NEWLINE_  end_NEWLINE_ endend'