scolobb
/
dds
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

networks: Add random-network, random-boolean-network, random-boolean-networks/vars.

This commit is contained in:
Sergiu Ivanov 2020-03-22 18:40:50 +01:00
parent 75b19c7977
commit 5fd16e4465
1 changed files with 18 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
networks.rkt
View File

@ -539,3 +539,21 @@
;;; variables appearing in the state.
(define (random-boolean-function/state args)
(random-function/state (make-boolean-domains args) '(#f #t)))
;;; Generates a random network from the given domain mapping.
(define/contract (random-network domains)
(domain-mapping/c . -> . network?)
(for/hash ([(x x-dom) (in-hash domains)])
(values x (random-function/state domains x-dom))))
;;; Generates a random Boolean network with the given variables.
(define/contract (random-boolean-network vars)
((listof variable?) . -> . network?)
(random-network (make-boolean-domains vars)))
;;; Like random-boolean-network, but also generates the names of the
;;; variables for the network. The variables have the names x0 to xk,
;;; where k = n - 1.
(define/contract (random-boolean-network/vars n)
(number? . -> . network?)
(random-boolean-network (for/list ([i (in-range n)]) (string->symbol (format "x~a" i)))))