STAP90有限元程序

这是一个基于STAP90的有限元程序包，包含绗架、3T、4Q、梁、板、壳等功能模块

N（11）=N11;
N（12）=N12;
N（13）=N13;
N（21）=N21;
N（22）=N22;
N（23）=N23;
N（31）=N31;
N（32）=N32;
N（33）=N33;

for i=1:3
    for j=1:3
        B（（i-1）*3+j1）=-diff（N（ij）x2）;
        B（（i-1）*3+j2）=-diff（N（ij）y2）;
        B（（i-1）*3+j3）=-2*diff（diff（N（ij）x）y）;
    end
end

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

     文件          0  2014-04-10 13:04  src\3Q.f90

     文件       9282  2015-04-26 13:36  src\assem.f90

     文件      38801  2015-05-16 18:09  src\atf1.f90

     文件        296  2015-05-14 23:29  src\calcu.m

     文件       4989  2015-04-10 18:25  src\datain.f90

     文件       3259  2015-04-26 13:36  src\elcal.f90

     文件       3003  2015-04-26 13:36  src\globals.f90

     文件      11409  2015-03-12 18:10  src\memalloc.f90

     文件       2793  2015-03-12 18:10  src\memTest.f90

     文件      10068  2015-04-30 16:07  src\quadrilateral.f90

     文件      10306  2015-03-12 18:10  src\stap.f90

     文件       7564  2015-04-26 13:36  src\truss.f90

     目录          0  2015-05-16 18:09  src

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

               101770                    13