hts1000.tcl

柯老师网站上找到的

set n(608) [$ns node 7.23.1]
set n(609) [$ns node 7.23.2]
set n(610) [$ns node 7.23.3]
set n(611) [$ns node 8.0.0]
set n(612) [$ns node 8.1.0]
set n(613) [$ns node 8.1.1]
set n(614) [$ns node 8.1.2]
set n(615) [$ns node 8.1.3]
set n(616) [$ns node 8.1.4]
set n(617) [$ns node 8.1.5]
set n(618) [$ns node 8.2.0]
set n(619) [$ns node 8.2.1]
set n(620) [$ns node 8.3.0]
set n(621) [$ns node 8.3.1]
set n(622) [$ns node 8.3.2]
set n(623) [$ns node 8.3.3]
set n(624) [$ns node 9.0.0]
set n(625) [$ns node 9.1.0]
set n(626) [$ns node 9.2.0]
set n(627) [$ns node 9.3.0]
set n(628) [$ns node 9.4.0]
set n(629) [$ns node 9.4.1]
set n(630) [$ns node 9.4.2]
set n(631) [$ns node 9.4.3]
set n(632) [$ns node 9.4.4]
set n(633) [$ns node 9.4.5]
set n(634) [$ns node 9.5.0]
set n(635) [$ns node 9.5.1]
set n(636) [$ns node 9.6.0]
set n(637) [$ns node 9.6.1]
set n(638) [$ns node 9.6.2]
set n(639) [$ns node 9.7.0]
set n(640) [$ns node 9.7.1]
set n(641) [$ns node 9.7.2]
set n(642) [$ns node 9.7.3]
set n(643) [$ns node 9.7.4]
set n(644) [$ns node 9.8.0]
set n(645) [$ns node 9.8.1]
set n(646) [$ns node 9.8.2]
set n(647) [$ns node 9.8.3]
set n(648) [$ns node 9.8.4]
set n(649) [$ns node 9.9.0]
set n(650) [$ns node 9.9.1]
set n(651) [$ns node 9.9.2]
set n(652) [$ns node 9.10.0]
set n(653) [$ns node 9.10.1]
set n(654) [$ns node 9.10.2]
set n(655) [$ns node 9.10.3]
set n(656) [$ns node 9.11.0]
set n(657) [$ns node 9.11.1]
set n(658) [$ns node 9.12.0]
set n(659) [$ns node 9.12.1]
set n(660) [$ns node 9.12.2]
set n(661) [$ns node 9.12.3]
set n(662) [$ns node 9.12.4]
set n(663) [$ns node 9.12.5]
set n(664) [$ns node 9.13.0]
set n(665) [$ns node 9.13.1]
set n(666) [$ns node 9.13.2]
set n(667) [$ns node 9.13.3]
set n(668) [$ns node 9.13.4]
set n(669) [$ns node 9.13.5]
set n(670) [$ns node 9.14.0]
set n(671) [$ns node 9.14.1]
set n(672) [$ns node 9.14.2]
set n(673) [$ns node 9.14.3]
set n(674) [$ns node 9.15.0]
set n(675) [$ns node 9.15.1]
set n(676) [$ns node 10.0.0]
set n(677) [$ns node 10.1.0]
set n(678) [$ns node 10.2.0]
set n(679) [$ns node 10.3.0]
set n(680) [$ns node 10.4.0]
set n(681) [$ns node 10.5.0]
set n(682) [$ns node 10.6.0]
set n(683) [$ns node 10.7.0]
set n(684) [$ns node 10.8.0]
set n(685) [$ns node 10.9.0]
set n(686) [$ns node 10.9.1]
set n(687) [$ns node 10.9.2]
set n(688) [$ns node 10.9.3]
set n(689) [$ns node 10.10.0]
set n(690) [$ns node 10.10.1]
set n(691) [$ns node 10.10.2]
set n(692) [$ns node 10.10.3]
set n(693) [$ns node 10.11.0]
set n(694) [$ns node 10.11.1]
set n(695) [$ns node 10.11.2]
set n(696) [$ns node 10.12.0]
set n(697) [$ns node 10.12.1]
set n(698) [$ns node 10.12.2]
set n(699) [$ns node 10.12.3]
set n(700) [$ns node 10.12.4]
	if {$verbose} { puts -nonewline "700..."; flush stdout }
set n(701) [$ns node 10.12.5]
set n(702) [$ns node 10.13.0]
set n(703) [$ns node 10.13.1]
set n(704) [$ns node 10.13.2]
set n(705) [$ns node 10.14.0]
set n(706) [$ns node 10.14.1]
set n(707) [$ns node 10.14.2]
set n(708) [$ns node 10.14.3]
set n(709) [$ns node 10.15.0]
set n(710) [$ns node 10.15.1]
set n(711) [$ns node 10.15.2]
set n(712) [$ns node 10.15.3]
set n(713) [$ns node 10.15.4]
set n(714) [$ns node 10.16.0]
set n(715) [$ns node 10.16.1]
set n(716) [$ns node 10.16.2]
set n(717) [$ns node 10.16.3]
set n(718) [$ns node 10.16.4]
set n(719) [$ns node 10.17.0]
set n(720) [$ns node 10.17.1]
set n(721) [$ns node 10.17.2]
set n(722) [$ns node 10.17.3]
set n(723) [$ns node 10.18.0]
set n(724) [$ns node 10.18.1]
set n(725) [$ns node 10.19.0]
set n(726) [$ns node 10.19.1]
set n(727) [$ns node 10.19.2]
set n(728) [$ns node 10.20.0]
set n(729) [$ns node 10.20.1]
set n(730) [$ns node 10.20.2]
set n(731) [$ns node 10.20.3]
set n(732) [$ns node 10.20.4]
set n(733) [$ns node 10.20.5]
set n(734) [$ns node 10.21.0]
set n(735) [$ns node 10.21.1]
set n(736) [$ns node 10.22.0]
set n(737) [$ns node 10.22.1]
set n(738) [$ns node 10.22.2]
set n(739) [$ns node 10.22.3]
set n(740) [$ns node 10.22.4]
set n(741) [$ns node 10.23.0]
set n(742) [$ns node 10.23.1]
set n(743) [$ns node 10.23.2]
set n(744) [$ns node 10.24.0]
set n(745) [$ns node 10.24.1]
set n(746) [$ns node 10.24.2]
set n(747) [$ns node 10.24.3]
set n(748) [$ns node 10.25.0]
set n(749) [$ns node 10.25.1]
set n(750) [$ns node 10.25.2]
set n(751) [$ns node 10.26.0]
set n(752) [$ns node 10.26.1]
set n(753) [$ns node 10.26.2]
set n(754) [$ns node 10.26.3]
set n(755) [$ns node 10.26.4]
set n(756) [$ns node 10.26.5]
set n(757) [$ns node 10.27.0]
set n(758) [$ns node 10.27.1]
set n(759) [$ns node 10.27.2]
set n(760) [$ns node 10.27.3]
set n(761) [$ns node 10.28.0]
set n(762) [$ns node 10.29.0]
set n(763) [$ns node 10.29.1]
set n(764) [$ns node 10.29.2]
set n(765) [$ns node 10.29.3]
set n(766) [$ns node 10.29.4]
set n(767) [$ns node 10.29.5]
set n(768) [$ns node 10.30.0]
set n(769) [$ns node 10.30.1]
set n(770) [$ns node 10.30.2]
set n(771) [$ns node 10.30.3]
set n(772) [$ns node 10.30.4]
set n(773) [$ns node 10.31.0]
set n(774) [$ns node 10.31.1]
set n(775) [$ns node 10.31.2]
set n(776) [$ns node 10.31.3]
set n(777) [$ns node 10.32.0]
set n(778) [$ns node 10.32.1]
set n(779) [$ns node 10.32.2]
set n(780) [$ns node 10.33.0]
set n(781) [$ns node 10.33.1]
set n(782) [$ns node 10.33.2]
set n(783) [$ns node 10.33.3]
set n(784) [$ns node 10.33.4]
set n(785) [$ns node 10.34.0]
set n(786) [$ns node 10.34.1]
set n(787) [$ns node 10.34.2]
set n(788) [$ns node 10.34.3]
set n(789) [$ns node 10.35.0]
set n(790) [$ns node 10.35.1]
set n(791) [$ns node 10.35.2]
set n(792) [$ns node 10.35.3]
set n(793) [$ns node 11.0.0]
set n(794) [$ns node 11.1.0]
set n(795) [$ns node 11.2.0]
set n(796) [$ns node 11.2.1]
set n(797) [$ns node 11.2.2]
set n(798) [$ns node 11.2.3]
set n(799) [$ns node 11.2.4]
set n(800) [$ns node 11.3.0]
	if {$verbose} { puts -nonewline "800..."; flush stdout }
set n(801) [$ns node 11.3.1]
set n(802) [$ns node 11.3.2]
set n(803) [$ns node 11.3.3]
set n(804) [$ns node 11.4.0]
set n(805) [$ns node 11.4.1]
set n(806) [$ns node 11.4.2]
set n(807) [$ns node 11.4.3]
set n(808) [$ns node 11.4.4]
set n(809) [$ns node 11.4.5]
set n(810) [$ns node 11.5.0]
set n(811) [$ns node 11.6.0]
set n(812) [$ns node 11.6.1]
set n(813) [$ns node 11.7.0]
set n(814) [$ns node 11.7.1]
set n(815) [$ns node 11.7.2]
set n(816) [$ns node 11.7.3]
set n(817) [$ns node 11.7.4]
set n(818) [$ns node 11.7.5]
set n(819) [$ns node 12.0.0]
set n(820) [$ns node 12.1.0]
set n(821) [$ns node 12.2.0]
set n(822) [$ns node 12.3.0]
set n(823) [$ns node 12.4.0]
set n(824) [$ns node 12.4.1]
set n(825) [$ns node 12.4.2]
set n(826) [$ns node 12.5.0]
set n(827) [$ns node 12.5.1]
set n(828) [$ns node 12.5.2]
set n(829) [$ns node 12.5.3]
set n(830) [$ns node 12.6.0]
set n(831) [$ns node 12.6.1]
set n(832) [$ns node 12.6.2]
set n(833) [$ns node 12.6.3]
set n(834) [$ns node 12.6.4]
set n(835) [$ns node 12.7.0]
set n(836) [$ns node 12.7.1]
set n(837) [$ns node 12.7.2]
set n(838) [$ns node 12.8.0]
set n(839) [$ns node 12.8.1]
set n(840) [$ns node 12.8.2]
set n(841) [$ns node 12.8.3]
set n(842) [$ns node 12.8.4]
set n(843) [$ns node 12.9.0]
set n(844) [$ns node 12.9.1]
set n(845) [$ns node 12.9.2]
set n(846) [$ns node 12.9.3]
set n(847) [$ns node 12.10.0]
set n(848) [$ns node 12.10.1]
set n(849) [$ns node 12.10.2]
set n(850) [$ns node 12.10.3]
set n(851) [$ns node 12.11.0]
set n(852) [$ns node 12.11.1]
set n(853) [$ns node 12.11.2]
set n(854) [$ns node 12.11.3]
set n(855) [$ns node 12.12.0]
set n(856) [$ns node 12.12.1]
set n(857) [$ns node 12.12.2]
set n(858) [$ns node 12.12.3]
set n(859) [$ns node 12.13.0]
set n(860) [$ns node 12.13.1]
set n(861) [$ns node 12.13.2]
set n(862) [$ns node 12.13.3]
set n(863) [$ns node 12.13.4]
set n(864) [$ns node 12.14.0]
set n(865) [$ns node 12.14.1]
set n(866) [$ns node 12.14.2]
set n(867) [$ns node 12.15.0]
set n(868) [$ns node 12.15.1]
set n(869) [$ns node 12.15.2]
set n(870) [$ns node 12.15.3]
set n(871) [$ns node 13.0.0]
set n(872) [$ns node 13.1.0]
set n(873) [$ns node 13.2.0]
set n(874) [$ns node 13.3.0]
set n(875) [$ns node 13.4.0]
set n(876) [$ns node 13.5.0]
set n(877) [$ns node 13.6.0]
set n(878) [$ns node 13.6.1]
set n(879) [$ns node 13.6.2]
set n(880) [$ns node 13.6.3]
set n(881) [$ns node 13.6.4]
set n(882) [$ns node 13.6.5]
set n(883) [$ns node 13.7.0]
set n(884) [$ns node 13.7.1]
set n(885) [$ns node 13.8.0]
set n(886) [$ns node 13.8.1]
set n(887) [$ns node 13.9.0]
set n(888) [$ns node 13.9.1]
set n(889) [$ns node 13.9.2]
set n(890) [$ns node 13.10.0]
set n(891) [$ns node 13.10.1]
set n(892) [$ns node 13.10.2]
set n(893) [$ns node 13.10.3]
set n(894) [$ns node 13.11.0]
set n(895) [$ns node 13.11.1]
set n(896) [$ns node 13.11.2]
set n(897) [$ns node 13.11.3]
set n(898) [$ns node 13.11.4]
set n(899) [$ns node 13.11.5]
set n(900) [$ns node 13.11.6]
	if {$verbose} { puts -nonewline "900..."; flush stdout }
set n(901) [$ns node 13.12.0]
set n(902) [$ns node 13.12.1]
set n(903) [$ns node 13.12.2]
set n(904) [$ns node 13.12.3]
set n(905) [$ns node 13.13.0]
set n(906) [$ns node 13.13.1]
set n(907) [$ns node 13.13.2]
set n(908) [$ns node 13.13.3]
set n(909) [$ns node 13.14.0]
set n(910) [$ns node 13.14.1]
set n(911) [$ns node 13.14.2]
set n(912) [$ns node 13.14.3]
set n(913) [$ns node 13.15.0]
set n(914) [$ns node 13.15.1]
set n(915) [$ns node 13.15.2]
set n(916) [$ns node 13.15.3]
set n(917) [$ns node 13.16.0]
set n(918) [$ns node 13.17.0]
set n(919) [$ns node 13.17.1]