文件名称:程序 三对角阵系
- 所属分类：
- 数据结构常用算法
- 资源属性：
- [WORD]
- 上传时间：
- 2011-11-28
- 文件大小：
- 25.5kb
- 下载次数：
- 0次
- 提 供 者：
- jwt1989zl@163.com
- 相关连接：
- 无
- 下载说明：
- 别用迅雷下载，失败请重下，重下不扣分！
介绍说明－－下载内容均来自于网络，请自行研究使用
！一维导热，非稳态全隐式迭代，边界条件t1=100，t11=20
！导热率为7
module parameter1 ！设置全局变量
implicit none
integer i
real,parameter::dt=0.01
real,parameter::err=0.000001
real,parameter::r=7
real,parameter::ta=100,tb=20
real::a(2:11)=(/(-1,i=2,10),0/) ！设置三对角阵系数
real::b(11)=(/1,(9,i=2,10),1/)
real::c(1:10)=(/0,(-1,i=2,10)/)
real::t(11),t1(11)
real::p(11),q(11)
end module
！导热率为7
module parameter1 ！设置全局变量
implicit none
integer i
real,parameter::dt=0.01
real,parameter::err=0.000001
real,parameter::r=7
real,parameter::ta=100,tb=20
real::a(2:11)=(/(-1,i=2,10),0/) ！设置三对角阵系数
real::b(11)=(/1,(9,i=2,10),1/)
real::c(1:10)=(/0,(-1,i=2,10)/)
real::t(11),t1(11)
real::p(11),q(11)
end module
(系统自动生成,下载前可以参看下载内容)
下载文件列表
压缩包 : fortran.doc 列表