2018-01-13から1日間の記事一覧
Program Least_squaresimplicit none ! Global variablesinteger, parameter:: m=4 ! Number of coefficientreal(8):: S(m) ! Array of coefficient Sreal(8), parameter:: TOL=1D-6 ! Numerical tolerancereal(8), dimension(:), allocatable:: X, Y ! Arra…