资源描述：
《偏心受压构件结构分析代码.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、钢筋混凝土偏心受压构件程序设计姓名：徐波学号：（河海大学土木与交通学院，江苏省南京市）1引言钢筋混凝土受压柱结构，有轴心受压、偏心受压两种，偏心受压又包括大偏心和小偏心两种情形。因此，编者为方便工程中遇到的矩形偏心受压构件的配筋计算，用Fortran语言编制了该程序，能快速计算出偏心受压构件受压与受拉钢筋的配筋面积，方便使用者对钢筋进行选配，并对选配钢筋后的截面按规范进行复核。2偏心受压构件计算理论及程序框图2.1偏心受压构件计算理论图1偏心受压构件理论计算过程图2偏心受压构件理论计算公式2.2程序框图开始输入受力N、M1、M2，截面参数b，h，计算长度
2、lc及砼保护层厚度as、a’s输入混凝土标号C调出混凝土设计强度输入钢筋型号调出钢筋设计强度计算稳定系数φ考虑效应计算，判断大小偏心调用小偏心子程序计算并输出配筋结果调用大偏心子程序计算并输出配筋结果结束3源程序programcompressedmember!矩形截面受压构件计算implicitnonereal::N,M1,M2,b,h,Lc,as1,as3,fc,ft,fy,fy2,A,i,M,ea,h0,ei,e,KCb,a1real::As,As2,fai,rinteger::C,HRBprint*,'请依次输入N(N)，M1,M2(N*mm),b
3、,h,Lc,as,as’(mm)'read*,N,M1,M2,b,h,Lc,as1,as3calljudge(b,h,Lc)print*,'请输入混凝土标号C='read*,Ccallconcrete(C,fc,ft)print*,'请输入钢筋等级HRB='read*,HRBcallrebar(HRB,fy,fy2,KCb,r)callstress(Lc,b,fai)callpdrt(M1,M2,N,fc,A,Lc,i,M,ea,h0,b,h,as1)ea=max(h/30,20.0)ei=M/N+eae=ei+h/2-as1a1=1.0if(ei>0.
4、3*h0)thenprint*,'该构件为大偏心受压构件'calllarge(As,As2,N,e,a1,fc,b,h0,KCb,fy,fy2,as3,h,r,fai,ei)elseprint*,'该构件为小偏心受压构件'calllittle(As,As2,fc,b,h,N,as3,ea,M,KCb,h0,as1,a1,fy,fy2,fai)endifendprogram********************************************************subroutinestress(Lc,b,fai)!稳定系数φimpli
5、citnonereal::Lc,b,faiif((Lc/b)<=8)thenfai=1elseif((Lc/b)>8.and.(Lc/b)<=34)thenfai=1.177-0.021*Lc/belseif((Lc/b)>34.and.(Lc/b)<=50)thenfai=0.87-0.012*Lc/belseprint*,'warning：构件长细比不符合规范!'endifendsubroutine********************************************************subroutinejudge(b,h,L
6、c)!截面尺寸、长细比判断implicitnonereal::b,h,Lcif(b<250.or.h<250)thenprint*,'Warning:截面尺寸过小!'elseif(Lc/b>30.or.Lc/h>25)thenprint*,'Warning:长细比不满足规范!'endifendsubroutine*******************************************************subroutineconcrete(C,fc,ft)!混凝土受拉、受压设计强度implicitnoneinteger::Creal::
7、fc,ftif(C==30)thenfc=14.3ft=1.43elseif(c==35)thenfc=16.7ft=1.57elseif(c==40)thenfc=19.1ft=1.71elseif(c==45)thenfc=21.1ft=1.80elsefc=0ft=0print*,'Warning:未录入的标号，请输入C30~C45!'endifprint*,'fc=',fc,'(N/mm^2)'print*,'ft=',ft,'(N/mm^2)'endsubroutine**************************************
8、*****************subroutinerebar(HRB,fy,
