bund_18 a<-0.95 b<-0.975 c<-1.025 d<-1.125 y<-function(x){ if(x<a) y<-0.04 else if(x>a&x<b) y<-x+1.01 else if(x>b&x<c) y<-0.035 else if(x>c$x<d) y<-x-0.99 else y<-0.045} plot(y)
