profit1 <- function(S){
  call1<-callPayoff(S,510)
  call2<-callPayoff(S,517.5)
  14*((call1-36.4)+(-call2+29.55))
}

profit2 <- function(S) {
  8*callPayoff(S,530)-16*callPayoff(S,550)+8*callPayoff(S,570)-39.2
}

profit3 <- function(S){
  call510<-callPayoff(S,510)
  call550<-callPayoff(S,550)
  call570<-callPayoff(S,570)
  5*(call510-36.4-call550*2+12*2+call570-6.3)
}