Floating point exception error while executing tcl with ns2
Hi
I want to execute the tcl file to simulate dccp dccp and tcp but i have this result : iness@iness-VirtualBox ~/ns-allinone-2.35/bin/dccp $ ns dccp.tcl Floating point exception My tcl file is bellow : ------------------------------------------- set ns [new Simulator] set testTime 102.0 #if {$argc < 3} { #puts stderr "ns dccp.tcl \[x (bottleneck in Mbit/s)\] \[ 2|3 (ccid)\] \[Sack|Newreno (TCP version)\]" #exit 1 #} set C [lindex $argv 0] set ccid [lindex $argv 1] set tcpver [lindex $argv 2] # Create a nam trace datafile. set namfile [open out.nam w] $ns namtrace-all $namfile #open the trace file set tracefile1 [open out_dccp.tr w] $ns trace-all $tracefile1 # Set up the network topology shown at the top of this file: set s1 [$ns node] set s2 [$ns node] set e1 [$ns node] set e2 [$ns node] set dest1 [$ns node] set dest2 [$ns node] $ns duplex-link $s1 $e1 10Mb 0ms DropTail $ns duplex-link $s2 $e1 10Mb 0ms DropTail $ns duplex-link $e1 $e2 $C.Mb 15ms DropTail $ns duplex-link $e2 $dest1 10Mb 0ms DropTail $ns duplex-link $e2 $dest2 10Mb 0ms DropTail # DCCP if {$ccid == 3} { set dccp1 [new Agent/DCCP/TFRC] set dccp2 [new Agent/DCCP/TFRC] } else { set dccp1 [new Agent/DCCP/TCPlike] set dccp2 [new Agent/DCCP/TCPlike] } $dccp1 set fid_ 2 $dccp2 set fid_ 2 $ns attach-agent $s2 $dccp1 $ns attach-agent $dest2 $dccp2 set ftp2 [new Application/FTP] $ftp2 attach-agent $dccp1 $ns connect $dccp1 $dccp2 # TCP if {$tcpver == "Sack"} { set tcp1 [new Agent/TCP/FullTcp/Sack] set ftp1 [new Application/FTP] $ftp1 attach-agent $tcp1 set sink [new Agent/TCP/FullTcp/Sack] $ns attach-agent $s1 $tcp1 $ns attach-agent $dest1 $sink #$tcp1 set window_ $win #$sink set window_ $win $tcp1 set fid_ 1 $sink set fid_ 1 $ns connect $tcp1 $sink # set up TCP-level connections $sink listen ; # will figure out who its peer is } else { set agent(1) [new Agent/TCP/Newreno] $ns attach-agent $s1 $agent(1) set ftp1 [new Application/FTP] $ftp1 attach-agent $agent(1) set agent(2) [new Agent/TCPSink] $ns attach-agent $dest1 $agent(2) $ns connect $agent(1) $agent(2) } proc finish {} { global ns namfile tracefile1 C ccid tcpver $ns flush-trace close $tracefile1 exec $file $C $ccid $tcpver #Execute nam on the trace file exec nam out.nam & exit 0 } proc init {} { global dccp1 dccp2 $dccp1 reset $dccp2 reset } $ns at 0.1 "init" $ns at 0.2 "$dccp2 listen" $ns at 0.3 "$ftp1 start" $ns at 20.0 "$ftp2 start" $ns at [expr $testTime - 20] "$ftp2 stop" $ns at $testTime "$ftp1 stop" $ns at [expr $testTime + 1.0] "finish" $ns run Please tell me what's the problem . Thanks for you |
Quote:
|
Moved: This thread is more suitable in the Linux Software forum and has been moved accordingly to help your thread/question get the exposure it deserves.
|
All times are GMT -5. The time now is 10:08 PM. |