printout.ps

obs网络试验平台

/p {
  false UL
  false BX
  fCourier bfs scalefont setfont
  Show
} bind def

/sy {
  false UL
  false BX
  fSymbol bfs scalefont setfont
  Show
} bind def

/k {
  false UL
  false BX
  fCourier-Oblique bfs scalefont setfont
  Show
} bind def

/K {
  false UL
  false BX
  fCourier-Bold bfs scalefont setfont
  Show
} bind def

/c {
  false UL
  false BX
  fCourier-Oblique bfs scalefont setfont
  Show
} bind def

/C {
  false UL
  false BX
  fCourier-BoldOblique bfs scalefont setfont
  Show 
} bind def

/l {
  false UL
  false BX
  fHelvetica bfs scalefont setfont
  Show
} bind def

/L {
  false UL
  false BX
  fHelvetica-Bold bfs scalefont setfont
  Show 
} bind def

/str{
  false UL
  false BX
  fTimes-Roman bfs scalefont setfont
  Show
} bind def

/e{
  false UL
  true BX
  fHelvetica-Bold bfs scalefont setfont
  Show
} bind def

%%EndResource
%%EndProlog
%%BeginSetup
%%IncludeResource: font Courier
%%IncludeResource: font Courier-Oblique
%%IncludeResource: font Courier-Bold
%%IncludeResource: font Times-Roman
%%IncludeResource: font Symbol
%%IncludeResource: font Courier-BoldOblique
%%BeginResource: encoding ISO-8859-1Encoding
/ISO-8859-1Encoding [
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 
/space /exclam /quotedbl /numbersign /dollar /percent /ampersand /quoteright 
/parenleft /parenright /asterisk /plus /comma /minus /period /slash 
/zero /one /two /three /four /five /six /seven 
/eight /nine /colon /semicolon /less /equal /greater /question 
/at /A /B /C /D /E /F /G 
/H /I /J /K /L /M /N /O 
/P /Q /R /S /T /U /V /W 
/X /Y /Z /bracketleft /backslash /bracketright /asciicircum /underscore 
/quoteleft /a /b /c /d /e /f /g 
/h /i /j /k /l /m /n /o 
/p /q /r /s /t /u /v /w 
/x /y /z /braceleft /bar /braceright /asciitilde /.notdef 
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 
/.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef /.notdef 
/space /exclamdown /cent /sterling /currency /yen /brokenbar /section 
/dieresis /copyright /ordfeminine /guillemotleft /logicalnot /hyphen /registered /macron 
/degree /plusminus /twosuperior /threesuperior /acute /mu /paragraph /bullet 
/cedilla /onesuperior /ordmasculine /guillemotright /onequarter /onehalf /threequarters /questiondown 
/Agrave /Aacute /Acircumflex /Atilde /Adieresis /Aring /AE /Ccedilla 
/Egrave /Eacute /Ecircumflex /Edieresis /Igrave /Iacute /Icircumflex /Idieresis 
/Eth /Ntilde /Ograve /Oacute /Ocircumflex /Otilde /Odieresis /multiply 
/Oslash /Ugrave /Uacute /Ucircumflex /Udieresis /Yacute /Thorn /germandbls 
/agrave /aacute /acircumflex /atilde /adieresis /aring /ae /ccedilla 
/egrave /eacute /ecircumflex /edieresis /igrave /iacute /icircumflex /idieresis 
/eth /ntilde /ograve /oacute /ocircumflex /otilde /odieresis /divide 
/oslash /ugrave /uacute /ucircumflex /udieresis /yacute /thorn /ydieresis 
] def
%%EndResource
% Initialize page description variables.
/sh 595 def
/sw 842 def
/llx 24 def
/urx 818 def
/ury 571 def
/lly 24 def
/#copies 1 def
/th 15.000000 def
/fnfs 11 def
/bfs 8.005733 def
/cw 4.803440 def

% Dictionary for ISO-8859-1 support
/iso1dict 8 dict begin
  /fCourier ISO-8859-1Encoding /Courier reencode_font
  /fCourier-Bold ISO-8859-1Encoding /Courier-Bold reencode_font
  /fCourier-BoldOblique ISO-8859-1Encoding /Courier-BoldOblique reencode_font
  /fCourier-Oblique ISO-8859-1Encoding /Courier-Oblique reencode_font
  /fHelvetica ISO-8859-1Encoding /Helvetica reencode_font
  /fHelvetica-Bold ISO-8859-1Encoding /Helvetica-Bold reencode_font
  /fTimes-Bold ISO-8859-1Encoding /Times-Bold reencode_font
  /fTimes-Roman ISO-8859-1Encoding /Times-Roman reencode_font
currentdict end def
/bgcolor [ 0 0 0 ] def
/bg false def
/ul false def
/bx false def
% The font for line numbering
/f# /Helvetica findfont bfs .6 mul scalefont def
/fSymbol /Symbol findfont def
/hm fnfs 0.25 mul def
/pw
   cw 81.400000 mul
def
/ph
   501.959430 th add
def
/pmw urx llx sub pw 2 mul sub 1 div def
/pmh 0 def
/v 0 def
/x [
  0
  dup pmw add pw add
] def
/y [
  pmh ph add 0 mul ph add
  dup
] def
/scx sw 2 div def
/scy sh 2 div def
/snx urx def
/sny lly 2 add def
/dx llx def
/dy sny def
/fnx scx def
/fny dy def
/lx snx def
/ly ury fnfs 0.8 mul sub def
/sx 0 def
/tab 8 def
/x0 0 def
/y0 0 def
%%EndSetup

%%Page: (1-2) 1
%%BeginPageSetup
/pagesave save def
sh 0 translate 90 rotate
%%EndPageSetup
iso1dict begin
gsave
llx lly 12 add translate
/v 0 store
/x0 x v get 3.362408 add sx cw mul add store
/y0 y v get bfs th add sub store
x0 y0 moveto
() p n
(stdin) (Page 1/26) (Feb 11, 04 16:20) title
border
/v 1 store
/x0 x v get 3.362408 add sx cw mul add store
/y0 y v get bfs th add sub store
x0 y0 moveto
(Table of  Contents) K
(                                     Wed Feb 11 16:20:23 2004) p n
() N
() N
() N
(    File: basic5a-nam.tcl                                        Page    1) N
() N
(    File: basic5a.tcl                                            Page    5) N
() N
(    File: basic8a-nam.tcl                                        Page    9) N
() N
(    File: basic8a.tcl                                            Page   13) N
() N
(    File: output5a                                               Page   17) N
() N
(    File: output5a-nam                                           Page   19) N
() N
(    File: output8a                                               Page   21) N
() N
(    File: output8a-nam                                           Page   23) N
() N
(stdin) (Page 2/26) (Feb 11, 04 16:20) title
border
grestore
(Printed by U-GMGPC2\\Geoffrey M. Garner) rhead
(stdin) (1/13) (Wednesday February 11, 2004) footer
end % of iso1dict
pagesave restore
showpage
%%Page: (3-4) 2
%%BeginPageSetup
/pagesave save def
sh 0 translate 90 rotate
%%EndPageSetup
iso1dict begin
gsave
llx lly 12 add translate
/v 0 store
/x0 x v get 3.362408 add sx cw mul add store
/y0 y v get bfs th add sub store
x0 y0 moveto
(basic5a-nam.tcl) K
(  Feb 11 10:34 2004                          Page:   1) p n
() N
(#  Copyright \(c\) University of Maryland, Baltimore County, 2003.) N
(#   Original Authors: Ramakrishna Shenai, Sunil Gowda and Krishna Sivalingam.) N
() N
(#   This software is developed at the University of Maryland, Baltimore County u) N
(nder) N
(#   grants from Cisco Systems Inc and the University of Maryland, Baltimore Coun) N
(ty.) N
() N
(#   Permission to use, copy, modify, and distribute this software and its) N
(#   documentation in source and binary forms for non-commercial purposes) N
(#   and without fee is hereby granted, provided that the above copyright) N
(#   notice appear in all copies and that both the copyright notice and) N
(#   this permission notice appear in supporting documentation. and that) N
(#   any documentation, advertising materials, and other materials related) N
(#   to such distribution and use acknowledge that the software was) N
(#   developed by the University of Maryland, Baltimore County.  The name of) N
(#   the University may not be used to endorse or promote products derived from) N
(#   this software without specific prior written permission.) N
() N
(#   Copyright \(C\) 2000-2003 Washington State University. All rights reserved.) N
(#   This software was originally developed at Alcatel USA and subsequently modif) N
(ied) N
(#   at Washington State University, Pullman, WA  through research work which was) N
(#   supported by Alcatel USA, Inc and Cisco Systems Inc.) N
() N
(#   The  following notice is in adherence to the Washington State University) N
(#   copyright policy follows.) N
() N
(#   License is granted to copy, to use, and to make and to use derivative) N
(#   works for research and evaluation purposes, provided that Washington) N
(#   State University is acknowledged in all documentation pertaining to any such) N
(#   copy or derivative work. Washington State University grants no other) N
(#   licenses expressed or implied. The Washington State University name) N
(#   should not be used in any advertising without its written permission.) N
() N
(#   WASHINGTON STATE UNIVERSITY MAKES NO REPRESENTATIONS CONCERNING EITHER) N
(#   THE MERCHANTABILITY OF THIS SOFTWARE OR THE SUITABILITY OF THIS SOFTWARE) N
(#   FOR ANY PARTICULAR PURPOSE.  The software is provided "as is") N
(#   without express or implied warranty of any kind. These notices must) N
(#   be retained in any copies of any part of this software.) N
() N
() N
() N
() N
(# Example demo topology as shown below :) N
(#) N
(#    ___________          ___________          ___________) N
(#   |           |        |           |        |           |) N
(#   | Edge node |========| Core node |========| Edge node |) N
(#   |___________|        |___________|        |___________|) N
(#) N
(#) N
() N
(StatCollector set debug_ 0) N
(Classifier/BaseClassifier/EdgeClassifier set type_ 0) N
(Classifier/BaseClassifier/CoreClassifier set type_ 1) N
(# Per node bhp processing time is 1 micro-second) N
(source ../lib/ns-obs-lib.tcl) N
() N
(stdin) (Page 3/26) (Feb 11, 04 16:20) title
border
/v 1 store
/x0 x v get 3.362408 add sx cw mul add store
/y0 y v get bfs th add sub store
x0 y0 moveto
(basic5a-nam.tcl) K
(  Feb 11 10:34 2004                          Page:   2) p n
() N
(source ../lib/ns-obs-defaults.tcl) N
(source ../lib/ns-optic-link.tcl ) N
() N
(set ns [new Simulator]) N
(#open nam trace file) N
(set nf [open basic5a.nam w]) N
(set sc [new StatCollector]) N
(set tf [open trace5a.tr w]) N
(set ndf [open ndtrace5a.tr w]) N
() N
(#set colors for packets in nam trace) N
(# DBs will be red; IPKTs black) N
($ns color 1 Black) N
($ns color 2 Red) N
() N
(# dump all the traces out to the nam file) N
($ns namtrace-all $nf) N
() N
($ns trace-all $tf) N
() N
() N
(#====================================================================#) N
(# constant definitions) N
(# set the offset time To to 20 microseconds) N
(#BurstManager offsettime 0.02) N
(BurstManager offsettime 0.05) N
(BurstManager maxburstsize 1250) N
(BurstManager bursttimeout 0.1) N
(# set the bhp processing time 1 microsecond) N
(Classifier/BaseClassifier/CoreClassifier set bhpProcTime 0.000006) N
(Classifier/BaseClassifier/EdgeClassifier set bhpProcTime 0.000006) N
(Classifier/BaseClassifier set proc_time 0.0) N
(OBSFiberDelayLink set FDLdelay 0.000005) N
() N
(# total number of edge nodes) N
(set edge_count 2) N
(# total number of core routers) N
(set core_count 1) N
() N
(# total bandwidth/channel \(1mb = 1000000\)) N
(set bwpc 1000000) N
(#set bwpc ) N
(# delay in milliseconds) N
(#set delay 1ms) N
(set delay 0.5) N
() N
(# total number of channels per link) N
(set maxch 16) N
(# number of control channels per link) N
(set ncc 4) N
(# number of data-channels) N
(set ndc 12) N
() N
(# set the variables too.) N
($ns set bwpc_  $bwpc) N
($ns set maxch_ $maxch) N
() N
(stdin) (Page 4/26) (Feb 11, 04 16:20) title
border
grestore
(Printed by U-GMGPC2\\Geoffrey M. Garner) rhead
(stdin) (2/13) (Wednesday February 11, 2004) footer
end % of iso1dict
pagesave restore
showpage
%%Page: (5-6) 3
%%BeginPageSetup
/pagesave save def
sh 0 translate 90 rotate
%%EndPageSetup
iso1dict begin
gsave
llx lly 12 add translate
/v 0 store
/x0 x v get 3.362408 add sx cw mul add store
/y0 y v get bfs th add sub store
x0 y0 moveto
(basic5a-nam.tcl) K
(  Feb 11 10:34 2004                          Page:   3) p n
() N
($ns set ncc_ $ncc) N
($ns set ndc_ $ndc) N
() N
(#====================================================================#) N
(# support procedures) N
() N
(# finish procedure) N
(proc finish {} {) N
(    global ns nf sc tf) N
(    $ns flush-trace) N
(    close $nf) N
(    close $tf) N
(    ) N
(    $sc display-sim-list) N
() N
(#Execute NAM on the trace file \(note: could leave this out, and executed nam) N
(#separately from the Linux command line.) N
(     exec nam basic5a.nam &) N
() N
(    puts "Simulation complete";) N
(    exit 0) N
(}) N
() N
() N
() N
() N
(#create a edge-core-edge topology) N
(Simulator instproc  create_topology { } {) N
(    $self instvar Node_) N
(    global E C ) N
(    global edge_count core_count) N
(    global bwpc maxch ncc ndc delay) N
() N
(    set i 0) N