< ((Sqrt[Apply[Plus,#2[[3]]^2]] < 10.^-6) &)]; (* Haetaan iteraatiopisteet ja funktion arvot *) BFGSIterates = Map[#[[1]]&, BFGSResults] functionValues = Map[Apply[f,#]&, BFGSIterates]