求助哪位大神帮忙给一份多元函数求极小值的程序，我自己在一个程序集上看到过一个多元函数鲍威尔法求解极值的程序，但是调试时，发现中间的语句是错误的，但是也不知道怎么改。求助各位大神能传一份程序！