-
Notifications
You must be signed in to change notification settings - Fork 0
/
Prolog_Queries.txt
68 lines (51 loc) · 2.92 KB
/
Prolog_Queries.txt
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
Para mudar o diretório de trabalho:
- working_directory(_, 'novo').
Para importar o dataset do arquivo filmes.pl:
- consult(filmes).
*O prolog não reconhece alguns caracteres como ü, então é preciso mudar dois dados do dataset:
- Linha 1236: ator(the_da_vinci_code, jürgen_prochnow, andre_vernet).
- Linha 4363: nome(jürgen_prochnow, 'Jürgen', 'Prochnow').
Para exportar arquivos csv:
- use_module(library(csv)).
Para retornar os filmes para o arquivo movies.csv:
- findall(row(M, R, T, D), (filme(M, R), tit_dur(M, T, D)), Rows), csv_write_file('movies.csv', Rows).
Usando o plugin Cellfie do protege, importar o arquivo movies.xls, selecionar todos os registros e adicionar a regra:
- Individual: @A*
Types: Filme
Facts: dataEstreia @B*(xsd:integer), titulo @C*(xsd:string), duracao @D*(xsd:integer)
*Para os atores e atrizes é feita uma concatenação entre os campos Nome-Filme-Personagem para criar um campo de indivíduo Atuacao único.
Para retornar os atores para o arquivo actor.csv:
- findall(row(Am, F, P, Fn, Ln, At), (ator(F, Am, P), nome(Am, Fn, Ln), atom_concat(Am, F, X), atom_concat(X, P, At)), Rows), csv_write_file('actor.csv', Rows).
Usando o plugin Cellfie do protege, importar o arquivo actor.xls, selecionar todos os registros e adicionar a regra:
- Individual: @A*
Types: Ator
Facts: firstName @D*(xsd:string), familyName @E*(xsd:string), gender "male"
- Individual: @C*
Types: Personagem
-Individual: @F*(mm:hashEncode)
Types: Atuacao
Facts: temAtor @A*(xsd:string), noFilme @B*(xsd:string), comoPersonagem @C*(xsd:string)
Para retornar as atrizes para o arquivo actress.csv:
- findall(row(Af, F, P, Fn, Ln, At), (atriz(F, Af, P), nome(Af, Fn, Ln), atom_concat(Af, F, X), atom_concat(X, P, At)), Rows), csv_write_file('actress.csv', Rows).
Usando o plugin Cellfie do protege, importar o arquivo actor.xls, selecionar todos os registros e adicionar a regra:
- Individual: @A*
Types: Ator
Facts: firstName @D*(xsd:string), familyName @E*(xsd:string), gender "female"
- Individual: @C*
Types: Personagem
-Individual: @F*(mm:hashEncode)
Types: Atuacao
Facts: temAtor @A*(xsd:string), noFilme @B*(xsd:string), comoPersonagem @C*(xsd:string)
Para retornar os diretores para o arquivo director.csv:
- findall(row(D, F, Fn, Ln), (diretor(F, D), nome(D, Fn, Ln)), Rows), csv_write_file('director.csv', Rows).
Usando o plugin Cellfie do protege, importar o arquivo director.xls, selecionar todos os registros e adicionar as regras:
- Individual: @A*
Types: Diretor
Facts: firstName @C*(xsd:string), familyName @D*(xsd:string), dirige @B*
- Individual: @B*
Types: Filme
Facts: dirigidoPor @A*
Links úteis:
- https://github.com/protegeproject/cellfie-plugin/wiki/Grocery-Tutorial
- https://stackoverflow.com/questions/44773889/add-multiple-individual-at-once-in-protege
- https://stackoverflow.com/questions/27320819/write-data-to-csv-file-from-swi-prolog-code