亚洲欧美第一页_禁久久精品乱码_粉嫩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

相 關 資 源

主站蜘蛛池模板: 大城县| 绥芬河市| 板桥市| 丹阳市| 梁山县| 海门市| 成都市| 尚志市| 谢通门县| 资源县| 贵港市| 博乐市| 宜兰市| 凌云县| 灌南县| 商南县| 宁德市| 罗江县| 泾源县| 霍山县| 灵台县| 浑源县| 永寿县| 当涂县| 麻江县| 奉化市| 吉木乃县| 宁武县| 双城市| 五莲县| 手机| 玛纳斯县| 朝阳市| 永宁县| 旬阳县| 平阴县| 夏津县| 芦溪县| 大理市| 新野县| 连云港市|