p115_res.htm

来自「fortran程序」· HTM 代码 · 共 56 行

HTM

56 行

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- saved from url=(0064)http://www.eng.man.ac.uk/geotech/software/prog_fe3/ORIG/P115.RES -->
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD>
<BODY><PRE>Global coordinates 
Node    1         0.0000E+00  0.0000E+00
Node    2         0.5000E+00  0.0000E+00
Node    3         0.1000E+01  0.0000E+00
Node    4         0.0000E+00 -0.1250E+01
Node    5  
 if(loaded_nodes/=0)read (10,*)(k,loads(nf(:,k)),i=1,loaded_nodes) 
  read(10,*) fixed_nodes 
 if(fixed_nodes/=0)then
          allocate(node(fixed_nodes),sense(fixed_nodes),                      &
                   value(fixed_nodes),no(fixed_nodes))
          read(10,*)(node(i),sense(i),value(i),i=1,fixed_nodes)
          do i=1,fixed_nodes; no(i)=nf(sense(i),node(i)); end do
          kv(no)=kv(no) + 1.e20; loads(no) = kv(no) * value
 end if
!-----------------------------equation solution----       0.1000E+01 -0.1250E+01
Node    6         0.0000E+00 -0.2500E+01
Node    7         0.5000E+00 -0.2500E+01
Node    8         0.1000E+01 -0.2500E+01
Node    9         0.0000E+00 -0.3750E+01
Node   10         0.1000E+01 -0.3750E+01
Node   11         0.0000E+00 -0.5000E+01
Node   12         0.5000E+00 -0.5000E+01
Node   13         0.1000E+01 -0.5000E+01
Node   14         0.0000E+00 -0.6250E+01
Node   15         0.1000E+01 -0.6250E+01
Node   16         0.0000E+00 -0.7500E+01
Node   17         0.5000E+00 -0.7500E+01
Node   18         0.1000E+01 -0.7500E+01
Node   19         0.0000E+00 -0.8750E+01
Node   20         0.1000E+01 -0.8750E+01
Node   21         0.0000E+00 -0.1000E+02
Node   22         0.5000E+00 -0.1000E+02
Node   23         0.1000E+01 -0.1000E+02
Node   24         0.0000E+00 -0.1125E+02
Node   25         0.1000E+01 -0.1125E+02
Node   26         0.0000E+00 -0.1250E+02
Node   27         0.5000E+00 -0.1250E+02
Node   28         0.1000E+01 -0.1250E+02
Node   29         0.0000E+00 -0.1375E+02
Node   30         0.1000E+01 -0.1375E+02
Node   31         0.0000E+00 -0.1500E+02
Node   32         0.5000E+00 -0.1500E+02
Node   33         0.1000E+01 -0.1500E+02
Global node numbers 
Element     1            6    4    1    2    3    5    8    7
Element     2           11    9    6    7    8   10   13   12
Element     3           16   14   11   12   13   15   18   17
Element     4           21   19   16   17   18   20   23   22
Element     5           26   24   21   22   23   25   28   27
Element     6

p115_res.htm - 源码说明

本页面展示了「fortran程序」中的 p115_res.htm 源码文件，采用 HTM 编程语言编写，共 56 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与Fortran相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C

搜索代码Ctrl + F

全屏模式F11

增大字号Ctrl + =

减小字号Ctrl + -

显示快捷键?