- 1、本文档共11页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
偏心受压构件结构分析代码.
钢筋混凝土偏心受压构件程序设计
姓名:徐波 学号:1219010230
(210098)
钢筋混凝土受压柱结构,有轴心受压、偏心受压两种,偏心受压又包括大偏心和小偏心两种情形。因此,编者为方便工程中遇到的矩形偏心受压构件的配筋计算,用Fortran语言编制了该程序,能快速计算出偏心受压构件受压与受拉钢筋的配筋面积,方便使用者对钢筋进行选配,并对选配钢筋后的截面按规范进行复核。
2 偏心受压构件计算理论及程序框图
2.1 偏心受压构件计算理论
图1 偏心受压构件理论计算过程
图2 偏心受压构件理论计算公式
2.2 程序框图
3 源程序
4 计算实例
算例1:假设荷载作用下柱的轴向力设计值,杆端弯矩设计值,,截面尺寸:;混凝土强度等级为,钢筋采用级;。求:(1).钢筋截面面积及。 (2).若已知,求。
程序计算结果如下图所示:
(1).
(2).
算例2:假设荷载作用下柱的轴向力设计值,杆端弯矩设计值,,截面尺寸:;混凝土强度等级为,钢筋采用级;。求:钢筋截面面积及。
程序计算结果如下图所示:
5 小结
本钢筋混凝土受压构件设计程序采用Fortran语言编写,编写过程中最大的感觉是Fortran语言的人机界面友好度不够,但胜于计算更为快速,适用于大土木类的工程计算,因此编者在编程中尽量对程序进行了界面的可理解性与程序可读性的改善处理。
限于编者水平有限,大偏心受压情况计算完成后,有以下程序未能完成的遗憾:1.不能将公称钢筋面积表录入程序并进行自动选配筋;2.大偏心配筋完成后应进行ξ的验算,若ξξb,则假设不正确,有继续调整配筋及否定工程经验按小偏心来计算两种方式,过于繁琐,并未录入;3.受Fortran语言的局限,未完成施工图的相应程序录入。
最后,虽然Fortran和钢混的知识水平有限,课上有很多东西没能理解,但三次课程作业的练习学到了很多,Fortran运用水平提高了一大截。很开心能在本科最后一年选修到这一门有意思的课,希望张老师能一直以这样的授课方式继续下去。感谢老师的授课!
结构分析程序设计课程作业
1
开 始
输入受力N、M1、M2,截面参数b,h,计算长度lc及砼保护层厚度as、a’s
输入混凝土标号C
调出混凝土设计强度
输入钢筋型号
调出钢筋设计强度
计算稳定系数φ
考虑效应
计算,判断大小偏心
调用小偏心子程序计算并输出配筋结果
调用大偏心子程序计算并输出配筋结果
结 束
program compressed member !矩形截面受压构件计算
implicit none
real::N,M1,M2,b,h,Lc,as1,as3,fc,ft,fy,fy2,A,i,M,ea,h0,ei,e,KCb,a1
real::As,As2,fai,r
integer::C,HRB
print*,请依次输入N(N),M1,M2(N*mm),b,h,Lc,as,as’(mm)
read*,N,M1,M2,b,h,Lc,as1,as3
call judge(b,h,Lc)
print*,请输入混凝土标号C=
read*,C
call concrete(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,h0,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)then
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
********************************************************
subroutine stress(Lc,b,fai) !稳定系数φ
implicit none
文档评论(0)