亚洲欧美第一页_禁久久精品乱码_粉嫩av一区二区三区免费野_久草精品视频

蟲蟲首頁| 資源下載| 資源專輯| 精品軟件
登錄| 注冊

您現在的位置是:蟲蟲下載站 > 資源下載 > 源碼 > fortan程序數值分析之Newton法求解非線性方程組

fortan程序數值分析之Newton法求解非線性方程組

資 源 簡 介

module M_GAUSS

!高斯列主元消去法模塊

contains

subroutine LINEQ(A,B,X,N)

!高斯列主元消去法

   implicit real*8(A-Z)

   integer::I,K,N

   integer::ID_MAX  !主元素標號

   real*8::A(N,N),B(N),X(N)

   real*8::AUP(N,N),BUP(N)

   !A,B為增廣矩陣

   real*8::AB(N,N+1)

   real*8::VTEMP1(N+1),VTEMP2(N+1)

   AB(1:N,1:N)=A

   AB(:,N+1)=B

相 關 資 源

主站蜘蛛池模板: 花莲县| 兰西县| 都兰县| 周至县| 阿拉善左旗| 台江县| 叶城县| 东辽县| 东城区| 太原市| 民勤县| 徐水县| 托克逊县| 辛集市| 古丈县| 静宁县| 上林县| 章丘市| 藁城市| 铜川市| 常山县| 洛南县| 达日县| 偃师市| 鄂温| 富锦市| 枣阳市| 崇文区| 马山县| 涪陵区| 子洲县| 泾川县| 镇原县| 宁安市| 稻城县| 延津县| 永城市| 祁门县| 贡觉县| 台前县| 砚山县|