Diff for ''

Revision 22
Author:
black
Time:
2022-11-11 20:34
Revision 1
Time:
2024-06-13 22:31
Deletions are marked like this. Additions are marked like this.
Line 1: Line 1:
{
 "Matematika": {
  "∩": "∩",
  "∪": "∪",
  "∧": "∧",
  "∨": "∨",
  "∞": "∞",
  "∑": "∑",
  "∏": "∏",
  "∈": "∈",
  "∉": "∉",
  "∅": "∅",
  "∀": "∀",
  "∃": "∃",
  "∄": "∄",
  "⇔": "⇔",
  "⇐": "⇐",
  "⇒": "⇒",
  "¬": "¬",
  "💡": "💡",
  "☀": "☀",
  "🎓": "🎓",
  "−": "−",
  "×": "×",
  "÷": "÷",
  "≈": "≈",
  "≠": "≠",
  "⊂": "⊂",
  "⊆": "⊆",
  "≡": "≡",
  "≅": "≅",
  "<": "<",
  ">": ">",
  "≤": "≤",
  "≥": "≥",
  "±": "±",
  "¹" : "¹",
  "₁" : "₁",
  "²" : "²",
  "₂" : "₂",
  "³" : "³",
  "₃" : "₃",
  "⁴" : "⁴",
  "⁵" : "⁵",
  "⁶" : "⁶",
  "⁷" : "⁷",
  "⁸" : "⁸",
  "⁹" : "⁹",
  "⁰" : "⁰",
  "½" : "½",
  "ᵢ" : "ᵢ",
  "ⱼ" : "ⱼ",
  "ₖ" : "ₖ",
  "ₘ" : "ₘ",
  "ₛ" : "ₛ"
 },
 "Greek": {
  "α" : "α",
  "β" : "β",
  "γ" : "γ",
  "δ" : "δ",
  "ε" : "ε",
  "θ" : "θ",
  "π" : "π",
  "ró" : "ρ",
  "σ" : "σ",
  "Gama" : "Γ",
  "χ" : "χ",
  "ω" : "ω",
  "Κ" : "Κ",
  "Σ" : "Σ"
 },
 "Symboly": {
  "−": "−",
  "—": "—",
  "°": "°",
  "′": "′",
  "″": "″",
  "←": "←",
  "→": "→",
  "↓": "↓",
  "↑": "↑",
  "„“" : "„“",
  "»«" : "»«",
  "#" : "#",
  "@" : "@",
  "|" : "|",
  "~" : "~",
  "&": "&",
  "§": "§",
  "•" : "•",
  "·": "·",
  "…" : "…",
  "€" : "€",
  "$" : "$"
 },
 "Diakritika": {
  "Æ" : "Æ",
  "æ" : "æ",
  "À" : "À",
  "à" : "à",
  "Â" : "Â",
  "â" : "â",
  "Ä" : "Ä",
  "ä" : "ä",
  "Å" : "Å",
  "å" : "å",
  "Ç" : "Ç",
  "ç" : "ç",
  "È" : "È",
  "è" : "è",
  "É" : "É",
  "é" : "é",
  "Ê" : "Ê",
  "ê" : "ê",
  "Ë" : "Ë",
  "ë" : "ë",
  "Î" : "Î",
  "î" : "î",
  "Ï" : "Ï",
  "ï" : "ï",
  "Ô" : "Ô",
  "ô" : "ô",
  "Ö" : "Ö",
  "ö" : "ö",
  "Ø" : "Ø",
  "ø" : "ø",
  "Ù" : "Ù",
  "ù" : "ù",
  "Û" : "Û",
  "û" : "û",
  "Ü" : "Ü",
  "ü" : "ü",
  "Ÿ" : "Ÿ",
  "ÿ" : "ÿ",
  "Œ" : "Œ",
  "œ" : "œ"
 }
}		 # Příklad do prologu

<{ForumPost(poster="wweennddeell", timestamp=2010-06-28 22:20:08)}>
Dobrý den,
  
potřeboval bych pomoct naprogramovat úlohu v prologu. Hledal jsem nějaké řešení na internetu, ale nic jsem nenašel a absolutně si s tím nevím rady.
  
Úloha zní takto: Na vstupu je zadán graf, který obecně není stromem. Napište program v jazyce Prolog, který vytiskne pro zadaný uzel grafu všechny cykly grafu, jichž je daný uzel prvkem.
  
Budu rád za každou Vaši pomoc...
<{/ForumPost}>

<{ForumPost(poster="H8me", timestamp=2010-06-29 17:12:28)}>
Zdarec,
co to to ? Je to pre orientovany graf.

    %graf je zoznam hran v tvare h(X,Y)
    
    vsetkyCykly(Hrany,X,Out):-findall(C,(cyklus(Hrany,X,X,[],C),length(C,Len),Len > 1),Out).
    
    cyklus(_,X,X,Akum,Akum).
    cyklus(Hrany,X,Y,Akum,Out):-member(h(Y,N),Hrany), not(member(N,Akum)), cyklus(Hrany,X,N,[N|Akum],Out).
    


<{/ForumPost}>

<{ForumPost(poster="wweennddeell", timestamp=2010-06-29 23:05:55)}>
Díky moc za snahu. Ten prolog je pro mě kámen úrazu.
  
Jestli sem to dobře pochopil, tak mám například tyto hrany:
  
h(b,c).
h(f,c).
h(g,h).
h(d).
h(f,b).
h(k,f).
h(h,g).
  
Co mám teda napsat za vstupní podmínku, aby mi prolog vypsal všechny cykly třeba uzlu f (i když v tomhle příkladu je pouze jeden cyklus).
  
Řešení sem našel na téhle stránce: [https://prof.ti.bfh.ch/hew1/informatik3/prolog/p-99/](https://prof.ti.bfh.ch/hew1/informatik3/prolog/p-99/) .Příklad P82 by měl být přesně ten, co hledám, bohužel vůbec nevím jak ten program mám z toho sestavit.
<{/ForumPost}>

<{ForumPost(poster="H8me", timestamp=2010-06-29 23:25:14)}>
Neviem co ma vyjadrovat h(d) ale ked to preskocim tak dotaz pre tvoj priklad by vyzeral takto:
  
vsetkyCykly(\[h(f,c),h(g,h),h(f,b),h(k,f),h(h,g)],f,Out).
  
Out je volna premenna, ta vrati zoznam cyklov.
  
A to riesenie co si postol funguje na tom istom principe, tiez vyhladava cesty v grafe zo zaciatkom aj koncom v tom istom bode.
<{/ForumPost}>

<{ForumPost(poster="Andrew24", timestamp=2015-01-12 13:58:54)}>
Mohl by mi prosím někdo poradit jak by to vypadalo kdyby se měly na konci vypsat všechny cykly jichž daný uzel **neni** prvkem? díky
<{/ForumPost}>