多项式曲线拟合

rovingboy · 发表于 2018-6-26 22:14:22

DO L=N,1,-1
      IF(INDXR(L).NE.INDXC(L))THEN
         DO K=1,N
         DUM=A(K,INDXR(L))
         A(K,INDXR(L))=A(K,INDXC(L))
         A(K,INDXC(L))=DUM
      ENDDO
      ENDIF
ENDDO

rovingboy · 发表于 2018-6-26 22:15:28

其他都看懂了，最后一段的上面这个代码不知道意义何在？这个时候的A不是除了对角线为1，其他都为0吗？而且这个A值也没有返回其他程序里面，为什么需要这一段呢？

[插值拟合] 多项式曲线拟合