setfsize不能执行..急急急！！！

[jiangnanlp12]

我用的是7.0版本的，照5.0书上例子输了一个源程序，但是不能运行，具体是这样的：
>> clf reset
colordef(gcf,'none')
figure(gcf)
setfsize(400,400);
echo on
clc
%INITP-初始化感知器层
%SIMUP-对感知器层仿真
%TRAINP-利用感知器规则训练感知器层
pause%Strike any key to continue.....
clc
%定义P为4个2元输入矢量
P=[-0.5-0.5+0.3+0.0;
-0.5+0.5-0.5+1.0];
%T为目标矢量
T=[1 1 0 0 ];
pause%Strike any key to see a plot of these vectors.....
clc
%绘制矢量图
plotpv(P,T);
pause%Strike any key to definine the neural network.....
clc
%定义感知器神经元
[w,b]=initp(P,T)
echo off
k=pickic;
if k==2
w=[-0.8161 0.3078];
b=[-0.1680];
end
echo on
clc
%初始化感知器神经元
plotpv(P,T)
plotpc(w,b)
pause%Strike any key to train the perceptron.....
clc
%训练感知器神经元
[w,b,epochs,errors]=trainp(w,b,P,T,-1);
pause%Strike any key to see a plot of errors.....
clc
%绘制误差图
ploterr(errors);
pause%Strike any key to use the classifier.....
clc
%利用训练完的感知器神经元进行分类
p=[-0.5;0];
a=simup(p,w,b)
echo off
??? Undefined command/function 'setfsize'.
请问怎么回事啊！！我毕业论文急用，麻烦哪位高手帮忙..

[yhcode]

根据你的错误提示,setfsize是一个自定义函数,书上例子没有同时给出这个函数吗?5.0例子的书?有点儿过时了,看看一些新的参考书吧,或者到网上多看看,多查查