et,2,COMBI165! 定义显式分析弹簧单元 
Keyopt,2,1,0
r,2,0! 定义实常数 2 
exinznq=8.5e6! 输入阻尼器弹性模量 ex
prxyinznq=0.4! 输入阻尼器泊松比 prxy
densinznq=7850*0.15! 输入阻尼器材料的密度 dens
mp,ex,2,exinznq! 定义第二类材料的弹性模量 
mp,nuxy,2,prxyinznq! 定义第二类材料的泊松比 
mp,dens,2,densinznq! 定义第二类材料的密度 
type,2! 设置单元类型 
mat,2! 设置材料类型属性 
real,2! 设置实常数 
TB,DISCRETE,,,,5! 定义材料模型 
TBDATA,1,2! 加载曲线的 ID
TBDATA,2,3! 卸载曲线的 ID
! 定义加载曲线 ------
*DIM,yingbianjia,,27   
*DIM,yinglijia,,27 
yingbianjia(1)=0.00E+00,1.87E-02,2.60E-02,3.42E-02,4.20E-02,4.93E-02,5.70E-02,6.44E-02,7.17E-02,7.90E-02,8.67E-02,9.40E-02,1.02E-01,1.09E-01,1.16E-01,1.24E-01,1.31E-01,1.40E-01,1.47E-01,1.54E-01,1.62E-01,1.70E-01,1.78E-01,1.86E-01,1.93E-01,1.99E-01,2.00E-01
yinglijia(1)=0.00E+00,2.17E+03,4.35E+03,6.52E+03,6.52E+03,8.70E+03,1.30E+04,1.52E+04,1.96E+04,2.39E+04,3.04E+04,3.48E+04,4.13E+04,4.78E+04,5.65E+04,6.52E+04,7.83E+04,9.35E+04,1.11E+05,1.35E+05,1.63E+05,2.00E+05,2.57E+05,3.26E+05,4.11E+05,5.28E+05,7.04E+05
EDCURVE,ADD,2,yingbianjia(1),yinglijia(1) 
! 定义卸载曲线 ------
*DIM,yingbianxie,,34   
*DIM,yinglixie,,34 
yingbianxie(1)=2.00E-01,1.97E-01,1.90E-01,1.84E-01,1.79E-01,1.72E-01,1.67E-01,1.61E-01,1.54E-01,1.48E-01,1.42E-01,1.36E-01,1.30E-01,1.24E-01,1.18E-01,1.12E-01,1.06E-01,1.00E-01,9.45E-02,8.85E-02,8.26E-02,7.67E-02,7.07E-02,6.48E-02,5.89E-02,5.34E-02,4.70E-02,4.15E-02,3.56E-02,2.97E-02,2.42E-02,1.83E-02,1.19E-02,0.00E+00
yinglixie(1)=7.04E+05,6.50E+05,5.65E+05,4.93E+05,4.33E+05,3.78E+05,3.33E+05,2.91E+05,2.57E+05,2.30E+05,2.00E+05,1.78E+05,1.57E+05,1.41E+05,1.26E+05,1.13E+05,1.02E+05,9.13E+04,8.04E+04,7.17E+04,6.52E+04,5.65E+04,5.00E+04,4.57E+04,3.91E+04,3.26E+04,2.83E+04,2.39E+04,1.96E+04,1.52E+04,1.09E+04,6.52E+03,4.35E+03,0.00E+00
EDCURVE,ADD,3,yingbianxie(1),yinglixie(1) 
! 定义硬化参数及加载时和卸载时的屈服应力 
TBDATA,3,0! 定义硬化参数 
TBDATA,4,2.83E-02! 定义拉伸时的屈服力 
TBDATA,5,-2.83E-02! 定义压缩时的屈服力