GeoGebra牛顿下山

https://www.geogebra.org/graphing

f(x)=x^2/10-lnx //Root(f,x_1)
g(x)=x-f(x)/f'(x)
xs=IterationList(g,x_1,{1},n)
List1=Sequence({Segment(   (Element(xs,i),0),(Element(xs,i),f(Element(xs,i))))
序列({线段((元素(xs, i), 0), (元素(xs, i), f(元素(xs, i)))), 线段((元素(xs, i), f(元素(xs, i))), (元素(xs, i + 1), 0))}, i, 1, n, 1)

f(x)=x^2/10-lnx 
g(x)=x-f(x)/f'(x)
xs=迭代列表(g, x_1, n)

list1=序列({线段((元素(xs, i), 0), (元素(xs, i), f(元素(xs, i)))), 线段((元素(xs, i), f(元素(xs, i))), (元素(xs, i + 1), 0))}, i, 1, n, 1)



list2=序列((元素(xs, i), 0), i, 1, n)