在Prolog中查找实体之间的连接
，可以使用图搜索算法来实现。具体步骤如下：
- 定义实体之间的连接关系：在Prolog中，可以使用谓词来定义实体之间的连接关系。例如，如果有两个实体A和B之间存在连接关系，可以定义一个谓词connected(A, B)来表示。
- 构建图数据结构：根据实体之间的连接关系，可以构建一个图数据结构。在Prolog中，可以使用事实和规则来表示图的边。例如，如果有一个连接关系connected(a, b)，可以定义一个事实connected(a, b)。如果连接关系是可传递的，可以使用规则来定义。例如，如果a与b相连，b与c相连，则可以定义规则connected(X, Y) :- connected(X, Z), connected(Z, Y)。
- 实现图搜索算法：在Prolog中，可以使用递归来实现图搜索算法。可以定义一个谓词path(X, Y, Path)，表示从实体X到实体Y的路径。具体实现时，可以分为两种情况：
- 如果X与Y直接相连，即connected(X, Y)成立，则路径为X, Y。
- 如果X与Y不直接相连，可以通过一个中间实体Z来连接。可以递归地搜索从X到Z的路径和从Z到Y的路径，并将它们连接起来得到从X到Y的路径。
- 示例代码：
% 定义实体之间的连接关系
connected(a, b).
connected(b, c).
connected(c, d).
connected(d, e).
% 定义路径谓词
path(X, Y, [X, Y]) :- connected(X, Y).
path(X, Y, [X|Path]) :- connected(X, Z), path(Z, Y, Path).
% 示例查询
?- path(a, e, Path).在这个例子中，查询path(a, e, Path)将返回从实体a到实体e的路径。
相关·内容
2回答
Prolog中的图表示
list、graph、prolog、swi-prolog、adjacency-list
考虑下面的图表
下面的Prolog术语描述了这个问题：
graph([connected(a,[b,c]), connected(b,[a,c]), connected(c,[a,b,d]), connected(d,[c]) ]).
我想要定义一个谓词，它将上面的连接转换成对应对的列表。换句话说，为上述术语图生成[[a,b],[a,c],[b,c],[c,d]]的谓词。
你能告诉我怎么做吗？
到目前为止，我的尝试如下：
映射2-对的邻接顶点：
map2ne(adjacent(H,[K|T]),Pair) :-
append([H],[K],L),
append([H
浏览 1提问于2021-12-03得票数 1
回答已采纳
1回答
Prolog，点之间的节数
prolog
我在Prolog中有一项任务要做。这似乎很容易，但我在这种语言方面真的是新手，我无法适应它。
我必须编写一个函数path_L(a,z,N)，其中a,z -边是一个“路”，N是我正在寻找的变量。因此，定义单向方向的边有很多：edge(a,b)、edge(b,c)、edge(b,d)、edge(e,f)等。path_L函数的目的是给出一个结果，即(a,z)之间以N=result形式出现的节数。因此，例如：
path_L(a,b,N). -> N=1
path_L(a,c,N). -> N=2
我已经定义了另一个函数，定义(X，Y)之间是否存在路径：
path(X,Y):-edge(X,
浏览 0提问于2015-10-12得票数 0
回答已采纳
1回答
图Prolog中的长度和路径(避免循环的无限递归)
recursion、path、prolog、graph-theory、transitive-closure
node(a).
node(b).
node(c).
node(d).
node(e).
node(f).
node(g).
node(h).
edge(a,b).
edge(b,c).
edge(c,a).
edge(c,e).
edge(c,d).
edge(d,e).
edge(d,h).
edge(e,g).
edge(g,e).
edge(e,f).
edge(f,g).
parent(X,Y):-edge(X,Y).
child(X,Y):-parent(Y,X).
path(X,Y):-edge(X,Y).
path(X,Y):-edge(X,Z),path(Z,Y).
pat
浏览 11提问于2019-02-16得票数 0
2回答
如何在prolog中使用递归算法串行打印图形路径
prolog
以下是我的代码：
edge(a,b).
edge(b,d).
edge(a,c).
edge(c,e).
path(X,Y):-edge(X,Y),write(X),write(Y).
path(X,Y):-edge(X,Z),path(Z,Y),write(X),write(Z),write(Y).
Output:
?- path(a,e).
ceace
true
但我只想印出我想要的路。我的图的初始状态"a“和目标状态"e”。但是现在我有了天花板，但我想要ace或eca。
浏览 0提问于2019-08-21得票数 0
1回答
在prolog中多次避免相同的答案
prolog
所以我有这个无向图要遍历，我应该找到所有与给定顶点相连的眩晕。
edge(a, b).
edge(b, c).
edge(c, d).
edge(d, e).
edge(e, f).
edge(f, d).
edge(d, g).
edge(g, f).
edge(g, h).
edge(h, i).
edge(i, j).
edge(j, d).
edge(d, k).
edge(l, m).
edge(m, n).
undirectedEdge(X, Y) :- edge(X, Y).
undirectedEdge(X, Y) :- edge(Y, X).
connected(X, Y
浏览 3提问于2019-12-27得票数 3
回答已采纳
1回答
Prolog中的写入函数
prolog
我正在使用SWI Prolog。我希望定义一个add函数：add(X, Y)，它返回X和Y的总和。但是，我不知道如何在Prolog中定义函数。我试着使用谓词这样做：
add(X, Y, Z) :- Z is X+Y.
但是，在执行表单add(2, 3, X)的查询时，会出现一个错误，即：
错误: toplevel:未定义的过程: add/3 (DWIM无法更正目标)
此外，在编写规则时，我无法理解:-和:=之间的区别。我在某些地方读到，:-用于定义谓词，而:=用于定义函数。我不确定这是否正确。我尝试使用:=来定义函数，但它不起作用。
浏览 2提问于2016-11-26得票数 8
1回答
用Prolog求无圈图的路径长度
prolog、directed-acyclic-graphs
好的，我有一张图：
我希望能够创建一条规则来查找从X到Y的所有路径及其长度(边数)。例如，从a到e的另一条路径通过d、f和g存在，其长度为4。
到目前为止，我的代码如下所示：
edge(a,b).
edge(b,e).
edge(a,c).
edge(c,d).
edge(e,d).
edge(d,f).
edge(d,g).
path(X, Y):-
edge(X, Y).
path(X, Y):-
edge(X, Z),
path(Z, Y).
我有点不确定我应该如何处理这个问题。我在其中输入了很多不起作用的规则，现在我感到困惑。所以，我想我应
浏览 12提问于2020-11-13得票数 0
回答已采纳
1回答
图中从X到Y的两条不同路径
prolog、graph-theory、prolog-dif
我被以下的Prolog问题所困扰:给定一个没有圈的图的边作为事实。例如：
edge(a, b).
edge(b, c).
edge(c, d).
edge(c, e).
...
我必须写一个谓词来测试顶点X和Y之间是否有两条不同的路径。例如，如果从节点a到节点c有两条不同的路径，则调用two_paths(a, c).应该返回true。我知道如何检查两个顶点之间是否有路径：
path(X, Y) :- edge(X, Y).
path(X, Y) :- edge(X, Z), path(Z, Y).
但是，我应该如何检查两个不同的路径呢？非常感谢你的帮助。
浏览 10提问于2017-01-23得票数 2
回答已采纳
1回答
在prolog中，为什么不添加"edge(X，Y) :- edge(Y，X)“。单独用于将有向图定义转换为无向图的工作
prolog、transitive-closure、failure-slice
我只是在学习Prolog，我正在复习课堂讲稿，所有的笔记都说：
给出了有向图的以下定义：
path(X, Y) :- edge(X, Y).
path(X, Y) :- edge(X, Z), path(Z, Y).
如果我们想让这成为一个无向图，那么仅仅定义edge(X, Y) :- edge(Y, X).是行不通的，我也不知道为什么。如果Y到X有一个边，则X到Y有一个边。对我来说似乎很有意义。
注释并没有真正说明原因，但它确实定义了正确的解决方案是：
edge1(X, Y) :- edge(X, Y).
edge1(X, Y) :- edge(Y, X).
为了我们已经拥有的一切。
有人
浏览 2提问于2014-04-14得票数 6
回答已采纳
3回答
Prolog递归-满足两个方向(简单)
recursion、prolog、transitive-closure
我对Prolog非常陌生，我被分配了这个任务。
我的代码如下：
relatives(cindy,tanya).
relatives(tanya,alan).
relatives(alan,mike).
relatives(kerry,jay).
relatives(jay,alan).
isRelated(X,Y):-
relatives(X,Y).
isRelated(X,Y):-
relatives(X,Z),
isRelated(Z,Y).
很简单。这表明，如果：
?- isRelated(cindy,mike).
Prolog将返回true。现在，我陷入了如何
浏览 3提问于2012-02-23得票数 3
3回答
用prolog遍历无向图
prolog、graph-theory
简而言之:我正在尝试用prolog遍历一个无向图，但不知道如何去做，任何建议都将不胜感激。
背景：
尝试建模铁路系统，以车站为节点，其连接为权重为1的边。
我可以用有向图的方式来做，但不能在无向图中做。
一般来说，我从网上了解到无向图是通过以下方式声明的：
node(1).
node(2).
node(3).
node(4).
node(5).
node(6).
arc(1,2):-node(1),node(2),1==2.
arc(1,4):-node(1),node(4),1==4.
arc(2,3):-node(2),node(3),2==3.
arc(3,5):-node(3),no
浏览 0提问于2010-10-20得票数 2
1回答
Prolog:图中查找路径的子句顺序
prolog
我有一个包含入口和退出节点的循环图，我想找出从任何入口到任何退出节点的所有路径。
entry(a).
exit(e).
exit(f).
next(a, b).
next(b, c).
next(b, d).
next(c, e).
next(d, f).
/* Cycle */
next(c, d).
next(d, b).
/* path(entrynode, exitnode, pathtrace) */
path(X, Y, P) :- entry(X), path2(X, Y, P).
path2(X, Y, [Y]) :- next(X, Y), exit
浏览 0提问于2018-11-26得票数 0
回答已采纳
2回答
用Prolog实现简单的图搜索
prolog
我正在尝试用SWI-Prolog编写一个简单的图搜索。我想出了以下程序：
adjacent(1,4). adjacent(4,2). adjacent(3,6).
adjacent(6,4). adjacent(7,10). adjacent(4,9).
adjacent(5,10). adjacent(7,10). adjacent(7,12).
adjacent(6, 11). adjacent(13,11). adjacent(9,14).
adjacent(14,12). adjacent(10,15). adjacent(9,12).
connected(X,Y) :- adjac
浏览 0提问于2009-10-22得票数 1
回答已采纳
1回答
如何用Prolog在图上找到所有连通的城市？
prolog
项目应检查两个给定城市之间是否有一条直接路线。或者，它可以列出给定城市的所有连接城市。
我的解决办法是：
我留着一张我去过的城市的清单。如果下一个城市不是我来自的城市，下一个城市的名字不在列表上，我让你按下屏幕。
我的代码是：
% knowledge base
path(newyork,losangeles).
path(losangeles,newyork).
path(losangeles,chicago).
path(chicago,losangeles).
path(chicago,houston).
path(houston,chicago).
path(hous
浏览 2提问于2016-12-12得票数 1
回答已采纳
1回答
Prolog迷宫停止循环
loops、prolog、maze
我已经成功地拼凑了一个脚本，它遍历所有的链接并将它们显示给我，但是我似乎不明白为什么有一个链接，整个脚本循环到无穷大。如果您删除下面的链接，程序将工作；
link(f,c).
下面是完整脚本的代码；
link(a,b).
link(a,b).
link(b,c).
link(c,d).
link(f,c).
link(b,e).
link(d,e).
link(e,f).
path(X,Y,[X,Y]):-link(X,Y).
path(X,Y,[X|R]):-link(X,Z),path(Z,Y,R).
route(X,Y,T):-find_route(X,Y,[],T).
find_r
浏览 2提问于2014-12-08得票数 0
回答已采纳
1回答
prolog -检查结果后写出结果
recursion、printing、prolog、conditional-statements、graph-theory
我一直在写代码，以便我能够搜索图形中是否有路径，如果有，我想打印出路径，如果有，我想打印出所有的路径。我有一个条件，如果谓词为真，则写入路径，但它从不打印，我应该如何处理？
%graph
edge(a,b).
edge(a,c).
edge(b,c).
edge(c,d).
edge(c,e).
edge(d,e).
edge(f,g).
edge(g,h).
% condition
allways(X,Y) :-
edge(X,Y).
% recursion
allways(X,Y) :-
edge(X,B),
allways(B,Y).
%print out path if
浏览 0提问于2017-10-03得票数 1
2回答
Prolog中复项的概念问题
prolog
我在大学刚开始学习Prolog，我有一个概念问题，我找不到任何具体的答案：
我想把这门语言的“哲学”内化，所以我想非常精确地理解什么是复杂术语(或复合术语)。到目前为止，我已经读到了一个复杂的术语是函子，它是。我可以使用这样的复杂术语来构建一个知识库：
love(john, sarah).
让我们说，现在，我可以输入任何可能的字符串对作为“爱”的论点，这将是假的，除非字符串对是“约翰，莎拉”。对，一个函子的“问题”和它的论点，是对的还是假的，如果我在我的知识库中特别说过，或者Prolog可以从他使用规则、统一等信息推断它。
好的，因为在这里，我理解一个复杂的术语说n个实体之间的关系是真假。我不
浏览 4提问于2017-03-11得票数 6
回答已采纳
1回答
Prolog中的有向图
path、prolog、graph-theory、transitive-closure
请有人详细说明旅行(A，B，访问，路径)和旅行(A，B，P，B=P)的功能/条件。此代码在图中查找路径A和B之间的路径。
edge(a,b).
edge(b,c).
edge(b,d).
edge(c,d).
edge(d,b).
edge(e,f).
edge(e,g).
edge(e,h).
edge(h,i).
edge(i,g).
edge(b,e).
connectedEdges(X,Y) :- edge(X,Y).
connectedEdges(X,Y) :- edge(Y,X).
path(A,B,Path) :-
travel(A,B,[A],Q),
浏览 3提问于2016-10-16得票数 1
回答已采纳
1回答
Prolog，置换码理解
list、prolog
我正在努力理解程序是如何工作的。
Daniel Lyons解决方案中的代码(来自上面的链接)
takeout(X,[X|R],R).
takeout(X,[F |R],[F|S]) :- takeout(X,R,S).
perm([X|Y],Z) :- perm(Y,W), takeout(X,Z,W).
perm([],[]).
我试着理解这个列表[1,2,3]是如何工作的，所以，我有perm([1,2,3],X).
首先很容易理解，然后是Y = [2,3]，然后是Y = [3]，然后是Y = []
在那之后，perm([],[]).被调用，它给了我们W = []
现在，第一次调用
浏览 2提问于2015-11-13得票数 0
回答已采纳
2回答
遍历图(可能有循环)并返回Prolog中的路径
list、prolog、transitive-closure
我得到了一个弧线列表：
arc(a,b).
arc(b,c).
arc(c,d).
arc(d,b).
arc(d,e).
arc(e,e).
arc(e,f).
我已经编写了一组子句，它将告诉我是否存在从节点X到节点Y的路径。循环可能会发生，我已经说明了这一点。
path(X,Y) :-
arc(X,Y).
path(X,Y) :-
arc(X,Z),
path(Z,Y,[X]).
path(X,Y,P) :-
arc(X,Y).
path(X,Y,P) :-
\+ member(X,P),
arc(X,Z),
append([X],
浏览 0提问于2010-10-11得票数 2
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
即时通信 IM
ICP备案
对象存储
实时音视频活动推荐
腾讯云开发者
