|
网上贸易 创造奇迹! 阿里巴巴 Alibaba Powered By Dvbbs Version 7.1.0 Copyright ©2003 - 2006 QTHome.Org 页面执行时间 00.12500 秒, 3 次数据查询 |
 |
| 以文本方式查看主题 - 趣题之家 (http://qthome.org/bbs/index.asp) -- 算法艺术 (http://qthome.org/bbs/list.asp?boardid=38) ---- [更正]最小生成树 (http://qthome.org/bbs/dispbbs.asp?boardid=38&id=48) |
| -- 作者：趣题之主 -- 发布时间：10/2/2003 4:58:30 PM -- [更正]最小生成树 {最小生成树} var f:text; n:integer; cost:array [1..100,1..100] of integer; visited:array [1..100] of boolean; procedure init; var i,j:integer; begin assign(f,\'graphjz.txt\'); reset(f); read(f,n); for i:=1 to n do for j:=1 to n do read(f,cost[i,j]); close(f); end; procedure prim; var closest,lowcost:array [1..100] of integer; i,j:integer; min,minj:integer; begin for i:=2 to n do begin lowcost:=cost[1,i]; closest:=1; end; lowcost[1]:=1000; for i:=2 to n do begin min:=1000; for j:=1 to n do if (lowcost[j]<min) and (lowcost[j]<>0) then begin min:=lowcost[j]; minj:=j; end; writeln(minj,\' \',closest[minj],\' \',min); lowcost[minj]:=1000; for j:=2 to n do if ((lowcost[j]>cost[minj,j]) or (lowcost[j]=0)) and (lowcost[j]<>1000) and (cost[minj,j]<>0) then begin lowcost[j]:=cost[minj,j]; closest[j]:=minj; end; end; end; begin init; prim; readln; end. |
| -- 作者：逍遥婵娟 -- 发布时间：7/19/2004 3:43:53 PM -- [更正]最小生成树 贴源程干么？ |
| -- 作者：趣题之主 -- 发布时间：10/14/2004 8:32:04 PM -- 置顶的帖子这部分不是很容易看，或者有些问题…… |
| -- 作者：betaver -- 发布时间：10/17/2004 10:20:29 PM -- Huffman编码与动态规划 不知大家发现没有，几道典型的动态规划题（如石子归并，书的复制）都可以通过构建树后Huffman编码解。谁能分析一下为什么？还有，急求谁有Huffman编码的源代码(C++最好)，共享谢。 |
| -- 作者：趣题之主 -- 发布时间：10/17/2004 10:32:09 PM -- 说的是 用作压缩的Huffman编码吗？ |
| -- 作者：ppatsname -- 发布时间：11/3/2004 6:35:38 PM -- 主要有以边为阶段的和以节点为阶段的两大类！！ |
|
|||