[Moose-dev] RTGradualDSM

Hi All! We have introduced RTGradualDSM in Roassal. Simple example on numerical values: =-=-=-==-=-=-==-=-=-==-=-=-==-=-=-= dsm := RTGradualDSM new. values := { 1->#(2 3 1 5 6) . 2 -> #(1 2 1 1 1 1 4) . 3 -> #(1 2 5 3 2) . 4 -> #(2 5 1) . 5 -> #() . 6 -> #(4) } asDictionary. dsm objects: (1 to: 6). dsm score: [ :assoc | (values at: assoc key) occurrencesOf: assoc value ]. dsm =-=-=-==-=-=-==-=-=-==-=-=-==-=-=-= Example showing code authorship in the Glamour application: =-=-=-==-=-=-==-=-=-==-=-=-==-=-=-= classes := GLMLoggedObject withAllSubclasses. classesToAuthors := (classes collect: [ :cls | cls -> ((cls methods collect: #author) asSet sortedAs: #yourself) ]) asDictionary. authors := (classesToAuthors values flatCollect: #yourself) asSet sortedAs: #yourself. authorsToClasses := (authors collect: [ :anAuthor | anAuthor -> (classesToAuthors associations select: [ :as | as value includes: anAuthor ] thenCollect: #key) ]) asDictionary. b := RTGradualDSM new. b objectsX: classes. b objectsY: authors. b score: [ :assoc | (assoc value methods collect: #author) occurrencesOf: assoc key ]. b =-=-=-==-=-=-==-=-=-==-=-=-==-=-=-= Merry Christmas to all! Cheers, Alexandre -- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.