幂函数图像特点

幂函数图像特点

最近根据实验数据选了若干个模型用R来拟合，有指数模型，对数模型和幂函数模型，最后发现幂函数的拟合效果最好，如图

由于对后者图像不太了解，于是想画几条来看一下（R代码在文末）。

可以看出x次数的绝对值越大，曲线下降速度越快；系数越大，曲线距离两个坐标轴越远。

x5=1:100;y5=x5^(-0.1)
dat5=data.frame(x5,y5)
x6=1:100;y6=x6^(-0.5)
dat6=data.frame(x6,y6)
x7=1:100;y7=x7^(-1)
dat7=data.frame(x7,y7)
x8=1:100;y8=x8^(-5)
dat8=data.frame(x8,y8)
x9=1:100;y9=x9^(-10)
dat9=data.frame(x9,y9)
x10=1:100;y10=10*x10^(-1)
dat10=data.frame(x10,y10)
ggplot()+
  scale_x_continuous(limits = c(0,100))+
  scale_y_continuous(limits = c(0,1))+
  geom_line(data=dat5,aes(x=x5,y=y5),color='grey',size=1)+
  geom_line(data=dat6,aes(x=x6,y=y6),color='red',size=1)+
  geom_line(data=dat7,aes(x=x7,y=y7),color='blue',size=1)+
  geom_line(data=dat8,aes(x=x8,y=y8),color='green',size=1)+
  geom_line(data=dat9,aes(x=x9,y=y9),color='orange',size=1)+
  geom_line(data=dat10,aes(x=x10,y=y10),color='blue',size=1)+
  theme(panel.grid=element_blank(),panel.background=element_rect(fill='white', color='black',size=0.5),axis.text.x=element_text(size=18),axis.title.x=element_text(size=22,face='bold'),axis.text.y=element_text(size=18),axis.title.y=element_text(size=22,face='bold'))+
  labs(x='X',y='Y')