#! /usr/bin/tclsh# $Id: make-vary-density.tcl,v 1.1.1.1 2000/08/28 18:40:17 jinyang Exp $# usage: make-vary-density.tcl  <ns-dir># produces directory hierarchy of cbr and scen for varying density but# constant area scripts with paths in the following format:# ./cbr/num-nodes/pkts-per-conn/num-conn # ./scen/num-nodes/side-len/max-spd# num-conn is either 3n (each node connects to 3 others) or nn (each# node connects to every other node)# traffic is generated to occur between 10 and 400 seconds; the# `empty' 10 seconds in the beginning allows the routing protocols and# location service etc. to initialize.set currdir [exec pwd]set length 1000set area [expr $length * $length]# density is nodes / m^2set min_density 2.5e-5set max_density 1e-3set step_density 2.5e-5 set nsdir [lindex $argv 0]set ns "$nsdir/ns"set cbrgen_nn "$nsdir/cmu/scripts/cbrgen-nn.tcl"set cbrgen_cn "$nsdir/cmu/scripts/cbrgen-cn.tcl"set rate 4.0set c 3set setdest "$nsdir/cmu/setdest/setdest"set pkt_lengths { 6 }set max_speeds { 10 }	proc make_cbr_files { n } {    global currdir    global pkt_lengths    if { ! [ file exists "$currdir/cbr" ] } { exec mkdir "$currdir/cbr" }    if { ! [ file exists "$currdir/cbr/$n" ] } { exec mkdir "$currdir/cbr/$n" }    foreach num_pkts $pkt_lengths {	set pkt_dir "$currdir/cbr/$n/$num_pkts"	if { ! [ file exists $pkt_dir ] } { exec mkdir $pkt_dir }	global ns	global cbrgen_nn	global cbrgen_cn	global rate	global c	exec $ns $cbrgen_nn -type cbr -nn $n -seed env(RANDOM) -rate $rate -numpackets $num_pkts > $pkt_dir/nn	exec $ns $cbrgen_cn -type cbr -nn $n -seed env(RANDOM) -rate $rate -numpackets $num_pkts -c $c > $pkt_dir/${c}n    }}proc make_scen_files { n length } {    global currdir    global max_speeds    global setdest    if { ! [ file exists "$currdir/scen" ] } { exec mkdir "$currdir/scen" }    if { ! [ file exists "$currdir/scen/$n" ] } { exec mkdir "$currdir/scen/$n" }    if { ! [ file exists "$currdir/scen/$n/$length" ] } { exec mkdir "$currdir/scen/$n/$length" }    set cbr_dir "$currdir/scen/$n/$length"    foreach speed $max_speeds {	catch {	    exec $setdest -n $n -t 300 -x $length -y $length -p 0 -s $speed > "$cbr_dir/$speed"	}    }}if { ! [ file exists "scen" ] } { exec mkdir "scen" }    for { set target_density $min_density } { $target_density <= $max_density } { set target_density [expr $target_density + $step_density] } {    puts "target density is $target_density"    set n [expr $target_density * $area]    set n [ expr int($n) ]    make_cbr_files $n     make_scen_files $n $length}