| set ns new Simulator |
| source tb_compat.tcl |
| #Create the topology nodes |
| Foreach node { S R0 R1 R2 R3 R4 L1 L2 L3 L4 L5 L6 L7 L8 L9 L10 L11 L12 L13 L14 L15 L16 |
| L17 L18 L19 L20 L21 L22 L23 L24 L25 L26 L27 L28 L29 L30 L31 L32 L33 L34 L35 L36 L37 L38 |
| L39 L40 L41 L42 L43 L44 L45 L46 L47 L48 L49 L50 L51 L52 L53 L54 L55 L56 L57 L58 L59 L60 |
| L61 L62 L63 L64 L65 L66 L67 L68 L69 L70 L71 L72 L73 L74 L75 L76 L77 L78 L79 L80 A1 A2 A3 |
| A4 control } { |
| #Create new node |
| set $node $ns node |
| #Define the OS image |
| tb-set-node-os set $node FC4-STD |
| #Have SEER install itself and startup when the node is ready |
| tb-set-node-startcmd set $node "sudo python/share/seer/v160/experiment-setup.py Basic" |
| } |
| #Create the client networks |
| set lannet0 [$ns make-lan "$L1 $L2 $L3 $L4 $L5 $L6 $L7 $L8 $L9 $L10 $R1 " 100 Mb 0 ms] |
| set lannet1 [$ns make-lan "$L11 $L12 $L13 $L14 $L15 $L16 $L17 $L18 $L19 $L20 $R1 " 100 Mb 0 ms] |
| set lannet2 [$ns make-lan "$L21 $L22 $L23 $L24 $L25 $L26 $L27 $L28 $L29 $L30 $R2 " 100 Mb 0 ms] |
| set lannet3 [$ns make-lan "$L31 $L32 $L33 $L34 $L35 $L36 $L37 $L38 $L39 $L40 $R2 " 100 Mb 0 ms] |
| set lannet4 [$ns make-lan "$L41 $L42 $L43 $L44 $L45 $L46 $L47 $L48 $L49 $L50 $R3 " 100 Mb 0 ms] |
| set lannet5 [$ns make-lan "$L51 $L52 $L53 $L54 $L55 $L56 $L57 $L58 $L59 $L60 $R3 " 100 Mb 0 ms] |
| set lannet6 [$ns make-lan "$L61 $L62 $L63 $L64 $L65 $L66 $L67 $L68 $L69 $L70 $R4 " 100 Mb 0 ms] |
| set lannet7 [$ns make-lan "$L71 $L72 $L73 $L74 $L75 $L76 $L77 $L78 $L79 $L80 $R4 " 100 Mb 0 ms] |
| #Create the Attack Nodes links |
| set linkRA1 [$ns duplex-link $A1 $R1 100 Mb 3 ms DropTail] |
| set linkRA2 [$ns duplex-link $A2 $R2 100 Mb 3 ms DropTail] |
| set linkRA3 [$ns duplex-link $A3 $R3 100 Mb 3 ms DropTail] |
| set linkRA4 [$ns duplex-link $A4 $R4 100 Mb 3 ms DropTail] |
| #Create the topology links |
| set linkRS [$ns duplex-link $S $R0 100 Mb 3 ms DropTail] |
| set linkRR2 [$ns duplex-link $R0 $R1 100 Mb 3 ms DropTail] |
| set linkR1R9 [$ns duplex-link $R0 $R2 100 Mb 3 ms DropTail] |
| set linkR1R10 [$ns duplex-link $R0 $R3 100 Mb 3 ms DropTail] |
| set linkR1R11 [$ns duplex-link $R0 $R4 100 Mb 3 ms DropTail] |
| $ns rtproto Static |
| $ns run |
