!注参数命名：h（高度），w（宽度），t（厚度），sec（代表截面信息） !单位：mm
!柱截面尺寸 HW300(截面高度)*300(翼缘宽度)*10(腹板厚度)*15(翼缘厚度) hw_sec_h = 300 hw_sec_w = 300 hw_sec_t1 = 10 hw_sec_t2 = 15
!梁截面尺寸 HN250*125*6*9 hn_sec_h = 250 hn_sec_w = 125 hn_sec_t1 = 6 hn_sec_t2 = 9
!T型肋加强板尺寸 HT75*125*6*9 ht_sec_h = 75 ht_sec_w = 125 ht_sec_t1 = 6 ht_sec_t2 = 9
ht_l = 1000 !长度
!混凝土板厚度尺寸
con_sec_t = 120 !(修改）
!模型整体尺寸
mod_h = 3000 !模型的高
mod_w1 = 640 !模型横向宽度 原3000 mod_w2 = 5100 !模型纵向宽度
!其他参数
rebar_vr = 0.014 !体积率（配筋率）为1.4％ !横向钢筋？？？6@200??
nail_dis = 100 !栓钉间距为 100mm （修改）
gridding = 100 !网格
steelbar = 200 !钢筋间隔
concrete.mac
!-------------------------------------------------------------------
（修改）!model1,钢筋全部由实常数定义的配筋率 !先运行参数定义命令 define.mac
/FILNAME,model,0 /prep7 !定义属性
et,1,solid65,,,,,,3 !定义混凝土板单元 KEYOPT(6) 混凝土非线性解输出控制:3 -- 同时还给出积分点的解
et,2,SHELL181 !定义钢梁单元
et,3,combin39,,,0 !定义弹簧单元combin39
et,4,solid45 !定义垫板单元 (增加垫块以消除混凝土单元的应力集中) et,5,link8 !定义link8单元
mp,ex,1,3E4 !定义混凝土板的弹性模量N/mm2 mp,prxy,1,0.2 !定义混凝土板的泊松比 mp,dens,1,2.6e-9 !定义混凝土板的密度
mp,ex,2,2.06E5 !定义钢梁的弹性模量 mp,prxy,2,0.3 !定义钢梁的泊松比 mp,dens,2,7.8e-9
mp,ex,3,2.0E5 !定义钢筋的弹性模量 mp,prxy,3,0.3 !定义钢筋的泊松比 mp,dens,3,7.85e-9
mp,ex,4,2.02E5 !定义垫板材料特性 mp,prxy,4,0.3
tb,miso,1 !混凝土屈服准则 *do,i,1,17,1 *if,i,LE,7,THEN x=0.0001*2*i
y=(2.07*(x/1.58e-3)+(3-2*2.07)*(x/1.58e-3)*(x/1.58e-3)+0.07*(x/1.58e-3)*(x/1.58e-3)*(x/1.58e-3))*26.1 *ELSE
xtemp=0.0001*2*i/1.58e-3 x=0.0001*2*i
y=xtemp*26.1/(1.13*(xtemp-1)*(xtemp-1)+xtemp) *ENDIF tbpt,,x,y *enddo
tbpt,,0.0002,6
!该处将0.0033改为了0.0035
tbpl,miso,1
tb,concr,1 !混凝土破坏准则 tbdata,,0.6,1.0,2.61,-1
!混凝土材料的前四个实常数的含义 !1 裂缝张开剪力传递系数. !2 裂缝闭合剪力传递系数 !3 单轴抗拉强度 !4 单轴抗压强度
! 当变量3（4）被设为-1时表示混凝土无开裂（无压碎）
tb,bkin,2,1,2 !激活钢梁的温度特性 ？？？mkin tbdata,,235,2000 tbpl,bkin,2
tb,bkin,3,1,2 !激活钢筋的温度特性
tbdata,,335,2000 !320屈服应力，10代表屈服后的切线模量 tbpl,bkin,3
r,1,3,rebar_vr,0,0,0,0 !体积率，方向角 3是什么意思？ !r,1,3,0.0089,90,90,3,0.007819
rmore,0,0 !定义混凝土板实常数 （三个方向的钢筋）
!定义钢梁腹板厚度
r,2,hw_sec_t1,hw_sec_t1,hw_sec_t1,hw_sec_t1 !定义钢梁腹板厚度(柱子) r,3,hn_sec_t1,hn_sec_t1,hn_sec_t1,hn_sec_t1 !定义钢梁腹板厚度(水平梁) !定义钢梁上下翼缘的厚度
r,4,hw_sec_t2,hw_sec_t2,hw_sec_t2,hw_sec_t2 !定义钢梁上下翼缘的厚度(柱子) r,5,hn_sec_t2,hn_sec_t2,hn_sec_t2,hn_sec_t2 !定义钢梁上下翼缘的厚度(水平梁)
r,6,0,0,0.02,4607.0,0.04,6765.5 !定义弹簧的荷载变形曲线 rmore,0.05,7651.1,0.06,8457.1,0.07,9201.7 rmore,0.08,9896.9,0.09,10551.2,0.1,11170.8 rmore,0.2,16154.6,0.3,19890.4,0.4,22932.2 rmore,0.5,25506.4,0.6,27734.7,0.7,29692.3 rmore,0.8,31430.3,0.9,32985.4,1,34385.1 rmore,2,43095.0,4,100000, !3,46937.7,4,50000,
r,7,12 !定义link8单元的面积 !*
KEYOPT,3,1,0 KEYOPT,3,2,0
KEYOPT,3,3,2 KEYOPT,3,4,0 KEYOPT,3,6,0 !*
!********************************************************************** !开始建立几何模型
!********************************************************************** !先建柱子
!********************************************************************** wpcsys,-1,0
csys,4 !在局部坐标系中建立柱子模型
wpoffs,-(mod_w1+hw_sec_w*0.5),-mod_w2*0.5,0 wprota,,90 !(positive Y toward Z) wpoffs,,,-hw_sec_h*0.5
blc4,0,0,hw_sec_w,mod_h+con_sec_t wpoffs,,,hw_sec_h
blc4,0,0,hw_sec_w,mod_h+con_sec_t wprota,,,90 !(positive Z toward X) wpoffs,,,hw_sec_w*0.5
blc4,0,0,hw_sec_h,mod_h+con_sec_t
aptn,all asel,all wpcsys,-1,0
wpoffs,,,mod_h-hn_sec_t2*0.5 asbw,all
wpoffs,,,-hn_sec_h asbw,all
!!!!!纵梁 wpcsys,-1,0
csys,4 !在局部坐标系中建立纵梁模型 asel,invert !反选
wpoffs,-mod_w1,-mod_w2*0.5,mod_h-hn_sec_t2*0.5
blc4,-hn_sec_w*0.5,-hw_sec_h*0.5,hn_sec_w,(mod_w2+hw_sec_h)*0.5
wpoffs,,,-hn_sec_h
blc4,-hn_sec_w*0.5,-hw_sec_h*0.5,hn_sec_w,(mod_w2+hw_sec_h)*0.5 wprota,,,-90 !(positive Z toward X)
blc4,0,-hw_sec_h*0.5,hn_sec_h,(mod_w2+hw_sec_h)*0.5
cm,hn_temp,area wpcsys,-1,0
!agen,3,hn_temp,,,mod_w1 aptn,all
asel,all
!!切割梁 wpcsys,-1,0
wpoffs,-mod_w1,-(mod_w2+hn_sec_w)*0.5,mod_h-hn_sec_t2*0.5 wpro,,90 wpro,,,90
wpoffs,,,-hn_sec_w*0.5 asbw,all
wpoffs,,,hn_sec_w asbw,all
aptn,all
!混凝土板 wpcsys,-1,0
csys,4 !在局部坐标系中建立柱子模型
wpoffs,-mod_w1,-(mod_w2+hw_sec_h)*0.5,mod_h
blc4,-mod_w1*0.5,0,mod_w1,(mod_w2+hw_sec_h)*0.5,con_sec_t
!切体
wpcsys,-1,0
wpoffs,-mod_w1,-mod_w2*0.5,mod_h-hn_sec_t2*0.5 wpro,,90 !vsbw,all
!wpoffs,,,-hw_sec_h*0.5 !vsbw,all wpro,,,90 vsbw,all
wpoffs,,,-hn_sec_w*0.5 vsbw,all
wpoffs,,,hn_sec_w
vsbw,all
!!!付属性
ALLSEL,BELOW,VOLU asel,invert
cm,gangjiegou,area