From 21e2adeb5fbf3e1c731e8dffa0ab0ad6c391b1c3 Mon Sep 17 00:00:00 2001
From: Jonas Smedegaard <dr@jones.dk>
Date: Sun, 26 May 2024 10:34:44 +0200
Subject: add make target view-learn_tentacular-rdfs-graf; greatly improve
 ontology learn10tac

---
 Makefile             |  5 ++-
 learn/tentacular.sdm | 96 +++++++++++++++++++++++++++++-----------------------
 2 files changed, 58 insertions(+), 43 deletions(-)

diff --git a/Makefile b/Makefile
index 55b24a0..5251ce5 100644
--- a/Makefile
+++ b/Makefile
@@ -158,7 +158,7 @@ $(ARTICLES:%=%/b.tex): %/b.tex:
 %/uml.svg: %/core.sdm
 	sdml draw --diagram uml-class -i $< -f svg -o $@
 
-%/core.ttl: %/core.sdm
+%.ttl: %.sdm
 	sdml convert -i $< -f rdf -o $@ --no-color
 
 %/core.puml: %/core.ttl %/prefixes.ttl
@@ -195,6 +195,9 @@ $(ONTOLOGIES:%=view-%-uml-diagram): view-%-uml-diagram: %/uml.svg
 $(ONTOLOGIES:%=view-%-rdfs-graf): view-%-rdfs-graf: %/core.ttl
 	rdfs2dot -f turtle $< | xdot -
 
+view-learn_tentacular-rdfs-graf: learn/tentacular.ttl
+	rdfs2dot -f turtle $< | xdot -
+
 #$(ONTOLOGIES:%=view-%-puml-diagram): view-%-puml-diagram: %/core.svg
 #	inkview $<
 $(ONTOLOGIES:%=view-%-puml-diagram): view-%-puml-diagram: %/core.png
diff --git a/learn/tentacular.sdm b/learn/tentacular.sdm
index 40ef1dd..17a963f 100644
--- a/learn/tentacular.sdm
+++ b/learn/tentacular.sdm
@@ -1,6 +1,6 @@
 module learn_tentacular learn10tac <https://thoughtroam.abcdefghijklmnopqrstuvxyzæøå.dk/learn/tentacular#> is
 
-  import [ dc skos xsd ]
+  import [ dc learn skos xsd ]
 
   @skos:prefLabel = "Tentacular Learning Ontology"@en
   @dc:description = "Domain-specific ontology for Tentacular Learning as defined by Ernst Schraube"@en
@@ -8,74 +8,86 @@ module learn_tentacular learn10tac <https://thoughtroam.abcdefghijklmnopqrstuvxy
   @dc:creator = <https://dr.jones.dk/me/#me>
   @dc:license = <https://spdx.org/licenses/AGPL-3.0-or-later>
 
-  ;; Illeris
-  entity Learner is
+  structure WorldingPracticeLearning is
+    @skos:prefLabel = "Learning as a Worlding Practice"@en
+    @skos:prefLabel = "Læring som en verdeningspraksis"@da
+    @dc:description = "The process of learning viewed as an affinitive dialogue with the surrounding world"@en
+    @dc:description = "Læringsproces anskuet som en gensidig dialog (affinitet) med den omkringliggende verden"@en
+    @rdfs:subClassOf = learn:Process
+    @rdfs:disjointWith = BisectedLearning
+    isPracticedBy -> learn:Learner
+    isModulatedBy -> Mode
+    involvesMovement -> Movement
+  end
+
+  entity TentacularLearning is
+    @rdfs:subClassOf = learn:Cognition
+    identity id -> unknown
+  end
+
+  entity Reason is
     identity id -> unknown
 
-    receives -> Teaching
-    establishes -> Learning
+    affectsMode -> Mode
   end
 
-  entity Teacher is
+  entity ExpansiveReason is
+    @rdfs:subClassOf = Reason
     identity id -> unknown
 
-    facilitates -> Learning
-    teaches -> Teaching
+    causesExpansiveMode -> ExpansiveMode
   end
 
-  entity Material
+  entity DefensiveReason is
+    @rdfs:subClassOf = Reason
+    identity id -> unknown
 
-  structure Learning is
-    strengthenedBy -> Motivation
-    weakenedBy -> Distraction
+    causesDefensiveMode -> DefensiveMode
   end
 
-  structure Teaching is
-    differentFrom -> Learning
+  entity Mode is
+    identity id -> unknown
+
+    reasonedBy -> Reason
+    affectsMovement -> Movement
   end
 
-  entity School
+  entity ExpansiveMode is
+    @rdfs:subClassOf = Mode
+    identity id -> unknown
+
+    stimulatesAffinitiveMovement -> AffinitiveMovement
+  end
 
-  ;; the "what"
-  entity Goal
+  entity DefensiveMode is
+    @rdfs:subClassOf = Mode
+    identity id -> unknown
 
-  ;; the "why"
-  structure Motivation is
-    type -> MotivationType
-    motivatedBy -> Motivator
+    stimulatesDefinitiveMovement -> DefinitiveMovement
   end
 
-  enum MotivationType of
-    Defensive
-    Expansive
+  entity Movement is
+    identity id -> unknown
+
+    affectsResultingLearning -> TentacularLearning
   end
 
-  ;; the "how"
-  structure Movement is
-    type -> MovementType
+  entity AffinitiveMovement is
+    @rdfs:subClassOf = Movement
+    identity id -> unknown
+
+    DeepensLearning -> TentacularLearning
   end
 
-  enum MovementType of
-    Affinitive
-    Definitive
+  entity DefinitiveMovement is
+    @rdfs:subClassOf = Movement
+    identity id -> unknown
   end
 
   ;; the "evaluation"
   entity Evaluation
 
-  entity Motivator
-; affectsMotivation
-
-  entity Method
-
-  entity Expectation
-
   entity Prelearned
 
 ;  entity World
-
-  entity
-
-  entity
-
 end
-- 
cgit v1.2.3