Browse Source

configurable cutoffs, gitignore

master
eta 3 months ago
parent
commit
7cef885a1d
  1. 8
      .gitignore
  2. 4
      trackernet.lisp

8
.gitignore

@ -6,3 +6,11 @@ intertube-scraper
*#
*.csv
trains*/*
*.dot
*.png
*.svg
*.tar
*.dat
*.jpeg
.#*
*.txt

4
trackernet.lisp

@ -1060,7 +1060,7 @@ Stop if *TRACKERNET-KILL-SWITCH* is set to T."
((> in max) top)
(t (expt base in))))
(defun write-track-links-graphviz (&optional (out *standard-output*))
(defun write-track-links-graphviz (&key (out *standard-output*) (cutoff 5))
"Write the track links out in graphviz format."
(princ "digraph {" out)
(format out "node [shape=box margin=\"0.1,0.1\"];
@ -1076,7 +1076,7 @@ layout = \"neato\";")
(if (eql (length value) 0)
'("???")
(bobbin:wrap (list value) 20))))
(multiple-value-bind (q1 q3) (track-links-quartiles :cutoff 5)
(multiple-value-bind (q1 q3) (track-links-quartiles :cutoff cutoff)
(let* ((base (calculate-exponential-base q3 3)))
(loop
for (a b) being the hash-keys of *track-links-set*

Loading…
Cancel
Save