obrazek <- function(x1=1,x2=3, theta=seq(0,1,length=101),thetaStar=.5, thetaSeq=seq(min(theta),max(theta),length=7)){ # modifikace, aby byla v bodu dotyku stejná rychlost # kreslí dvojici obrázků primkaTB <- matrix(c(fceT0(thetaStar,x1=x1,x2=x2)),length(thetaSeq),2,byrow=TRUE)+ c(thetaSeq-thetaStar)%o%c(fceT1(thetaStar,x1=x1,x2=x2)) betaStar <- exp(thetaStar) betaSeq <- betaStar+(thetaSeq-thetaStar)*Bprime(thetaStar) minB <- min(c(exp(theta),betaSeq)) maxB <- max(c(exp(theta),betaSeq)) beta <- seq(minB,maxB,length=101) if (min(beta)