source.zip여태 만든것이 다 날라가고...
새로이 실험으로 증빙된 올바른 소스와 정보만을 올리기로 한다.
NS2 실험을 위한 과정..
NS2는 본래 trace 파일을 가지고 원하는 데이터를 추출하기 위해 여러 동작을 하게 된다.
이러한 동작에 있어서 많은 노동의 고통이 따르기 때문에 나는 up_down_stream2.sh라는 쉘 스크립트 파일을 만들어 사용하였다.
아래는 up_down-stream2.sh 파일 내용이다.
###########################################################################
#!/bin/sh
echo "Awk ShellScript"
num=1
num1=1
num2=1
rm -rf *~ *.*~ data/check_retry_*~ data/buffer_50_up_down_th_*~ data/drop_*~ data/check_retry_* data/buffer_50_up_down_th_* data/drop_* *.tr
#한번 생성한 파일위로 다시 실험한 데이터가 쌓이면 매우 피곤하다. 이에 삭제를 먼저 하고 실행할 수 있도록 만들었다.
for Tcl_file in 40 #노드 수
do
for Tcl_file1 in 7 #CWmin
do
for Tcl_file2 in 7 #CWmax
do
echo "###################### TCL" $num "\t "$Tcl_file
ns data$Tcl_file.tcl $Tcl_file1 $Tcl_file2 > data/check_retry_$Tcl_file-$Tcl_file1-$Tcl_file2
num=`expr $num + 1` #나는 MAC에서 재전송 포기에 의한 패킷 수를 세기위한 소스를 만들어 따로 trace파일을 만들 필요가 있었다. 다른 살마들은 안해도 되며, 실행 위치의 data 폴더에 저장되도록 만들었다.
done
done
done
for Tcl_file in 40
do
for Tcl_file1 in 7
do
for PacketSize in 7
do
echo "###################### TCL_Mobile_change" $num1
echo "awk -f awk-ack_rec_wire up_down_stream_$Tcl_file-$Tcl_file-$Tcl_file1-$PacketSize.tr >> testbook"
sed 's/_/ /' up_down_stream_$Tcl_file-$Tcl_file-$Tcl_file1-$PacketSize.tr > testbook
sed 's/_/ /' testbook > up_down_stream_$Tcl_file-$Tcl_file-$Tcl_file1-$PacketSize.tr
rm -rf testbook
#아주 중요한 구문이다. trace 파일의 무선 노드의 식별 넘버에는 양쪽에 언더바가 생성된다.
이 언더바를 지우는 과정이다.
num1=`expr $num1 + 1`
done
done
done
for Tcl_file in 40
do
for Tcl_file1 in 7
do
for PacketSize in 7
do
echo "###################### Throughput" $num2
echo "awk -f awk-throughput -v nn=$PacketSize up_down_stream_$Tcl_file-$Tcl_file-$Tcl_file1-$PacketSize.tr >> up_down_Th"
awk -f drop nn=$Tcl_file nn1=$Tcl_file1 nn2=$PacketSize up_down_stream_$Tcl_file-$Tcl_file-$Tcl_file1-$PacketSize.tr >> data/drop_$Tcl_file-$Tcl_file-$Tcl_file1-$PacketSize
awk -f awk-throughput nn=$Tcl_file nn1=$Tcl_file1 nn2=$PacketSize #드롭률 data 폴더의 해당 이름으로 생성시킨다.
up_down_stream_$Tcl_file-$Tcl_file-$Tcl_file1-$PacketSize.tr >> data/buffer_50_up_down_th_$Tcl_file-$Tcl_file-$Tcl_file1-$PacketSize#처리량을 data폴더의 해당 이름으로 생성 시킨다.
done
done
done
###########################################################################
위의 실험에 있어서
trace 파일은 drop이란 awk 스크립트 파일을 호출하여 재 필터링 된다.
##########################################################################
BEGIN {
sum1=0;
sum2=0;
sum3=0;
sum4=0;
}
{
if(200<$2)#500초의 실험 시간 중 200초의 안정화 시간을 기다린후 이후값만 측정한다.
{
if (($1 == "D")&&($4 =="IFQ")&&($7=="tcp" )&&($5!="END")&&($3 == (nn+1))) {
sum1++;
} #nn은 외부 입력 값이다. 쉘 스크립트를 확인하면 된다.
if (($1 == "D")&&($4 =="IFQ")&&($7=="ack" )&&($5!="END")&&($3 == (nn+1))) {
sum2++;
}
if (($1 == "D")&&($4 =="IFQ")&&($7=="tcp" )&&($5!="END")&&($3 != (nn+1))) {
sum3++;
}
if (($1 == "D")&&($4 =="IFQ")&&($7=="ack" )&&($5!="END")&&($3 != (nn+1))) {
sum4++;
}
}
}
END {
print (nn+1);
print nn,":",nn,"_",nn1,"_",nn2," AP_ACK drop number : ",sum2,"\t","AP_DATA drop number : ",sum1
print nn,":",nn,"_",nn1,"_",nn2," CLI_ACK drop number : ",sum4,"\t","CLI_DATA drop number : ",sum3,"\n"
}
##########################################################################
drop을 필터링 하고 나면
총 처리량과 공평성 상태를 측정해야 한다.
처리량은 먼저 업스트림과 다운스트림을 측정한뒤 나머지를 산출한다.
awk-throughput이란 파일 명으로 생성된다.
##########################################################################
BEGIN {
total_byte1=0;
total_byte_th1=0;
first_time1=0;
last_time1=0;
total_byte2=0;
total_byte_th2=0;
first_time2=0;
last_time2=0;
sum1=0;
sum2=0;
node = $3;
}
{
if(200<$2)
{
if ( ($1 == "r")&&($5 =="tcp")&&($4 != nn)&&($4 != (nn+1))) {
if(first_time1=="0") first_time1=$2;
last_time1=$2;
total_byte1 += $6;
sum1++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 != (nn+1))) {
if(first_time2=="0") first_time2=$2;
last_time2=$2;
total_byte2 += $8;
sum2++;
}
}
}
END {
fairness_index=total_byte1/total_byte2
total=total_byte1+total_byte2
# fairness_index=sum1/sum2
# print "fairness index = ",fairness_index, "time 1 = ", last_time1,"time 2 = ",last_time2;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte1\t",((total_byte1*8/300)/1000000) ,"\t down: total_byte2\t",((total_byte2*8/300)/1000000) ,"\tfairness_index: ",fairness_index,"\t","total = ",((total*8/300)/1000000);
}
############################################################################
혹시나 플로우별 처리량이 필요하다면.....
10개 단위시(필요한 파일명으로 저장하면 된다)
사용방법은 쉘 스크립트 참조
###########################################################################
BEGIN {
}
{
if(200<$2)
{
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 0)) {
total_byte0 += $6;
sum0++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 1)) {
total_byte1 += $6;
sum1++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 2)) {
total_byte2 += $6;
sum2++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 3)) {
total_byte3 += $6;
sum3++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 4)) {
total_byte4 += $6;
sum4++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 5)) {
total_byte5 += $6;
sum5++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 6)) {
total_byte6 += $6;
sum6++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 7)) {
total_byte7 += $6;
sum7++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 8)) {
total_byte8 += $6;
sum8++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 9)) {
total_byte9 += $6;
sum9++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==12 )) {
total_byte12 += $8;
sum12++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==13 )) {
total_byte13 += $8;
sum13++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==14 )) {
total_byte14 += $8;
sum14++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==15 )) {
total_byte15 += $8;
sum15++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==16 )) {
total_byte16 += $8;
sum16++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==17 )) {
total_byte17 += $8;
sum17++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==18 )) {
total_byte18 += $8;
sum18++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==19 )) {
total_byte19 += $8;
sum19++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==20 )) {
total_byte20 += $8;
sum20++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==21 )) {
total_byte21 += $8;
sum21++;
}
}
}
END {
fairness_index=total_byte1/total_byte2
total=total_byte1+total_byte2
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte0*8/300)/1000000),"up: NUM\t", sum0;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte1*8/300)/1000000),"up: NUM\t", sum1;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte2*8/300)/1000000),"up: NUM\t", sum2;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte3*8/300)/1000000),"up: NUM\t", sum3;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte4*8/300)/1000000),"up: NUM\t", sum4;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte5*8/300)/1000000),"up: NUM\t", sum5;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte6*8/300)/1000000),"up: NUM\t", sum6;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte7*8/300)/1000000),"up: NUM\t", sum7;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte8*8/300)/1000000),"up: NUM\t", sum8;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte9*8/300)/1000000),"up: NUM\t", sum9,"\n";
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte12*8/300)/1000000),"down: NUM\t", sum12;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte13*8/300)/1000000),"down: NUM\t", sum13;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte14*8/300)/1000000),"down: NUM\t", sum14;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte15*8/300)/1000000),"down: NUM\t", sum15;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte16*8/300)/1000000),"down: NUM\t", sum16;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte17*8/300)/1000000),"down: NUM\t", sum17;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte18*8/300)/1000000),"down: NUM\t", sum18;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte19*8/300)/1000000),"down: NUM\t", sum19;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte20*8/300)/1000000),"down: NUM\t", sum20;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte21*8/300)/1000000),"down: NUM\t", sum21;
}
##########################################################################
30개의 노드일 때 플로우별 처리량
##########################################################################
BEGIN {
}
{
if(200<$2)
{
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 0)) {
total_byte0 += $6;
sum0++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 1)) {
total_byte1 += $6;
sum1++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 2)) {
total_byte2 += $6;
sum2++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 3)) {
total_byte3 += $6;
sum3++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 4)) {
total_byte4 += $6;
sum4++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 5)) {
total_byte5 += $6;
sum5++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 6)) {
total_byte6 += $6;
sum6++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 7)) {
total_byte7 += $6;
sum7++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 8)) {
total_byte8 += $6;
sum8++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 9)) {
total_byte9 += $6;
sum9++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 10)) {
total_byte10 += $6;
sum10++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 11)) {
total_byte11 += $6;
sum11++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 12)) {
total_byte12 += $6;
sum12++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 13)) {
total_byte13 += $6;
sum13++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 14)) {
total_byte14 += $6;
sum14++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 15)) {
total_byte15 += $6;
sum15++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 16)) {
total_byte16 += $6;
sum16++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 17)) {
total_byte17 += $6;
sum17++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 18)) {
total_byte18 += $6;
sum18++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 19)) {
total_byte19 += $6;
sum19++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 20)) {
total_byte20 += $6;
sum20++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 21)) {
total_byte21 += $6;
sum21++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 22)) {
total_byte22 += $6;
sum22++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 23)) {
total_byte23 += $6;
sum23++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 24)) {
total_byte24 += $6;
sum24++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 25)) {
total_byte25 += $6;
sum25++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 26)) {
total_byte26 += $6;
sum26++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 27)) {
total_byte27 += $6;
sum27++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 28)) {
total_byte28 += $6;
sum28++;
}
if ( ($1 == "r")&&($5 =="tcp")&&($4 == 29)) {
total_byte29 += $6;
sum29++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 == 32)) {
total_byte32 += $8;
sum32++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==33)) {
total_byte33 += $8;
sum33++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 == 34)) {
total_byte34 += $8;
sum34++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==35)) {
total_byte35 += $8;
sum35++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 == 36)) {
total_byte36 += $8;
sum36++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==37)) {
total_byte37 += $8;
sum37++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==38)) {
total_byte38 += $8;
sum38++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 == 39)) {
total_byte39 += $8;
sum39++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 == 40)) {
total_byte40 += $8;
sum40++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==41 )) {
total_byte41 += $8;
sum41++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 == 42)) {
total_byte42 += $8;
sum42++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==43)) {
total_byte43+= $8;
sum43++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 == 44)) {
total_byte44 += $8;
sum44++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==45 )) {
total_byte45 += $8;
sum45++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==46)) {
total_byte46 += $8;
sum46++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==47 )) {
total_byte47 += $8;
sum47++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==48 )) {
total_byte48 += $8;
sum48++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==49 )) {
total_byte49 += $8;
sum49++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 == 50)) {
total_byte50 += $8;
sum50++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==51 )) {
total_byte51 += $8;
sum51++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 == 52)) {
total_byte52 += $8;
sum52++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==53 )) {
total_byte53 += $8;
sum53++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==54 )) {
total_byte54 += $8;
sum54++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==55 )) {
total_byte55 += $8;
sum55++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==56 )) {
total_byte56 += $8;
sum56++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==57 )) {
total_byte57 += $8;
sum57++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 == 58)) {
total_byte58 += $8;
sum58++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==59 )) {
total_byte59 += $8;
sum59++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==60 )) {
total_byte60 += $8;
sum60++;
}
if ( ($1 == "r")&&($4 =="AGT")&&($7=="tcp" )&&($3 ==61 )) {
total_byte61 += $8;
sum61++;
}
}
}
END {
fairness_index=total_byte1/total_byte2
total=total_byte1+total_byte2
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte0*8/300)/1000000),"up: NUM\t", sum0;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte1*8/300)/1000000),"up: NUM\t", sum1;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte2*8/300)/1000000),"up: NUM\t", sum2;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte3*8/300)/1000000),"up: NUM\t", sum3;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte4*8/300)/1000000),"up: NUM\t", sum4;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte5*8/300)/1000000),"up: NUM\t", sum5;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte6*8/300)/1000000),"up: NUM\t", sum6;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte7*8/300)/1000000),"up: NUM\t", sum7;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte8*8/300)/1000000),"up: NUM\t", sum8;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte9*8/300)/1000000),"up: NUM\t", sum9;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte10*8/300)/1000000),"up: NUM\t", sum10;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte11*8/300)/1000000),"up: NUM\t", sum11;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte12*8/300)/1000000),"up: NUM\t", sum12;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte13*8/300)/1000000),"up: NUM\t", sum13;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte14*8/300)/1000000),"up: NUM\t", sum14;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte15*8/300)/1000000),"up: NUM\t", sum15;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte16*8/300)/1000000),"up: NUM\t", sum16;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte17*8/300)/1000000),"up: NUM\t", sum17;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte18*8/300)/1000000),"up: NUM\t", sum18;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte19*8/300)/1000000),"up: NUM\t", sum19;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte20*8/300)/1000000),"up: NUM\t", sum20;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte21*8/300)/1000000),"up: NUM\t", sum21;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte22*8/300)/1000000),"up: NUM\t", sum22;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte23*8/300)/1000000),"up: NUM\t", sum23;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte24*8/300)/1000000),"up: NUM\t", sum24;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte25*8/300)/1000000),"up: NUM\t", sum25;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte26*8/300)/1000000),"up: NUM\t", sum26;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte27*8/300)/1000000),"up: NUM\t", sum27;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte28*8/300)/1000000),"up: NUM\t", sum28;
print nn,":",nn,"_",nn1,"_",nn2,"\t","up: total_byte\t", ((total_byte29*8/300)/1000000),"up: NUM\t", sum29,"\n";
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte32*8/300)/1000000),"down: NUM\t", sum32;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte33*8/300)/1000000),"down: NUM\t", sum33;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte34*8/300)/1000000),"down: NUM\t", sum34;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte35*8/300)/1000000),"down: NUM\t", sum35;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte36*8/300)/1000000),"down: NUM\t", sum36;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte37*8/300)/1000000),"down: NUM\t", sum37;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte38*8/300)/1000000),"down: NUM\t", sum38;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte39*8/300)/1000000),"down: NUM\t", sum39;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte40*8/300)/1000000),"down: NUM\t", sum40;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte41*8/300)/1000000),"down: NUM\t", sum41;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte42*8/300)/1000000),"down: NUM\t", sum42;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte43*8/300)/1000000),"down: NUM\t", sum43;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte44*8/300)/1000000),"down: NUM\t", sum44;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte45*8/300)/1000000),"down: NUM\t", sum45;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte46*8/300)/1000000),"down: NUM\t", sum46;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte47*8/300)/1000000),"down: NUM\t", sum47;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte48*8/300)/1000000),"down: NUM\t", sum48;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte49*8/300)/1000000),"down: NUM\t", sum49;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte50*8/300)/1000000),"down: NUM\t", sum50;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte51*8/300)/1000000),"down: NUM\t", sum51;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte52*8/300)/1000000),"down: NUM\t", sum52;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte53*8/300)/1000000),"down: NUM\t", sum53;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte54*8/300)/1000000),"down: NUM\t", sum54;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte55*8/300)/1000000),"down: NUM\t", sum55;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte56*8/300)/1000000),"down: NUM\t", sum56;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte57*8/300)/1000000),"down: NUM\t", sum57;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte58*8/300)/1000000),"down: NUM\t", sum58;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte59*8/300)/1000000),"down: NUM\t", sum59;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte60*8/300)/1000000),"down: NUM\t", sum60;
print nn,":",nn,"_",nn1,"_",nn2,"\t","down: total_byte\t", ((total_byte61*8/300)/1000000),"down: NUM\t", sum61;
}
###########################################################################
30개 노드에 대한 tcl소스이다.
데이터 명은 data30.tcl이다.
###########################################################################
### This simulation is an example of combination of wired and wireless
### topologies.
global opt
set opt(chan) Channel/WirelessChannel
set opt(prop) Propagation/TwoRayGround
set opt(netif) Phy/WirelessPhy
set opt(mac) Mac/802_11
set opt(ifq) Queue/DropTail/PriQueue
set opt(ll) LL
set opt(ant) Antenna/OmniAntenna
set opt(x) 500
set opt(y) 500
set opt(ifqlen) 50
set opt(adhocRouting) DSDV;#AODV ;#DSDV, DSR
set opt(cp) ""
set opt(sc) "../mobility/scene/scen-3-test"
set opt(stop) 500
set num_wired_nodes 2
set num_bs_nodes 1
set opt(mn) 30 #노드 총 개수이다.
set cmin [lindex $argv 0]
set cmax [lindex $argv 1]
set opt(nm) 31 #AP 혹은 라우터를 포함한 개수
Agent/TCP set packetSize_ 1480
# Mac/802_11 set RTSThreshold_ 99999 #RTS CTS 사용 안할시 주석처리 풀어준다.
Mac/802_11 set dataRate_ 11.0e6 ;# 11Mbps
Mac/802_11 set basicRate_ 11.0e6 ;# 1Mbps
# ===========================================================
# 802.11b value
#The Antenna height of transmitter and receiver is 1.5m.
Phy/WirelessPhy set bandwidth_ 11Mb
#===============================================================
set ns_ [new Simulator]
# set up for hierarchical routing
$ns_ node-config -addressType hierarchical
AddrParams set domain_num_ 2 ;# number of domains
lappend cluster_num 1 1 ;# number of clusters in each domain
AddrParams set cluster_num_ $cluster_num
lappend eilastlevel $opt(nm) $opt(nm) ;# number of nodes in each cluster
AddrParams set nodes_num_ $eilastlevel ;# of each domain
set tracefd [open up_down_stream_$opt(mn)-$opt(mn)-$cmin-$cmax.tr w]
$ns_ trace-all $tracefd
# Create topography object
set topo [new Topography]
# define topology
$topo load_flatgrid $opt(x) $opt(y)
# create God
create-god $opt(nm)
set temp {0.0.0 0.0.1 0.0.2 0.0.3 0.0.4 0.0.5 0.0.6 0.0.7 0.0.8 0.0.9 0.0.10 0.0.11 0.0.12 0.0.13 0.0.14 0.0.15 0.0.16 0.0.17 0.0.18 0.0.19 0.0.20 0.0.21 0.0.22 0.0.23 0.0.24 0.0.25 0.0.26 0.0.27 0.0.28 0.0.29 0.0.30 0.0.31 0.0.32 0.0.33 0.0.34 0.0.35 0.0.36 0.0.37 0.0.38 0.0.39 0.0.40 0.0.41 0.0.42 0.0.43 0.0.44 0.0.45 0.0.46 0.0.47 0.0.48 0.0.49 0.0.50 0.0.51 0.0.52 0.0.53 0.0.54 0.0.55 0.0.56 0.0.57 0.0.58 0.0.59 0.0.60 0.0.61 0.0.62 0.0.63 0.0.64 0.0.65 0.0.66 0.0.67 0.0.68 0.0.69 0.0.70 0.0.71 0.0.72 0.0.73 0.0.74 0.0.75 0.0.76 0.0.77 0.0.78 0.0.79 0.0.80} ;# hierarchical addresses for wired domain
for {set i 0} {$i < $opt(nm)} {incr i} {
set W($i) [$ns_ node [lindex $temp $i]]
}
Mac/802_11 set CWMin_ $cmin
Mac/802_11 set CWMax_ $cmax
#Mac/802_11 set ShortRetryLimit_ 7 ;# retransmittions
#Mac/802_11 set LongRetryLimit_ 4 ;# retransmissions
#재전송 수 제한을 풀어줄 때는 주석처리 제거 후 조절
$ns_ node-config -adhocRouting $opt(adhocRouting) \
-llType $opt(ll) \
-macType $opt(mac) \
-ifqType $opt(ifq) \
-ifqLen $opt(ifqlen) \
-antType $opt(ant) \
-propType $opt(prop) \
-phyType $opt(netif) \
-channelType $opt(chan) \
-topoInstance $topo \
-wiredRouting ON \
-agentTrace ON \
-routerTrace OFF \
-macTrace OFF \
set temp {1.0.0 1.0.1 1.0.2 1.0.3 1.0.4 1.0.5 1.0.6 1.0.7 1.0.8 1.0.9 1.0.10 1.0.11 1.0.12 1.0.13 1.0.14 1.0.15 1.0.16 1.0.17 1.0.18 1.0.19 1.0.20 1.0.21 1.0.22 1.0.23 1.0.24 1.0.25 1.0.26 1.0.27 1.0.28 1.0.29 1.0.30 1.0.31 1.0.32 1.0.33 1.0.34 1.0.35 1.0.36 1.0.37 1.0.38 1.0.39 1.0.40 1.0.41 1.0.42 1.0.43 1.0.44 1.0.45 1.0.46 1.0.47 1.0.48 1.0.49 1.0.50 1.0.51 1.0.52 1.0.53 1.0.54 1.0.55 1.0.56 1.0.57 1.0.58 1.0.59 1.0.60 1.0.61 1.0.62 1.0.63 1.0.64 1.0.65 1.0.66 1.0.67 1.0.68 1.0.69 1.0.70 1.0.71 1.0.72 1.0.73 1.0.74 1.0.75 1.0.76 1.0.77 1.0.78 1.0.79 1.0.80} ;# hier address to be used for wireless
set BS(0) [$ns_ node [lindex $temp 0]]
$BS(0) random-motion 0
#무선 AP에만 특정한 CWmin과 CWmax만을 적용해야 했으므로 무선 단말기 선언시에는 새로운 정보를 입력후 무선 환경을 재설정 한다.
Mac/802_11 set CWMin_ 31
Mac/802_11 set CWMax_ 1023
# Mac/802_11 set ShortRetryLimit_ 7 ;# retransmittions
# Mac/802_11 set LongRetryLimit_ 4 ;# retransmissions
$ns_ node-config -adhocRouting $opt(adhocRouting) \
-llType $opt(ll) \
-macType $opt(mac) \
-ifqType $opt(ifq) \
-ifqLen $opt(ifqlen) \
-antType $opt(ant) \
-propType $opt(prop) \
-phyType $opt(netif) \
-channelType $opt(chan) \
-topoInstance $topo \
-wiredRouting ON \
-agentTrace ON \
-routerTrace OFF \
-macTrace OFF \
for {set j 0} {$j < $opt(mn)} {incr j} {
set node_($j) [ $ns_ node [lindex $temp \
[expr $j+1]] ]
$node_($j) base-station [AddrParams addr2id [$BS(0) node-addr]]
}
$ns_ duplex-link $W(0) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(1) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(2) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(3) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(4) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(5) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(6) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(7) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(8) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(9) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(10) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(11) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(12) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(13) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(14) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(15) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(16) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(17) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(18) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(19) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(20) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(21) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(22) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(23) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(24) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(25) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(26) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(27) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(28) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(29) $W(30) 100Mb 100ms DropTail
$ns_ duplex-link $W(30) $BS(0) 100Mb 100ms DropTail
#중요한 내용... 각 라우터와 AP간의 전파 딜레이가 너무 짧으면 세그먼트 에러 출력될 가능성이 높다. 이유는 그냥 추측만.... 또한 for문을 사용하여 스크립트 작성시 세그먼트 에러 출력될 가능성이 높다. 물론 문제없이 작성하더라도 말이다. 이유는 전혀 모르겠다. ㅎ
#===============================================================
#down strem for TCP
set tcp_(0) [new Agent/TCP/Reno]
$tcp_(0) set class_ 2
set sink_(0) [new Agent/TCPSink]
$ns_ attach-agent $W(0) $tcp_(0)
$ns_ attach-agent $node_(0) $sink_(0)
$ns_ connect $tcp_(0) $sink_(0)
set ftp_(0) [new Application/FTP]
$ftp_(0) attach-agent $tcp_(0)
$ns_ at 100 "$ftp_(0) start"
set tcp_(1) [new Agent/TCP/Reno]
$tcp_(1) set class_ 2
set sink_(1) [new Agent/TCPSink]
$ns_ attach-agent $W(1) $tcp_(1)
$ns_ attach-agent $node_(1) $sink_(1)
$ns_ connect $tcp_(1) $sink_(1)
set ftp_(1) [new Application/FTP]
$ftp_(1) attach-agent $tcp_(1)
$ns_ at 100 "$ftp_(1) start"
set tcp_(2) [new Agent/TCP/Reno]
$tcp_(2) set class_ 2
set sink_(2) [new Agent/TCPSink]
$ns_ attach-agent $W(2) $tcp_(2)
$ns_ attach-agent $node_(2) $sink_(2)
$ns_ connect $tcp_(2) $sink_(2)
set ftp_(2) [new Application/FTP]
$ftp_(2) attach-agent $tcp_(2)
$ns_ at 100 "$ftp_(2) start"
set tcp_(3) [new Agent/TCP/Reno]
$tcp_(3) set class_ 2
set sink_(3) [new Agent/TCPSink]
$ns_ attach-agent $W(3) $tcp_(3)
$ns_ attach-agent $node_(3) $sink_(3)
$ns_ connect $tcp_(3) $sink_(3)
set ftp_(3) [new Application/FTP]
$ftp_(3) attach-agent $tcp_(3)
$ns_ at 100 "$ftp_(3) start"
set tcp_(4) [new Agent/TCP/Reno]
$tcp_(4) set class_ 2
set sink_(4) [new Agent/TCPSink]
$ns_ attach-agent $W(4) $tcp_(4)
$ns_ attach-agent $node_(4) $sink_(4)
$ns_ connect $tcp_(4) $sink_(4)
set ftp_(4) [new Application/FTP]
$ftp_(4) attach-agent $tcp_(4)
$ns_ at 100 "$ftp_(4) start"
set tcp_(5) [new Agent/TCP/Reno]
$tcp_(5) set class_ 2
set sink_(5) [new Agent/TCPSink]
$ns_ attach-agent $W(5) $tcp_(5)
$ns_ attach-agent $node_(5) $sink_(5)
$ns_ connect $tcp_(5) $sink_(5)
set ftp_(5) [new Application/FTP]
$ftp_(5) attach-agent $tcp_(5)
$ns_ at 100 "$ftp_(5) start"
set tcp_(6) [new Agent/TCP/Reno]
$tcp_(6) set class_ 2
set sink_(6) [new Agent/TCPSink]
$ns_ attach-agent $W(6) $tcp_(6)
$ns_ attach-agent $node_(6) $sink_(6)
$ns_ connect $tcp_(6) $sink_(6)
set ftp_(6) [new Application/FTP]
$ftp_(6) attach-agent $tcp_(6)
$ns_ at 100 "$ftp_(6) start"
set tcp_(7) [new Agent/TCP/Reno]
$tcp_(7) set class_ 2
set sink_(7) [new Agent/TCPSink]
$ns_ attach-agent $W(7) $tcp_(7)
$ns_ attach-agent $node_(7) $sink_(7)
$ns_ connect $tcp_(7) $sink_(7)
set ftp_(7) [new Application/FTP]
$ftp_(7) attach-agent $tcp_(7)
$ns_ at 100 "$ftp_(7) start"
set tcp_(8) [new Agent/TCP/Reno]
$tcp_(8) set class_ 2
set sink_(8) [new Agent/TCPSink]
$ns_ attach-agent $W(8) $tcp_(8)
$ns_ attach-agent $node_(8) $sink_(8)
$ns_ connect $tcp_(8) $sink_(8)
set ftp_(8) [new Application/FTP]
$ftp_(8) attach-agent $tcp_(8)
$ns_ at 100 "$ftp_(8) start"
set tcp_(9) [new Agent/TCP/Reno]
$tcp_(9) set class_ 2
set sink_(9) [new Agent/TCPSink]
$ns_ attach-agent $W(9) $tcp_(9)
$ns_ attach-agent $node_(9) $sink_(9)
$ns_ connect $tcp_(9) $sink_(9)
set ftp_(9) [new Application/FTP]
$ftp_(9) attach-agent $tcp_(9)
$ns_ at 100 "$ftp_(9) start"
set tcp_(10) [new Agent/TCP/Reno]
$tcp_(10) set class_ 2
set sink_(10) [new Agent/TCPSink]
$ns_ attach-agent $W(10) $tcp_(10)
$ns_ attach-agent $node_(10) $sink_(10)
$ns_ connect $tcp_(10) $sink_(10)
set ftp_(10) [new Application/FTP]
$ftp_(10) attach-agent $tcp_(10)
$ns_ at 100 "$ftp_(10) start"
set tcp_(11) [new Agent/TCP/Reno]
$tcp_(11) set class_ 2
set sink_(11) [new Agent/TCPSink]
$ns_ attach-agent $W(11) $tcp_(11)
$ns_ attach-agent $node_(11) $sink_(11)
$ns_ connect $tcp_(11) $sink_(11)
set ftp_(11) [new Application/FTP]
$ftp_(11) attach-agent $tcp_(11)
$ns_ at 100 "$ftp_(11) start"
set tcp_(12) [new Agent/TCP/Reno]
$tcp_(12) set class_ 2
set sink_(12) [new Agent/TCPSink]
$ns_ attach-agent $W(12) $tcp_(12)
$ns_ attach-agent $node_(12) $sink_(12)
$ns_ connect $tcp_(12) $sink_(12)
set ftp_(12) [new Application/FTP]
$ftp_(12) attach-agent $tcp_(12)
$ns_ at 100 "$ftp_(12) start"
set tcp_(13) [new Agent/TCP/Reno]
$tcp_(13) set class_ 2
set sink_(13) [new Agent/TCPSink]
$ns_ attach-agent $W(13) $tcp_(13)
$ns_ attach-agent $node_(13) $sink_(13)
$ns_ connect $tcp_(13) $sink_(13)
set ftp_(13) [new Application/FTP]
$ftp_(13) attach-agent $tcp_(13)
$ns_ at 100 "$ftp_(13) start"
set tcp_(14) [new Agent/TCP/Reno]
$tcp_(14) set class_ 2
set sink_(14) [new Agent/TCPSink]
$ns_ attach-agent $W(14) $tcp_(14)
$ns_ attach-agent $node_(14) $sink_(14)
$ns_ connect $tcp_(14) $sink_(14)
set ftp_(14) [new Application/FTP]
$ftp_(14) attach-agent $tcp_(14)
$ns_ at 100 "$ftp_(14) start"
set tcp_(15) [new Agent/TCP/Reno]
$tcp_(15) set class_ 2
set sink_(15) [new Agent/TCPSink]
$ns_ attach-agent $W(15) $tcp_(15)
$ns_ attach-agent $node_(15) $sink_(15)
$ns_ connect $tcp_(15) $sink_(15)
set ftp_(15) [new Application/FTP]
$ftp_(15) attach-agent $tcp_(15)
$ns_ at 100 "$ftp_(15) start"
set tcp_(16) [new Agent/TCP/Reno]
$tcp_(16) set class_ 2
set sink_(16) [new Agent/TCPSink]
$ns_ attach-agent $W(16) $tcp_(16)
$ns_ attach-agent $node_(16) $sink_(16)
$ns_ connect $tcp_(16) $sink_(16)
set ftp_(16) [new Application/FTP]
$ftp_(16) attach-agent $tcp_(16)
$ns_ at 100 "$ftp_(16) start"
set tcp_(17) [new Agent/TCP/Reno]
$tcp_(17) set class_ 2
set sink_(17) [new Agent/TCPSink]
$ns_ attach-agent $W(17) $tcp_(17)
$ns_ attach-agent $node_(17) $sink_(17)
$ns_ connect $tcp_(17) $sink_(17)
set ftp_(17) [new Application/FTP]
$ftp_(17) attach-agent $tcp_(17)
$ns_ at 100 "$ftp_(17) start"
set tcp_(18) [new Agent/TCP/Reno]
$tcp_(18) set class_ 2
set sink_(18) [new Agent/TCPSink]
$ns_ attach-agent $W(18) $tcp_(18)
$ns_ attach-agent $node_(18) $sink_(18)
$ns_ connect $tcp_(18) $sink_(18)
set ftp_(18) [new Application/FTP]
$ftp_(18) attach-agent $tcp_(18)
$ns_ at 100 "$ftp_(18) start"
set tcp_(19) [new Agent/TCP/Reno]
$tcp_(19) set class_ 2
set sink_(19) [new Agent/TCPSink]
$ns_ attach-agent $W(19) $tcp_(19)
$ns_ attach-agent $node_(19) $sink_(19)
$ns_ connect $tcp_(19) $sink_(19)
set ftp_(19) [new Application/FTP]
$ftp_(19) attach-agent $tcp_(19)
$ns_ at 100 "$ftp_(19) start"
set tcp_(20) [new Agent/TCP/Reno]
$tcp_(20) set class_ 2
set sink_(20) [new Agent/TCPSink]
$ns_ attach-agent $W(20) $tcp_(20)
$ns_ attach-agent $node_(20) $sink_(20)
$ns_ connect $tcp_(20) $sink_(20)
set ftp_(20) [new Application/FTP]
$ftp_(20) attach-agent $tcp_(20)
$ns_ at 100 "$ftp_(20) start"
set tcp_(21) [new Agent/TCP/Reno]
$tcp_(21) set class_ 2
set sink_(21) [new Agent/TCPSink]
$ns_ attach-agent $W(21) $tcp_(21)
$ns_ attach-agent $node_(21) $sink_(21)
$ns_ connect $tcp_(21) $sink_(21)
set ftp_(21) [new Application/FTP]
$ftp_(21) attach-agent $tcp_(21)
$ns_ at 100 "$ftp_(21) start"
set tcp_(22) [new Agent/TCP/Reno]
$tcp_(22) set class_ 2
set sink_(22) [new Agent/TCPSink]
$ns_ attach-agent $W(22) $tcp_(22)
$ns_ attach-agent $node_(22) $sink_(22)
$ns_ connect $tcp_(22) $sink_(22)
set ftp_(22) [new Application/FTP]
$ftp_(22) attach-agent $tcp_(22)
$ns_ at 100 "$ftp_(22) start"
set tcp_(23) [new Agent/TCP/Reno]
$tcp_(23) set class_ 2
set sink_(23) [new Agent/TCPSink]
$ns_ attach-agent $W(23) $tcp_(23)
$ns_ attach-agent $node_(23) $sink_(23)
$ns_ connect $tcp_(23) $sink_(23)
set ftp_(23) [new Application/FTP]
$ftp_(23) attach-agent $tcp_(23)
$ns_ at 100 "$ftp_(23) start"
set tcp_(24) [new Agent/TCP/Reno]
$tcp_(24) set class_ 2
set sink_(24) [new Agent/TCPSink]
$ns_ attach-agent $W(24) $tcp_(24)
$ns_ attach-agent $node_(24) $sink_(24)
$ns_ connect $tcp_(24) $sink_(24)
set ftp_(24) [new Application/FTP]
$ftp_(24) attach-agent $tcp_(24)
$ns_ at 100 "$ftp_(24) start"
set tcp_(25) [new Agent/TCP/Reno]
$tcp_(25) set class_ 2
set sink_(25) [new Agent/TCPSink]
$ns_ attach-agent $W(25) $tcp_(25)
$ns_ attach-agent $node_(25) $sink_(25)
$ns_ connect $tcp_(25) $sink_(25)
set ftp_(25) [new Application/FTP]
$ftp_(25) attach-agent $tcp_(25)
$ns_ at 100 "$ftp_(25) start"
set tcp_(26) [new Agent/TCP/Reno]
$tcp_(26) set class_ 2
set sink_(26) [new Agent/TCPSink]
$ns_ attach-agent $W(26) $tcp_(26)
$ns_ attach-agent $node_(26) $sink_(26)
$ns_ connect $tcp_(26) $sink_(26)
set ftp_(26) [new Application/FTP]
$ftp_(26) attach-agent $tcp_(26)
$ns_ at 100 "$ftp_(26) start"
set tcp_(27) [new Agent/TCP/Reno]
$tcp_(27) set class_ 2
set sink_(27) [new Agent/TCPSink]
$ns_ attach-agent $W(27) $tcp_(27)
$ns_ attach-agent $node_(27) $sink_(27)
$ns_ connect $tcp_(27) $sink_(27)
set ftp_(27) [new Application/FTP]
$ftp_(27) attach-agent $tcp_(27)
$ns_ at 100 "$ftp_(27) start"
set tcp_(28) [new Agent/TCP/Reno]
$tcp_(28) set class_ 2
set sink_(28) [new Agent/TCPSink]
$ns_ attach-agent $W(28) $tcp_(28)
$ns_ attach-agent $node_(28) $sink_(28)
$ns_ connect $tcp_(28) $sink_(28)
set ftp_(28) [new Application/FTP]
$ftp_(28) attach-agent $tcp_(28)
$ns_ at 100 "$ftp_(28) start"
set tcp_(29) [new Agent/TCP/Reno]
$tcp_(29) set class_ 2
set sink_(29) [new Agent/TCPSink]
$ns_ attach-agent $W(29) $tcp_(29)
$ns_ attach-agent $node_(29) $sink_(29)
$ns_ connect $tcp_(29) $sink_(29)
set ftp_(29) [new Application/FTP]
$ftp_(29) attach-agent $tcp_(29)
$ns_ at 100 "$ftp_(29) start"
#up stream for TCP
set tcp_(60) [new Agent/TCP/Reno]
$tcp_(60) set class_ 2
set sink_(60) [new Agent/TCPSink]
$ns_ attach-agent $node_(0) $tcp_(60)
$ns_ attach-agent $W(0) $sink_(60)
$ns_ connect $tcp_(60) $sink_(60)
set ftp_(60) [new Application/FTP]
$ftp_(60) attach-agent $tcp_(60)
$ns_ at 100 "$ftp_(60) start"
set tcp_(61) [new Agent/TCP/Reno]
$tcp_(61) set class_ 2
set sink_(61) [new Agent/TCPSink]
$ns_ attach-agent $node_(1) $tcp_(61)
$ns_ attach-agent $W(1) $sink_(61)
$ns_ connect $tcp_(61) $sink_(61)
set ftp_(61) [new Application/FTP]
$ftp_(61) attach-agent $tcp_(61)
$ns_ at 100 "$ftp_(61) start"
set tcp_(62) [new Agent/TCP/Reno]
$tcp_(62) set class_ 2
set sink_(62) [new Agent/TCPSink]
$ns_ attach-agent $node_(2) $tcp_(62)
$ns_ attach-agent $W(2) $sink_(62)
$ns_ connect $tcp_(62) $sink_(62)
set ftp_(62) [new Application/FTP]
$ftp_(62) attach-agent $tcp_(62)
$ns_ at 100 "$ftp_(62) start"
set tcp_(63) [new Agent/TCP/Reno]
$tcp_(63) set class_ 2
set sink_(63) [new Agent/TCPSink]
$ns_ attach-agent $node_(3) $tcp_(63)
$ns_ attach-agent $W(3) $sink_(63)
$ns_ connect $tcp_(63) $sink_(63)
set ftp_(63) [new Application/FTP]
$ftp_(63) attach-agent $tcp_(63)
$ns_ at 100 "$ftp_(63) start"
set tcp_(64) [new Agent/TCP/Reno]
$tcp_(64) set class_ 2
set sink_(64) [new Agent/TCPSink]
$ns_ attach-agent $node_(4) $tcp_(64)
$ns_ attach-agent $W(4) $sink_(64)
$ns_ connect $tcp_(64) $sink_(64)
set ftp_(64) [new Application/FTP]
$ftp_(64) attach-agent $tcp_(64)
$ns_ at 100 "$ftp_(64) start"
set tcp_(65) [new Agent/TCP/Reno]
$tcp_(65) set class_ 2
set sink_(65) [new Agent/TCPSink]
$ns_ attach-agent $node_(5) $tcp_(65)
$ns_ attach-agent $W(5) $sink_(65)
$ns_ connect $tcp_(65) $sink_(65)
set ftp_(65) [new Application/FTP]
$ftp_(65) attach-agent $tcp_(65)
$ns_ at 100 "$ftp_(65) start"
set tcp_(66) [new Agent/TCP/Reno]
$tcp_(66) set class_ 2
set sink_(66) [new Agent/TCPSink]
$ns_ attach-agent $node_(6) $tcp_(66)
$ns_ attach-agent $W(6) $sink_(66)
$ns_ connect $tcp_(66) $sink_(66)
set ftp_(66) [new Application/FTP]
$ftp_(66) attach-agent $tcp_(66)
$ns_ at 100 "$ftp_(66) start"
set tcp_(67) [new Agent/TCP/Reno]
$tcp_(67) set class_ 2
set sink_(67) [new Agent/TCPSink]
$ns_ attach-agent $node_(7) $tcp_(67)
$ns_ attach-agent $W(7) $sink_(67)
$ns_ connect $tcp_(67) $sink_(67)
set ftp_(67) [new Application/FTP]
$ftp_(67) attach-agent $tcp_(67)
$ns_ at 100 "$ftp_(67) start"
set tcp_(68) [new Agent/TCP/Reno]
$tcp_(68) set class_ 2
set sink_(68) [new Agent/TCPSink]
$ns_ attach-agent $node_(8) $tcp_(68)
$ns_ attach-agent $W(8) $sink_(68)
$ns_ connect $tcp_(68) $sink_(68)
set ftp_(68) [new Application/FTP]
$ftp_(68) attach-agent $tcp_(68)
$ns_ at 100 "$ftp_(68) start"
set tcp_(69) [new Agent/TCP/Reno]
$tcp_(69) set class_ 2
set sink_(69) [new Agent/TCPSink]
$ns_ attach-agent $node_(9) $tcp_(69)
$ns_ attach-agent $W(9) $sink_(69)
$ns_ connect $tcp_(69) $sink_(69)
set ftp_(69) [new Application/FTP]
$ftp_(69) attach-agent $tcp_(69)
$ns_ at 100 "$ftp_(69) start"
set tcp_(70) [new Agent/TCP/Reno]
$tcp_(70) set class_ 2
set sink_(70) [new Agent/TCPSink]
$ns_ attach-agent $node_(10) $tcp_(70)
$ns_ attach-agent $W(10) $sink_(70)
$ns_ connect $tcp_(70) $sink_(70)
set ftp_(70) [new Application/FTP]
$ftp_(70) attach-agent $tcp_(70)
$ns_ at 100 "$ftp_(70) start"
set tcp_(71) [new Agent/TCP/Reno]
$tcp_(71) set class_ 2
set sink_(71) [new Agent/TCPSink]
$ns_ attach-agent $node_(11) $tcp_(71)
$ns_ attach-agent $W(11) $sink_(71)
$ns_ connect $tcp_(71) $sink_(71)
set ftp_(71) [new Application/FTP]
$ftp_(71) attach-agent $tcp_(71)
$ns_ at 100 "$ftp_(71) start"
set tcp_(72) [new Agent/TCP/Reno]
$tcp_(72) set class_ 2
set sink_(72) [new Agent/TCPSink]
$ns_ attach-agent $node_(12) $tcp_(72)
$ns_ attach-agent $W(12) $sink_(72)
$ns_ connect $tcp_(72) $sink_(72)
set ftp_(72) [new Application/FTP]
$ftp_(72) attach-agent $tcp_(72)
$ns_ at 100 "$ftp_(72) start"
set tcp_(73) [new Agent/TCP/Reno]
$tcp_(73) set class_ 2
set sink_(73) [new Agent/TCPSink]
$ns_ attach-agent $node_(13) $tcp_(73)
$ns_ attach-agent $W(13) $sink_(73)
$ns_ connect $tcp_(73) $sink_(73)
set ftp_(73) [new Application/FTP]
$ftp_(73) attach-agent $tcp_(73)
$ns_ at 100 "$ftp_(73) start"
set tcp_(74) [new Agent/TCP/Reno]
$tcp_(74) set class_ 2
set sink_(74) [new Agent/TCPSink]
$ns_ attach-agent $node_(14) $tcp_(74)
$ns_ attach-agent $W(14) $sink_(74)
$ns_ connect $tcp_(74) $sink_(74)
set ftp_(74) [new Application/FTP]
$ftp_(74) attach-agent $tcp_(74)
$ns_ at 100 "$ftp_(74) start"
set tcp_(75) [new Agent/TCP/Reno]
$tcp_(75) set class_ 2
set sink_(75) [new Agent/TCPSink]
$ns_ attach-agent $node_(15) $tcp_(75)
$ns_ attach-agent $W(15) $sink_(75)
$ns_ connect $tcp_(75) $sink_(75)
set ftp_(75) [new Application/FTP]
$ftp_(75) attach-agent $tcp_(75)
$ns_ at 100 "$ftp_(75) start"
set tcp_(76) [new Agent/TCP/Reno]
$tcp_(76) set class_ 2
set sink_(76) [new Agent/TCPSink]
$ns_ attach-agent $node_(16) $tcp_(76)
$ns_ attach-agent $W(16) $sink_(76)
$ns_ connect $tcp_(76) $sink_(76)
set ftp_(76) [new Application/FTP]
$ftp_(76) attach-agent $tcp_(76)
$ns_ at 100 "$ftp_(76) start"
set tcp_(77) [new Agent/TCP/Reno]
$tcp_(77) set class_ 2
set sink_(77) [new Agent/TCPSink]
$ns_ attach-agent $node_(17) $tcp_(77)
$ns_ attach-agent $W(17) $sink_(77)
$ns_ connect $tcp_(77) $sink_(77)
set ftp_(77) [new Application/FTP]
$ftp_(77) attach-agent $tcp_(77)
$ns_ at 100 "$ftp_(77) start"
set tcp_(78) [new Agent/TCP/Reno]
$tcp_(78) set class_ 2
set sink_(78) [new Agent/TCPSink]
$ns_ attach-agent $node_(18) $tcp_(78)
$ns_ attach-agent $W(18) $sink_(78)
$ns_ connect $tcp_(78) $sink_(78)
set ftp_(78) [new Application/FTP]
$ftp_(78) attach-agent $tcp_(78)
$ns_ at 100 "$ftp_(78) start"
set tcp_(79) [new Agent/TCP/Reno]
$tcp_(79) set class_ 2
set sink_(79) [new Agent/TCPSink]
$ns_ attach-agent $node_(19) $tcp_(79)
$ns_ attach-agent $W(19) $sink_(79)
$ns_ connect $tcp_(79) $sink_(79)
set ftp_(79) [new Application/FTP]
$ftp_(79) attach-agent $tcp_(79)
$ns_ at 100 "$ftp_(79) start"
set tcp_(80) [new Agent/TCP/Reno]
$tcp_(80) set class_ 2
set sink_(80) [new Agent/TCPSink]
$ns_ attach-agent $node_(20) $tcp_(80)
$ns_ attach-agent $W(20) $sink_(80)
$ns_ connect $tcp_(80) $sink_(80)
set ftp_(80) [new Application/FTP]
$ftp_(80) attach-agent $tcp_(80)
$ns_ at 100 "$ftp_(80) start"
set tcp_(81) [new Agent/TCP/Reno]
$tcp_(81) set class_ 2
set sink_(81) [new Agent/TCPSink]
$ns_ attach-agent $node_(21) $tcp_(81)
$ns_ attach-agent $W(21) $sink_(81)
$ns_ connect $tcp_(81) $sink_(81)
set ftp_(81) [new Application/FTP]
$ftp_(81) attach-agent $tcp_(81)
$ns_ at 100 "$ftp_(81) start"
set tcp_(82) [new Agent/TCP/Reno]
$tcp_(82) set class_ 2
set sink_(82) [new Agent/TCPSink]
$ns_ attach-agent $node_(22) $tcp_(82)
$ns_ attach-agent $W(22) $sink_(82)
$ns_ connect $tcp_(82) $sink_(82)
set ftp_(82) [new Application/FTP]
$ftp_(82) attach-agent $tcp_(82)
$ns_ at 100 "$ftp_(82) start"
set tcp_(83) [new Agent/TCP/Reno]
$tcp_(83) set class_ 2
set sink_(83) [new Agent/TCPSink]
$ns_ attach-agent $node_(23) $tcp_(83)
$ns_ attach-agent $W(23) $sink_(83)
$ns_ connect $tcp_(83) $sink_(83)
set ftp_(83) [new Application/FTP]
$ftp_(83) attach-agent $tcp_(83)
$ns_ at 100 "$ftp_(83) start"
set tcp_(84) [new Agent/TCP/Reno]
$tcp_(84) set class_ 2
set sink_(84) [new Agent/TCPSink]
$ns_ attach-agent $node_(24) $tcp_(84)
$ns_ attach-agent $W(24) $sink_(84)
$ns_ connect $tcp_(84) $sink_(84)
set ftp_(84) [new Application/FTP]
$ftp_(84) attach-agent $tcp_(84)
$ns_ at 100 "$ftp_(84) start"
set tcp_(85) [new Agent/TCP/Reno]
$tcp_(85) set class_ 2
set sink_(85) [new Agent/TCPSink]
$ns_ attach-agent $node_(25) $tcp_(85)
$ns_ attach-agent $W(25) $sink_(85)
$ns_ connect $tcp_(85) $sink_(85)
set ftp_(85) [new Application/FTP]
$ftp_(85) attach-agent $tcp_(85)
$ns_ at 100 "$ftp_(85) start"
set tcp_(86) [new Agent/TCP/Reno]
$tcp_(86) set class_ 2
set sink_(86) [new Agent/TCPSink]
$ns_ attach-agent $node_(26) $tcp_(86)
$ns_ attach-agent $W(26) $sink_(86)
$ns_ connect $tcp_(86) $sink_(86)
set ftp_(86) [new Application/FTP]
$ftp_(86) attach-agent $tcp_(86)
$ns_ at 100 "$ftp_(86) start"
set tcp_(87) [new Agent/TCP/Reno]
$tcp_(87) set class_ 2
set sink_(87) [new Agent/TCPSink]
$ns_ attach-agent $node_(27) $tcp_(87)
$ns_ attach-agent $W(27) $sink_(87)
$ns_ connect $tcp_(87) $sink_(87)
set ftp_(87) [new Application/FTP]
$ftp_(87) attach-agent $tcp_(87)
$ns_ at 100 "$ftp_(87) start"
set tcp_(88) [new Agent/TCP/Reno]
$tcp_(88) set class_ 2
set sink_(88) [new Agent/TCPSink]
$ns_ attach-agent $node_(28) $tcp_(88)
$ns_ attach-agent $W(28) $sink_(88)
$ns_ connect $tcp_(88) $sink_(88)
set ftp_(88) [new Application/FTP]
$ftp_(88) attach-agent $tcp_(88)
$ns_ at 100 "$ftp_(88) start"
set tcp_(89) [new Agent/TCP/Reno]
$tcp_(89) set class_ 2
set sink_(89) [new Agent/TCPSink]
$ns_ attach-agent $node_(29) $tcp_(89)
$ns_ attach-agent $W(29) $sink_(89)
$ns_ connect $tcp_(89) $sink_(89)
set ftp_(89) [new Application/FTP]
$ftp_(89) attach-agent $tcp_(89)
$ns_ at 100 "$ftp_(89) start"
#================================================
$ns_ at $opt(stop).0 "$BS(0) reset";
for {set t 0} {$t < $opt(mn)} {incr t} {
$ns_ at $opt(stop).0000010 "$node_($t) reset";
}
$ns_ at $opt(stop).1 "puts \"NS EXITING...\" ; $ns_ halt"
$ns_ at $opt(stop).0001 "stop"
proc stop {} {
global ns_ tracefd
# global ns_ namtracefd
close $tracefd
# close $namtracefd
}
# informative headers for CMUTracefile
#puts $tracefd "M 0.0 nn $opt(nm) x $opt(x) y $opt(y) rp \
# $opt(adhocRouting)"
#puts $tracefd "M 0.0 sc $opt(sc) cp $opt(cp) seed $opt(seed)"
#puts $tracefd "M 0.0 prop $opt(prop) ant $opt(ant)"
puts "Starting Simulation..."
$ns_ run
############################################################################
다음은 40개의 노드에 대한 tcl 파일이다.
파일명은 data40.tcl이다.
###########################################################################
### This simulation is an example of combination of wired and wireless
### topologies.
global opt
set opt(chan) Channel/WirelessChannel
set opt(prop) Propagation/TwoRayGround
set opt(netif) Phy/WirelessPhy
set opt(mac) Mac/802_11
set opt(ifq) Queue/DropTail/PriQueue
set opt(ll) LL
set opt(ant) Antenna/OmniAntenna
set opt(x) 500
set opt(y) 500
set opt(ifqlen) 50
set opt(adhocRouting) DSDV;#AODV ;#DSDV, DSR
set opt(cp) ""
set opt(sc) "../mobility/scene/scen-3-test"
set opt(stop) 500
set num_wired_nodes 2
set num_bs_nodes 1
set opt(mn) 40
set cmin [lindex $argv 0]
set cmax [lindex $argv 1]
set opt(nm) 41
Agent/TCP set packetSize_ 1480
# Mac/802_11 set RTSThreshold_ 99999
Mac/802_11 set dataRate_ 11.0e6 ;# 11Mbps
Mac/802_11 set basicRate_ 11.0e6 ;# 1Mbps
# ===========================================================
# 802.11b value
#The Antenna height of transmitter and receiver is 1.5m.
Phy/WirelessPhy set bandwidth_ 11Mb
#===============================================================
set ns_ [new Simulator]
# set up for hierarchical routing
$ns_ node-config -addressType hierarchical
AddrParams set domain_num_ 2 ;# number of domains
lappend cluster_num 1 1 ;# number of clusters in each domain
AddrParams set cluster_num_ $cluster_num
lappend eilastlevel $opt(nm) $opt(nm) ;# number of nodes in each cluster
AddrParams set nodes_num_ $eilastlevel ;# of each domain
set tracefd [open up_down_stream_$opt(mn)-$opt(mn)-$cmin-$cmax.tr w]
$ns_ trace-all $tracefd
# Create topography object
set topo [new Topography]
# define topology
$topo load_flatgrid $opt(x) $opt(y)
# create God
create-god $opt(nm)
set temp {0.0.0 0.0.1 0.0.2 0.0.3 0.0.4 0.0.5 0.0.6 0.0.7 0.0.8 0.0.9 0.0.10 0.0.11 0.0.12 0.0.13 0.0.14 0.0.15 0.0.16 0.0.17 0.0.18 0.0.19 0.0.20 0.0.21 0.0.22 0.0.23 0.0.24 0.0.25 0.0.26 0.0.27 0.0.28 0.0.29 0.0.30 0.0.31 0.0.32 0.0.33 0.0.34 0.0.35 0.0.36 0.0.37 0.0.38 0.0.39 0.0.40 0.0.41 0.0.42 0.0.43 0.0.44 0.0.45 0.0.46 0.0.47 0.0.48 0.0.49 0.0.50 0.0.51 0.0.52 0.0.53 0.0.54 0.0.55 0.0.56 0.0.57 0.0.58 0.0.59 0.0.60 0.0.61 0.0.62 0.0.63 0.0.64 0.0.65 0.0.66 0.0.67 0.0.68 0.0.69 0.0.70 0.0.71 0.0.72 0.0.73 0.0.74 0.0.75 0.0.76 0.0.77 0.0.78 0.0.79 0.0.80} ;# hierarchical addresses for wired domain
for {set i 0} {$i < $opt(nm)} {incr i} {
set W($i) [$ns_ node [lindex $temp $i]]
}
Mac/802_11 set CWMin_ $cmin
Mac/802_11 set CWMax_ $cmax
puts "CW value : $cmin $cmax"
#Mac/802_11 set ShortRetryLimit_ 7 ;# retransmittions
#Mac/802_11 set LongRetryLimit_ 4 ;# retransmissions
$ns_ node-config -adhocRouting $opt(adhocRouting) \
-llType $opt(ll) \
-macType $opt(mac) \
-ifqType $opt(ifq) \
-ifqLen $opt(ifqlen) \
-antType $opt(ant) \
-propType $opt(prop) \
-phyType $opt(netif) \
-channelType $opt(chan) \
-topoInstance $topo \
-wiredRouting ON \
-agentTrace ON \
-routerTrace OFF \
-macTrace OFF \
set temp {1.0.0 1.0.1 1.0.2 1.0.3 1.0.4 1.0.5 1.0.6 1.0.7 1.0.8 1.0.9 1.0.10 1.0.11 1.0.12 1.0.13 1.0.14 1.0.15 1.0.16 1.0.17 1.0.18 1.0.19 1.0.20 1.0.21 1.0.22 1.0.23 1.0.24 1.0.25 1.0.26 1.0.27 1.0.28 1.0.29 1.0.30 1.0.31 1.0.32 1.0.33 1.0.34 1.0.35 1.0.36 1.0.37 1.0.38 1.0.39 1.0.40 1.0.41 1.0.42 1.0.43 1.0.44 1.0.45 1.0.46 1.0.47 1.0.48 1.0.49 1.0.50 1.0.51 1.0.52 1.0.53 1.0.54 1.0.55 1.0.56 1.0.57 1.0.58 1.0.59 1.0.60 1.0.61 1.0.62 1.0.63 1.0.64 1.0.65 1.0.66 1.0.67 1.0.68 1.0.69 1.0.70 1.0.71 1.0.72 1.0.73 1.0.74 1.0.75 1.0.76 1.0.77 1.0.78 1.0.79 1.0.80} ;# hier address to be used for wireless
set BS(0) [$ns_ node [lindex $temp 0]]
$BS(0) random-motion 0
Mac/802_11 set CWMin_ 31
Mac/802_11 set CWMax_ 1023
# Mac/802_11 set ShortRetryLimit_ 7 ;# retransmittions
# Mac/802_11 set LongRetryLimit_ 4 ;# retransmissions
$ns_ node-config -adhocRouting $opt(adhocRouting) \
-llType $opt(ll) \
-macType $opt(mac) \
-ifqType $opt(ifq) \
-ifqLen $opt(ifqlen) \
-antType $opt(ant) \
-propType $opt(prop) \
-phyType $opt(netif) \
-channelType $opt(chan) \
-topoInstance $topo \
-wiredRouting ON \
-agentTrace ON \
-routerTrace OFF \
-macTrace OFF \
for {set j 0} {$j < $opt(mn)} {incr j} {
set node_($j) [ $ns_ node [lindex $temp \
[expr $j+1]] ]
$node_($j) base-station [AddrParams addr2id [$BS(0) node-addr]]
}
$ns_ duplex-link $W(0) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(1) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(2) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(3) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(4) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(5) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(6) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(7) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(8) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(9) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(10) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(11) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(12) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(13) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(14) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(15) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(16) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(17) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(18) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(19) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(20) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(21) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(22) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(23) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(24) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(25) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(26) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(27) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(28) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(29) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(30) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(31) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(32) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(33) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(34) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(35) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(36) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(37) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(38) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(39) $W(40) 100Mb 100ms DropTail
$ns_ duplex-link $W(40) $BS(0) 100Mb 100ms DropTail
#===============================================================
#down strem for TCP
set tcp_(0) [new Agent/TCP/Reno]
$tcp_(0) set class_ 2
set sink_(0) [new Agent/TCPSink]
$ns_ attach-agent $W(0) $tcp_(0)
$ns_ attach-agent $node_(0) $sink_(0)
$ns_ connect $tcp_(0) $sink_(0)
set ftp_(0) [new Application/FTP]
$ftp_(0) attach-agent $tcp_(0)
$ns_ at 100 "$ftp_(0) start"
set tcp_(1) [new Agent/TCP/Reno]
$tcp_(1) set class_ 2
set sink_(1) [new Agent/TCPSink]
$ns_ attach-agent $W(1) $tcp_(1)
$ns_ attach-agent $node_(1) $sink_(1)
$ns_ connect $tcp_(1) $sink_(1)
set ftp_(1) [new Application/FTP]
$ftp_(1) attach-agent $tcp_(1)
$ns_ at 100 "$ftp_(1) start"
set tcp_(2) [new Agent/TCP/Reno]
$tcp_(2) set class_ 2
set sink_(2) [new Agent/TCPSink]
$ns_ attach-agent $W(2) $tcp_(2)
$ns_ attach-agent $node_(2) $sink_(2)
$ns_ connect $tcp_(2) $sink_(2)
set ftp_(2) [new Application/FTP]
$ftp_(2) attach-agent $tcp_(2)
$ns_ at 100 "$ftp_(2) start"
set tcp_(3) [new Agent/TCP/Reno]
$tcp_(3) set class_ 2
set sink_(3) [new Agent/TCPSink]
$ns_ attach-agent $W(3) $tcp_(3)
$ns_ attach-agent $node_(3) $sink_(3)
$ns_ connect $tcp_(3) $sink_(3)
set ftp_(3) [new Application/FTP]
$ftp_(3) attach-agent $tcp_(3)
$ns_ at 100 "$ftp_(3) start"
set tcp_(4) [new Agent/TCP/Reno]
$tcp_(4) set class_ 2
set sink_(4) [new Agent/TCPSink]
$ns_ attach-agent $W(4) $tcp_(4)
$ns_ attach-agent $node_(4) $sink_(4)
$ns_ connect $tcp_(4) $sink_(4)
set ftp_(4) [new Application/FTP]
$ftp_(4) attach-agent $tcp_(4)
$ns_ at 100 "$ftp_(4) start"
set tcp_(5) [new Agent/TCP/Reno]
$tcp_(5) set class_ 2
set sink_(5) [new Agent/TCPSink]
$ns_ attach-agent $W(5) $tcp_(5)
$ns_ attach-agent $node_(5) $sink_(5)
$ns_ connect $tcp_(5) $sink_(5)
set ftp_(5) [new Application/FTP]
$ftp_(5) attach-agent $tcp_(5)
$ns_ at 100 "$ftp_(5) start"
set tcp_(6) [new Agent/TCP/Reno]
$tcp_(6) set class_ 2
set sink_(6) [new Agent/TCPSink]
$ns_ attach-agent $W(6) $tcp_(6)
$ns_ attach-agent $node_(6) $sink_(6)
$ns_ connect $tcp_(6) $sink_(6)
set ftp_(6) [new Application/FTP]
$ftp_(6) attach-agent $tcp_(6)
$ns_ at 100 "$ftp_(6) start"
set tcp_(7) [new Agent/TCP/Reno]
$tcp_(7) set class_ 2
set sink_(7) [new Agent/TCPSink]
$ns_ attach-agent $W(7) $tcp_(7)
$ns_ attach-agent $node_(7) $sink_(7)
$ns_ connect $tcp_(7) $sink_(7)
set ftp_(7) [new Application/FTP]
$ftp_(7) attach-agent $tcp_(7)
$ns_ at 100 "$ftp_(7) start"
set tcp_(8) [new Agent/TCP/Reno]
$tcp_(8) set class_ 2
set sink_(8) [new Agent/TCPSink]
$ns_ attach-agent $W(8) $tcp_(8)
$ns_ attach-agent $node_(8) $sink_(8)
$ns_ connect $tcp_(8) $sink_(8)
set ftp_(8) [new Application/FTP]
$ftp_(8) attach-agent $tcp_(8)
$ns_ at 100 "$ftp_(8) start"
set tcp_(9) [new Agent/TCP/Reno]
$tcp_(9) set class_ 2
set sink_(9) [new Agent/TCPSink]
$ns_ attach-agent $W(9) $tcp_(9)
$ns_ attach-agent $node_(9) $sink_(9)
$ns_ connect $tcp_(9) $sink_(9)
set ftp_(9) [new Application/FTP]
$ftp_(9) attach-agent $tcp_(9)
$ns_ at 100 "$ftp_(9) start"
set tcp_(10) [new Agent/TCP/Reno]
$tcp_(10) set class_ 2
set sink_(10) [new Agent/TCPSink]
$ns_ attach-agent $W(10) $tcp_(10)
$ns_ attach-agent $node_(10) $sink_(10)
$ns_ connect $tcp_(10) $sink_(10)
set ftp_(10) [new Application/FTP]
$ftp_(10) attach-agent $tcp_(10)
$ns_ at 100 "$ftp_(10) start"
set tcp_(11) [new Agent/TCP/Reno]
$tcp_(11) set class_ 2
set sink_(11) [new Agent/TCPSink]
$ns_ attach-agent $W(11) $tcp_(11)
$ns_ attach-agent $node_(11) $sink_(11)
$ns_ connect $tcp_(11) $sink_(11)
set ftp_(11) [new Application/FTP]
$ftp_(11) attach-agent $tcp_(11)
$ns_ at 100 "$ftp_(11) start"
set tcp_(12) [new Agent/TCP/Reno]
$tcp_(12) set class_ 2
set sink_(12) [new Agent/TCPSink]
$ns_ attach-agent $W(12) $tcp_(12)
$ns_ attach-agent $node_(12) $sink_(12)
$ns_ connect $tcp_(12) $sink_(12)
set ftp_(12) [new Application/FTP]
$ftp_(12) attach-agent $tcp_(12)
$ns_ at 100 "$ftp_(12) start"
set tcp_(13) [new Agent/TCP/Reno]
$tcp_(13) set class_ 2
set sink_(13) [new Agent/TCPSink]
$ns_ attach-agent $W(13) $tcp_(13)
$ns_ attach-agent $node_(13) $sink_(13)
$ns_ connect $tcp_(13) $sink_(13)
set ftp_(13) [new Application/FTP]
$ftp_(13) attach-agent $tcp_(13)
$ns_ at 100 "$ftp_(13) start"
set tcp_(14) [new Agent/TCP/Reno]
$tcp_(14) set class_ 2
set sink_(14) [new Agent/TCPSink]
$ns_ attach-agent $W(14) $tcp_(14)
$ns_ attach-agent $node_(14) $sink_(14)
$ns_ connect $tcp_(14) $sink_(14)
set ftp_(14) [new Application/FTP]
$ftp_(14) attach-agent $tcp_(14)
$ns_ at 100 "$ftp_(14) start"
set tcp_(15) [new Agent/TCP/Reno]
$tcp_(15) set class_ 2
set sink_(15) [new Agent/TCPSink]
$ns_ attach-agent $W(15) $tcp_(15)
$ns_ attach-agent $node_(15) $sink_(15)
$ns_ connect $tcp_(15) $sink_(15)
set ftp_(15) [new Application/FTP]
$ftp_(15) attach-agent $tcp_(15)
$ns_ at 100 "$ftp_(15) start"
set tcp_(16) [new Agent/TCP/Reno]
$tcp_(16) set class_ 2
set sink_(16) [new Agent/TCPSink]
$ns_ attach-agent $W(16) $tcp_(16)
$ns_ attach-agent $node_(16) $sink_(16)
$ns_ connect $tcp_(16) $sink_(16)
set ftp_(16) [new Application/FTP]
$ftp_(16) attach-agent $tcp_(16)
$ns_ at 100 "$ftp_(16) start"
set tcp_(17) [new Agent/TCP/Reno]
$tcp_(17) set class_ 2
set sink_(17) [new Agent/TCPSink]
$ns_ attach-agent $W(17) $tcp_(17)
$ns_ attach-agent $node_(17) $sink_(17)
$ns_ connect $tcp_(17) $sink_(17)
set ftp_(17) [new Application/FTP]
$ftp_(17) attach-agent $tcp_(17)
$ns_ at 100 "$ftp_(17) start"
set tcp_(18) [new Agent/TCP/Reno]
$tcp_(18) set class_ 2
set sink_(18) [new Agent/TCPSink]
$ns_ attach-agent $W(18) $tcp_(18)
$ns_ attach-agent $node_(18) $sink_(18)
$ns_ connect $tcp_(18) $sink_(18)
set ftp_(18) [new Application/FTP]
$ftp_(18) attach-agent $tcp_(18)
$ns_ at 100 "$ftp_(18) start"
set tcp_(19) [new Agent/TCP/Reno]
$tcp_(19) set class_ 2
set sink_(19) [new Agent/TCPSink]
$ns_ attach-agent $W(19) $tcp_(19)
$ns_ attach-agent $node_(19) $sink_(19)
$ns_ connect $tcp_(19) $sink_(19)
set ftp_(19) [new Application/FTP]
$ftp_(19) attach-agent $tcp_(19)
$ns_ at 100 "$ftp_(19) start"
set tcp_(20) [new Agent/TCP/Reno]
$tcp_(20) set class_ 2
set sink_(20) [new Agent/TCPSink]
$ns_ attach-agent $W(20) $tcp_(20)
$ns_ attach-agent $node_(20) $sink_(20)
$ns_ connect $tcp_(20) $sink_(20)
set ftp_(20) [new Application/FTP]
$ftp_(20) attach-agent $tcp_(20)
$ns_ at 100 "$ftp_(20) start"
set tcp_(21) [new Agent/TCP/Reno]
$tcp_(21) set class_ 2
set sink_(21) [new Agent/TCPSink]
$ns_ attach-agent $W(21) $tcp_(21)
$ns_ attach-agent $node_(21) $sink_(21)
$ns_ connect $tcp_(21) $sink_(21)
set ftp_(21) [new Application/FTP]
$ftp_(21) attach-agent $tcp_(21)
$ns_ at 100 "$ftp_(21) start"
set tcp_(22) [new Agent/TCP/Reno]
$tcp_(22) set class_ 2
set sink_(22) [new Agent/TCPSink]
$ns_ attach-agent $W(22) $tcp_(22)
$ns_ attach-agent $node_(22) $sink_(22)
$ns_ connect $tcp_(22) $sink_(22)
set ftp_(22) [new Application/FTP]
$ftp_(22) attach-agent $tcp_(22)
$ns_ at 100 "$ftp_(22) start"
set tcp_(23) [new Agent/TCP/Reno]
$tcp_(23) set class_ 2
set sink_(23) [new Agent/TCPSink]
$ns_ attach-agent $W(23) $tcp_(23)
$ns_ attach-agent $node_(23) $sink_(23)
$ns_ connect $tcp_(23) $sink_(23)
set ftp_(23) [new Application/FTP]
$ftp_(23) attach-agent $tcp_(23)
$ns_ at 100 "$ftp_(23) start"
set tcp_(24) [new Agent/TCP/Reno]
$tcp_(24) set class_ 2
set sink_(24) [new Agent/TCPSink]
$ns_ attach-agent $W(24) $tcp_(24)
$ns_ attach-agent $node_(24) $sink_(24)
$ns_ connect $tcp_(24) $sink_(24)
set ftp_(24) [new Application/FTP]
$ftp_(24) attach-agent $tcp_(24)
$ns_ at 100 "$ftp_(24) start"
set tcp_(25) [new Agent/TCP/Reno]
$tcp_(25) set class_ 2
set sink_(25) [new Agent/TCPSink]
$ns_ attach-agent $W(25) $tcp_(25)
$ns_ attach-agent $node_(25) $sink_(25)
$ns_ connect $tcp_(25) $sink_(25)
set ftp_(25) [new Application/FTP]
$ftp_(25) attach-agent $tcp_(25)
$ns_ at 100 "$ftp_(25) start"
set tcp_(26) [new Agent/TCP/Reno]
$tcp_(26) set class_ 2
set sink_(26) [new Agent/TCPSink]
$ns_ attach-agent $W(26) $tcp_(26)
$ns_ attach-agent $node_(26) $sink_(26)
$ns_ connect $tcp_(26) $sink_(26)
set ftp_(26) [new Application/FTP]
$ftp_(26) attach-agent $tcp_(26)
$ns_ at 100 "$ftp_(26) start"
set tcp_(27) [new Agent/TCP/Reno]
$tcp_(27) set class_ 2
set sink_(27) [new Agent/TCPSink]
$ns_ attach-agent $W(27) $tcp_(27)
$ns_ attach-agent $node_(27) $sink_(27)
$ns_ connect $tcp_(27) $sink_(27)
set ftp_(27) [new Application/FTP]
$ftp_(27) attach-agent $tcp_(27)
$ns_ at 100 "$ftp_(27) start"
set tcp_(28) [new Agent/TCP/Reno]
$tcp_(28) set class_ 2
set sink_(28) [new Agent/TCPSink]
$ns_ attach-agent $W(28) $tcp_(28)
$ns_ attach-agent $node_(28) $sink_(28)
$ns_ connect $tcp_(28) $sink_(28)
set ftp_(28) [new Application/FTP]
$ftp_(28) attach-agent $tcp_(28)
$ns_ at 100 "$ftp_(28) start"
set tcp_(29) [new Agent/TCP/Reno]
$tcp_(29) set class_ 2
set sink_(29) [new Agent/TCPSink]
$ns_ attach-agent $W(29) $tcp_(29)
$ns_ attach-agent $node_(29) $sink_(29)
$ns_ connect $tcp_(29) $sink_(29)
set ftp_(29) [new Application/FTP]
$ftp_(29) attach-agent $tcp_(29)
$ns_ at 100 "$ftp_(29) start"
set tcp_(30) [new Agent/TCP/Reno]
$tcp_(30) set class_ 2
set sink_(30) [new Agent/TCPSink]
$ns_ attach-agent $W(30) $tcp_(30)
$ns_ attach-agent $node_(30) $sink_(30)
$ns_ connect $tcp_(30) $sink_(30)
set ftp_(30) [new Application/FTP]
$ftp_(30) attach-agent $tcp_(30)
$ns_ at 100 "$ftp_(30) start"
set tcp_(31) [new Agent/TCP/Reno]
$tcp_(31) set class_ 2
set sink_(31) [new Agent/TCPSink]
$ns_ attach-agent $W(31) $tcp_(31)
$ns_ attach-agent $node_(31) $sink_(31)
$ns_ connect $tcp_(31) $sink_(31)
set ftp_(31) [new Application/FTP]
$ftp_(31) attach-agent $tcp_(31)
$ns_ at 100 "$ftp_(31) start"
set tcp_(32) [new Agent/TCP/Reno]
$tcp_(32) set class_ 2
set sink_(32) [new Agent/TCPSink]
$ns_ attach-agent $W(32) $tcp_(32)
$ns_ attach-agent $node_(32) $sink_(32)
$ns_ connect $tcp_(32) $sink_(32)
set ftp_(32) [new Application/FTP]
$ftp_(32) attach-agent $tcp_(32)
$ns_ at 100 "$ftp_(32) start"
set tcp_(33) [new Agent/TCP/Reno]
$tcp_(33) set class_ 2
set sink_(33) [new Agent/TCPSink]
$ns_ attach-agent $W(33) $tcp_(33)
$ns_ attach-agent $node_(33) $sink_(33)
$ns_ connect $tcp_(33) $sink_(33)
set ftp_(33) [new Application/FTP]
$ftp_(33) attach-agent $tcp_(33)
$ns_ at 100 "$ftp_(33) start"
set tcp_(34) [new Agent/TCP/Reno]
$tcp_(34) set class_ 2
set sink_(34) [new Agent/TCPSink]
$ns_ attach-agent $W(34) $tcp_(34)
$ns_ attach-agent $node_(34) $sink_(34)
$ns_ connect $tcp_(34) $sink_(34)
set ftp_(34) [new Application/FTP]
$ftp_(34) attach-agent $tcp_(34)
$ns_ at 100 "$ftp_(34) start"
set tcp_(35) [new Agent/TCP/Reno]
$tcp_(35) set class_ 2
set sink_(35) [new Agent/TCPSink]
$ns_ attach-agent $W(35) $tcp_(35)
$ns_ attach-agent $node_(35) $sink_(35)
$ns_ connect $tcp_(35) $sink_(35)
set ftp_(35) [new Application/FTP]
$ftp_(35) attach-agent $tcp_(35)
$ns_ at 100 "$ftp_(35) start"
set tcp_(36) [new Agent/TCP/Reno]
$tcp_(36) set class_ 2
set sink_(36) [new Agent/TCPSink]
$ns_ attach-agent $W(36) $tcp_(36)
$ns_ attach-agent $node_(36) $sink_(36)
$ns_ connect $tcp_(36) $sink_(36)
set ftp_(36) [new Application/FTP]
$ftp_(36) attach-agent $tcp_(36)
$ns_ at 100 "$ftp_(36) start"
set tcp_(37) [new Agent/TCP/Reno]
$tcp_(37) set class_ 2
set sink_(37) [new Agent/TCPSink]
$ns_ attach-agent $W(37) $tcp_(37)
$ns_ attach-agent $node_(37) $sink_(37)
$ns_ connect $tcp_(37) $sink_(37)
set ftp_(37) [new Application/FTP]
$ftp_(37) attach-agent $tcp_(37)
$ns_ at 100 "$ftp_(37) start"
set tcp_(38) [new Agent/TCP/Reno]
$tcp_(38) set class_ 2
set sink_(38) [new Agent/TCPSink]
$ns_ attach-agent $W(38) $tcp_(38)
$ns_ attach-agent $node_(38) $sink_(38)
$ns_ connect $tcp_(38) $sink_(38)
set ftp_(38) [new Application/FTP]
$ftp_(38) attach-agent $tcp_(38)
$ns_ at 100 "$ftp_(38) start"
set tcp_(39) [new Agent/TCP/Reno]
$tcp_(39) set class_ 2
set sink_(39) [new Agent/TCPSink]
$ns_ attach-agent $W(39) $tcp_(39)
$ns_ attach-agent $node_(39) $sink_(39)
$ns_ connect $tcp_(39) $sink_(39)
set ftp_(39) [new Application/FTP]
$ftp_(39) attach-agent $tcp_(39)
$ns_ at 100 "$ftp_(39) start"
#up stream for TCP
set tcp_(60) [new Agent/TCP/Reno]
$tcp_(60) set class_ 2
set sink_(60) [new Agent/TCPSink]
$ns_ attach-agent $node_(0) $tcp_(60)
$ns_ attach-agent $W(0) $sink_(60)
$ns_ connect $tcp_(60) $sink_(60)
set ftp_(60) [new Application/FTP]
$ftp_(60) attach-agent $tcp_(60)
$ns_ at 100 "$ftp_(60) start"
set tcp_(61) [new Agent/TCP/Reno]
$tcp_(61) set class_ 2
set sink_(61) [new Agent/TCPSink]
$ns_ attach-agent $node_(1) $tcp_(61)
$ns_ attach-agent $W(1) $sink_(61)
$ns_ connect $tcp_(61) $sink_(61)
set ftp_(61) [new Application/FTP]
$ftp_(61) attach-agent $tcp_(61)
$ns_ at 100 "$ftp_(61) start"
set tcp_(62) [new Agent/TCP/Reno]
$tcp_(62) set class_ 2
set sink_(62) [new Agent/TCPSink]
$ns_ attach-agent $node_(2) $tcp_(62)
$ns_ attach-agent $W(2) $sink_(62)
$ns_ connect $tcp_(62) $sink_(62)
set ftp_(62) [new Application/FTP]
$ftp_(62) attach-agent $tcp_(62)
$ns_ at 100 "$ftp_(62) start"
set tcp_(63) [new Agent/TCP/Reno]
$tcp_(63) set class_ 2
set sink_(63) [new Agent/TCPSink]
$ns_ attach-agent $node_(3) $tcp_(63)
$ns_ attach-agent $W(3) $sink_(63)
$ns_ connect $tcp_(63) $sink_(63)
set ftp_(63) [new Application/FTP]
$ftp_(63) attach-agent $tcp_(63)
$ns_ at 100 "$ftp_(63) start"
set tcp_(64) [new Agent/TCP/Reno]
$tcp_(64) set class_ 2
set sink_(64) [new Agent/TCPSink]
$ns_ attach-agent $node_(4) $tcp_(64)
$ns_ attach-agent $W(4) $sink_(64)
$ns_ connect $tcp_(64) $sink_(64)
set ftp_(64) [new Application/FTP]
$ftp_(64) attach-agent $tcp_(64)
$ns_ at 100 "$ftp_(64) start"
set tcp_(65) [new Agent/TCP/Reno]
$tcp_(65) set class_ 2
set sink_(65) [new Agent/TCPSink]
$ns_ attach-agent $node_(5) $tcp_(65)
$ns_ attach-agent $W(5) $sink_(65)
$ns_ connect $tcp_(65) $sink_(65)
set ftp_(65) [new Application/FTP]
$ftp_(65) attach-agent $tcp_(65)
$ns_ at 100 "$ftp_(65) start"
set tcp_(66) [new Agent/TCP/Reno]
$tcp_(66) set class_ 2
set sink_(66) [new Agent/TCPSink]
$ns_ attach-agent $node_(6) $tcp_(66)
$ns_ attach-agent $W(6) $sink_(66)
$ns_ connect $tcp_(66) $sink_(66)
set ftp_(66) [new Application/FTP]
$ftp_(66) attach-agent $tcp_(66)
$ns_ at 100 "$ftp_(66) start"
set tcp_(67) [new Agent/TCP/Reno]
$tcp_(67) set class_ 2
set sink_(67) [new Agent/TCPSink]
$ns_ attach-agent $node_(7) $tcp_(67)
$ns_ attach-agent $W(7) $sink_(67)
$ns_ connect $tcp_(67) $sink_(67)
set ftp_(67) [new Application/FTP]
$ftp_(67) attach-agent $tcp_(67)
$ns_ at 100 "$ftp_(67) start"
set tcp_(68) [new Agent/TCP/Reno]
$tcp_(68) set class_ 2
set sink_(68) [new Agent/TCPSink]
$ns_ attach-agent $node_(8) $tcp_(68)
$ns_ attach-agent $W(8) $sink_(68)
$ns_ connect $tcp_(68) $sink_(68)
set ftp_(68) [new Application/FTP]
$ftp_(68) attach-agent $tcp_(68)
$ns_ at 100 "$ftp_(68) start"
set tcp_(69) [new Agent/TCP/Reno]
$tcp_(69) set class_ 2
set sink_(69) [new Agent/TCPSink]
$ns_ attach-agent $node_(9) $tcp_(69)
$ns_ attach-agent $W(9) $sink_(69)
$ns_ connect $tcp_(69) $sink_(69)
set ftp_(69) [new Application/FTP]
$ftp_(69) attach-agent $tcp_(69)
$ns_ at 100 "$ftp_(69) start"
set tcp_(70) [new Agent/TCP/Reno]
$tcp_(70) set class_ 2
set sink_(70) [new Agent/TCPSink]
$ns_ attach-agent $node_(10) $tcp_(70)
$ns_ attach-agent $W(10) $sink_(70)
$ns_ connect $tcp_(70) $sink_(70)
set ftp_(70) [new Application/FTP]
$ftp_(70) attach-agent $tcp_(70)
$ns_ at 100 "$ftp_(70) start"
set tcp_(71) [new Agent/TCP/Reno]
$tcp_(71) set class_ 2
set sink_(71) [new Agent/TCPSink]
$ns_ attach-agent $node_(11) $tcp_(71)
$ns_ attach-agent $W(11) $sink_(71)
$ns_ connect $tcp_(71) $sink_(71)
set ftp_(71) [new Application/FTP]
$ftp_(71) attach-agent $tcp_(71)
$ns_ at 100 "$ftp_(71) start"
set tcp_(72) [new Agent/TCP/Reno]
$tcp_(72) set class_ 2
set sink_(72) [new Agent/TCPSink]
$ns_ attach-agent $node_(12) $tcp_(72)
$ns_ attach-agent $W(12) $sink_(72)
$ns_ connect $tcp_(72) $sink_(72)
set ftp_(72) [new Application/FTP]
$ftp_(72) attach-agent $tcp_(72)
$ns_ at 100 "$ftp_(72) start"
set tcp_(73) [new Agent/TCP/Reno]
$tcp_(73) set class_ 2
set sink_(73) [new Agent/TCPSink]
$ns_ attach-agent $node_(13) $tcp_(73)
$ns_ attach-agent $W(13) $sink_(73)
$ns_ connect $tcp_(73) $sink_(73)
set ftp_(73) [new Application/FTP]
$ftp_(73) attach-agent $tcp_(73)
$ns_ at 100 "$ftp_(73) start"
set tcp_(74) [new Agent/TCP/Reno]
$tcp_(74) set class_ 2
set sink_(74) [new Agent/TCPSink]
$ns_ attach-agent $node_(14) $tcp_(74)
$ns_ attach-agent $W(14) $sink_(74)
$ns_ connect $tcp_(74) $sink_(74)
set ftp_(74) [new Application/FTP]
$ftp_(74) attach-agent $tcp_(74)
$ns_ at 100 "$ftp_(74) start"
set tcp_(75) [new Agent/TCP/Reno]
$tcp_(75) set class_ 2
set sink_(75) [new Agent/TCPSink]
$ns_ attach-agent $node_(15) $tcp_(75)
$ns_ attach-agent $W(15) $sink_(75)
$ns_ connect $tcp_(75) $sink_(75)
set ftp_(75) [new Application/FTP]
$ftp_(75) attach-agent $tcp_(75)
$ns_ at 100 "$ftp_(75) start"
set tcp_(76) [new Agent/TCP/Reno]
$tcp_(76) set class_ 2
set sink_(76) [new Agent/TCPSink]
$ns_ attach-agent $node_(16) $tcp_(76)
$ns_ attach-agent $W(16) $sink_(76)
$ns_ connect $tcp_(76) $sink_(76)
set ftp_(76) [new Application/FTP]
$ftp_(76) attach-agent $tcp_(76)
$ns_ at 100 "$ftp_(76) start"
set tcp_(77) [new Agent/TCP/Reno]
$tcp_(77) set class_ 2
set sink_(77) [new Agent/TCPSink]
$ns_ attach-agent $node_(17) $tcp_(77)
$ns_ attach-agent $W(17) $sink_(77)
$ns_ connect $tcp_(77) $sink_(77)
set ftp_(77) [new Application/FTP]
$ftp_(77) attach-agent $tcp_(77)
$ns_ at 100 "$ftp_(77) start"
set tcp_(78) [new Agent/TCP/Reno]
$tcp_(78) set class_ 2
set sink_(78) [new Agent/TCPSink]
$ns_ attach-agent $node_(18) $tcp_(78)
$ns_ attach-agent $W(18) $sink_(78)
$ns_ connect $tcp_(78) $sink_(78)
set ftp_(78) [new Application/FTP]
$ftp_(78) attach-agent $tcp_(78)
$ns_ at 100 "$ftp_(78) start"
set tcp_(79) [new Agent/TCP/Reno]
$tcp_(79) set class_ 2
set sink_(79) [new Agent/TCPSink]
$ns_ attach-agent $node_(19) $tcp_(79)
$ns_ attach-agent $W(19) $sink_(79)
$ns_ connect $tcp_(79) $sink_(79)
set ftp_(79) [new Application/FTP]
$ftp_(79) attach-agent $tcp_(79)
$ns_ at 100 "$ftp_(79) start"
set tcp_(80) [new Agent/TCP/Reno]
$tcp_(80) set class_ 2
set sink_(80) [new Agent/TCPSink]
$ns_ attach-agent $node_(20) $tcp_(80)
$ns_ attach-agent $W(20) $sink_(80)
$ns_ connect $tcp_(80) $sink_(80)
set ftp_(80) [new Application/FTP]
$ftp_(80) attach-agent $tcp_(80)
$ns_ at 100 "$ftp_(80) start"
set tcp_(81) [new Agent/TCP/Reno]
$tcp_(81) set class_ 2
set sink_(81) [new Agent/TCPSink]
$ns_ attach-agent $node_(21) $tcp_(81)
$ns_ attach-agent $W(21) $sink_(81)
$ns_ connect $tcp_(81) $sink_(81)
set ftp_(81) [new Application/FTP]
$ftp_(81) attach-agent $tcp_(81)
$ns_ at 100 "$ftp_(81) start"
set tcp_(82) [new Agent/TCP/Reno]
$tcp_(82) set class_ 2
set sink_(82) [new Agent/TCPSink]
$ns_ attach-agent $node_(22) $tcp_(82)
$ns_ attach-agent $W(22) $sink_(82)
$ns_ connect $tcp_(82) $sink_(82)
set ftp_(82) [new Application/FTP]
$ftp_(82) attach-agent $tcp_(82)
$ns_ at 100 "$ftp_(82) start"
set tcp_(83) [new Agent/TCP/Reno]
$tcp_(83) set class_ 2
set sink_(83) [new Agent/TCPSink]
$ns_ attach-agent $node_(23) $tcp_(83)
$ns_ attach-agent $W(23) $sink_(83)
$ns_ connect $tcp_(83) $sink_(83)
set ftp_(83) [new Application/FTP]
$ftp_(83) attach-agent $tcp_(83)
$ns_ at 100 "$ftp_(83) start"
set tcp_(84) [new Agent/TCP/Reno]
$tcp_(84) set class_ 2
set sink_(84) [new Agent/TCPSink]
$ns_ attach-agent $node_(24) $tcp_(84)
$ns_ attach-agent $W(24) $sink_(84)
$ns_ connect $tcp_(84) $sink_(84)
set ftp_(84) [new Application/FTP]
$ftp_(84) attach-agent $tcp_(84)
$ns_ at 100 "$ftp_(84) start"
set tcp_(85) [new Agent/TCP/Reno]
$tcp_(85) set class_ 2
set sink_(85) [new Agent/TCPSink]
$ns_ attach-agent $node_(25) $tcp_(85)
$ns_ attach-agent $W(25) $sink_(85)
$ns_ connect $tcp_(85) $sink_(85)
set ftp_(85) [new Application/FTP]
$ftp_(85) attach-agent $tcp_(85)
$ns_ at 100 "$ftp_(85) start"
set tcp_(86) [new Agent/TCP/Reno]
$tcp_(86) set class_ 2
set sink_(86) [new Agent/TCPSink]
$ns_ attach-agent $node_(26) $tcp_(86)
$ns_ attach-agent $W(26) $sink_(86)
$ns_ connect $tcp_(86) $sink_(86)
set ftp_(86) [new Application/FTP]
$ftp_(86) attach-agent $tcp_(86)
$ns_ at 100 "$ftp_(86) start"
set tcp_(87) [new Agent/TCP/Reno]
$tcp_(87) set class_ 2
set sink_(87) [new Agent/TCPSink]
$ns_ attach-agent $node_(27) $tcp_(87)
$ns_ attach-agent $W(27) $sink_(87)
$ns_ connect $tcp_(87) $sink_(87)
set ftp_(87) [new Application/FTP]
$ftp_(87) attach-agent $tcp_(87)
$ns_ at 100 "$ftp_(87) start"
set tcp_(88) [new Agent/TCP/Reno]
$tcp_(88) set class_ 2
set sink_(88) [new Agent/TCPSink]
$ns_ attach-agent $node_(28) $tcp_(88)
$ns_ attach-agent $W(28) $sink_(88)
$ns_ connect $tcp_(88) $sink_(88)
set ftp_(88) [new Application/FTP]
$ftp_(88) attach-agent $tcp_(88)
$ns_ at 100 "$ftp_(88) start"
set tcp_(89) [new Agent/TCP/Reno]
$tcp_(89) set class_ 2
set sink_(89) [new Agent/TCPSink]
$ns_ attach-agent $node_(29) $tcp_(89)
$ns_ attach-agent $W(29) $sink_(89)
$ns_ connect $tcp_(89) $sink_(89)
set ftp_(89) [new Application/FTP]
$ftp_(89) attach-agent $tcp_(89)
$ns_ at 100 "$ftp_(89) start"
set tcp_(90) [new Agent/TCP/Reno]
$tcp_(90) set class_ 2
set sink_(90) [new Agent/TCPSink]
$ns_ attach-agent $node_(30) $tcp_(90)
$ns_ attach-agent $W(30) $sink_(90)
$ns_ connect $tcp_(90) $sink_(90)
set ftp_(90) [new Application/FTP]
$ftp_(90) attach-agent $tcp_(90)
$ns_ at 100 "$ftp_(90) start"
set tcp_(91) [new Agent/TCP/Reno]
$tcp_(91) set class_ 2
set sink_(91) [new Agent/TCPSink]
$ns_ attach-agent $node_(31) $tcp_(91)
$ns_ attach-agent $W(31) $sink_(91)
$ns_ connect $tcp_(91) $sink_(91)
set ftp_(91) [new Application/FTP]
$ftp_(91) attach-agent $tcp_(91)
$ns_ at 100 "$ftp_(91) start"
set tcp_(92) [new Agent/TCP/Reno]
$tcp_(92) set class_ 2
set sink_(92) [new Agent/TCPSink]
$ns_ attach-agent $node_(32) $tcp_(92)
$ns_ attach-agent $W(32) $sink_(92)
$ns_ connect $tcp_(92) $sink_(92)
set ftp_(92) [new Application/FTP]
$ftp_(92) attach-agent $tcp_(92)
$ns_ at 100 "$ftp_(92) start"
set tcp_(93) [new Agent/TCP/Reno]
$tcp_(93) set class_ 2
set sink_(93) [new Agent/TCPSink]
$ns_ attach-agent $node_(33) $tcp_(93)
$ns_ attach-agent $W(33) $sink_(93)
$ns_ connect $tcp_(93) $sink_(93)
set ftp_(93) [new Application/FTP]
$ftp_(93) attach-agent $tcp_(93)
$ns_ at 100 "$ftp_(93) start"
set tcp_(94) [new Agent/TCP/Reno]
$tcp_(94) set class_ 2
set sink_(94) [new Agent/TCPSink]
$ns_ attach-agent $node_(34) $tcp_(94)
$ns_ attach-agent $W(34) $sink_(94)
$ns_ connect $tcp_(94) $sink_(94)
set ftp_(94) [new Application/FTP]
$ftp_(94) attach-agent $tcp_(94)
$ns_ at 100 "$ftp_(94) start"
set tcp_(95) [new Agent/TCP/Reno]
$tcp_(95) set class_ 2
set sink_(95) [new Agent/TCPSink]
$ns_ attach-agent $node_(35) $tcp_(95)
$ns_ attach-agent $W(35) $sink_(95)
$ns_ connect $tcp_(95) $sink_(95)
set ftp_(95) [new Application/FTP]
$ftp_(95) attach-agent $tcp_(95)
$ns_ at 100 "$ftp_(95) start"
set tcp_(96) [new Agent/TCP/Reno]
$tcp_(96) set class_ 2
set sink_(96) [new Agent/TCPSink]
$ns_ attach-agent $node_(36) $tcp_(96)
$ns_ attach-agent $W(36) $sink_(96)
$ns_ connect $tcp_(96) $sink_(96)
set ftp_(96) [new Application/FTP]
$ftp_(96) attach-agent $tcp_(96)
$ns_ at 100 "$ftp_(96) start"
set tcp_(97) [new Agent/TCP/Reno]
$tcp_(97) set class_ 2
set sink_(97) [new Agent/TCPSink]
$ns_ attach-agent $node_(37) $tcp_(97)
$ns_ attach-agent $W(37) $sink_(97)
$ns_ connect $tcp_(97) $sink_(97)
set ftp_(97) [new Application/FTP]
$ftp_(97) attach-agent $tcp_(97)
$ns_ at 100 "$ftp_(97) start"
set tcp_(98) [new Agent/TCP/Reno]
$tcp_(98) set class_ 2
set sink_(98) [new Agent/TCPSink]
$ns_ attach-agent $node_(38) $tcp_(98)
$ns_ attach-agent $W(38) $sink_(98)
$ns_ connect $tcp_(98) $sink_(98)
set ftp_(98) [new Application/FTP]
$ftp_(98) attach-agent $tcp_(98)
$ns_ at 100 "$ftp_(98) start"
set tcp_(99) [new Agent/TCP/Reno]
$tcp_(99) set class_ 2
set sink_(99) [new Agent/TCPSink]
$ns_ attach-agent $node_(39) $tcp_(99)
$ns_ attach-agent $W(39) $sink_(99)
$ns_ connect $tcp_(99) $sink_(99)
set ftp_(99) [new Application/FTP]
$ftp_(99) attach-agent $tcp_(99)
$ns_ at 100 "$ftp_(99) start"
#================================================
$ns_ at $opt(stop).0 "$BS(0) reset";
for {set t 0} {$t < $opt(mn)} {incr t} {
$ns_ at $opt(stop).0000010 "$node_($t) reset";
}
$ns_ at $opt(stop).1 "puts \"NS EXITING...\" ; $ns_ halt"
$ns_ at $opt(stop).0001 "stop"
proc stop {} {
global ns_ tracefd
# global ns_ namtracefd
close $tracefd
# close $namtracefd
}
# informative headers for CMUTracefile
#puts $tracefd "M 0.0 nn $opt(nm) x $opt(x) y $opt(y) rp \
# $opt(adhocRouting)"
#puts $tracefd "M 0.0 sc $opt(sc) cp $opt(cp) seed $opt(seed)"
#puts $tracefd "M 0.0 prop $opt(prop) ant $opt(ant)"
puts "Starting Simulation..."
$ns_ run
'Network > Simulation' 카테고리의 다른 글
| 필요하면 어디서든 선언해 놓아야 한다... ns2 WLAN (0) | 2009.02.03 |
|---|---|
| DIFS제어 방법 ns2 (0) | 2009.02.03 |
| NS2에서 802_11의 재전송 수 포기에 따른 카운터를 세고 싶을 때 (0) | 2009.02.03 |
| ns2 코드에서 재전송 수를 직접 제어할 때! (0) | 2009.02.03 |
| 지금까지 실험한 결과들의 엑셀 파일 (0) | 2009.02.03 |
섬유패션분야, 패션워크(www.fashionwork.co.kr )
유통판매직분야전문판매직/샵마스터, 샵마넷(www.shopma.net )
항공사승무원전문사이트 코세아( http://cosea.kr)
텔레마케터, 텔레잡(www.telejob.co.kr )
언론·방송분야, 미디어잡(www.mediajob.co.kr)
디자인분야, 디자이너잡(www.designerjob.co.kr)
종합취업알바사이트(http://www.urijob.net)
의료분야, 메디컬잡(www.medicaljob.co.kr)
텔레마케터, 텔레잡(www.telejob.co.kr)
건설분야, 건설워커(www.worker.co.kr)
학원강사, 훈장마을(www.hunjang.com)
사서e마을(www.librarian.co.kr)
건설/건축/토목/인테리어분야 : 건설워커 www.worker.co.kr
기계/전기전자/기술분야 : 케이티잡 www.ktjob.co.kr
*언론/방송/미디어분야 : 미디어잡 www.mediajob.co.kr
*회계/재경분야 : 어카운팅피플 www.accountingpeople.co.kr
*텔레마케터 분야 : 텔레잡 www.telejob.co.kr
*디자인분야 : 디자이너잡 www.designerjob.co.kr
*교사/강사분야 : 훈장마을 www.hunjang.com / 티앤티잡 www.tntjob.co.kr
*무역분야 : 트레이드인 www.tradein.co.kr
공채,일반분야 취업포털 사이트
잡코리아 http://jobkorea.co.kr
사람인 http://saramin.co.kr
리쿠르트 http://recruit.co.kr
인쿠르트 http://incruit.com
'My_life > Prattle' 카테고리의 다른 글
| 고민.. (0) | 2009.02.20 |
|---|---|
| 웃긴.. 풋.. 미국 부부싸움 시리즈... (0) | 2009.02.03 |
| 취업 면접시 필패(必敗)하는 질문 10개 (0) | 2009.01.21 |
| 자아검색 (0) | 2009.01.11 |
| 중국에서의 산 17년 경험 (0) | 2009.01.11 |
다운
ns2.hwp'Network > How_to_study' 카테고리의 다른 글
| 유무선통합(FMC)의 의미와 전망 (0) | 2009.01.18 |
|---|---|
| SMSC(Short Message Service Center) (0) | 2009.01.18 |
| 이동통신 기술 발전사 2 (0) | 2009.01.18 |
| 무선 LAN 전송방식 비교 (0) | 2009.01.18 |
| Wi-Fi, Wibro, WIPI, Bluetooth 정의 (0) | 2009.01.18 |
페이지랭크(PageRank) - 웹사이트 인기를 측정하는 구글의 알고리즘에 의해서 결정되는 웹 페이지 검색 결과. 순위를 매기는 공식은 비밀이지만, 페이지 제목, 키워드, 페이지에 링크하는 다른 사이트의 수 등의 요인이 포함됨.
페이지뷰(page view) - 한 HTML 페이지를 여는 요청. 페이지뷰로 표현되는 웹사이트의 트래픽은 온라인에서 인기를 측정하는 데 널리 이용됨.
포드세이프(PodSafe) - 보통은 수수료 없이 합법적으로 팟캐스트에서 사용되는 것이 가능한 콘텐츠를 지칭하는 등록상표화된 용어.
포도스피어(podosphere) - 팟캐스트를 사용하고 만드는 사람들의 커뮤니티.
팟캐스트(podcast) - 인터넷에서 스트림 방식으로 제공되거나 휴대용 기기에 다운로드할 수 있는 디지털 오디오 및 동영상 프로그래밍. 팟캐스트는 RSS라는 구독형 매커니즘(subscription mechanism)을 사용하여 RSS를 등록한 사람에게 콘텐츠를 제공한다는 점에서 스트림 방식으로 제공되는 오디오나 동영상과 다름.
포스트(Post) - 동사로 사용하면 온라인 콘텐츠를 발행(글을 올리는 등의)하는 행위를 가리키고, 명사로 사용하면 단일한 온라인 콘텐츠 항목을 가리킴.
피드(feed) - 웹 콘텐츠를 모아놓기 위한 밀어내기 방식의 기술. 사용자들은 직접 프로그램을 통해서 피드에 등록하고, 이 프로그램은 정기적으로 사용자가 등록한 피드 목록에 있는 모든 서버에 대하여 폴링(신호 스위치 장치로 단말기에 전송하는 기술)을 해서 새로운 콘텐츠를 다운로드함.
하이퍼링크(hyperlink) - 클릭하면 웹 페이지의 다른 부분으로 가게 되거나, 아니면 완전히 새로운 웹 페이지로 이동하는 아이콘이나 이미지, 텍스트 등을 가리킴. 대부분의 하이퍼링크는 웹 페이지에서 밑줄이 그어져 있거나, 밑줄과 색깔이 함께 표시됨.
호스팅 사이트(hosting site) - 다른 웹사이트에 대해 파일을 보관하고 유지, 관리 해주는 본거지 웹사이트. 구글에서 운영하는 '블로거'나 '워드프레스' 등의 사이트가 유명함.
A급 리스트(A-list) - 영향력 있는 블로거를 가리키는 전문용어. 일반적으로 'A급 블로거'라고 함.
CC(Creative Commons) - 대안적 저작권의 틀을 발전시키기 위한 비영리 조직. CC는 상업적 목적에 의해서 재사용하는 것이 아니라면, 다른 사람과 공유하고, 또 그것을 기반으로 다른 것을 만들어낼 수 있는 창조적 작업물의 범위를 넓히려고 노력하고 있음.
MP3 플레이어 - 휴대가 가능한 디지털 오디오 기기로, 오디오 파일을 저장하고 정리하며 구동할 수 있음.
RSS - Rich Site Summary(풍부한 사이트 요약), 또는 Really Simple Syndication(아주 단순한 자료 취합)의 약자.
RSS는 콘텐츠 발행과 이에 대한 등록이 이루어져서 등록한 사람에게 정보가 자동으로 전달되는 메커니즘.
XML - 확장 가능한 마크업 언어(Extensible Markup Language)의 약자. XML은 공통의 정보 형식을 만들어내는 유연한 방법이며, 월드와이드웹이나 인트라넷 등의 장소에서 형식(format)과 데이터를 함께 공유하게 해줌.
글쓴이 권대리 http://kkd4139.tistory.com/ 주인장 허락 하에 가져온 글입니다.
내용 변경 금지, 퍼가실땐 권대리님에 대한 저작권 표시 부탁드립니다.
'Computer_language > Computer_care' 카테고리의 다른 글
| msi 우분투 무선랜 (2) | 2009.03.15 |
|---|---|
| usb xp 설치 (0) | 2009.03.13 |
| 웹2.0시대 많이 쓰이는 용어들(3) (0) | 2009.01.27 |
| 웹2.0시대 많이 쓰이는 용어들(2) (0) | 2009.01.27 |
| 웹2.0시대 많이 쓰이는 용어들(1) (0) | 2009.01.27 |
위키(wiki) - 사용자들이 웹사이트의 콘텐츠를 만들 때 협력하게 해주는 서버 프로그램. 위키에서는 어떠한 권한을 부여받은 사용자가 정규 웹브라우저를 이용해서 사이트의 콘텐츠를 편집할 수 있으며, 다른 사용자의 콘텐츠 역시 편집할 수 있음.
위키피디아(Wikipedia) - 자유롭고 개방적인 온라인 백과사전. 커뮤니티 사용자들이 협력해서 만들어나감.
유즈넷(Usenet) - 유저 네트워크(user network)의 준말, 혹은 전자 게시판 모음. 이러한 분산형 토론 네트워크는 주제별로 계층적 형태로 분류됨. 각 주제는 뉴스 그룹으로 알려져 있으며, 뉴스 그룹에 올라간 메시지는 보통 이메일로 그룹내의 다른 회원들에게 배송됨.
유투브(YouTube) - 동영상 공유 사이트. 사용자가 생성한 콘텐츠에 대한 성공담으로 자주 언급됨. 2006년 10월, 구글에 매각되었음.
이동 블로그(moblog) - PDA나 휴대전화 등과 같은 모바일 기기에 의하여 운영되는 블로그. 이론적으로 어떤 블로그든지 이동 블로그가 될 수 있음.
임원 블로그(executive blog) - 기업이나 조직에서 고위직 임원이 글을 올리는 블로그.
전자책(eBook) - 전자적인 책을 줄여서 부르는 말. 전자책은 데스크톱 컴퓨터, 포켓PC, 전자책 판독기, 인터넷이 가능한 휴대전화, PDA, 노트북 등에서 다운로드나 읽기가 가능함.
주제 블로그(topical blog) - 매우 좁은 범위의 주제에 대해서만 글을 올리는 식으로 운영되는 특정 분야 전문 블로그.
주류 미디어(mainstream media) - 주요 인쇄 및 방송 매체를 가리키는 광의의 개념.
카테고리(category) - 블로그 소프트웨어에서 블로거들에게 올리는 글을 주제별로 모을 수 있게 해주는 기능. 카테고리는 태그나 엘러멘트(element) 등과 같은 짧은 설명으로 이름표를 붙일 수 있음.
클릭(click) - 배너나 문자 광고에 클릭하는 행동. 클릭은 동영상을 구동하거나, 협찬한 사람의 사이트에 방문자를 보냄.
태그(tag) - 온라인 콘텐츠에 대하여 사용자가 할당할 수 있는 핵심 주제어 라벨. 카테고리 분류나 정보 검색 등에 사용되며, 사람들이 관련 콘텐츠를 찾는 데 도움을 줌.
태그 클라우드(tag cloud) - 해당 콘텐츠의 태그로 결정되는, 웹사이트나 블로그의 콘텐츠에 대한 시각적인 표현. 자주 사용된 태그는 다른 태그보다 크게 나타나는 식으로, 방문객으로 하여금 글쓴이가 어떤 주제를 다루는지 알기 쉽게 해줌.
테크노라티(Technorati.com) - 유명한 블로그 검색엔진.
투명성(transparency) - 블로고스피어의 용어로, 개인의 믿음, 동기, 관행 등에 대한 정직하고 올바른 태도.
트랙백(trackback) - 다른 블로거가 내 콘텐츠에 링크를 걸었을 때 이를 알 수 있게 해주는 인터넷 프로그램 프로토콜. 이 프로토콜을 지원하는 소프트웨어는 각 포스트의 끝에 트랙백 URL을 표시함.
글쓴이 권대리 http://kkd4139.tistory.com/ 주인장 허락 하에 가져온 글입니다.
내용 변경 금지, 퍼가실땐 권대리님에 대한 저작권 표시 부탁드립니다.
'Computer_language > Computer_care' 카테고리의 다른 글
| usb xp 설치 (0) | 2009.03.13 |
|---|---|
| 웹2.0시대 많이 쓰이는 용어들(4) (0) | 2009.01.27 |
| 웹2.0시대 많이 쓰이는 용어들(2) (0) | 2009.01.27 |
| 웹2.0시대 많이 쓰이는 용어들(1) (0) | 2009.01.27 |
| USB 바이러스 완벽 퇴치법 (0) | 2009.01.12 |
블로고스피어(blogosphere) - 온라인상의 블로거 공동체, 또는 그들이 올려놓은 콘텐츠.
블로그(Blog) - 웹로그(Weblog)의 줄임말. 일반 대중이 사용하기 위한 목적으로 만들어진, 자주 갱신되는 온라인 미디어. 블로그는 형식에 따라 정의되는데, 하나의 웹사이트에 시간의 역순으로 올라가는 콘텐츠임.
블로그 운집 현상(blogswarm) - 수천 명의 블로거가 똑같은 이야기나 소식에 대하여 보통은 강한 의견을 가지고 글을 올리는 현상. 블로그 운집 현상은 블로고스피어나 주류 미디어 모두에서 그날의 화제가 될 수 있음.
블로그펄스(BlogPulse) - 닐센 버즈매트릭스라는 회사가 운영하는 블로그 검색 엔진. 블로그펄스는 트렌드 분석과 데이터 추출 도구로 유명함.
브이로그(vlog) - 비디오 블로그의 약자로, 동영상 콘텐츠로 구성된 블로그, 또는 동영상과 텍스트가 함께 올라오는 블로그.
서버(server) - 클라이언트 프로그램에서의 요청을 기다리고 이것을 실행하는 프로그램. 웹브라우저는 단순한 클라이언트로 웹 서버에서 HTML 파일을 요청함.
소비자 생성 미디어(consumer-generated media) - '사용자 생성 미디어(user-generated media)' 로도 불림. 블로그, 메시지 보드, 토론 게시판(discussion board), 후기 사이트(review site)에 올라온 콘텐츠를 지칭하는 광범위한 용어로서 글과 사진, 음성 녹음, 동영상 대화 등을 포함.
쇼 노트(show note) - 온라인상의 팟캐스트나 비디오 캐스트의 이야기에 대한 텍스트로 구성된 요약. 저장된 정보에 대한 문서나 추가적인 정보를 제공한다. 이것은 콘텐츠의 특정한 부분을 빨리 감기로 넘어갈 수 있도록 소요 시간 관련 데이터를 포함함.
스나키(snarky) - 20세기 초반 영국에서 사용되던 '괴롭히다', '헐뜯다' 등의 의미를 나타내는 속어로서, 블로고스피어에서 냉소적이거나 신랄하다는 의미의 형용사로 사용됨.
시간 이동 미디어(time-shifted media) - 사용자의 편의에 따라서 다운로드되기도 하고 개인 미디어에 저장되기도 하는 오디오 및 동영상 콘텐츠.
시민 언론인(citizen journalist) - 주로 블로그나 커뮤니티 웹사이트를 이용해서 글을 올리는 아마추어 언론인.
아이팟(iPod) - 애플 컴퓨터에서 나온, 데이터 저장과 미디어 플레이가 가능한 전자제품.
알렉사닷컴(Alexa.com) - 아마존의 웹사이트 인기도 검색엔진. 사용자는 해당 사이트의 트래픽 유형이나 인바운드 링크(inbound link)로 그 경쟁자를 알 수 있음.
애드센스(AdSense) - 구글의 온라인 광고 프로그램으로, 내용상 연관이 있는 광고를 웹사이트에 올려놓고 클릭 수나 그 광고에 대한 인지를 기반으로 광고비를 지불함. 많은 블로거가 이것으로 블로그에서 수입을 올림.
여론 블로그(Advocacy blog) - 운영자의 목적이 일정한 관점을 전개하거나 대중의 의견에 영향을 미치는 데 있는 블로그. 명분이 있기 때문에 파트너십 프로그램이나 후원회, 메시지 전달형 광고, 직접적인 기부 등 일정한 명분을 위한 모금에 자주 이용됨.
워드프레스(Wordpress) - GNU 제너럴 퍼블릭 라이센스(General Public License) 아래 배포되는, 오픈 소스 기반의 발행 및 호스팅 블로그 사이트.
글쓴이 권대리 http://kkd4139.tistory.com/ 주인장 허락 하에 가져온 글입니다.
내용 변경 금지, 퍼가실땐 권대리님에 대한 저작권 표시 부탁드립니다.
'Computer_language > Computer_care' 카테고리의 다른 글
| 웹2.0시대 많이 쓰이는 용어들(4) (0) | 2009.01.27 |
|---|---|
| 웹2.0시대 많이 쓰이는 용어들(3) (0) | 2009.01.27 |
| 웹2.0시대 많이 쓰이는 용어들(1) (0) | 2009.01.27 |
| USB 바이러스 완벽 퇴치법 (0) | 2009.01.12 |
| Psiphone : 바레인과 같은 국가의 인터넷 감시를 피하게 해주는 소프트웨어 (0) | 2009.01.12 |
기업 블로그(company blog) - 기업의 소식이나, 특정 이슈에 대해 글을 올리기 위해서 기업이 운영하는 유형의 블로그. 글을 올리는 사람이 여러 명인 경우가 보통이고, 이들은 대부분 기업에서 고용한 직원임.
대역폭(bandwidth) - DTR(Data Transfer Rate : 데이터 전송률) 용어로, 한 곳에서 다른 곳으로 주어진 시간 내에 이동될 수 있는 데이터의 양.
대화(conversation) - (1) 소셜 미디어라는 환경에서 블로그에 의해 지원되는 쌍방향 의사소통을 비롯한 개인적인 퍼블리싱(publishing) 도구들을 가리킴. (2) 마케팅에서 메시지의 진화나 고객과의 토론으로 이어지는 판촉 활동.
댓글(comment) - 블로그를 할 때 블로거의 글에 공개적으로 답할 수 있도록 하는 기능. 댓글은 자동적으로 올라가게 할 수도 있고, 사람이나 컴퓨터 프로그램으로 걸러질 수도 있음.
댓글 스팸(comment spam) - 블로그 댓글 창에 로봇 프로그램('bot'이라고 불림)으로 제품을 홍보하거나, 특정 웹사이트의 검색 순위를 올리기 위해 올린 메시지나 링크.
딕닷컴(Digg.com) - 사용자가 온라인 콘텐츠를 내놓을 수도 있고, 이것에 대해서 투표도 할 수 있는 사이트. 이들은 스스로를 '소셜 뉴스 사이트'라고 지칭함. 웹페이지 인기가 많을수록, 사이트에서 그 위치가 더욱 눈에 띄게 됨.
딜리셔스(Deli.cio.us) - 웹사이트에 북마크를 다는 사람들의 사이트로서, 회원들이 좋아하는 웹페이지를 저장하고, 카테고리로 묶고 지정하여 공유할 수 있도록 지원.
롱테일(long tail) - 대부분 Y축으로 몰리는 식으로 빈도가 분산되며, X축 주변으로 점점 더 줄어드는 분산을 보여주는 빈도 분산의 유형임. 이 용어는 <와이어드>에서 많은 사람이 소량의 제품에서 상당한 수입을 올리는 온라인 소매상의 행태를 가리키는 말로 처음 사용됨.
링크 블로그(link blog) - 주로 다른 웹사이트와의 링크가 그 내용을 이루는 블로그. 인터넷에서 가장 인기 있는 블로그 가운데 몇몇 사이트가 이러한 링크 블로그임. 그러나 링크 블로그는 광고 사이트에 대해 트래픽을 생성하기 위해서 스패머들에게 이용당할 수도 있음.
마이스페이스(MySpace) - 대중적인 소셜 네트워킹을 할 수 있는 웹사이트. 회원들이 개인적인 '공간(spaces)'에서 친구들과 선택적으로 정보를 공유할 수 있음. 원래는 열정적인 음악가나 밴드 등이 서로 음악이나 콘서트 일정 따위를 공유하는 사이트였지만 이제 인터넷에서 가장 인기 있는 곳이 되었으며, 2005년에 뉴스사(News.Corp)가 인수했음.
무버블 타입(Moveable Type) - 식스어파트 사(Six Apart, Ltd)에서 기업 블로그 활동을 지원하기 위해 개발한 소프트웨어. 트랙백 기능으로 잘 알려져 있음.
바이러스 마케팅(viral marketing) - 구전으로 정보를 전하는 모든 마케팅 기술. 입소문, 또는 게릴라 마케팅으로 불리기도 함.
방문자(visitor) - 사이트를 방문하는 사람이나 로봇 프로그램. 특정한 시간대(보통은 24시간)에 적어도 한 번 이상 방문하는 사람을 고유 방문자라고 함.
배너 광고(bannerad) - 웹페이지에 사용되는 그래픽 이미지의 광고. 방문자가 해당 페이지에 와서 광고를 보았을 때 이것을 '인지(impression)'라고 함. 방문자가 배너를 클릭하고 해당 회사의 사이트로 가게 되면 이것을 '클릭 스루(click through)' 라고 함.
글쓴이 권대리 http://kkd4139.tistory.com/ 주인장 허락 하에 가져온 글입니다.
내용 변경 금지, 퍼가실땐 권대리님에 대한 저작권 표시 부탁드립니다.
'Computer_language > Computer_care' 카테고리의 다른 글
| 웹2.0시대 많이 쓰이는 용어들(3) (0) | 2009.01.27 |
|---|---|
| 웹2.0시대 많이 쓰이는 용어들(2) (0) | 2009.01.27 |
| USB 바이러스 완벽 퇴치법 (0) | 2009.01.12 |
| Psiphone : 바레인과 같은 국가의 인터넷 감시를 피하게 해주는 소프트웨어 (0) | 2009.01.12 |
| 포렌식을 위한 파일 시그니쳐 모음 (0) | 2009.01.12 |
이때 당황한 나머지 자신의 점수를 깎는 질문을 해 `다 된 밥에 재 뿌리는 것`보다 차라리 `아니요`라고 솔직히 말하는 게 낫다고 전문가들은 조언한다.
《 포춘Fortune 》이 선정한 500명의 부사장(VP)에 오른 바 있고 자기계발 컨선턴트로 25년간 미국서 명성을 쌓아온 리즈 라이언은 밑의 10가지 질문이 최악의 선택이 될 수 있다고 충고하고 있다. 그녀는 취업전문회사 쉐비네트워커(Savvy Networker)에 현재 재직 중이다.
1."여기 뭐하는 회사인가요?”
어떤 회사인지도 제대로 파악하지 못하고 면접장에 왔다면 면접관은 황당할 수밖에 없다. 1950~1980년대에는 인터넷이 없어 핑계라도 댈 수 있었겠지만 요즘같이 인터넷이 발달한 현실에선 자신의 게으름을 드러낼 뿐이다.
2."이 회사 신원조회 하나요?”
이런 질문을 하려거든 차라리 최종합격까지 어떤 절차가 남아있냐고 우회적으로 물어봐라. 일부 신용불량자로 전락한 구직자들이 고심 끝에 조심스레 이 같이 묻지만 스스로 무덤을 파는 행위다. 특히 최종 면접에서는 마지막에 이런 질문을 한다면 뭔가 감추는 게 있다는 인상을 풍겨 신뢰감에 큰 타격을 주게 된다.
3."언제쯤 연봉이 인상되나요?”
고용자는 속성상 종업원들이 능력보다 더 받은 것을 경계한다. 그래서 헤드헌터들이 눈을 씻고 능력보다 연봉을 적게 받고 있는 사람들을 찾고 있는 것이다. 합격이 최종 결정되기 전에 연봉 인상에 대해 물어보고 싶다면 "이 회사는 매년 직원의 성과를 평가해 연봉을 조정하나요?"라고 돌려서 물어라
4."이 회사에서 다른 일 할 수 없을까요?”
만약 당신이 지원한 직무가 당신 능력에 걸맞지 않게 비중이 낮다면 간접적으로 가능성을 떠봐라. 전 회사에서 지금의 30% 이상의 연봉을 받으면서 감독하는 일을 했다든지, 아니면 이 직무를 열심히 하면 언젠가 더 도전적인 업무를 얻을 수 있냐고 묻는다면 면접관이 길을 알려줄 것이다.
5."얼마나 빨리 보직 순환이 가능한가요?”
이런 질문은 난 탈락 1순위라고 면접관에게 직접 알려주는 것이다. 만약 지원하는 일이 당신과 맞지 않는다면 차라리 다른 기회를 찾아라. 모든 기업이 신규 채용한 인력이 배치된 자리에서 1년 이상 일하길 원한다.
6. "회사 오려면 몇 번 버스를 이용해야죠?”
면접관은 당신의 비서도 아르바이트생도 아니다. 이런 개념을 상실한 질문을 기대하고 당신에게 질문을 던진 것이 아니다. 그런 건 스스로 인터넷에서 검색해라.
7."담배 태울 휴식시간은 있나요?”
콜센터나 유통업체에서 휴식시간이 있냐고 물어보는 건 정말 눈치 없는 짓이다. 다들 알아서 쉬기 때문이다. 최근 많은 회사들이 흡연을 공식적으로 금하고 있기 때문에 당신이 담배를 핀다는 것에 마이너스 점수를 줄 수도 있다. 당신의 흡연 정도가 업무에 방해가 될 수준인지 주위 사람에게 물어봐서, 그렇다면 담배를 끊어라.
8."회사 의료보험이 어디까지 보장되나요?”
아직 합격이 결정되지도 않은 상태에서 회사가 어느 수준의 의료혜택을 제공 하냐고 묻는 건 정말 어리석인 짓이다. 면접 때 건강과 관련된 내용은 되도록 피하는 것이 정석이다. 면접관이 회사의 의료혜택을 줄줄이 알고 있지도 않을 뿐더러 회사는 적어도 일 년이 지난 정직원에게 의료혜택을 제공하는 경우가 대부분이기 때문이다.
9."신체검사 하나요?”
회사가 신체검사나 약물 테스트를 하는 데 있어 당신이 인권 등 신념적인 이유로 반대한다고 하더라도 절대 이런 말은 지혜롭지 못하다. 약물검사를 받고 싶지 않다고 회사에 말할 순 있지만 먼저 얘기를 꺼낼 필요는 없다. 이런 말은 난 약물 테스트에서 양성으로 나올 것이라고 미리 통보하는 것처럼 들리기 때문이다.
10."만약 합격한다면, 일 시작 전 3주 정도 시간을 줄 수 있나요?”
고용인들은 합격 통보 후 2주 정도의 시간을 대개 준다. 하지만 당신이 쉬고 있을 경우에는 더 빨리 일을 시작하길 원한다. 당신이 아무리 선한 의도로 3주 휴식을 요구 했더라도 그는 당신의 열정을 의심할 것이다. 이런 요구는 이미 다른 곳에 채용 제의를 받았을 때 고려해라.
'My_life > Prattle' 카테고리의 다른 글
| 웃긴.. 풋.. 미국 부부싸움 시리즈... (0) | 2009.02.03 |
|---|---|
| 취업사이트 (0) | 2009.01.28 |
| 자아검색 (0) | 2009.01.11 |
| 중국에서의 산 17년 경험 (0) | 2009.01.11 |
| “취업에 성공하려면…” 헤드헌터가 말하는 채용기준 (0) | 2009.01.11 |
이것은 무선 단말기에서의 재전송 수가 7번을 넘어 패킷을 포기하게 되는 경우가 증가하게 되기 때문이었으며 30개의 단말에서의 공평성을 제공하기 위한 재전송 수 제어에 따른 실험 결과는 다음과 같다.
30_7_7_0~7.xls'Network > Ns2_simulation' 카테고리의 다른 글
| ns2 802.11 MAC에서 현제 큐의 size를 알 수 있는 방법. (0) | 2009.02.18 |
|---|---|
| TCP와 UDP (0) | 2009.02.18 |
| 거지같은... 논문들... ㅡㅡㅋ 믿을게 없다. ns2 802.11b udp 실험에서.. (1) | 2009.02.09 |
### BEGIN INIT INFO
# Provides: vncserver
# Required-Start: $remote_fs $syslog
# Required-Stop: $remote_fs $syslog
# Default-Start: 2 3 4 5
# Default-Stop: 1
# Short-Description: VNC Remote Desktop Server
### END INIT INFO
set -e
# /etc/init.d/vncserver: start and stop the VNC Remote Desktop Server daemon
. /lib/lsb/init-functions
export PATH="${PATH:+$PATH:}/usr/sbin:/sbin:/bin:/usr/bin"
case "$1" in
start)
log_daemon_msg "Starting VNC Remote Desktop server" "vncserver"
if start-stop-daemon --start --quiet --oknodo --chuid matthew --exec /usr/bin/vncserver -- -geometry 1280x1024 -basehttpport 5900; then
log_end_msg 0
else
log_end_msg 1
fi
;;
stop)
log_daemon_msg "Stopping VNC Remote Desktop server" "vncserver"
if start-stop-daemon --stop --quiet --oknodo --name Xtightvnc; then
log_end_msg 0
else
log_end_msg 1
fi
;;
restart|try-restart|reload|force-reload)
log_daemon_msg "Restarting VNC Remote Desktop server" "vncserver"
if start-stop-daemon --stop --quiet --oknodo --name Xtightvnc; then
log_end_msg 0
else
log_end_msg 1
fi
if start-stop-daemon --start --quiet --oknodo --chuid matthew --exec /usr/bin/vncserver -- -geometry 1280x1024 -basehttpport 5900; then
log_end_msg 0
else
log_end_msg 1
fi
;;
status)
PID="/home/matthew/.vnc/hingom:1.pid"
status_of_proc -p $PID /usr/bin/Xtightvnc vncserver || status=$?
exit $status
;;
*)
echo "Usage: /etc/init.d/vncserver {start|stop|reload|restart|force-reload|status}"
exit 1
;;
esac
exit 0
'Computer_language > Linux' 카테고리의 다른 글
| 10가지 리눅스 사용자에게 꼭 필요한 Cheat-Sheet (0) | 2009.02.04 |
|---|---|
| ubuntu에서 vnc 사용하기Network/Linux (0) | 2009.01.20 |
| .bashrc for ns2 in ubuntu (0) | 2009.01.19 |
| 우분투 /etc/apt/ 업데이트 파일 (0) | 2009.01.19 |
| 우분투에서 사용하는 명령어 (0) | 2009.01.16 |
