《结构分析的有限元法与MATLAB程序设计》书本源代码

这是《结构分析的有限元法与MATLAB程序设计》书本的源代码，我向作者索要的，特给大家共享，希望对大家有用

function exam3_1
% 本程序为第三章的第一个算例，采用平面梁单元计算平面刚架的变形和内力
%      输入参数： 无
%      输出结果： 节点位移和单元节点力 

    PlaneframeModel ;      % 定义有限元模型
    SolveModel ;           % 求解有限元模型
    DisplayResults ;       % 显示计算结果
return ;

function PlaneframeModel
%  定义平面杆系的有限元模型
%  输入参数：
%      无
%  返回值：
%      无
%  说明：
%      该函数定义平面杆系的有限元模型数据：
%        gNode ------- 节点定义
%        gElement ---- 单元定义
%        gMaterial --- 材料定义，包括弹性模量，梁的截面积和梁的抗弯惯性矩
%        gBC1 -------- 约束条件
%        gNF --------- 集中力
%        gDF --------- 分布力

    global gNode gElement gMaterial gBC1 gNF gDF

    % 节点坐标
    %         x      y
    gNode = [0.0   0.0          % 节点 1
             0.0   4.0          % 节点 2
             3.0   0.0          % 节点 3
             3.0   4.0          % 节点 4
             4.5   4.0          % 节点 5
             6.0   0.0          % 节点 6
             6.0   4.0 ] ;      % 节点 7
     
    % 单元定义
    %          节点1  节点2  材料号
    gElement = [1      2      1       

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件      10056  2008-11-25 09:05  exam3_1.m

     文件       2731  2005-08-26 18:37  exam3_2.dat

     文件      10320  2005-10-25 13:44  exam3_2.m

     文件       7662  2006-01-05 16:44  exam4_1.m

     文件     297557  2005-09-01 20:07  exam4_2.dat

     文件      11115  2005-10-25 15:36  exam4_2.m

     文件      13411  2005-10-25 13:52  exam4_2_post.m

     文件     391178  2005-09-12 13:54  exam5_1.dat

     文件      13883  2006-01-05 17:00  exam5_1.m

     文件       5561  2006-03-28 10:53  exam5_1_post.m

     文件      86792  2005-09-17 13:45  exam5_2.dat

     文件       9754  2005-10-25 15:46  exam5_2.m

     文件      21065  2005-10-25 15:28  exam6_1.m

     文件     112381  2005-09-28 15:15  exam6_2.dat

     文件      20386  2006-06-19 09:36  exam6_2.m

     文件       2688  2006-01-05 17:26  exam6_2_post.m

     文件      14203  2005-10-25 15:27  exam7_1.m

     文件      13543  2005-10-13 13:01  exam7_2.m

     文件       8962  2006-04-20 16:28  exam8_1.m

     文件       9840  2006-06-13 20:04  exam8_2.m

----------- ---------  ---------- -----  ----

              1063088                    20