下面是冬季体感温度的参考标准:
很冷,极不适应<4℃(红色)
冷,很不舒适4~8℃(黄色)
凉,不舒适8~13℃(蓝色)
凉爽,较舒适13~18℃
舒适,最可接受18~23℃
温暖,最可接受23~29℃
暖热,不舒适29~35℃(蓝色)
我们建立一个冬季感到寒冷的模糊集合
暖热和温暖我们将其隶属度设为0,其它依次递增。
继续用R实现
cold<-function(x){
if (x<4) 1
else if (x<8) 0.8
else if (x<13) 0.6
else if (x<18) 0.4
else if (x<23) 0.2
else 0
}
u<-c(-20:45)
dim(u)<-c(1,66)
apply(u,2,cold)->fun_cold
plot(as.vector(u),fun_cold)
lines(as.vector(u),fun_cold)
作出冬天感到寒冷的隶属度图
在论域u=[-20,50]下,该模糊集合可表示为: