sigma=0.41
theta=1.2
f<-function(x,sigma=0.41,theta=1.2){
x>0
sqrt(2/pi)*(theta/x)*(x/sigma)^theta*exp(-(x/sigma)^(2*theta)*(1/2))
}
plot(f)
sigma=2.4
theta=1.2
yita=1/sigma
z<-function(x,yita=1/sigma,theta=1.2){
x>0
sqrt(2/pi)*(theta/x)*(x*yita)^theta*exp(-(x*yita)^(2*theta)*(1/2))
}
plot(z)
这两个代码的函数一样,只是参数有替换,为什么画出来的图不一样


雷达卡


京公网安备 11010802022788号







