논문 시뮬레이션 tcl 파일

Network/Ns-2 | 2006/12/21 21:40 | adioshun

논문 시뮬레이션 tcl  파일


작성 : 2006.12.21 by 임헌정

http://www.4ellene.net



[결과 추출 하기]

trace2stats : http://www.4ellene.net/tt/1065

라우팅 오버헤드 & 패킷 전송률 : http://www.4ellene.net/tt/1078

[라우팅 오버헤드 구하기]

BEGIN {dsrpktno = 0; dsrbyte = 0; cbrpktno = 0; cbrbyte = 0; }
$1~/s/ && /AODV/ && /MAC/  { dsrpktno ++ ;
dsrbyte+=$8 ;}
$1~/s/ && /tcp/ && /MAC/ { cbrpktno ++ ;
cbrbyte+=$8; }
END { print ( dsrpktno, cbrpktno,dsrpktno/(dsrpktno+cbrpktno)) }

[end-to-end 패킷 전송률]

BEGIN {counter1 = 0; counter2 = 0;}
$1~/s/ && /_0_/ && /AGT/  { counter1 ++ }
$1~/r/ && /_29_/ && /AGT/  { counter2 ++ }
END { print ( counter2/counter1 ) }


이동성 없음_일렬



# ======================================================================
# Define options
# ======================================================================
set opt(chan)           Channel/WirelessChannel  ;# channel type
set opt(prop)           Propagation/TwoRayGround ;# radio-propagation model
set opt(netif)          Phy/WirelessPhy          ;# network interface type
set opt(mac)            Mac/802_11               ;# MAC type
set opt(ifq)            Queue/DropTail/PriQueue  ;# interface queue type
set opt(ll)             LL                       ;# link layer type
set opt(ant)            Antenna/OmniAntenna      ;# antenna model
set opt(ifqlen)         50                       ;# max packet in ifq
set opt(nn)             30                        ;# number of mobilenodes
set opt(adhocRouting)   AODV                   ;# routing protocol

set opt(cp)             ""                       ;# connection pattern file
set opt(sc)             ""                       ;# node movement file.

set opt(x)              [expr $opt(nn)*30]       ;# x coordinate of topology Mn*30m
set opt(y)              100                      ;# y coordinate of topology
set opt(seed)           0.0                      ;# seed for random number gen.
set opt(stop)           100                       ;# time to stop simulation

set opt(cbr-start)      0.0

# ============================================================================

ns-random 0.0

set ns_ [new Simulator]


#
# control DYMOUM behaviour from this script
#
#Agent/DYMOUM set debug_ true
#Agent/DYMOUM set no_path_acc_ false
#Agent/DYMOUM set reissue_rreq_ false
#Agent/DYMOUM set s_bit_ false
#Agent/DYMOUM set hello_ival_ 1


$ns_ use-newtrace
set tracefd [open $opt(adhocRouting)_$opt(nn).tr w]
$ns_ trace-all $tracefd

set namtrace [open $opt(adhocRouting)_$opt(nn).nam w]
$ns_ namtrace-all-wireless $namtrace $opt(x) $opt(y)

#
# create topography object
#
set topo [new Topography]

#
# define topology
#
$topo load_flatgrid $opt(x) $opt(y)

#
# create God
#
create-god $opt(nn)

#
# configure mobile nodes
#
$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 OFF \
                -agentTrace ON \
                -routerTrace ON \
                -macTrace OFF

for {set i 0} {$i < $opt(nn)} {incr i} {
  set node_($i) [$ns_ node]
}

#
# positions
#
$node_(0) set X_ 0.0
$node_(0) set Y_ 50.0
$node_(0) set Z_ 0.0
for {set i 1} {$i < ($opt(nn)-1) } {incr i} {
               $node_($i) set X_ [expr rand()*$opt(x)]
               #puts  {expr rand()}
               $node_($i) set Y_ 50.0
               $node_($i) set Z_ 0.0
}


$node_([expr $opt(nn)-1]) set X_ $opt(x)
$node_([expr $opt(nn)-1]) set Y_ 50.0
$node_([expr $opt(nn)-1]) set Z_ 0.0





set tcp [new Agent/TCP]
$ns_ attach-agent $node_(0) $tcp
$tcp set fid_ 11
$tcp set packetSize_ 1140
set ftp [new Application/FTP]
$ftp attach-agent $tcp
$ftp set packetSize_ 1140
$ftp set interval_ 1


set tcpsink [new Agent/TCPSink]
$ns_ attach-agent $node_([expr $opt(nn)-1]) $tcpsink
$tcpsink set fid_ 12

$ns_ connect $tcp $tcpsink

$ns_ at 0.0 "$ftp start"
#
# define initial node position in nam
#
for {set i 0} {$i < $opt(nn)} {incr i} {
  $ns_ initial_node_pos $node_($i) 50
}    

#
# tell all nodes when the simulation ends
#
for {set i 0} {$i < $opt(nn) } {incr i} {
  $ns_ at $opt(stop).0 "$node_($i) reset";
}

$ns_ at $opt(stop).0002 "puts \"NS EXITING...\" ; $ns_ halt"
$ns_ at $opt(stop).0001 "stop"

proc stop {} {
  global ns_ tracefd namtrace
  $ns_ flush-trace
  close $tracefd
  close $namtrace



#set awkCode {
#       {
#               print $1, $7 >> "samole.out";
#       }
#}


#exec awk $awkCode
}

#
# begin simulation
#
puts "==========================================="
puts "Starting Simulation..."
puts $opt(nn)
puts "awk -f avgStats.awk src=0 dst=[expr $opt(nn)-1] flow=11 pkt=1140 $opt(adhocRouting)_$opt(nn).tr > $opt(adhocRouting)_$opt(nn).tr.out && cat $opt

(adhocRouting)_$opt(nn).tr.out"
puts "==========================================="


$ns_ run


이동성 없음_x-y

# ======================================================================
# Define options
# ======================================================================
set opt(chan)           Channel/WirelessChannel  ;# channel type
set opt(prop)           Propagation/TwoRayGround ;# radio-propagation model
set opt(netif)          Phy/WirelessPhy          ;# network interface type
set opt(mac)            Mac/802_11               ;# MAC type
set opt(ifq)            Queue/DropTail/PriQueue  ;# interface queue type
set opt(ll)             LL                       ;# link layer type
set opt(ant)            Antenna/OmniAntenna      ;# antenna model
set opt(ifqlen)         50                       ;# max packet in ifq
set opt(nn)             30                        ;# number of mobilenodes
set opt(adhocRouting)   AODV                   ;# routing protocol

set opt(cp)             ""                       ;# connection pattern file
set opt(sc)             ""                       ;# node movement file.

set opt(x)              [expr $opt(nn)*30]       ;# x coordinate of topology Mn*30m
set opt(y)              [expr $opt(nn)*30]                      ;# y coordinate of topology
set opt(seed)           0.0                      ;# seed for random number gen.
set opt(stop)           100                       ;# time to stop simulation

set opt(cbr-start)      0.0

# ============================================================================

ns-random 0.0

set ns_ [new Simulator]

#
# control DYMOUM behaviour from this script
#
#Agent/DYMOUM set debug_ true
#Agent/DYMOUM set no_path_acc_ false
#Agent/DYMOUM set reissue_rreq_ false
#Agent/DYMOUM set s_bit_ false
#Agent/DYMOUM set hello_ival_ 1

$ns_ use-newtrace
set tracefd [open $opt(adhocRouting)_$opt(nn)_xy.tr w]
$ns_ trace-all $tracefd

set namtrace [open $opt(adhocRouting)_$opt(nn)_xy.nam w]
$ns_ namtrace-all-wireless $namtrace $opt(x) $opt(y)

#
# create topography object
#
set topo [new Topography]

#
# define topology
#
$topo load_flatgrid $opt(x) $opt(y)

#
# create God
#
create-god $opt(nn)

#
# configure mobile nodes
#
$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 OFF \
                -agentTrace ON \
                -routerTrace ON \
                -macTrace OFF

for {set i 0} {$i < $opt(nn)} {incr i} {
  set node_($i) [$ns_ node]
}

#
# positions
#
$node_(0) set X_ 0.0
$node_(0) set Y_ 50.0
$node_(0) set Z_ 0.0
for {set i 1} {$i < ($opt(nn)-1) } {incr i} {
               $node_($i) set X_ [expr rand()*$opt(x)]
               $node_($i) set Y_ [expr rand()*$opt(y)]
               $node_($i) set Z_ 0.0
}


$node_([expr $opt(nn)-1]) set X_ $opt(x)
$node_([expr $opt(nn)-1]) set Y_ $opt(y)
$node_([expr $opt(nn)-1]) set Z_ 0.0





set tcp [new Agent/TCP]
$ns_ attach-agent $node_(0) $tcp
$tcp set fid_ 11
$tcp set packetSize_ 1140
set ftp [new Application/FTP]
$ftp attach-agent $tcp
$ftp set packetSize_ 1140
$ftp set interval_ 1


set tcpsink [new Agent/TCPSink]
$ns_ attach-agent $node_([expr $opt(nn)-1]) $tcpsink
$tcpsink set fid_ 12

$ns_ connect $tcp $tcpsink

$ns_ at 0.0 "$ftp start"
#
# define initial node position in nam
#
for {set i 0} {$i < $opt(nn)} {incr i} {
  $ns_ initial_node_pos $node_($i) 50
}    

#
# tell all nodes when the simulation ends
#
for {set i 0} {$i < $opt(nn) } {incr i} {
  $ns_ at $opt(stop).0 "$node_($i) reset";
}

$ns_ at $opt(stop).0002 "puts \"NS EXITING...\" ; $ns_ halt"
$ns_ at $opt(stop).0001 "stop"

proc stop {} {
  global ns_ tracefd namtrace
  $ns_ flush-trace
  close $tracefd
  close $namtrace



#set awkCode {
#       {
#               print $1, $7 >> "samole.out";
#       }
#}


#exec awk $awkCode
}

#
# begin simulation
#
puts "==========================================="
puts "Starting Simulation..."
puts $opt(nn)
puts "awk -f avgStats.awk src=0 dst=[expr $opt(nn)-1] flow=11 pkt=1140 $opt(adhocRouting)_$opt(nn)_xy.tr > $opt(adhocRouting)_$opt(nn)_xy.tr.out && cat $opt(adhocRouting)_$opt(nn)_xy.tr.out"
puts "==========================================="


$ns_ run

이동성 있음 _x-y
이동성 파일명은 노드수로 ex) 30
이동성 관련 파일 생성은 : http://www.4ellene.net/tt/1066
ex ) /root/ns-allinone-2.28/ns-2.28/indep-utils/cmu-scen-gen/setdest/setdest -v 2 -n 30 -s 2 -m 4 -M 6 -t 100 -P 2 -p 0.0 -x 600 -y 600 > 30

# ======================================================================
# Define options
# ======================================================================
set opt(chan)           Channel/WirelessChannel  ;# channel type
set opt(prop)           Propagation/TwoRayGround ;# radio-propagation model
set opt(netif)          Phy/WirelessPhy          ;# network interface type
set opt(mac)            Mac/802_11               ;# MAC type
set opt(ifq)            Queue/DropTail/PriQueue  ;# interface queue type
set opt(ll)             LL                       ;# link layer type
set opt(ant)            Antenna/OmniAntenna      ;# antenna model
set opt(ifqlen)         50                       ;# max packet in ifq
set opt(nn)             30                        ;# number of mobilenodes
set opt(adhocRouting)   AODV                   ;# routing protocol

set opt(cp)             ""                       ;# connection pattern file
set opt(sc)             "$opt(nn)"                       ;# node movement file.

set opt(x)              [expr $opt(nn)*30]       ;# x coordinate of topology Mn*30m
set opt(y)              [expr $opt(nn)*30]                      ;# y coordinate of topology
set opt(seed)           0.0                      ;# seed for random number gen.
set opt(stop)           100                       ;# time to stop simulation

set opt(cbr-start)      0.0

# ============================================================================

#
# check for random seed
#
if {$opt(seed) > 0} {
            puts "Seeding Random number generator with $opt(seed)\n"
                    ns-random $opt(seed)
}
set ns_ [new Simulator]

#
# control DYMOUM behaviour from this script
#
#Agent/DYMOUM set debug_ true
#Agent/DYMOUM set no_path_acc_ false
#Agent/DYMOUM set reissue_rreq_ false
#Agent/DYMOUM set s_bit_ false
#Agent/DYMOUM set hello_ival_ 1

$ns_ use-newtrace
set tracefd [open $opt(adhocRouting)_$opt(nn)_xy_move.tr w]
$ns_ trace-all $tracefd

set namtrace [open $opt(adhocRouting)_$opt(nn)_xy_move.nam w]
$ns_ namtrace-all-wireless $namtrace $opt(x) $opt(y)

#
# create topography object
#
set topo [new Topography]

#
# define topology
#
$topo load_flatgrid $opt(x) $opt(y)

#
# create God
#
##create-god $opt(nn)
set god_ [create-god $opt(nn)]
#
# configure mobile nodes
#
$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 OFF \
                -agentTrace ON \
                -routerTrace ON \
                -macTrace OFF

for {set i 0} {$i < $opt(nn)} {incr i} {
  set node_($i) [$ns_ node]
}

#
# positions
#
$node_(0) set X_ 0.0
$node_(0) set Y_ 50.0
$node_(0) set Z_ 0.0
for {set i 1} {$i < ($opt(nn)-1) } {incr i} {
               $node_($i) set X_ [expr rand()*$opt(x)]
               $node_($i) set Y_ [expr rand()*$opt(y)]
               $node_($i) set Z_ 0.0
}


$node_([expr $opt(nn)-1]) set X_ $opt(x)
$node_([expr $opt(nn)-1]) set Y_ $opt(y)
$node_([expr $opt(nn)-1]) set Z_ 0.0





set tcp [new Agent/TCP]
$ns_ attach-agent $node_(0) $tcp
$tcp set fid_ 11
$tcp set packetSize_ 1140
set ftp [new Application/FTP]
$ftp attach-agent $tcp
$ftp set packetSize_ 1140
$ftp set interval_ 1


set tcpsink [new Agent/TCPSink]
$ns_ attach-agent $node_([expr $opt(nn)-1]) $tcpsink
$tcpsink set fid_ 12

$ns_ connect $tcp $tcpsink

$ns_ at 0.0 "$ftp start"



#
# source connection-pattern and node-movement scripts
#
if { $opt(cp) == "" } {
           puts "*** NOTE: no connection pattern specified."
                   set opt(cp) "none"
} else {
           puts "Loading connection pattern..."
                   source $opt(cp)
}
if { $opt(sc) == "" } {
           puts "*** NOTE: no scenario file specified."
                   set opt(sc) "none"
} else {
           puts "Loading scenario file..."
                   source $opt(sc)
                           puts "Load complete..."
}









#
# define initial node position in nam
#
for {set i 0} {$i < $opt(nn)} {incr i} {
  $ns_ initial_node_pos $node_($i) 50
}    

#
# tell all nodes when the simulation ends
#
for {set i 0} {$i < $opt(nn) } {incr i} {
  $ns_ at $opt(stop).0 "$node_($i) reset";
}

$ns_ at $opt(stop).0002 "puts \"NS EXITING...\" ; $ns_ halt"
$ns_ at $opt(stop).0001 "stop"

proc stop {} {
  global ns_ tracefd namtrace
  $ns_ flush-trace
  close $tracefd
  close $namtrace



#set awkCode {
#       {
#               print $1, $7 >> "samole.out";
#       }
#}


#exec awk $awkCode
}

#
# begin simulation
#
puts "==========================================="
puts "Starting Simulation..."
puts $opt(nn)
puts "awk -f avgStats.awk src=0 dst=[expr $opt(nn)-1] flow=11 pkt=1140 $opt(adhocRouting)_$opt(nn)_xy_move.tr > $opt(adhocRouting)_$opt(nn)_xy_move.tr.out && cat $opt(adhocRouting)_$opt(nn)_xy_move.tr.out"
puts "==========================================="


$ns_ run
2006/12/21 21:40 2006/12/21 21:40
TAG
trackbacks 115 : comments 2 :
Trackback address :: http://4ellene.net/tt/trackback/1091

  1. Animal sex pics.

    Tracked from Sex animal. 2008/07/23 18:28  삭제

    Sex with animal.

  2. party poker

    Tracked from poker chips 2009/03/30 02:21  삭제

    free poker games

  3. cheap viagra

    Tracked from buying viagra 2009/04/02 18:44  삭제

    viagra cialis levitra

  4. herbal viagra

    Tracked from viagra cialis levitra 2009/04/03 11:18  삭제

    non prescription viagra

  5. Tracked from erotic rape stories 2009/04/13 09:53  삭제

    duke rape

  6. bondage photos

    Tracked from bondage pics 2009/04/14 22:26  삭제

    bondage paper

  7. ebony bondage

    Tracked from extreme bondage 2009/04/15 07:02  삭제

    diaper bondage

  8. rape movies

    Tracked from forced anal sex 2009/06/29 05:16  삭제

    forced sex trailers

  9. torture rape

    Tracked from forced sex fantasies 2009/06/29 08:04  삭제

    extreme rape

  10. rape asian

    Tracked from hentai rape 2009/06/29 19:47  삭제

    girl forced sex

  11. extreme hard sex

    Tracked from youth rape 2009/06/29 22:09  삭제

    woman rape

  12. rape gallery

    Tracked from vietnam rape 2009/06/30 00:45  삭제

    rape torture

  13. school girl rape

    Tracked from rape and abortion 2009/06/30 03:42  삭제

    rape porn

  14. forced sex vids

    Tracked from teen rape pics 2009/06/30 07:53  삭제

    be forced

  15. granny rape

    Tracked from xxx rape videos 2009/06/30 09:56  삭제

    videos of rape

  16. rape story

    Tracked from rape fetish porn 2009/06/30 19:13  삭제

    alien rape

  17. rape pictures

    Tracked from real rape 2009/06/30 21:05  삭제

    extreme hard sex

  18. asian forced sex

    Tracked from forced witness anal forced sex videos 2009/07/01 06:34  삭제

    extreme torture

  19. forced blowjobs

    Tracked from violent rape stories 2009/07/02 10:41  삭제

    rape my wife

  20. underage rape

    Tracked from rape fantasy 2009/07/02 12:23  삭제

    sickest rape sites

  21. office rape

    Tracked from rape illegal video 2009/07/02 20:08  삭제

    rape porn vids

  22. porn video rape on a table

    Tracked from how to rape 2009/07/02 20:57  삭제

    sex forced

  23. forced dog sex videos

    Tracked from gang rape pictures 2009/07/03 00:10  삭제

    porn mom son rape

  24. porno rape

    Tracked from stories rape 2009/07/03 15:19  삭제

    rape index porn

  25. extreme teen sex

    Tracked from forced rough sex 2009/07/04 03:00  삭제

    real rape video

  26. butt rape

    Tracked from tentacle rape 2009/07/04 12:17  삭제

    rape websites

  27. extreme hard sex

    Tracked from rape section 2009/07/06 05:35  삭제

    brutal forced sex

  28. forced anal sex

    Tracked from forced womanhood photos 2009/07/07 11:50  삭제

    rape and abortion

  29. rape drawings

    Tracked from rape poems 2009/07/08 05:58  삭제

    forced sex reporter

  30. online casino news

    Tracked from usa online casinos 2009/07/10 21:49  삭제

    casino on the net

  31. australian online casino

    Tracked from directorio casino online 2009/07/11 18:18  삭제

    online casino

  32. golden casino http

    Tracked from online casino s 2009/07/11 19:08  삭제

    no download online casinos

  33. online gambling casino

    Tracked from find online casino 2009/07/12 06:46  삭제

    us online casinos

  34. casinos online

    Tracked from free online casino 2009/07/12 22:32  삭제

    usa casino gaming

  35. no bonus online casinos

    Tracked from online casinos no deposit bonus 2009/07/13 10:09  삭제

    casino open usa

  36. new no deposit online casinos

    Tracked from free online casino gaming 2009/07/14 08:02  삭제

    casino s online

  37. online casino games

    Tracked from free casino games 2009/07/14 21:52  삭제

    casino bonus

  38. online casino slots

    Tracked from casino money 2009/07/14 22:07  삭제

    grand online casino

  39. casino bonus

    Tracked from casino sites 2009/07/15 00:06  삭제

    free online casino games

  40. casino gamble

    Tracked from online internet casino 2009/07/15 03:43  삭제

    online casino games for mac

  41. online casino guide

    Tracked from top online casinos 2009/07/15 09:03  삭제

    online casinos in usa

  42. casino on the net

    Tracked from casino gambling 2009/07/16 03:08  삭제

    online betting casinos

  43. free online casinos

    Tracked from play casino games online 2009/07/16 04:31  삭제

    online casinos in usa

  44. online casino http

    Tracked from online free casino games 2009/07/16 11:01  삭제

    online internet casino

  45. online casino guide

    Tracked from online no deposit casino 2009/07/17 04:09  삭제

    online download casino games blackjack

  46. usa accepting casinos

    Tracked from online casino poker 2009/07/17 06:45  삭제

    online casino reviews

  47. free online casino games

    Tracked from reliable online casinos 2009/07/18 06:48  삭제

    new no deposit online casinos

  48. golden casino http

    Tracked from casino gamble 2009/07/19 06:36  삭제

    free casinos online

  49. england casino

    Tracked from casino http 2009/07/19 09:59  삭제

    online casino news

  50. casino on the net

    Tracked from free casino online games 2009/07/19 15:11  삭제

    casinos online

  51. teen shemale

    Tracked from lesbian tranny 2009/07/20 05:03  삭제

    transexual beauty queens 9

  52. shemale orgy

    Tracked from futanari videos 2009/07/20 21:26  삭제

    mature tranny

  53. beautiful transexual

    Tracked from tranny surprise 2009/07/20 23:40  삭제

    shemale cartoons

  54. ladyboy amy

    Tracked from shemale on shemale 2009/07/21 20:17  삭제

    transvestite movies

  55. post op transexuals

    Tracked from ladyboy ass 2009/07/21 21:15  삭제

    shemale fucks girl

  56. oriental ladyboys

    Tracked from ladyboy cock 2009/07/22 05:41  삭제

    futanari girls

  57. ladyboy ass

    Tracked from transvestite dating 2009/07/22 07:27  삭제

    futanari galleries

  58. sailor moon futanari

    Tracked from post-op transsexual 2009/07/22 17:28  삭제

    ladyboy mint

  59. young ladyboys

    Tracked from ladyboy blowjob 2009/07/22 19:41  삭제

    transexual surgery

  60. ladyboy cum

    Tracked from hot transexuals 2009/07/22 20:03  삭제

    m2f transsexuals

  61. transvestite web sites

    Tracked from transvestite fiction 2009/07/23 09:04  삭제

    tranny cum

  62. ladyboy blowjob

    Tracked from young transexuals 2009/07/23 10:52  삭제

    futanari doujinshi

  63. shemale bondage

    Tracked from sexy transexuals 2009/07/23 11:42  삭제

    hung ladyboys

  64. transvestite pantyhose

    Tracked from futanari sites 2009/07/24 00:18  삭제

    ladyboy tgp

  65. ladyboy gangbang

    Tracked from perfect ladyboys 2009/07/24 01:04  삭제

    ladyboy videos

  66. ladyboy riding

    Tracked from futanari fiction 2009/07/24 03:51  삭제

    ladyboy sex

  67. tranny tube

    Tracked from hung ladyboys 2009/07/25 03:47  삭제

    post-op transsexual

  68. transexual ass pounding

    Tracked from shemales fucking 2009/07/25 07:23  삭제

    transsexual sex

  69. rape porn sites

    Tracked from rape fuck 2009/07/25 18:02  삭제

    military rape

  70. daughter sex

    Tracked from father daughter sex 2009/09/06 10:17  삭제

    daddies fucking daughters

  71. free incest porn

    Tracked from amateur incest family porn 2009/09/07 04:40  삭제

    free incest porn stories

  72. dad and daughter incest

    Tracked from dad fucks daughter 2009/09/08 11:12  삭제

    dad with sis son sex mom

  73. family sex

    Tracked from brother sister incest 2009/09/08 13:11  삭제

    3d incest

  74. Family Sex Stories

    Tracked from Family Sex Clips 2009/09/08 20:33  삭제

    family naturist

  75. family fucking incest family fucking

    Tracked from family fucking 2009/09/08 22:33  삭제

    family incest

  76. brother and sister sex

    Tracked from anime incest 2009/09/09 03:35  삭제

    brother and sister sex stories

  77. Mom And Son Sex Galleries

    Tracked from Moms Fucking Sons 2009/09/09 12:18  삭제

    Mother Son Porn

  78. mother son porn

    Tracked from mother son incest 2009/09/09 12:28  삭제

    mother son sex

  79. father fucks daughter

    Tracked from fathers fucking daughters 2009/09/09 12:35  삭제

    father daughter porn

  80. daughter sex

    Tracked from daughter nude 2009/09/10 01:05  삭제

    family fucking

  81. cock torture

    Tracked from cock bondage 2009/09/11 01:32  삭제

    cunt torture

  82. bdsm movies

    Tracked from bdsm humiliation 2009/09/11 22:37  삭제

    bdsm mpegs

  83. female domination

    Tracked from female bondage 2009/09/12 01:39  삭제

    female torture

  84. amateur bondage

    Tracked from amateur bdsm free videos 2009/09/12 01:42  삭제

    anal bdsm

  85. bdsm for all

    Tracked from bdsm couples 2009/09/12 07:25  삭제

    bdsm forum

  86. bdsm bondage

    Tracked from bdsm artwork 2009/09/12 09:53  삭제

    bdsm books

  87. penis torture

    Tracked from panty domination 2009/09/13 04:40  삭제

    public bondage

  88. bondage comics

    Tracked from bondage clips 2009/09/14 08:57  삭제

    bondage fairies

  89. sex slaves

    Tracked from sex slave punishment 2009/09/14 12:14  삭제

    sex torture

  90. water torture

    Tracked from water bondage 2009/09/15 12:45  삭제

    wax torture

  91. bdsm toons

    Tracked from bdsm thumbs 2009/09/15 15:28  삭제

    bdsm torture

  92. bdsm anal

    Tracked from bdsm 2009/09/16 05:33  삭제

    bdsm art

  93. teen punishment sex slave

    Tracked from teen bondage 2009/09/16 09:42  삭제

    tickle torture

  94. cock ball torture

    Tracked from cock and ball torture 2009/09/16 10:44  삭제

    cock bondage

  95. bondage watch

    Tracked from bondage videos 2009/09/17 16:35  삭제

    bondage wizard

  96. dad and daughter

    Tracked from dad with sis son sex mom 2009/09/27 17:12  삭제

    dad fucking virgin daughter

  97. mother sucks son

    Tracked from mother son sex 2009/09/28 12:37  삭제

    my sisters hot friend

  98. Taboo Family Sex

    Tracked from Family Porn 2009/09/29 09:40  삭제

    nude family

  99. family fucking

    Tracked from daughter sex 2009/09/29 12:54  삭제

    family fucking incest family fucking

  100. sibling incest

    Tracked from sibling sex 2009/09/29 17:17  삭제

    dad fucking son

  101. Daughter Incest Incest

    Tracked from Incest Porn 2009/10/02 13:28  삭제

    Cartoon Incest

  102. teen incest

    Tracked from taboo sex stories 2009/10/03 11:42  삭제

    twin sister sex

  103. mom and son sex

    Tracked from mom and daughter 2009/10/03 12:56  삭제

    mom and daughter son

  104. incest toons

    Tracked from incest taboo forum 2009/10/04 12:29  삭제

    lesbian incest

  105. daddies fucking daughters

    Tracked from daughter sex 2009/10/04 14:46  삭제

    dad and daughter incest

  106. bdsm story

    Tracked from bdsm tgp 2009/10/20 10:08  삭제

    bdsm thumbs

  107. rope bondage

    Tracked from rubber bondage 2009/10/20 15:22  삭제

    secretary bondage

  108. bdsm cartoons

    Tracked from bdsm clips 2009/10/21 12:37  삭제

    bdsm comics

  109. bondage anal

    Tracked from bondage and discipline 2009/10/21 15:34  삭제

    bondage anime

  110. bondage furniture

    Tracked from bondage galleries 2009/10/21 18:40  삭제

    bondage games

  111. asian bdsm

    Tracked from bdsm 666 2009/10/22 12:47  삭제

    bdsm anal

  112. bdsm art

    Tracked from bdsm artwork 2009/10/22 16:13  삭제

    bdsm bondage

  113. pantyhose bondage

    Tracked from public bondage 2009/10/23 10:22  삭제

    rope bondage

  114. bdsm cafe

    Tracked from bdsm cartoons 2009/10/23 17:45  삭제

    bdsm clips

  115. anime bdsm

    Tracked from asian bdsm 2009/10/23 17:50  삭제

    bdsm 666

Comments List

  1. xxx stockings 2008/05/23 05:14

  2. hawaii escorts 2008/05/24 00:22

    醫

Write a comment.

[로그인][오픈아이디란?]
1 ... 196 197 198 199 200 201 202 203 204 ... 1170