田草博客

互联网田草博客


网友交流QQ群:11740834 需注明申请加入原因

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件 | ID
-随机-|-分布-
-博客论坛-|-﨣﨤﨧﨨-
-网站导航-|-规范下载-
-BelovedFLash欣赏-

用户登陆
用户:
密码:
 

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31


站点统计

最新评论



隐藏日志,无权浏览 平面索引、剖面索引、多行引注
未知 返回混凝土各种系数   [ 日期:2007-12-14 ]   [ 来自:本站原创 ]  HTML

'返回混凝土各种系数(XS1 系数类型, XS2 混凝土强度)
'根据规划混凝土强度等级从C15到C80。
Function HNTXS(XS1 As String, XS2 As Integer) As Double
  Dim Arr1 As Variant 'Fck 混凝土轴心抗压强度标准值 单位N/mm^2(扩大10)  混凝土结构设计规范 GB50010-2002 表4.1.3
      Arr1 = Array(100, 134, 167, 201, 234, 268, 296, 324, 355, 385, 415, 445, 474, 502)
  Dim Arr2 As Variant 'Ftk 混凝土轴心抗拉强度标准值 单位N/mm^2(扩大100) 混凝土结构设计规范 GB50010-2002 表4.1.3
      Arr2 = Array(127, 154, 178, 201, 220, 239, 251, 264, 274, 285, 293, 299, 305, 311)
  Dim Arr3 As Variant 'Fc  混凝土轴心抗压强度设计值 单位N/mm^2(扩大10)  混凝土结构设计规范 GB50010-2002 表4.1.4
      Arr3 = Array(72, 96, 119, 143, 167, 191, 211, 231, 253, 275, 297, 318, 338, 359)
  Dim Arr4 As Variant 'Ft  混凝土轴心抗拉强度设计值 单位N/mm^2(扩大100) 混凝土结构设计规范 GB50010-2002 表4.1.4
      Arr4 = Array(91, 110, 127, 143, 157, 171, 180, 189, 196, 204, 209, 214, 218, 222)
  Dim Arr5 As Variant 'Ec 混凝土弹性模量 单位10^4*N/mm^2(扩大100)  混凝土结构设计规范 GB50010-2002 表4.1.5
      Arr5 = Array(220, 255, 280, 300, 315, 325, 335, 345, 355, 360, 365, 370, 375, 380)
  Dim Arr6 As Variant 'Gc 混凝土剪变模量 单位10^4*N/mm^2(扩大100)  混凝土结构设计规范 GB50010-2002 4.1.8条规定剪变模量为剪切模量的0.4倍
      Arr6 = Array(88, 102, 112, 120, 126, 130, 134, 138, 142, 144, 146, 148, 150, 152)
  Dim Arr7 As Variant 'HPB235EB (ξb) 钢筋混凝土构件相对受压区高度(扩大1000) 混凝土结构设计规范 GB50010-2002 7.1.4&建筑结构工程师手册表3.4.1
      Arr7 = Array(614, 614, 614, 614, 614, 614, 614, 614, 604, 594, 584, 575, 565, 555)
  Dim Arr8 As Variant 'HRB335EB  钢筋混凝土构件相对受压区高度(扩大1000)
      Arr8 = Array(550, 550, 550, 550, 550, 550, 550, 550, 540, 531, 522, 512, 502, 493)
  Dim Arr9 As Variant 'HRB400EB  钢筋混凝土构件相对受压区高度(扩大1000)
      Arr9 = Array(518, 518, 518, 518, 518, 518, 518, 518, 508, 499, 490, 481, 472, 463)
  Dim Arr10 As Variant 'A1 (α1) 受压区混凝土矩形应力图的应力和混凝土轴心抗压强度设计值的比值(扩大100) 混凝土结构设计规范 GB50010-2002 7.1.3
      Arr10 = Array(100, 100, 100, 100, 100, 100, 100, 100, 99, 98, 97, 96, 95, 94)
  Dim Arr11 As Variant 'B1 (β1) 随混凝土强度提高而降低的系数(扩大100) 混凝土结构设计规范 GB50010-2002 7.1.3
      Arr11 = Array(80, 80, 80, 80, 80, 80, 80, 80, 79, 78, 77, 76, 75, 74)
  Dim Arr12 As Variant 'ECU (ξcu)  混凝土极限压应变(扩大100000) 混凝土结构设计规范 GB50010-2002 7.1.2&建筑结构工程师手册表6.3.3-1
      Arr12 = Array(330, 330, 330, 330, 330, 330, 330, 330, 325, 320, 315, 310, 305, 300)
  Dim Arr13 As Variant 'Ecf  混凝土疲劳变形模量单位10^4*N/mm^2(扩大100)  混凝土结构设计规范 GB50010-2002 表4.1.7(规范没有C15,这里假设为100)
      Arr13 = Array(100, 110, 120, 130, 140, 150, 155, 160, 165, 170, 175, 180, 185, 190)
  Dim Arr14 As Variant 'Bc (βc)  斜截面混凝土强度影响系数(扩大1000)  混凝土结构设计规范 GB50010-2002 7.5.1
      Arr14 = Array(1000, 1000, 1000, 1000, 1000, 1000, 1000, 1000, 966, 933, 900, 866, 833, 800)
  Dim i As Integer
  i = Int((XS2 - 10) / 5)
  If i < 15 And i > 0 Then
    XS1 = UCase(XS1) '将字符串转换成大写
    Select Case XS1
        Case "FCK"
            HNTXS = Arr1(i - 1) / 10
        Case "FTK"
            HNTXS = Arr2(i - 1) / 100
        Case "FC"
            HNTXS = Arr3(i - 1) / 10
        Case "FT"
            HNTXS = Arr4(i - 1) / 100
        Case "EC"
            HNTXS = Arr5(i - 1) / 100
        Case "GC"
            HNTXS = Arr6(i - 1) / 100
        Case "HPB235EB"
            HNTXS = Arr7(i - 1) / 1000
        Case "HRB335EB"
            HNTXS = Arr8(i - 1) / 1000
        Case "HRB335EB"
            HNTXS = Arr9(i - 1) / 1000
        Case "A1"
            HNTXS = Arr10(i - 1) / 100
        Case "B1"
            HNTXS = Arr11(i - 1) / 100
        Case "ECU"
            HNTXS = Arr12(i - 1) / 100000
        Case "ECF"
            HNTXS = Arr13(i - 1) / 100
        Case "BC"
            HNTXS = Arr14(i - 1) / 1000
        End Select
  End If
End Function


[本日志由 田草 于 2007-12-14 04:54 PM 编辑]


引用这个评论 田草 于 2007-12-18 10:34 AM 发表评论: 
'返回阵风系数
'XS1 地面粗糙程度(A,B,C,D)。
'XS2 离地面高度 单位m。
'建筑结构荷载规范 GB 5009-2001 表7.5.1
'计算公式 建筑结构工程师手册 表1.4.2-2
Function ZFXS(XS1 As String, XS2 As Integer) As Double
    XS1 = UCase(XS1)
    If XS2 <= 300 Then
        Select Case XS1
            Case "A"
                ZFXS = Format(0.92 * (1 + 0.774 * (XS2 / 10) ^ (-0.12)), "0.00")
            Case "B"
                ZFXS = Format(0.89 * (1 + 1 * (XS2 / 10) ^ (-0.16)), "0.00")
            Case "C"
                ZFXS = Format(0.85 * (1 + 1.468 * (XS2 / 10) ^ (-0.22)), "0.00")
            Case "D"
                ZFXS = Format(0.8 * (1 + 2.45 * (XS2 / 10) ^ (-0.3)), "0.00")
        End Select
    End If
End Function

发表评论 - 不要忘了输入验证码哦!
作者: 用户:  密码:   注册? 验证:  防止恶意留言请输入问题答案:3*3=?  
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字

字体样式 文字大小 文字颜色
插入粗体文本 插入斜体文本 插入下划线
左对齐 居中对齐 右对齐
插入超级链接 插入邮件地址 插入图像
插入 Flash 插入代码 插入引用
插入列表 插入音频文件 插入视频文件
插入缩进符合
点击下载按钮 下标 上标
水平线 简介分割标记
表  情
 
Tiancao Blog All Rights Reserved 田草博客 版权所有
Copyright ©