9.6.3 用M文件编写S函数