mesh_struture.txt

C语言综合编程 C语言综合编程 C语言综合编程

 /UNITS,SI,1,1,1,1
 /PREP7
 et, 1, solid5               !定义单元类型
 !设置参数
 length1=  7.000000000000001E-002
 length2=  7.000000000000001E-002
 depth=  8.000000000000000E-003
 height=  0.110000000000000     
 x1=(length1-length2)/2
 x2=(length1+length2)/2
 mesh_size_depth=  1.000000000000000E-003
 mesh_size_length=  3.000000000000000E-003
 ntimes=   15.0000000000000     
 n_time=           0
 re_temp=   288.000000000000     
 be_temp=   300.000000000000     
 bu_temp=  0.000000000000000E+000
 step_time=   1.00000000000000     
 d1=  0.000000000000000E+000
 d2=  0.000000000000000E+000
 !-----------------------------------------------------------------------
 !建立分析模型
 !采用映射划分网格的方法生成有限元模型
 !-----------------------------------------------------------------------
 K,1,0,0,0,
 K,2,length1,0,0,
 K,3,x2,height,0,
 K,4,x1,height,0,
 LSTR,       1,       2
 LSTR,       2,       3
 LSTR,       3,       4
 LSTR,       4,       1
 FLST,2,4,4 
 FITEM,2,4
 FITEM,2,3
 FITEM,2,2
 FITEM,2,1
 AL,P51X
 VOFFST,1,depth, ,
 LSEL,S,LINE,,9,10,11,12
 LESIZE,ALL,mesh_size_depth
 LSEL,S,LINE,,1,3,8,6
 LESIZE,ALL,mesh_size_length
 LSEL,S,LINE,,2,4,6,7
 LESIZE,ALL,mesh_size_length
 MSHAPE,0,3D
 MSHKEY,1
 VMESH,1
 !--------------------------------------------
 NSEL,s,LOC,Z,depth
 *get,n1,node,,num,max,
 *get,n2,node,,num,min,
 !--------------------------------------------
 *cfopen,node_number,dat
 *vwrite,n1,n2
 (2f10.1)
 *cfclos
 *cfopen,data1,dat
 *do,i,n2,n1
 *get,x1,node,i,loc,x
 *get,y1,node,i,loc,y
 *get,z1,node,i,loc,z
 *vwrite,x1,y1,z1
 (3f15.7)
 *enddo
 *cfclos
 finish
 /EXIT