% 读取位置表单中的数据
pos = xlsread('附件1：数据.xlsx', '位置');
village_count = size(pos, 1); % 村庄个数
% 读取连接道路表单中的数据
edges = xlsread('附件1：数据.xlsx', '连接道路');
edge_count = size(edges, 1); % 道路数目
% 初始化最小生成树的边数组
tree_edges = zeros(village_count - 1, 3);
% 将所有边按照权值从小到大排序
[sorted_edges, sorted_indices] = sort(edges(:, 3)); % 按照第三列排序，即边权
% 定义并查集
ds = disjointSet(village_count);
% 遍历每条边，按照Kruskal算法依次加入最小生成树
for i = 1:edge_count
% 获取当前边的两个端点
u = edges(sorted_indices(i), 1);
v = edges(sorted_indices(i), 2);
% 如果u和v不在同一个连通块中，则将它们合并，并将边(u, v)加入最小生成树中
if ds.find(u) ~= ds.find(v)
ds.union(u, v);
% 记录当前边为最小生成树中的边
tree_edges(end + 1, :) = [u v edges(sorted_indices(i), 3)];
end
% 如果最小生成树中的边数已经达到村庄数目减一，则停止搜索
if size(tree_edges, 1) == village_count - 1
break;
end
end
% 绘制道路图
figure;
plot(pos(:, 1), pos(:, 2), 'o', 'MarkerSize', 5, 'MarkerFaceColor', 'b', 'MarkerEdgeColor', 'b');
hold on;
for i = 1:size(tree_edges, 1)
u = tree_edges(i, 1);
v = tree_edges(i, 2);
plot([pos(u, 1), pos(v, 1)], [pos(u, 2), pos(v, 2)], 'k-', 'LineWidth', 1);
end
xlabel('横坐标（米）');
ylabel('纵坐标（米）');
title('连接村庄和医疗点的道路图');
根据参考资料，"disjointset"应该指的是并查集，而该错误信息提示未定义该函数名称。可能的原因有： 1. 代码中未导入并查集相关的库或文件。 2. 并查集相关的函数名称不是"disjointset"，而是其他名称。 针对这个问题，可以尝试以下几个解决方案： 1. 确认代码中是否导入了并查集相关的库或文件，如果没有，则需要添加相应的导入语句。 2. 确认并查集相关的函数名称是否为"disjointset"，如果不是，则需要修改代码中的函数调用部分，将名称修改为正确的名称。 如果还不行，可以考虑查找其他可能的原因。 关于如何使用并查集相关的函数，可以参考以下示例代码（以路径压缩和按秩合并为优化方式）：
% 初始化并查集
function p = init(n)
p = 1:n;
rank = zeros(1,n);
% 查询根节点
function root = find(p, i)
if p(i) == i
root = i;
else
root = find(p, p(i));
p(i) = root;
end
% 合并两个集合
function p = union(p, rank, i, j)
x = find(p, i);
y = find(p, j);
if x ~= y
if rank(x) < rank(y)
p(x) = y;
elseif rank(x) > rank(y)
p(y) = x;
else
p(x) = y;
rank(y) = rank(y) + 1;
end
end
其中，init函数用于初始化并查集，find函数用于查询节点的根节点，union函数用于合并两个集合，并进行路径压缩和按秩合并的优化。使用时，可以先调用init函数初始化一个包含n个节点的并查集，然后通过调用find函数查询节点的根节点，或者调用union函数合并两个集合。