R语言中怎么画自定义函数图像p=function(n,m){N=10^6x=c(rep(0,5),1)z=numeric