S = fileread (“dolphins.gml”);
节点= regexp(年代,“节点。* ?id (? < id > \ d +)。* ?标签\ s *”(? <标记> [^]*)”,“名字”);
边缘= regexp(年代,“边缘。* ?来源\ s *(? <源> \ d +)。* ?目标\ s *(? <目标> \ d +) ',“名字”);
all_ids = {nodes.id};
all_names = {nodes.label};
all_sources = {edges.source};
all_targets = {edges.target};
[source_found s] = ismember (all_sources all_ids);
nfidx =找到(~ source_found);
如果~ isempty (nfidx)
错误(的源id在节点列表中没有发现,从“% s”边(nfidx (1) .source));
结束
[target_found t] = ismember (all_targets all_ids);
nfidx =找到(~ target_found);
如果~ isempty (nfidx)
错误(的目标id在节点列表中没有发现,从“% s”边(nfidx (1) .target));
结束
EdgeTable =表([s。”,t。'],(长度(s), 1),“VariableNames”,{“EndNodes”“重量”});
NodeTable =表(all_names。’,“VariableNames”,{“名字”});
图G = (EdgeTable NodeTable);
情节(G);
