📄
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Stress 程序输入数据说明</title>
</head>
<body>
<p align="center" style="text-align:center"><b><span lang="EN-US" style="font-size:
13.5pt;font-family:"Times New Roman";mso-fareast-font-family:System;color:blue">Stress</span><span lang="EN-US" style="font-size:13.5pt;font-family:System;color:blue">
</span><span style="font-size:13.5pt;color:blue">程序输入数据说明<span lang="EN-US"><o:p>
</o:p>
</span></span></b></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-family:
"Times New Roman";mso-fareast-font-family:System">READ (8,*) NPROB</span><span lang="EN-US" style="font-family:"Times New Roman"">
</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";color:red">!
</span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:"Times New Roman";
mso-hansi-font-family:"Times New Roman";color:red">所需计算的问题数</span><span style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";color:red">
</span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:"Times New Roman";
mso-hansi-font-family:"Times New Roman";color:red">现在程序限定为</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red">1<o:p>
</o:p>
</span></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-family:
"Times New Roman";mso-fareast-font-family:System">DO IPROB=1,NPROB<o:p>
</o:p>
</span></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-family:
"Times New Roman";mso-fareast-font-family:System">READ
(8,"(17A4)") TITLE</span><span lang="EN-US" style="font-family:"Times New Roman"">
</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red">! </span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman";color:red">所计算问题的标题</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red">, </span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman";color:red">中英文均可</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red"><o:p>
</o:p>
</span></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-family:
"Times New Roman";mso-fareast-font-family:System">READ (8,*)
NPOIN,NELEM,NVFIX,NCASE,NTYPE,NNODE, & <o:p>
</o:p>
</span></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-family:
"Times New Roman";mso-fareast-font-family:System">NDOFN,NMATS,NPROP,NGAUS,NDIME,NSTRE<o:p>
</o:p>
</span></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="mso-bidi-font-size:
7.5pt;font-family:"Times New Roman";color:red">! </span><span style="mso-bidi-font-size:
7.5pt;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman";
color:red">控制数据</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;
font-family:"Times New Roman";color:red">: NPOIN </span><span style="mso-bidi-font-size:
7.5pt;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman";
color:red">结点总数</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;
font-family:"Times New Roman";color:red">, NELEM </span><span style="mso-bidi-font-size:
7.5pt;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman";
color:red">单元总数</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;
font-family:"Times New Roman";color:red">, NVFIX </span><span style="mso-bidi-font-size:
7.5pt;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman";
color:red">被约束结点数</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;
font-family:"Times New Roman";color:red">, NCASE </span><span style="mso-bidi-font-size:
7.5pt;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman";
color:red">荷载工况数</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;
font-family:"Times New Roman";color:red">, <o:p>
</o:p>
</span></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="mso-bidi-font-size:
7.5pt;font-family:"Times New Roman";color:red">! NTYPE </span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:"Times New Roman";
mso-hansi-font-family:"Times New Roman";color:red">问题单元类型</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red">: 1 </span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman";color:red">平面应力</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red">, 2 </span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman";color:red">平面应变</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red">, 3 </span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman";color:red">轴对称</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red">, 4 </span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman";color:red">八结点空间</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red">, 5 20</span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman";color:red">结点空间</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red">,<o:p>
</o:p>
</span></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="mso-bidi-font-size:
7.5pt;font-family:"Times New Roman";color:red">! NNODE </span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:"Times New Roman";
mso-hansi-font-family:"Times New Roman";color:red">单元结点数</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red">, NDOFN </span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman";color:red">结点自由度数</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red">, NMATS </span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman";color:red">材料种类数</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red">, NPROP </span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman";color:red">材料特性个数</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red">, NGAUS<o:p>
</o:p>
</span></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="mso-bidi-font-size:
7.5pt;font-family:"Times New Roman";color:red">! </span><span style="mso-bidi-font-size:
7.5pt;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman";
color:red">高斯点数</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;
font-family:"Times New Roman";color:red">, NDIME </span><span style="mso-bidi-font-size:
7.5pt;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman";
color:red">结点坐标数</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;
font-family:"Times New Roman";color:red">, NSTRE </span><span style="mso-bidi-font-size:
7.5pt;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman";
color:red">结点应力数</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;
font-family:"Times New Roman";color:red"><o:p>
</o:p>
</span></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-family:
"Times New Roman";mso-fareast-font-family:System">READ (8,*) NAUTO,MX</span><span lang="EN-US" style="font-family:"Times New Roman"">
</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";color:red">!
</span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:"Times New Roman";
mso-hansi-font-family:"Times New Roman";color:red">是否规则网格自动生成信息</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red">(NAUTO = 0 </span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman";color:red">规则</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red">), MX X</span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman";color:red">单元数</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red"><o:p>
</o:p>
</span></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-family:
"Times New Roman";mso-fareast-font-family:System">DO IELEM=1,NELEM </span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red">! </span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:
"Times New Roman";mso-hansi-font-family:"Times New Roman";color:red">对单元循环</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red"><o:p>
</o:p>
</span></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-family:
"Times New Roman";mso-fareast-font-family:System">IF (NAUTO /= 0) THEN
</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
mso-fareast-font-family:System;color:red">! </span><span style="mso-bidi-font-size:
7.5pt;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman";
color:red">非自动生成</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;
font-family:"Times New Roman";color:red"><o:p>
</o:p>
</span></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-family:
"Times New Roman";mso-fareast-font-family:System">READ (8,*)
NUMEL,MATNO(NUMEL), &<o:p>
</o:p>
</span></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-family:
"Times New Roman";mso-fareast-font-family:System">(LNODS(NUMEL,INODE),INODE=1,NNODE)<o:p>
</o:p>
</span></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="mso-bidi-font-size:
7.5pt;font-family:"Times New Roman";mso-fareast-font-family:System;color:red">!
</span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:"Times New Roman";
mso-hansi-font-family:"Times New Roman";color:red">单元号，单元材料号，</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red"><o:p>
</o:p>
</span></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="mso-bidi-font-size:
7.5pt;font-family:"Times New Roman";mso-fareast-font-family:System;color:red">!
</span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:"Times New Roman";
mso-hansi-font-family:"Times New Roman";color:red">单元连接的相关结点号</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red"><o:p>
</o:p>
</span></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-family:
"Times New Roman";mso-fareast-font-family:System">END IF<o:p>
</o:p>
</span></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-family:
"Times New Roman";mso-fareast-font-family:System">END DO<o:p>
</o:p>
</span></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-family:
"Times New Roman";mso-fareast-font-family:System">READ (8,*)
NCONT,NCREA</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
mso-fareast-font-family:System;color:red"> ! </span><span style="mso-bidi-font-size:
7.5pt;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman";
color:red">控制结点数和生成结点类数</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;
font-family:"Times New Roman";mso-fareast-font-family:System;color:red">(</span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:"Times New Roman";
mso-hansi-font-family:"Times New Roman";color:red">含义同平面问题</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
mso-fareast-font-family:System;color:red">)<o:p>
</o:p>
</span></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-family:
"Times New Roman";mso-fareast-font-family:System">IF (NTYPE <= 3
.AND. NCONT /= 0) THEN </span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:
"Times New Roman";mso-fareast-font-family:System;color:red">! </span><span style="mso-bidi-font-size:7.5pt;mso-ascii-font-family:"Times New Roman";
mso-hansi-font-family:"Times New Roman";color:red">平面或轴对称且有控制结点</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
color:red"><o:p>
</o:p>
</span></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-family:
"Times New Roman";mso-fareast-font-family:System">DO IJ=1,NCONT </span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;font-family:"Times New Roman";
mso-fareast-font-family:System;color:red">! </span><span style="mso-bidi-font-size:
7.5pt;mso-ascii-font-family:"Times New Roman";mso-hansi-font-family:"Times New Roman";
color:red">对控制结点循环</span><span lang="EN-US" style="mso-bidi-font-size:7.5pt;
font-family:"Times New Roman";color:red"><o:p>
</o:p>
</span></p>
<p style="margin:0cm;margin-bottom:.0001pt"><span lang="EN-US" style="font-family:
"Times New Roman";mso-fareast-font-family:System">READ (8,*)
IJT,COORD(IJT,1),COORD(IJT,2)</span><span lang="EN-US" style="mso-bidi-font-size:
7.5pt;font-family:"Times New Roman";mso-fareast-font-family:System;color:red">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -