diff --git a/src/07_plot_newton.f90 b/src/07_plot_newton.f90 index 0bac36dc959cf14782ddc3bfbe2f340c7fc7b27a..b0ab76cbd0d56d0ea84a3ea54bda526d81702467 100644 --- a/src/07_plot_newton.f90 +++ b/src/07_plot_newton.f90 @@ -35,10 +35,10 @@ program plot_newton ! Generate x-y pairs for the graph open (112,file='07_plot_newton.data') - do i=-40,40 - x = .1d0*i - fx = x**3+x-10d0 - write(112,*) x, fx + do + + + end do close(112)