登录
首页 » Fortran » MYFEM

MYFEM

于 2009-05-22 发布 文件大小:532KB
0 135
下载积分: 1 下载次数: 32

代码说明:

  有限元求解柏松方程。本文采用FORTRAN语言编制程序。程序中大部分变量采用有名公共区存储方式存储,这样可以减少内存占用量。 IFG:生成有限元网格信息,即元素节点局部编码与总体编码对照表,节点实际坐标,边界节点编码与边界点上的已知值 GKD:生成总刚一维存储对角元的地址,计算总刚一维存储长度 FIXP:设置已知节点函数值 GK(NI,NJ,ADJ,AIJ):单元刚度矩阵计算 GF(NI,N,M,LE,YI,FE):单元列阵的计算 AK(I,J,AIJ):总刚度矩阵元素迭加 QEB:总刚度矩阵和总列阵合成 BDE:边界条件处理 SOLGS:Gauss-Seidel迭代法求解方程组 UDIFF(NI,NFLAG,UDIF,LE,ADJ):标准元素内形状函数导数计算 DIFF:节点上 , 加权平均 (In this program, FEM was used to solve the possion equation. It is implemented through FORTRAN)

文件列表:

MYFEM
.....\DATA
.....\....\FIG.DAT
.....\....\FIG0.DAT
.....\....\LINE.DAT
.....\....\LINEX.DAT
.....\....\LINEY.DAT
.....\....\RESULTS.DAT
.....\....\RESULTS0.DAT
.....\....\RESULTS1.DAT
.....\....\RESULTS2.DAT
.....\....\复件 LINE.DAT
.....\DATA80
.....\......\FIG.DAT
.....\......\LINEX.DAT
.....\......\LINEY.DAT
.....\......\RESULTS.DAT
.....\Debug
.....\DIFF.FOR
.....\fig
.....\...\DAT.DAT




.....\...\Doc1.doc

.....\...\F80.bmp
.....\...\fdif.lay
.....\...\FDIF80.lay
.....\...\figy.bmp
.....\...\LINEX.bmp
.....\...\LINEX.lay
.....\...\LINEX80.bmp
.....\...\LINEX80.lay
.....\...\LINEY.bmp
.....\...\LINEY.lay
.....\...\LINEY80.bmp
.....\...\LINEY80.lay
.....\...\nLINEX80.bmp
.....\...\nLINEY80.bmp
.....\...\zone.bmp
.....\...\ZONE.lay
.....\...\ZONE0.bmp
.....\...\复件 DIFX80.bmp
.....\...\复件 DIFY80.bmp
.....\...\复件 F80.bmp
.....\...\复件 LINEX80.bmp
.....\...\复件 LINEY80.bmp
.....\FIG.DAT
.....\GK.FOR
.....\GKD.FOR
.....\IFG.FOR
.....\LINEX.DAT
.....\LINEY.DAT
.....\MYFEM.mak
.....\MYFEM.mdp
.....\RESULTS.DAT

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

发表评论

0 个回复

  • fitnorm
    对任意基本函数组合进行最小二乘曲线拟合的源程序。(basic function of arbitrary combinations least squares curve fitting of the source.)
    2007-05-05 16:05:02下载
    积分:1
  • 04
    说明:  龙格-库塔方法的使用,例子 求y’=y-2x/y,y(0)=0。 解:输入X0=0,X1=1,H=0.2,N=6。()
    2007-09-08 08:47:57下载
    积分:1
  • dpnewton_zuisu
    阻尼牛顿法、最速下降法、变尺度法的matlab程序。(Damped Newton' s method, steepest descent method, variable metric method matlab program.)
    2009-12-27 11:12:52下载
    积分:1
  • huandunGSA
    改进的混沌引力搜索算法,程序有详细注释和相应的文献(The improved chaotic gravitational search algorithm has detailed annotations and corresponding documents.)
    2020-11-03 16:49:53下载
    积分:1
  • fredholm
    第二类Fredholm积分方程的数值解。 所谓积分方程就是积分号内有未知函数的方程(Second numerical solution of Fredholm integral equation)
    2010-06-19 09:17:01下载
    积分:1
  • yantubbs-cam-model
    修正剑桥模型在不排水条件下的源程序,很有用,是最近做项目是研究的课题。(cambridge with fortran)
    2020-12-21 10:09:08下载
    积分:1
  • guimai_v53
    随机调制信号下的模拟ppm,连续相位调制信号(CPM)产生,供做算法研究人员参考。( Random ppm modulated analog signal under Continuous phase modulation signal (CPM) to produce, Algorithm for researchers to do reference.)
    2017-02-23 22:36:53下载
    积分:1
  • A-solver-for-1-D-RIEMANN-problem
    分别采用Roe格式和AUSM格式求解一维黎曼问题,并将计算结果与解析解进行比较,发现这两种计算格式都能获得高的计算精度。(Roe scheme were used in this procedure and AUSM format to solve a 1-D RIEMANN problem, and numerical results were compared with the analytical solution, the results can be seen from these two formats have a solution with high accuracy.)
    2011-11-09 21:44:39下载
    积分:1
  • celluar-automata2012
    元胞自动机 一个简单的元胞自动机 fortran(cellular automata)
    2012-06-16 11:11:50下载
    积分:1
  • imrpa
    滤波求和方式实现宽带波束形成,从先验概率中采样,计算权重,最小均方误差(MMSE)的算法。( Filtering summation way broadband beamforming, Sampling a priori probability, calculate the weight, Minimum mean square error (MMSE) algorithm.)
    2017-05-07 20:26:01下载
    积分:1
  • 696518资源总数
  • 104349会员总数
  • 32今日下载