tcp-grid7x7.tcl

来自「在linux平台下」· TCL 代码 · 共 90 行

# parallel 1//1

if { $opt(ntcp) == 1 } {
    create_tcp_connection 21 27 tcp 3
    create_tcp_connection 21 27 tcp 3
}

# cross 1x1

if { $opt(ntcp) == 2 } {
    create_tcp_connection  3 45 tcp 3
    create_tcp_connection 21 27 tcp 3
}


# cross 2x2

if { $opt(ntcp) == 4 } {
    create_tcp_connection 1 43 tcp 3
    create_tcp_connection 5 47 tcp 3

    create_tcp_connection 7 13 tcp 3
    create_tcp_connection 35 41 tcp 3
}


# cross 3x3

if { $opt(ntcp)==6 } {
    create_tcp_connection  1 43 tcp 3
    create_tcp_connection  3 45 tcp 3
    create_tcp_connection  5 47 tcp 3

    create_tcp_connection  7 13 tcp 3
    create_tcp_connection 21 27 tcp 3
    create_tcp_connection 35 41 tcp 3
}

# cross 4x4

if { $opt(ntcp) == 8 } {
    create_tcp_connection 0 42 tcp 5
    create_tcp_connection 2 44 tcp 5
    create_tcp_connection 4 46 tcp 5
    create_tcp_connection 6 48 tcp 5

    create_tcp_connection 0 6 tcp 5
    create_tcp_connection 14 20 tcp 5
    create_tcp_connection 28 34 tcp 5
    create_tcp_connection 42 48 tcp 5
}

# cross 7x7

if { $opt(ntcp) == 14 } {
    create_tcp_connection 0 42 tcp 5
    create_tcp_connection 1 43 tcp 5
    create_tcp_connection 2 44 tcp 5
    create_tcp_connection 3 45 tcp 5
    create_tcp_connection 4 46 tcp 5
    create_tcp_connection 5 47 tcp 5
    create_tcp_connection 6 48 tcp 5

    create_tcp_connection 0 6 tcp 5
    create_tcp_connection 7 13 tcp 5
    create_tcp_connection 14 20 tcp 5
    create_tcp_connection 21 27 tcp 5
    create_tcp_connection 28 34 tcp 5
    create_tcp_connection 35 41 tcp 5
    create_tcp_connection 42 48 tcp 5
}

# random 10

if { $opt(ntcp) == 10 } {
    create_tcp_connection 22 10 tcp 5
    create_tcp_connection 23 12 tcp 5
    create_tcp_connection 14 21 tcp 5
    create_tcp_connection 19 32 tcp 5
    create_tcp_connection 15 1 tcp 5

    create_tcp_connection 21 11 tcp 5
    create_tcp_connection 5 33 tcp 5
    create_tcp_connection 3 30 tcp 5
    create_tcp_connection 15 1 tcp 5
    create_tcp_connection 27 20 tcp 5
}