登录
首页 » Fortran » bicg_sparse

bicg_sparse

于 2013-09-09 发布 文件大小:11951KB
0 265
下载积分: 1 下载次数: 109

代码说明:

  程序用Fortran95标准,给出了双共轭梯度法求解超大型稀疏矩阵的子程序。还给出了一个例子,例子的数据用索引存储了维数将近10万的对称稀疏正定矩阵。(Using Fortran95, a method of Biconjugate gradient for super linear sysem is provied. In addition, a example with the storage type of row-column index is also provide for test these subroutines. )

文件列表:

asolve.f90,438,2013-09-05
atimes.f90,415,2013-09-05
bvals.dat,1376728,2013-09-04
indx.dat,19767209,2013-09-04
jndx.dat,19767209,2013-09-04
kvals.dat,48542556,2013-09-04
linbcg.f90,2723,2013-09-06
nr.f90,85683,2013-09-03
nrtype.f90,1411,2013-09-03
nrutil.f90,30174,2013-09-03
snrm.f90,264,2013-09-05
sprsax.f90,768,2013-09-05
sprsdiag.f90,1236,2013-09-05
sprsin.f90,1178,2013-09-05
sprstx.f90,768,2013-09-05
xlinbcg_ssmat.f90,2275,2013-09-08

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • inexact_alm_mc
    增广拉格朗日乘子方法求解RPCA问题的方法,得到矩阵的稀疏成分和低秩成分。(argumented lagrange multiplier method that can make matrix be decomposed to a sparse matrix and low-rank matrix.)
    2012-06-27 14:41:31下载
    积分:1
  • PolyFractionValu
    本程序提供大量实用多项式计算函数:求一维实(复)多项式值、求一维多项式组值、求二维实(复)多项式值、两一维多项式相乘、两一维多项式除法、计算连分式函数值。(look it yourself.)
    2021-02-19 10:19:44下载
    积分:1
  • FFT842
    一种快速富式变换源程序,对于数字信号处理非常有用。(a usefull FFT code is very convenient to signal process )
    2011-12-26 16:49:00下载
    积分:1
  • mech_stewartplatform
    用于计算stewart 六自由度运动平台的正解问题(this program is designed for stewart platform。)
    2012-08-02 15:02:47下载
    积分:1
  • acoustics3-3
    自己编写的关于水声实验插值的程序,给大家借鉴一下。(I have written on the underwater acoustic experiments interpolation procedure, we learn from you.)
    2013-05-14 19:58:04下载
    积分:1
  • sin_fft
    自己编写的一个正弦函数频谱的估计,利用FFT函数实现,有详细注释,方便理解,附带仿真图一张(A sine function spectrum estimate their preparation, the use of FFT function implementation, detailed notes, easy to understand, with a simulation map)
    2014-11-04 09:45:07下载
    积分:1
  • Complex-valued_matrix_derivatives
    关于复数矩阵求导的一本经典书籍“Complex-valued_matrix_derivatives”的电子版(About the electronic version of the complex matrix derivation of a classic book " Complex-valued_matrix_derivatives" )
    2013-04-08 16:00:31下载
    积分:1
  • 2Ddepth-migration
    地震偏移成像:二维叠后深度偏移(相移法)(Seismic imaging: two-dimensional stack depth migration (phase shift method))
    2021-04-06 21:29:02下载
    积分:1
  • Euler_DG_Quadrilateral_2D
    自己写了一个二维Euler方程的间断有限元程序 上次发了一个三角形单元的程序 因为不是曲边单元 所以在圆柱后面容易形成涡 现在把程序改为曲边四边形单元了 没有涡出现 单元是8节点四边形单元 节点编号顺序是 1 5 2 6 3 7 4 8 也就是四个角点依次 是1 2 3 4 然后是边的中点编号 5 6 7 8. 时间推进采用 Runge-Kutta 方法 数值通量采用全局Lax-Friedrichs通量 仍然不能捕捉激波 因为没有做重构或者加人工粘性 等这个做出来了 再发一次。 程序没有进行优化 比如说内存的消耗没有优化 比如直边单元的边界积分仍然采 用了曲边的积分方法 增加了计算量 比如面积分、线积分都是采用的是Gauss- Legendre-Lobatto积分 积分精度会比一般的Gauss-Legendre积分精度低一阶 等 等问题。 二维的 纯属交流性质 就没有考虑这些问题 ^_^ 如果物面全部是直边 那么只要改变一个参数N 就可以获得不同的计算精度 且具 有谱精度 因为单元的节点是Gauss-Legendre-Lobatto积分点。 其实就是谱元法 (物面是曲边的情况我不清楚是不是也可以通过提高基函数的阶数 也就是增加N 来提高计算精度)(Wrote a two-dimensional Euler equations with discontinuous finite element program Last made ​ ​ a triangular element of the program, not curved edge unit is so easy to form a vortex in the cylinder behind the Program to curved edge quadrilateral element vortices appear Unit is the order of 8-node quadrilateral element node number is 15,263,748 which is the four corners of the points in turn Is 1234 and then the side of the midpoint of the number 5678. Time promote the use of Runge-Kutta method Numerical flux of the overall situation of Lax-Friedrichs, flux Still can not capture the shock wave did not do the reconstruction or artificial viscosity do it Zaifayici. The program is not optimized for example, memory consumption is not optimized such as straight-edge boundary integral of the unit is still mining Integral method to increase the amount of computation such as surface integral with a curved edge, the line integral using the Gauss- The Legendr)
    2021-01-29 12:58:40下载
    积分:1
  • repeated-measures-ANOVA
    用MATLAB实现单因素/两因素重复测量方差分析,自带工具包中只有非重复测量的方差分析函数ANOVA。anova_rm实现单因素;rm_anova2实现两因素( function stats = rm_anova2(Y,S,F1,F2,FACTNAMES) Two-factor, within-subject repeated measures ANOVA.For designs with two within-subject factors. function [p, table] = anova_rm(X, displayopt)Single factor, repeated measures ANOVA.)
    2021-01-26 17:58:37下载
    积分:1
  • 696516资源总数
  • 106914会员总数
  • 0今日下载