33.3.1.0.3 Delay and Loss Modules

Each receiver in a group requires a delay module that reflects its delay with respect to the particular source. When the receiver joins a group, []join-group identifies all session helpers in session_. If the destination index matches the group address the receiver are joining, then the following actions are performed.

1.

A new slot of the session helper is created and assigned to the receiver.

2.

The routine computes the accumulated bandwidth and delay between the source and receiver using the SessionSim instance procedures []get-bw and []get-delay.

3.

A constant random variable is created; it will generate random delivery times using the accumulative delay as an estimate of the average delay.

4.

A new delay module is created with the end-to-end bandwidth characteristics, and the random variable generator provides the delay estimates.

5.

The delay module in inserted into the session helper and interposed between the helper and the receiver.

See Section 33.1.2 for similarly inserting a loss module for a receiver.

SessionSim instproc join-group { agent group } {
    \$self instvar session\_

    foreach index [array names session\_] {
        set pair [split \$index :]
        if {[lindex \$pair 1] == \$group} {
            # Note: must insert the chain of loss, delay, 
            # and destination agent in this order:

            \$session\_(\$index) insert \$agent # insert destination agent into session replicator;

            set src [lindex \$pair 0] # find accum. b/w and delay;
            set dst [[\$agent set node\_] id]
            set accu\_bw [\$self get-bw \$dst \$src]
            set delay [\$self get-delay \$dst \$src]

            set random\_variable [new RandomVariable/Constant] # set delay variable ;
            \$random\_variable set avg\_ \$delay

            set delay\_module [new DelayModel] # configure the delay module;
            \$delay\_module bandwidth \$accu\_bw
            \$delay\_module ranvar \$random\_variable

            \$session\_(\$index) insert-module \$delay\_module \$agent # insert the delay module;
        }
    }
}