Датотека:Gradient descent.gif
Садржај странице није подржан на другим језицима
Gradient_descent.gif (360 × 292 пиксела, величина датотеке: 1,51 MB, MIME тип: image/gif, петља, 50 кадрова)
ОписGradient descent.gif | English: Gradient descent is a simple method to find the minimum of a function, where at each iteration a small step is made in the direction of the steepest descent. It tends to get stuck in a local minimum, so it is often run with several initial conditions. |
Датум | |
Извор | https://twitter.com/j_bertolotti/status/1121054414066810881 |
Аутор | Jacopo Bertolotti |
Дозвола (Поновно коришћење ове датотеке) | https://twitter.com/j_bertolotti/status/1030470604418428929 |
f = Evaluate[x^2 + y^2 + Total@Table[RandomReal[{0,2}] E^(-(((x - RandomReal[{-1, 1}])^2 + (y + RandomReal[{-1, 1}])^2)/(2 RandomReal[{0.1, 0.4}]^2))), {10}]];step = 0.02;nstep = 100;coord = {-1, 1};pos = {coord[[1]], coord[[2]], f /. {x -> coord[[1]], y -> coord[[2]]}};evo = Reap[Do[ subst = MapThread[Rule, {{x, y, z}, pos}]; dfx = (D[{x, y, f}, x] /. subst); dfy = (D[{x, y, f}, y] /. subst); tmp = {D[f, x] /. subst, D[f, y] /. subst}; pos = pos - step {tmp[[1]], tmp[[2]], 0}; pos[[3]] = Evaluate[f /. {x -> pos[[1]], y -> pos[[2]]}]; Sow[pos]; , nstep];][[2, 1]];coord = {-1, -1};pos = {coord[[1]], coord[[2]], f /. {x -> coord[[1]], y -> coord[[2]]}};evo1 = Reap[Do[ subst = MapThread[Rule, {{x, y, z}, pos}]; dfx = (D[{x, y, f}, x] /. subst); dfy = (D[{x, y, f}, y] /. subst); tmp = {D[f, x] /. subst, D[f, y] /. subst}; pos = pos - step {tmp[[1]], tmp[[2]], 0}; pos[[3]] = Evaluate[f /. {x -> pos[[1]], y -> pos[[2]]}]; Sow[pos]; , nstep];][[2, 1]];coord = {1, 1};pos = {coord[[1]], coord[[2]], f /. {x -> coord[[1]], y -> coord[[2]]}};evo2 = Reap[Do[ subst = MapThread[Rule, {{x, y, z}, pos}]; dfx = (D[{x, y, f}, x] /. subst); dfy = (D[{x, y, f}, y] /. subst); tmp = {D[f, x] /. subst, D[f, y] /. subst}; pos = pos - step {tmp[[1]], tmp[[2]], 0}; pos[[3]] = Evaluate[f /. {x -> pos[[1]], y -> pos[[2]]}]; Sow[pos]; , nstep];][[2, 1]];p1 = Table[ Show[ Plot3D[f, {x, -1.35, 1.35}, {y, -1.35, 1.35}, Boxed -> False, Axes -> False(*,PlotStyle\[Rule]{Opacity[0.3]}*)], Graphics3D[{PointSize[0.03], Point[evo[[j]] ], Thick, Line[evo[[1 ;; j]] ], Point[evo1[[j]] ], Line[evo1[[1 ;; j]]] , Point[evo2[[j]] ], Line[evo2[[1 ;; j]]] }] ] , {j, 1, nstep, 2}];ListAnimate[p1]
Ова датотека је доступна под лиценцом Creative Commons 1.0 Универзална – посвећивање јавном власништву. | |
Особа која је учествовало у раду на овом документу посветила је дело јавном власништву, одричући се свих права на то дело широм света, по закону о ауторским правима и повезаним или сродним законским правима које би имао/имала, у мери дозвољеној законом. Можете да умножавате, мењате, расподељујете и прилагођавате дело, чак и у комерцијалне сврхе, без тражења дозволе. http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |
Кликните на датум/време да бисте видели тадашњу верзију датотеке.
Датум/време | Минијатура | Димензије | Корисник | Коментар | |
---|---|---|---|---|---|
тренутна | 10:43, 25. април 2019. | 360 × 292 (1,51 MB) | Berto | User created page with UploadWizard |
Следећа страница користи ову датотеку:
Други викији који користе ову датотеку:
Ова датотека садржи додатне податке, који вероватно долазе од дигиталног фотоапарата или скенера коришћеног за дигитализацију.
Ако је првобитно стање датотеке промењено, могуће је да неки детаљи не описују измењену датотеку у потпуности.
Коментар на датотеку GIF | Created with the Wolfram Language : www.wolfram.com |
---|