networks: Add tbn?.
This commit is contained in:
parent
63029af82f
commit
5c0bb0ddbb
1 changed files with 8 additions and 0 deletions
|
@ -917,3 +917,11 @@
|
||||||
;;; where k = n - 1.
|
;;; where k = n - 1.
|
||||||
(define (random-boolean-network/vars n)
|
(define (random-boolean-network/vars n)
|
||||||
(random-boolean-network (for/list ([i (in-range n)]) (string->symbol (format "x~a" i)))))
|
(random-boolean-network (for/list ([i (in-range n)]) (string->symbol (format "x~a" i)))))
|
||||||
|
|
||||||
|
|
||||||
|
;;; ===================
|
||||||
|
;;; TBF/TBN and SBF/SBN
|
||||||
|
;;; ===================
|
||||||
|
|
||||||
|
;;; A TBN is a network form mapping TBFs to variables.
|
||||||
|
(define tbn? (hash/c variable? tbf?))
|
||||||
|
|
Loading…
Reference in a new issue