lab12.tcl

来自「通过这个实验可以详细了解802.11b 所提供的吞吐量上限值 了解到哪些因素会影」· TCL 代码 · 共 14 行

# This script is created by NSG2 beta1
# <http://wushoupong.googlepages.com/nsg>

proc getopt {argc argv} {
	global opt
        lappend optlist nn
        for {set i 0} {$i < $argc} {incr i} {
		set opt($i) [lindex $argv $i]
	}
}

getopt $argc $argv

#opt(0):