方式一：编制函数代码语言：txt复制x<-rnorm(10000)#设置随机种子#编写绘图函数代码快f <- function(x){y = 1(1 + exp(-x))plot(x,y)}#sigmoid函数f(x)方