mixnormal<-function(){
x<-seq(from=-10,to=10,by=0.01)
y<-1/sqrt(10*pi)*exp(-x*x/10)
z<-1/sqrt(2*pi)*exp(-x*x/2)
w<-0.25*y+0.75*z
plot(x,y,col='red',type='l')
lines(x,z,col='blue')
lines(x,w,col='green')
}

然后运行这个函数，可是并不能显示整个图像，怎么能显示三个函数的全部图像呢？
谢谢了