ns-random 0.0

set ns_ [new Simulator]

#$ns_ use-newtrace
set tracefd [open hun_tcp.tr w]
$ns_ trace-all $tracefd

set namtrace [open hun_tcp.nam w]
$ns_ namtrace-all-wireless $namtrace 500 100


set topo [new Topography]
$topo load_flatgrid 500 100

create-god 3
#MAC_802_11: accessing MAC cache_ array out of range (src 3, dst 4, size 3)!
# 문제 해결시 [create-god ]사용

#set god_ [create-god 3]

$ns_ node-config -adhocRouting DSR \
                -llType LL \
                -macType Mac/802_11 \
                -ifqType Queue/DropTail/PriQueue \
                -ifqLen 50 \
                    -antType Antenna/OmniAntenna \
                    -propType Propagation/TwoRayGround \
                        -phyType Phy/WirelessPhy \
                    -channelType Channel/WirelessChannel \
                        -topoInstance $topo \
                        -wiredRouting OFF \
                        -agentTrace ON \
                        -routerTrace ON \
                        -macTrace OFF

set node_(0) [$ns_ node]
set node_(1) [$ns_ node]
set node_(2) [$ns_ node]


$node_(0) set X_ 50.0
$node_(0) set Y_ 50.0
$node_(0) set Z_ 0.0

$node_(1) set X_ 150.0
$node_(1) set Y_ 50.0
$node_(1) set Z_ 0.0

$node_(2) set X_ 400.0
$node_(2) set Y_ 50.0
$node_(2) set Z_ 0.0


set tcp [new Agent/TCP]
$ns_ attach-agent $node_(0) $tcp
$tcp set window_ 20
$tcp set packetSize_ 1000


set tcpsink [new Agent/TCPSink]
$ns_ attach-agent $node_(2) $tcpsink
$tcpsink listen

$ns_ connect $tcp $tcpsink

set traffic [new Application/Traffic/CBR]
$traffic attach-agent $tcp
$traffic set pktSize_ 48
$traffic set rate_ 64kb
$traffic set random_ 1


$ns_ at 0.0 "$traffic start"

$ns_ initial_node_pos $node_(0) 50
$ns_ initial_node_pos $node_(1) 50
$ns_ initial_node_pos $node_(2) 50



$ns_ at 100.0 "$node_(0) reset"
$ns_ at 100.0 "$node_(1) reset"
$ns_ at 100.0 "$node_(2) reset"

$ns_ at 100.05 "puts \"NS EXITING...\" ; $ns_ halt"
$ns_ at 100.10 "stop"
proc stop {} {
       global ns_ namtrace
       global ns_ tracefd
       close $tracefd
       close $namtrace

set awkCode {
       {
               if ($1 == "r" && $4=="1" && $5=="tcp" && $11%2000==0) {
                       print $2, $11 >> "sample_sequence-Newreno.data";
               }

#if ($1 == "a" && NF>2)
#       print $2, $3 >> "temp.a";
       }
}

exec awk $awkCode samplei_by_awkcode.tr

exit

}

$ns_ run