least_square_fit.f90 fit exp(x)*sin(x) 100 points 0.0 to Pi, 3 degree polynomial solving simultaneous equations C( 0 )= 1.03480711061537 C( 1 )= -4.74760988514481 C( 2 )= 7.91924598624434 C( 3 )= -2.03682882381751 check_pn k= 100 , xmin= 3.139999881386757E-002 , xmax= 3.13999988138676 ymin= 3.239627742469583E-002 , ymax= 7.46047790150789 max= 1.11263557056678 at i= 100 xbad= 3.13999988138676 , ybad= 3.679917699090061E-002 rms_err= 0.369805239467195 , avg_err= 0.317624169678257 , max_err= 1.11263557056678 fit exp(x)*sin(x) 100 points 0.0 to Pi, 4 degree polynomial solving simultaneous equations C( 0 )= -0.181694121734010 C( 1 )= 2.59570725391604 C( 2 )= -2.37989411711239 C( 3 )= 2.99795650639481 C( 4 )= -0.793779643123119 check_pn k= 100 , xmin= 3.139999881386757E-002 , xmax= 3.13999988138676 ymin= 3.239627742469583E-002 , ymax= 7.46047790150789 max= 0.134839632181023 at i= 1 xbad= 3.139999881386757E-002 , ybad= 3.239627742469583E-002 rms_err= 4.626577173589244E-002 , avg_err= 4.014016004734560E-002 , max_err= 0.134839632181023 fit exp(x)*sin(x) 100 points 0.0 to Pi, 5 degree polynomial solving simultaneous equations C( 0 )= -3.892945058916940E-003 C( 1 )= 1.02342903946921 C( 2 )= 1.02170103163322 C( 3 )= 0.159379959893692 C( 4 )= 0.210597032712823 C( 5 )= -0.126679285335522 check_pn k= 100 , xmin= 3.139999881386757E-002 , xmax= 3.13999988138676 ymin= 3.239627742469583E-002 , ymax= 7.46047790150789 max= 1.498352249367495E-002 at i= 100 xbad= 3.13999988138676 , ybad= 3.679917699090061E-002 rms_err= 3.432160105275845E-003 , avg_err= 2.703137140586091E-003 , max_err= 1.498352249367495E-002 fit exp(x)*sin(x) 100 points 0.0 to Pi, 6 degree polynomial solving simultaneous equations C( 0 )= 8.425214057438407E-003 C( 1 )= 0.875111456469857 C( 2 )= 1.47548314055959 C( 3 )= -0.405692280898067 C( 4 )= 0.542791278236781 C( 5 )= -0.218665972430925 C( 6 )= 9.668357884703110E-003 check_pn k= 100 , xmin= 3.139999881386757E-002 , xmax= 3.13999988138676 ymin= 3.239627742469583E-002 , ymax= 7.46047790150789 max= 6.892298316575104E-003 at i= 100 xbad= 3.13999988138676 , ybad= 3.679917699090061E-002 rms_err= 2.028023075767856E-003 , avg_err= 1.729473681749670E-003 , max_err= 6.892298316575104E-003 fit exp(x)*sin(x) 100 points 0.0 to Pi, 7 degree polynomial solving simultaneous equations C( 0 )= -1.823562367958646E-003 C( 1 )= 1.03452015804573 C( 2 )= 0.824861490063033 C( 3 )= 0.712647427658276 C( 4 )= -0.417869703470577 C( 5 )= 0.215547546185054 C( 6 )= -8.904135603925252E-002 C( 7 )= 8.892847498729524E-003 check_pn k= 100 , xmin= 3.139999881386757E-002 , xmax= 3.13999988138676 ymin= 3.239627742469583E-002 , ymax= 7.46047790150789 max= 1.041169662892479E-003 at i= 100 xbad= 3.13999988138676 , ybad= 3.679917699090061E-002 rms_err= 3.392391936107693E-004 , avg_err= 2.932510066819223E-004 , max_err= 1.041169662892479E-003