ubuntu+ns2.33+leach安装笔记

一连好几天都在安装leach协议，本来以前已经用fedora12安装好了ns2.35了的，可是ns2.35上安装不了leach协议，而且网上找的资料都是ns2.27上安装leach,不过也有用ns2.33安装的，我用的就是ns2.33，在这之间，真的是尝试了太多的路，虚拟机都有四五个了，天天在弄，却又弄不出个什么来，人却很累，其实安装这东西真没什么意义，步步受阻的时候，真的想放弃用ns仿真了，听说matlab要容易很多，可是毕竟之前做了这么多，真是有点令人欲罢不能啊，好了，闲话不说，我们开始安装，首先ubuntu的安装是参照

在安装过程完遇到一个问题，就是运行./test时，出现test:3:ns can not found，这个问题弄了好久，一直不知如何解决，开始以为是环境变量设置问题，按网上的贴重新设置了也不行，后面一位高人告诉我要用root用户登录才行，果然切换到root用户设置好环境变量，这个问题是解决了，但是又有一个新问题： invalid command name "Resource/Energy"
    while executing
"Resource/Energy instproc setParams {args} {
    $self instvar energyLevel_ alarmLevel_
    set energyLevel_ [lindex $args 0]
    set alarmLevel_ [lind..."
    (file "/home/pgl/ns2.33/ns-allinone-2.33/ns-2.33/mit/rca/resources/ns-energy-resource.tcl" line 11)
    invoked from within
"source.orig /home/pgl/ns2.33/ns-allinone-2.33/ns-2.33/mit/rca/resources/ns-energy-resource.tcl"
    ("uplevel" body line 1)
    invoked from within
"uplevel source.orig [list $fileName]"
    invoked from within
"if [$instance_ is_http_url $fileName] {
set buffer [$instance_ read_url $fileName]
uplevel eval $buffer
} else {
uplevel source.orig [list $fileName]
..."
    (procedure "source" line 8)
    invoked from within
"source $env(RCA_LIBRARY)/resources/ns-energy-resource.tcl"
    (file "mit/uAMPS/sims/uamps.tcl" line 26)
    invoked from within
"source.orig mit/uAMPS/sims/uamps.tcl"
    ("uplevel" body line 1)
    invoked from within
"uplevel source.orig [list $fileName]"
    invoked from within
"if [$instance_ is_http_url $fileName] {
set buffer [$instance_ read_url $fileName]
uplevel eval $buffer
} else {
uplevel source.orig [list $fileName]
..."
    (procedure "source" line 8)
    invoked from within
"source mit/uAMPS/sims/uamps.tcl"
    (file "tcl/mobility/leach.tcl" line 18)
    invoked from within
"source.orig tcl/mobility/leach.tcl"
    ("uplevel" body line 1)
    invoked from within
"uplevel source.orig [list $fileName]"
    invoked from within
"if [$instance_ is_http_url $fileName] {
set buffer [$instance_ read_url $fileName]
uplevel eval $buffer
} else {
uplevel source.orig [list $fileName]
..."
    (procedure "source" line 8)
    invoked from within
"source tcl/mobility/$opt(rp).tcl"
    (file "tcl/ex/wireless.tcl" line 187)

这个问题却一直没能解决，请高人能指点？？