【正文】 // (smallko) if(openfile!=0){ hdr_cmn::access(p)frame_pkt_id_ = id_++。 } …………………………………………………………………. psetdata(data)。 while (n 0) { ……………………………………………………………………………….. hdr_cmn::access(p)sendtime_ = local_time。 else printf(Error: myUDP size = 0\n)。 } void mUdpAgent::sendmsg(int nbytes, AppData* data, const char* flags) { Packet *p。 } } class_mudp_agent。 FILE *BWFile。 virtual void sendmsg(int nbytes, AppData* data, const char *flags = 0)。 sendmsg(atoi(argv[2]), data, argv[4])。 sendmsg(atoi(argv[2]), data)。 (%s process_data %d {%s}, name(), iph Address::instance().NodeShift_[1], datadata())。s just PacketData, pass it to Tcl // // Note that a Tcl procedure Agent/Udp recv {from data} // needs to be defined. For example, // // Agent/Udp instproc recv {from data} {puts data} PacketData* data = (PacketData*)pktuserdata()。 app_process_data(hsize(), pktuserdata())。 psetdata(data)。 hdr_cmn::access(p)timestamp() = (u_int32_t)(SAMPLERATE*local_time)。 hdr_cmn::access(p)size() = n。 psetdata(data)。 hdr_cmn::access(p)timestamp() = (u_int32_t)(SAMPLERATE*local_time)。 hdr_cmn::access(p)size() = size_。 nbytes size_) { printf(Error: data greater than maximum UDP packet size\n)。 if (nbytes == 1) { printf(Error: sendmsg() for UDP should not be 1\n)。t usually have one. void UdpAgent::sendmsg(int nbytes, AppData* data, const char* flags) { Packet *p。size_)。 }。 } virtual void sendmsg(int nbytes, AppData* data, const char *flags = 0)。 } void TrafficTimer::expire(Event *) { tgen_timeout()。 /* send a packet */ send(size_)。 size = size_。 } double CBR_Traffic::next_interval(intamp。 agent_get_pkttype() != PT_TFRC) agent_set_pkttype(PT_CBR)。maxpkts_)。random_)。 } } class_cbr_traffic。 int seqno_。 void init()。 virtual double next_interval(intamp。 exec xgraph geometry 800x400 amp。 只把接收時間大於傳送時間的記錄列出來 if ( start end ) printf(%f %f\n, start, packet_duration)。 packet_id = highest_packet_id。amp。 packet_id = $12。 flow_id = $8。 from = $3。 $ns detachagent $d $sink 在模擬環(huán)境中， 5秒後去呼叫 finish來結束模擬 (這樣要注意模擬環(huán)境中 的 5秒並不一定等於實際模擬的時間 $ns at finish 執(zhí)行模擬 $ns run + 1 2 cbr 1000 2 0 0 1 2 cbr 1000 2 0 0 + 1 2 cbr 1000 2 1 1 1 2 cbr 1000 2 1 1 r 1 2 cbr 1000 2 0 0 + 2 3 cbr 1000 2 0 0 2 3 cbr 1000 2 0 0 + 1 2 cbr 1000 2 2 2 1 2 cbr 1000 2 2 2 r 1 2 cbr 1000 2 1 1 + 2 3 cbr 1000 2 1 1 2 3 cbr 1000 2 1 1 + 1 2 cbr 1000 2 3 3 1 2 cbr 1000 2 3 3 r 1 2 cbr 1000 2 2 2 + 2 3 cbr 1000 2 2 2 2 3 cbr 1000 2 2 2 + 1 2 cbr 1000 2 4 4 1 2 cbr 1000 2 4 4 r 1 2 cbr 1000 2 3 3 + 2 3 cbr 1000 2 3 3 2 3 cbr 1000 2 3 3 r 2 3 cbr 1000 2 0 0 ……………………………………………… sequence_number: 對於同一條 flow而言 , 這個 flow所產生的第一個 packet,它的 sequence number 就是 0,第二個 flow所產生的 packet,就是 1,以此類推 packet_id: 這是對於整個系統(tǒng)而言 , 整個系統(tǒng)中所產生的第一個 packet, 它的 packet id 就是 0,第二個 packet,就是 1, 以此類推 這是測量 CBR封包端點到端點間延遲時間的 awk程式 BEGIN { 程式初始化，設定一變數(shù)以記錄目前最高處理封包的 ID。 $ns_ halt $ns_ at $opt(stop).0001 finish proc finish {} { global ns_ tracefd namtrace close $tracefd close $namtrace exec rm f exec awk f exec xgraph amp。 hierarchical addresses for {set i 0} {$i $num_wired_nodes} {incr i} { set W($i) [$ns_ node [lindex $temp $i]] } $ns_ nodeconfig mobileIP ON \ adhocRouting DSDV \ 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 ON \ agentTrace ON \ routerTrace OFF \ macTrace OFF Create Home Agent and Foreign Agent set HA [$ns_ node ] set FA [$ns_ node ] $HA set X_ $HA set Y_ $HA set Z_ $FA set X_ $FA set Y_ $FA set Z_ create links between wired and BaseStation nodes $ns_ duplexlink $W(0) $W(1) 5Mb 2ms DropTail $ns_ duplexlink $W(1) $HA 5Mb 2ms DropTail $ns_ duplexlink $W(1) $FA 5Mb 2ms DropTail $ns_ duplexlinkop $W(0) $W(1) orient down $ns_ duplexlinkop $W(1) $HA orient leftdown $ns_ duplexlinkop $W(1) $FA orient rightdown create a mobilenode (in the domain of the HA) that is moving between HA and FA. $ns_ nodeconfig wiredRouting OFF set MH [$ns_ node ] set HAaddress [AddrParams addr2id [$HA nodeaddr]] [$MH set regagent_] set home_agent_ $HAaddress $MH set Z_ $MH set Y_ $MH set X_ MH starts to move towards FA $ns_ at $MH setdest goes back to HA $ns_ at $MH setdest Define initial node position in nam $ns_ initial_node_pos $MH 20 set tcp1 [new Agent/TCP] $tcp1 set class_ 2 set sink1 [new Agent/TCPSink] $ns_ attachagent $W(0) $tcp1 $ns_ attachagent $MH $sink1 $ns_ connect $tcp1 $sink1 set ftp1 [new Application/FTP] $ftp1 attachagent $tcp1 $ns_ at $opt(ftp1start) $ftp1 start $ns_ at $opt(stop).0 $MH reset。 number of domains lappend cluster_num 2 1 1 。 number of mobilenodes set