7.3 编写M文件S-function