R语言：已知三家共享单车的计费方式，求出行最佳
2018-04-06 本文已影响0人
绿菡萏
已知三家共享单车的计费方式，求出行最佳
#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)
