这个程序可以直接在Matlab中的S函数模块中使用，是一个优化版本。