per1.dat

prolog,人工智能推理程序,运行环境prolog

base1(1,1,2,0)
base1(2,1,3,0)
base1(3,1,0,12)
base(1,1,">",2,0)
base(2,2,"<",3,0)
base(3,1,"<",3,0)
base(4,1,">",2,0)
base(5,1,">",3,0)
base(6,1,"<",2,0)
base(7,1,"<",3,0)
base(8,1,"<",2,0)
base(9,1,"<",3,0)
rule("tp",[1,2],0,[[1,2,3],[1,3]])
rule("tp",[1,3],3,[[1,3]])
rule("PER",[1],1,[[8,9]])
question("tp",[1],1,[[1,2]])
result(1,"高高高1")
result(2,"海海海海海2")
result(3,"号号号号号号3")
totels(9)
rel(1,"产品质量合格")
rel(2,"种子产品力")
rel(3,"学行行行")
rel(4,"cccc4")