Coordinate Descent and Golden Selection Search
Coordinate Descent and Golden Selection Search
Coordinate Descent and Golden Selection Search
cd<-CD(startx=-1.5,starty=-1.5,maxx=1.5,maxy=1.5,iter=15)
1.5
contour(x,y,z,levels = seq(0.5,5,by=.9))
newx<-sort(cbind(cd[,1],cd[,1]),decreasing=F)[-1]
newy<-sort(cbind(cd[,2],cd[,2]),decreasing=F)[-length(newx)]
cd<-cbind(newx,newy)
points(cd[,1],cd[,2],type="l",col="red")
1.0
4.1
0.5
2.3
0.5
0.5
1.4
3.2
1.5
1.5
1.0
0.5
0.0
0.5
1.0
1.5