2018-01-10から1日間の記事一覧
Program nonlinear_system! Global variablesinteger, parameter:: m=3 ! Maximum number of variablesreal(8):: S(m), H(m,m) ! Unknown variable vector Sreal(8), parameter:: TOL=1D-6 ! Numerical tolerance Call Guess(S)Call Solve(S) contains Funct…