C?<2Sc' 2 global r global X r=10; X-[0;0]; e=0.001; d=0.8; i=0; while r>e X=fminunc('naszaf',X) plot(X(1),X{2), 'ro*) hołd on r=r*d; i-i+1; end X i %ustalamy początkową wartość wsp. kary %ustalamy początkowe współrzędne punktu %ustalamy żądaną dokładność obliczeń %wsp. określający szybkość zmiany parametru r %warunek czasu wykonywania pętli %funkcja licząca minimum %polecenie rysujące wykres %zmiana wartości r w kolejnych iteracjach -oliczenie iteracji %współrzędne minimum wypisywane przez program %liczba iteracji wypisywana przez program