this script will create random topology for random no. of nodes , for
random movement and at random amount of time........
i think this was what u need.....
set min 5.0 #min value
set max1 480.0 #max val of time
set max2 990.0 # x-coordinat
set max3 990.0 #y-coordinate
set max4 20.0 #max mobility
set max5 39 #no of node==40
proc value {min max1} {
return [expr {int(rand()*($max1+1))}]
}
proc value_x {min max2} {
return [expr {int(rand()*($max2+1))}]
}
proc value_y {min max3} {
return [expr {int(rand()*($max3+1))}]
}
proc value_z {min max4} {
return [expr {int(rand()*($max4+1))}]
}
proc node_x {min max5} {
return [expr {int(rand()*($max5+1))}]
}
for {set t 0} {$t < 100 } { incr t } {
$ns at [value $min $max1] "$node_([node_x $min $max5]) setdest [value_x $min
$max2] [value_y $min $max3] [value_z $min $max4]"
}
On 3/22/07, Vijay Kumar c <[EMAIL PROTECTED]> wrote:
>
>
> Hi ns users,
>
> Can anyone send me a wireless script which uses Node Movement and Topology
> Generation & Traffic Pattern Generation which uses the setdest tool and
> cbrgen traffic there are some errors when i run Marc Greis tutorial script
> *
> wireless1.tcl* can anybody send any other script other than wireless1.tclby
> which i can include the Node Movement and Topology Generation & Traffic
> Pattern Generation file so that i can run the script in my PC.
>
> Plz try to attach or paste the tcl script in your e-mail
>
> Plz help me your valuble suggesstions and comments are always welcome.
>
> Thanks and Reg:
> Vijay
>
--
Shailesh Gamit
M.Tech (CSE),
Nirma Institute of Technology,
Ahmedabad, India
