偏心受压构件结构分析代码讲义.doc

钢筋混凝土偏心受压构件程序设计 姓名：徐波 学号：1219010230 （河海大学 土木与交通学院，江苏省南京市 210098） 1引言 钢筋混凝土受压柱结构，有轴心受压、偏心受压两种，偏心受压又包括大偏心和小偏心两种 情形。因此，编者为方便工程中遇到的矩形偏心受压构件的配筋计算， 用Fortran语言编制了该程 序，能快速计算岀偏心受压构件受压与受拉钢筋的配筋面积， 方便使用者对钢筋进行选配， 并对 选配钢筋后的截面按规范进行复核。 2偏心受压构件计算理论及程序框图 2.1偏心受压构件计算理论 ［计算截面内力设计值丫初定謹面尺寸乩X选定材料，预估％叮等. J 君曰.3片时，小偏心受压破坏垂肝弯嚮Z■ 君曰.3片时，小偏心受压破坏 垂肝弯嚮Z ■ 求書 I 1垂直幵?^5“ 星载力复核 求4代（.40 绘制配筋图 图1偏心受压构件理论计算过程 n=/X 4 住、f占乂 - AA N— ax @心--)-/X% -闵) k 2_: ) h e = e, d t_ h6 —匕 心小山： t_ h 6 —匕 心小山： 脳二偽和讽-|)+ 7X(九-“ 图2偏心受压构件理论计算公式 输入受力 N、M1、M2，截面输入受力 N、M1、 输入受力 N、M1、M2，截面 输入受力 N、M1、M2，截面 参数b，h,计算长度lc及砼 保护层厚度as、as 输入混凝土标号 C 调出混凝土设计强度 输入钢筋型号 考虑p 效应计算ei ,判断大小偏心调用小偏心子程序计算并输 考虑p 效应 计算ei ,判断大小偏心 调用小偏心子程序计算并输 岀配筋结果 调用大偏心子程序计算并输 岀配筋结果 3源程序 program compressed member矩形截面受压构件计算 implicit none real::N,M1,M2,b,h,Lc,as1,as3,fc,ft,fy,fy2,A,i,M,ea,hO,ei,e,KCb,a1 real::As,As2,fai,r in teger::C,HRB print*,请依次输入 N(N) , M1,M2(N*mm),b,h,Lc,as,as (mm) read*,N,M1,M2,b,h ,L c,as1,as3 call judge(b,h,Lc) print*,请输入混凝土标号C= read*,C call con crete(C,fc,ft) print*,请输入钢筋等级HRB= read*,HRB call rebar(HRB,fy,fy2,KCb,r) call stress(Lc,b,fai) call pdrt(M1,M2,N,fc,A,Lc,i,M,ea,hO,b,h,as1) ea=max(h/30,20.0) ei=M/N+ea e=ei+h/2-as1 a1=1.0 if(ei0.3*h0)the n print*,该构件为大偏心受压构件’ call large(As,As2,N,e,a1,fc,b,h0,KCb,fy,fy2,as3,h,r,fai,ei) else print*,该构件为小偏心受压构件’ call little(As,As2,fc,b,h,N,as3,ea,M,KCb,h0,as1,a1,fy,fy2,fai) end if end program ******************************************************** subrouti ne stress(Lc,b,fai)稳定系数? implicit none real::Lc,b,fai if((Lc/b)v=8)the n fai=1 else if((Lc/b)8.a nd.(Lc/b)=34)the n fai=1.177-0.021*Lc/b else if((Lc/b)34.a nd.(Lc/b)=50)the n fai=0.87-0.012*Lc/b else print*,warning :构件长细比不符合规范! end if end subrout ine ******************************************************** subrout ine judge(b,h,Lc)截面尺寸、长细比判断 implicit none real::b,h ,Lc if(b250.or.h250)the n prin t*,Warni ng:截面尺寸过小！’ else if(Lc/b30.or.Lc/h25)the n print*,Warning:长细比不满足规范! end if end subrout ine *****************************************************