[ns] Question about the cbrgen.tcl

[Liang Qin <lqin@sce.carleton.ca>]

Hi ns-users:

I tried to use cbrgen.tcl to generate CBR connection, according to readme, I
typed:

>ns cbrgen0.tcl -type cbr -nn 50 -seed 1 -mc 20 -rate 4

i got  "invalid sending rate 0 " error, (if I set rate greater than 1, error
occured, but it's fine for rate less than 1). I checked the code:
---
   set opt(interval) [expr 1 / $opt(rate)]
    if { $opt(interval) <= 0.0 } {
	puts "\ninvalid sending rate $opt(rate)\n"
	exit
    }
---
When rate gretaer than 1, I can see $opt(interval) will be 0 (print it out on
the screen).

Have i done something wrong here?

Liang Qin