go.dedis.ch/onet/v4@v4.0.0-pre1/simul/platform/deterlab_users/cothority.ns (about)

     1  set ns [new Simulator]
     2  source tb_compat.tcl
     3  
     4  set server_count 30
     5  set server_delay 100ms
     6  set lanstr ""
     7  
     8  # There is no real benefit for modifying this for a special case of 1 client
     9  
    10  for {set i 0} {$i < $server_count} {incr i} {
    11          set server($i) [$ns node]
    12             #tb-set-hardware $server($i) dl380g3
    13             #tb-set-hardware $server($i) MicroCloud
    14             tb-set-hardware $server($i) pc2133
    15          tb-set-node-os $server($i) Ubuntu1404-64-STD
    16          append server_lanstr "$server($i) "
    17  }
    18  
    19  
    20  tb-use-endnodeshaping 1
    21  set serverlan [$ns make-lan "$server_lanstr" 144Mb $server_delay]
    22  
    23  for {set i 0} {$i < $server_count} {incr i} {
    24          tb-set-ip-lan $server($i) $serverlan 10.255.0.[expr {$i + 1}]
    25  }
    26  
    27  $ns rtproto Static
    28  $ns run