每天学习一小块知识,APLD语言中的TB、MISO、TBPT、TBTEMP、CP、NSEL、MSHAPE、MSHKEY、ESIZE、VMESH
!MISO 单压
FINISH
/CLEAR
/PREP7
ET,1,SOLID65
R,1
MP,EX,1,30E3
MP,NUXY,1,0.2
TB,CONCR,1,1 !concrete element or material data
TBTEMP,0 !0,的话要与后面的TBDATA或者TBPT相连
TBDATA,1,0.3,0.5,2.5,-1
TB,MISO,1,1,15 !第一个1表示ID,第二个1表示有几个温度(多个温度需要用TBTEMP赋值),第3个15表示右面有15个TBPT或者TBDATA
TBPT,, 100E-6, 3.0
TBPT,, 300E-6, 8.3
TBPT,, 600E-6,14.6
TBPT,, 900E-6,19.1
TBPT,,1100E-6,21.0
TBPT,,1250E-6,22.0
TBPT,,1400E-6,22.6
TBPT,,1550E-6,22.8
TBPT,,1650E-6,22.7
TBPT,,1800E-6,22.3
TBPT,,2000E-6,21.4
TBPT,,2800E-6,16.8
TBPT,,3200E-6,14.7
TBPT,,3800E-6,12.3
TBPT,,4600E-6,9.9
BLOCK,0,50,0,50,0,50
MSHAPE,0,3D !指定网格划分形状
MSHKEY,1 !使用映射网格
ESIZE,10 !指定默认的线分割术
VMESH,ALL
NSEL,S,LOC,X,0 !选择节点的子集
D,ALL,UX,0 !意思就是吧所有x=0,y=0,z=0节点分别在xyz方向约束
NSEL,S,LOC,Y,0
D,ALL,UY,0
NSEL,S,LOC,Z,0
D,ALL,UZ,0
NSEL,S,LOC,Y,50
CP,1,UY,ALL !定义或修改一组耦合自由度,太复杂,没看懂,好像将y=50所有的点,都连到一个点了
NSEL,ALL
FINISH
/VIEW,1,1,1,1
/REPLOT
!下面的下次在学习,这个实例主要学习上面命令,运行也有些问题
/SOLU
ANTYPE,STATIC
AUTOTS,OFF
OUTRES,ALL,1
TIME,50
NSUBST,50
D,1,UY,-.25
NSEL,ALL
SOLVE
FINISH
/POST26
NSOL,2,1,U,Y,UY
RFORCE,3,1,F,Y,FY
ADD,4,2,,,STRAIN,,,-1/50
ADD,5,3,,,STRESS,,,-1/2500
/AXLAB,X,STRAIN
/AXLAB,Y,STRESS
XVAR,4
PLVAR,5
FINISH