R语言：已知三家共享单车的计费方式，求出行最佳

已知三家共享单车的计费方式，求出行最佳

#ofo计费方式

ofo<-function(x)

{

ifelse(x<=1.5,1.5,ceiling(x/1.5)*1)

}

---

#永安计费方式

ya<-function(y)

{

ifelse(y<=1,0.2,ceiling(y*1)*0.2)

}

---

#hellobike计费方式

hb<-function(x)

{

if(x<2) 1

else if(x>=2 & x<4) 3

else if(x>=4 & x<8) 5

else 8

}

ofo(x=3.1)

hb(x=8)

ya(y=1)

---

#知道距离和时间，求最合适的方案

aa<-function(x,y)

{

ofo1<-ofo(x)

ya1<-ya(y)

hb1<-hb(x)

m<-c(ofo1,ya1,hb1)

min_z<-min(m)

min_xb<-which(m==min(m),arr.ind=TRUE)

names(m)<-c('ofo','ya','hb')

mz<-names(m)

min_mz<-mz[min_xb]

print(min_mz);print(min_z)

}

---

aa(5,20)