ls11-www.cs.tu-dortmund.de/people/rudolph/teaching/exercises/AKCI/SS2011/Loesung01.txt
off() ## Aufgabe 1b) ## ----------- params <- matrix( c(1.0,1.25,1.5,0.25,0.5,0.75,2.0,2.5,3.0),ncol=3,nrow=3,byrow="true") odm <- matrix( c(1,1,1,2,2,2,3,3,3,1,2,3,1,2,3,1,2,3,1,2,3,2,3,1,3,1,2),ncol=3,nrow=9 [...] # # Blatt 1 # ################################################################################ ## Aufgabe 1a) ## ----------- branin <- function(x,y) { (y-5.1*(x/pi)^2/4+5*x/pi-6)^2+10*(1-1/(8*pi))*cos(x)+10 [...] ncol=3) for (i in 1:9) { for (j in 1:3) { od[i,j] <- params[j,odm[i,j]] # od[i,j] <- params[j,as.numeric(odm[i,j])] } } print(od) ## Aufgabe 1c) ## ----------- branin2 <- function(v) { branin(v[1],v[2]) } # poor …
