[ns] Agregated Web Traffic - your opinion needed

[Rafal Wielicki <rafal@thalassa.iopan.gda.pl>]

Hi
I included part of TCL code which produces (I hope) agregated web
traffic between $SRC & $DST. Is there anyone who can judge my idea ?
Thanks in advance.
R.W.
PS: All variables are defined in main file.
---------cut here ----------
set packetSize 1500
set sources 30
set cir [ expr $sources*106250*0.95 ]
set cbs 60000
set ebs 42000
set node 11

    set Sr($node) [$ns node]
    set lab [format "Klient%d" $node]
    $Sr($node) label $lab
set SRC $Sr($node)
set DST $Ds(3)
# POLICY
    AddPolicy $qBxC(1) $SRC $DST TokenBucket 30 $cir $cbs $ebs
    AddPolicy $qBxC(5) $DST $SRC TokenBucket 30 $cir $cbs $ebs

# Linki
    $ns duplex-link $SRC $B1 $CustLRate 1ms DropTail
    $ns duplex-link-op $SRC $B1 orient down-right
#------------------------------------------------------------------------------

    set pool($pool_num) [new PagePool/WebTraf]
    $pool($pool_num) set-num-client 1
    $pool($pool_num) set-num-server 1
    $pool($pool_num) set-num-session $sources
    $pool($pool_num) set-client 0 $SRC
    $pool($pool_num) set-server 0 $DST
    $pool($pool_num) set sameFid_ $node

    for {set i 0} {$i < $sources } {incr i} {
        set start [expr [ Random ]*$SimTime/10]
     set interPage [new RandomVariable/Exponential]
     $interPage set avg_ 1
     set pageSize [new RandomVariable/Constant]
     $pageSize set val_ $pgSize
     set interObj [new RandomVariable/Exponential]
     $interObj set avg_ 0.01
     set objSize [new RandomVariable/ParetoII]
     $objSize set avg_ 10
     $objSize set shape_ 1.2
     $pool($pool_num) create-session $i $numPage $start $interPage
$pageSize $interObj $objSize
    }
set pool_num [expr $pool_num+1]


--
Rafal Wielicki <mailto:rafal@thalassa.iopan.gda.pl>
 Fido: 2:481/2.46
Technical University of Gdańsk, Telecommunications Faculty
---------------------------------------------------------------
 ISO 8859-2: ĄĆĘŁÓŃŚŻŹąćęłóńśżź <- National Uppercase Characters
UNIX *is* user friendly. It is just a bit selective about his friends.