下载文档原格式
基础部分工程量计算规则公式工程量计算是工程项目管理中的关键步骤之一，它涉及到对工程项目所需要的各种资源进行量化计算和估算。
基础部分是工程项目的重要组成部分，在进行工程量计算时，需要根据设计图纸和建筑规范，按照一定的规则和公式进行计算。
下面是一些基础部分工程量计算的常用规则和公式。
1.矩形基础的体积计算公式：矩形基础的体积=底面积×高度底面积=长×宽2.圆形基础的体积计算公式：圆形基础的体积=底面积×高度底面积=π×半径²3.长方形地基的体积计算公式：长方形地基的体积=底面积×高度底面积=长×宽4.圆形地基的体积计算公式：圆形地基的体积=底面积×高度底面积=π×半径²5.长方形柱状墩的体积计算公式：长方形柱状墩的体积=底面积×高度底面积=长×宽6.圆形柱状墩的体积计算公式：圆形柱状墩的体积=底面积×高度底面积=π×半径²7.梁的体积计算公式：梁的体积=截面积×长度截面积=底宽×底宽8.钢筋混凝土柱的体积计算公式：钢筋混凝土柱的体积=截面积×长度截面积=(底宽-顶宽)×(底宽+顶宽)/29.单层砖墙的表面积计算公式：单层砖墙的表面积=长度×高度面积=2×(长度+高度)×厚度10.单层砖墙的砌筑砖数计算公式：单层砖墙的砌筑砖数=砖长方向的长度/砖的长度×砖宽方向的长度/砖的宽度11.瓦片的使用量计算公式：瓦片的使用量=屋顶的面积/单片瓦片的面积12.柱子的体积计算公式：柱子的体积=底面积×高度底面积=π×半径²13.混凝土地梁的体积计算公式：混凝土地梁的体积=底面积×高度底面积=底宽×底宽14.钢筋混凝土梁的体积计算公式：钢筋混凝土梁的体积=底面积×高度底面积=(底宽-顶宽)×(底宽+顶宽)/215.方形井筒的体积计算公式：方形井筒的体积=底面积×高度底面积=边长×边长这些是基础部分工程量计算的一些常用规则和公式，它们可以用于计算和估算基础部分工程所需资源的量化值，帮助工程项目进行预算和规划。
混凝土柱的标准截面尺寸混凝土柱是建筑结构中常见的构件之一，其承重能力和稳定性对于整个建筑结构的安全性至关重要。
因此，在设计和施工过程中，需要遵循一定的标准和规范来确定混凝土柱的截面尺寸。
一、概述混凝土柱的截面尺寸是指柱的横截面的宽度和高度的尺寸。
根据国家标准《建筑结构荷载规范》（GB 50009-2012）和《混凝土结构设计规范》（GB 50010-2010），混凝土柱的截面尺寸应根据结构荷载、材料强度和构件长度等因素进行计算，以满足其承载能力和稳定性的要求。
二、计算方法1. 根据结构荷载计算混凝土柱的截面尺寸应根据所受荷载计算，以满足其承载能力的要求。
具体计算方法如下：（1）根据建筑结构荷载规范，计算柱的设计荷载。
（2）根据混凝土的强度等级和受力情况，确定混凝土的截面系数。
（3）根据柱的受力情况和所选用的钢筋等级，确定混凝土与钢筋的配筋率。
（4）根据所选用的混凝土截面系数和配筋率，计算柱的截面尺寸。
2. 根据材料强度计算混凝土柱的截面尺寸也应考虑材料强度的因素。
具体计算方法如下：（1）根据混凝土的强度等级和受力情况，确定混凝土的截面系数。
（2）根据所选用的钢筋等级和配筋率，计算柱的截面面积。
（3）根据所选用的混凝土截面系数和计算得到的柱截面面积，计算柱的截面尺寸。
3. 根据构件长度计算混凝土柱的截面尺寸还应考虑构件长度的因素。
具体计算方法如下：（1）根据构件长度和受力情况，确定混凝土的截面系数。
（2）根据所选用的钢筋等级和配筋率，计算柱的截面面积。
（3）根据所选用的混凝土截面系数和计算得到的柱截面面积，计算柱的截面尺寸。
三、设计要求根据国家标准《混凝土结构设计规范》（GB 50010-2010）的相关规定，混凝土柱的设计应满足以下要求：1. 满足承载能力和稳定性的要求。
2. 满足混凝土和钢筋的强度要求。
3. 满足构件的变形要求。
4. 满足施工和使用的要求。
四、结论混凝土柱的标准截面尺寸应根据结构荷载、材料强度和构件长度等因素进行计算，以满足其承载能力和稳定性的要求。
混凝土垫层工程量计算规则及公式1、条形基础砼垫层计算公式外墙条基砼垫层体积＝外墙条形基础砼垫层的中心线长度×砼垫层的截面积内墙条基砼垫层体积＝内墙条形基础砼垫层的净长线长度×砼垫层的截面积2、整板基础、独立基础垫层的体积垫层体积＝垫层面积×垫层厚度混凝土基础工程量计算规则及公式1、条形基础工程量计算及公式外墙条形基础的工程量＝外墙条形基础中心线的长度×条形基础的截面积内墙条形基础的工程梁＝内墙条形基础净长线的长度×条形基础的截面积注意：净长线的计算应砼条形基础按垂直面和斜面分层净长线计算2、满堂基础工程量计算及公式满堂基础工程量=满堂基础底面积×满堂基础底板垂直部分厚度＋上部棱台体积3、独立基础（砼独立基础与柱在基础上表面分界）(1)矩形基础：V=长×宽×高(2)阶梯形基础：V=∑各阶(长×宽×高)(3)截头方锥形基础：V=V1+V2=1/6 h1 ×［A×B+（A+a）（B+b）+a×b］+A×B×h2其中V1——基础上部棱台体积，V2——基础下部长方体体积，h1——棱台高度，A、B——棱台底边长宽，ab——棱台顶边长宽，h2——基础下部长方体高度混凝土柱工程量计算规则及公式⑴、构造柱工程量计算①构造柱体积＝构造柱体积+马牙差体积=H×（A×B+0.03×b×n）式中：H——构造柱高度A、B——构造柱截面长宽b——构造柱与砖墙咬差1/2宽度n——马牙差边数⑶、框架柱①现浇混凝土柱按设计图示尺寸以体积计算。
不扣除构件内钢筋、预埋铁件所占体积。
框架柱体积＝框架柱截面积*框架柱柱高其中柱高：a 有梁板的柱高，应自柱基上表面(或楼板上表面)至上一层楼板下表面之间的高度计算。
b 无梁板的柱高，应自柱基上表面(或楼板上表面)至柱帽下表面之间的高度计算。
项目设计值单位备注桩长L 14000mm /桩径Φ1200mm /混凝土量16.29m 3单桩量项目设计值单位备注直柱长度L 11620mm 喇叭以上高度直柱直径Φ12000mm /扩大头高度H 900mm 喇叭部分高度底板直径Φ22800mm /底板高度h 480mm /混凝土量43.57m 3单桩基础项目设计值单位备注直柱高度6000mm /直柱边长1000mm /斜坡部分高度700mm /斜坡上口边长2400mm /底板厚度600mm /底板边长3400mm /混凝土量13.99m3/项目设计值单位备注斜柱高度6500mm 斜柱边长800mm 默认水平切面为正方形底板厚度700mm 底板上口边长3300mm底板下口边长4200mm 混凝土量14.05m3单腿基础送电线路工程各种基础型式混凝土量计算表格送电线路工程基础施工前，需要对施工图纸进行会检、审查，而基础混凝土量的校核，对于施工单位来说十分重要，也是基础施工图纸审查的要点。
对于分包队伍来说，仔细校核基础方量，是正确备料、正确结算的依据之一。
本计算表格针对送电线路施工常见基础型式，编制了混凝土计算表格，方便技术人员、分包负责人使用。
掏挖基础、人工挖孔基础混凝土设计量计算灌注桩基础单桩混凝土设计量计算斜坡大板直柱基础混凝土设计量计算大板斜柱基础混凝土设计量计算桩长L桩径ΦLH hΦ1Φ2直柱高度斜坡高度上口边长底板边长直柱边长底板厚度斜柱边长底板厚度斜柱高度底板下口边长底板上口边长项目设计值单位备注立柱高度4000mm 立柱边长800mm 第1层台阶高度400mm 第1层台阶边长2000mm 第2层台阶高度400mm 第2层台阶边长3500mm 第3层台阶高度450mm 第3层台阶边长5200mm 第4层台阶高度0mm 第4层台阶边长0mm 第5层台阶高度0mm 第5层台阶边长0mm 混凝土量21.23m 3单腿基础从上往下数，如果没有第四层，则第四层高度、边长都写零，以此类推。
一.用轴压比估算柱截面1、估算公式：Ac>=Nc/(a*fc)其中：a----轴压比（一级0.7、二级0.8、三级0.9，短柱减0.05） fc---砼轴心抗压强度设计值Nc---估算柱轴力设计值2、柱轴力设计值：Nc=1.25CβN其中：N---竖向荷载作用下柱轴力标准值（已包含活载）β---水平力作用对柱轴力的放大系数七度抗震：β=1.05、八度抗震：β=1.10C---中柱C＝1、边柱C＝1.1、角柱C＝1.23、竖向荷载作用下柱轴力标准值：N=nAq其中：n---柱承受楼层数A---柱子从属面积q---竖向荷载标准值（已包含活载）框架结构：10~12（轻质砖）、12~14（机制砖）框剪结构：12~14（轻质砖）、14~16（机制砖）筒体、剪力墙结构：15~18 单位：KN/(M*M)4、适用范围轴压比控制小偏心受压或轴心受压柱的破坏，因此适用于高层建筑中的底部楼层柱截面的估算。
二.柱配筋框架柱的配筋率一般都很低，电算结果往往是构造配筋即可。
按柱的构造配筋率0.8%配筋，只相当于定额指标的1/2~1/3，有经验的设计人是不会采用的。
因为受地震作用的框架柱，尤其是角柱和大开间、大进深的边柱，一般均处于双向偏心受压状态，而电算程序则是按两个方向分别为单向偏心受压的平面框架计算配筋，结果往往导致配筋不足。
框架柱配筋的调整可做以下几项：1）应选择最不利的方向进行框架计算，也可两个方向均进行计算后比较各柱的配筋，取其教大值，并采用对称配筋。
2）调整柱单边钢筋的最小根数：柱宽<=450mm时3根，450<柱宽<=750mm时4根，750mm<柱<=900mm时5根。
（注意：柱单边配筋率不小于0.2%）3）将框架柱的配筋放大1.2~1.6倍。
其中角柱放大大些（不小于1.4倍），边柱次之，中柱放小些（1.2倍）4）由于多层框架时电算常不考虑温度应力和基础不均匀沉降问题，当多层框架水平尺寸和垂直尺寸较大以及地基软弱土层较厚或地基土层不均匀时，再适当放大一点框架柱的配筋也是可以理解的，具体放大多少，就要由设计人的经验决定5）框架柱的箍筋形式应选菱形或井字形，以增强箍筋对混凝土的约束。
ICS27.100P62备案号：J172－2002中华人民共和国电力行业标准PDL／T 5154-2002架空送电线路杆塔结构设计技术规定Technical Regulation of design for tower and polestructures of overhead transmission line主编部门：西南电力设计院批准部门：中华人民共和国国家经济贸易委员会2002-04-27发布2002-09-01实施中华人民共和国国家经济贸易委员会发布前言本规定是根据DL／T 5092—1999《110～500kV架空送电线路设计技术规程》，对《架空送电线路杆塔结构设计技术规定》SDGJ 94—1990的修订。
本规定较修订前的标准有以下重要技术内容的改变：(1) 适用范围由(35～500)kV改为(110～500)kV线路杆塔的结构设计，并明确通信杆塔设计可参照采用。
(2) 修订中纳入了以往工作实践中的成功经验。
(3) 结构设计采用以概率理论为基础的极限状态设计方法，在与SDGJ94—1990技术规定基本衔接的条件下，与国内的其他有关土建标准相协调。
(4) 对SDGJ 94—1990技术规定的部分条文作了删改，增加了部分新条文。
本规定发布之日起代替SDGJ 94—1990。
本规定的附录A、附录B、附录C、附录D、附录E、附录F和附录G均为标准的附录。
本规定由电力行业电力规划设计标准化技术委员会提出并归口。
本规定主编单位：西南电力设计院本规定参编单位：中国电力建设工程咨询公司、电力建设研究所、华东电力设计院、西北电力设计院、中南电力设计院。
本规定主要起草人：何尧章、魏顺炎、罗命达、李正、曹健勋、翁炳华、李喜来、唐国安、吴骁、郭跃明、梁政平、秦益芬。
本规定由电力行业电力规划设计标准化技术委员会负责解释。
目次前言1 范围2 引用标准3 总则4 术语和符号5 荷载6 材料7 基本规定8 构件计算及断面选择9 连接计算10 构造要求附录A (标准的附录) 镀锌钢绞线规格及强度标准值附录B (标准的附录) 双杆受力分配表附录C (标准的附录) 桁架内力分析简化表附录D (标准的附录) 铁塔轴心受压构件稳定系数附录E (标准的附录) 等直径钢管起振临界风速V cr曲线附录F (标准的附录) 环形截面混凝土电杆斜截面承载力计算附录G (标准的附录) 用词和用语说明条文说明1 范围1.0.1本规定适用于新建的110kV～500kV架空送电线路杆塔结构的设计，通信杆塔设计可参照采用。
圆形扩展式基础混凝土体积计算公式嘿，咱们今天来聊聊圆形扩展式基础混凝土体积的计算公式。
这玩意儿听起来好像有点复杂，其实啊，只要咱们一步步来，也没那么难搞懂。
先给您说个事儿，我之前去一个建筑工地，看到工人们正在浇筑圆形扩展式基础。
那个场面，真叫一个热火朝天！我就站在旁边，仔细观察着他们的操作。
那时候，太阳火辣辣的，工人们汗流浃背，但手上的活儿一点儿没马虎。
我注意到其中一个老师傅，他拿着图纸，一边指挥着大家干活，一边还不停地跟身边的年轻工人讲解着什么。
我凑过去一听，嘿，原来就是在说这圆形扩展式基础混凝土体积的计算呢！老师傅说，计算圆形扩展式基础混凝土体积，首先得搞清楚这个基础的形状和尺寸。
一般来说，圆形扩展式基础就像是一个倒扣的碗，上面大下面小。
那具体的计算公式是啥呢？咱们假设这个圆形扩展式基础的上底面半径为 R，下底面半径为 r，高度为 h。
那么它的体积 V 就可以通过下面这个公式来计算：V = 1/3 × π × h × (R² + Rr + r²)您看啊，这里面的π 就是圆周率，约等于 3.14。
这个公式其实就是把这个圆形扩展式基础分成了很多个薄薄的圆台，然后把它们的体积加起来。
咱们来举个例子，比如说有一个圆形扩展式基础，上底面半径是 2 米，下底面半径是 1 米，高度是 3 米。
那咱们就可以这样算：先算括号里的：R² = 2² = 4，r² = 1² = 1，Rr = 2 × 1 = 2然后把这些值带进公式里：V = 1/3 × 3.14 × 3 × (4 + 2 + 1)= 1/3 × 3.14 × 3 × 7= 3.14 × 7= 21.98（立方米）所以这个圆形扩展式基础的混凝土体积大约就是 21.98 立方米。
在实际的工程中，计算这个体积可重要啦。
Sub TongGuiQiuJie() '混凝土规范关于圆形截面的配筋的迭代计算求解Const PI As Double = 3.1415926Dim MaxRow As Integer, i As IntegerMaxRow = Range("A65536").End(xlUp).Row'以下进行计算所需变量的定义Dim D0 As Double, c As Double, d As Double, ConcreteQDDJ As String, SteelQDDJ As String, Nt As Double, M As Double '截面直径，保护层厚度，钢筋直径，混凝土强度等级，钢筋强度等级，轴向拉力，截面弯矩Dim ag As Double, rs As Double, e0 As Double '钢筋重心至边缘的距离，钢筋重心所在的圆半径，轴向拉力作用点至截面重心的距离Dim alpha As Double, alphaT As Double, alpha1 As Double, Mu As Double, Asover As Double, as1 As Double, fc As Double, fy As Double '。
迭代中间变量alpha1，受弯承载力，计算面积，中间面积，混凝土抗压强度设计值，钢筋抗拉强度设计值Dim StrPianXin As String, r As Double, A As Double '偏心状态，圆形截面半径,截面面积Dim Arfc, ArQD '定义变量存储数组，以便存储混凝土强度设计值Arfc = Array(7.2, 9.6, 11.9, 14.3, 16.7, 19.1, 21.1, 23.1, 25.3, 27.5, 29.7, 31.8, 33.8, 35.9)ArQD = Array("C15", "C20", "C25", "C30", "C35", "C40", "C45", "C50", "C55", "C60", "C65", "C70", "C75", "C80")Dim dic As Object '创建字典Set dic = CreateObject("Scripting.Dictionary")'字典添加For j = 1 To 14dic.Add ArQD(j - 1), Arfc(j - 1)Next'Sheet7.Cells(4, 8).Value = dic("C30")'以上完成迭代计算所需变量的定义For i = 4 To MaxRow'0以下读入输入数据并初步计算中间参数'Call ReadData(i, dic) '由于函数存在参数传递的问题，故这一步不用函数，让变量可以直接调用D0 = CDbl(Sheet7.Cells(i, 1).Value)c = CDbl(Sheet7.Cells(i, 2).Value)d = CDbl(Sheet7.Cells(i, 3).Value)ConcreteQDDJ = CStr(Sheet7.Cells(i, 4).Value)SteelQDDJ = CStr(Sheet7.Cells(i, 5).Value)Nt = CDbl(Sheet7.Cells(i, 6).Value) * 10 ^ 3M = CDbl(Sheet7.Cells(i, 7).Value) * 10 ^ 6r = D0 / 2A = PI * r ^ 2ag = c + d + 20 / 2rs = r - age0 = M / Nt'以下查询得到fy值Select Case SteelQDDJCase "HPB300"fy = 270#Case "HRB335"fy = 300#Case "HRB400"fy = 360#Case "HRB500"fy = 435#End Select'以下查询字典，得到fc值fc = dic.Item(ConcreteQDDJ) '若要查询字典，必须把字典变量dic以参数传递到此子函数中去'以下将中间数据转存到excelSheet7.Cells(i, 8).Value = fcSheet7.Cells(i, 9).Value = fySheet7.Cells(i, 10).Value = agSheet7.Cells(i, 11).Value = rsSheet7.Cells(i, 12).Value = e0'1以下进行两次迭代求出配筋面积Asover，并将中间参数返回excelalpha = 1#DoIf alpha <= 0.625 ThenalphaT = 1.25 - 2 * alphaElsealphaT = 0End IfDim FyAs As Double, Nt1 As Double, abs3 As DoubleFyAs = (-alpha * fc * A * (1 - Sin(2 * PI * alpha) / (2 * PI * alpha))) / (alpha - alphaT)'While FyAs < 0'alpha = alpha - 0.00001'FyAs = (-alpha * fc * A * (1 - Sin(2 * PI * alpha) / (2 * PI * alpha))) / (alpha - alphaT)'Wend'If FyAs < 0 Then GoTo 12345Asover = FyAs / fyMu = 2 / 3 * fc * A * r * (Sin(PI * alpha)) ^ 3 / PI + FyAs * rs * (Sin(PI * alpha) + Sin(PI * alphaT)) / PINt1 = 1 / (1 / FyAs + e0 / Mu)abs3 = Abs((Nt1 - Nt) / Nt)alpha = alpha - 0.00001 '步长设置大了就跳过了合理解了，为了避免此种问题，采取for循环吧Loop Until abs3 <= 0.0005 '精度设置的大了，就跳过了合理解了FyAs = (-alpha * fc * A * (1 - Sin(2 * PI * alpha) / (2 * PI * alpha))) / (alpha - alphaT)Asover = FyAs / fyMu = 2 / 3 * fc * A * r * (Sin(PI * alpha)) ^ 3 / PI + FyAs * rs * (Sin(PI * alpha) + Sin(PI * alphaT)) / PI'以下将计算结果反向输出到excel中去Sheet7.Cells(i, 13).Value = alphaSheet7.Cells(i, 14).Value = alphaTSheet7.Cells(i, 15).Value = Mu / (10 ^ 6)Sheet7.Cells(i, 16).Value = Asover'2以下进行所需变量的归零化D0 = 0#c = 0#d = 0#ConcreteQDDJ = ""SteelQDDJ = ""Nt = 0#M = 0#ag = 0#rs = 0#r = 0#A = 0#e0 = 0#alpha = 0#alphaT = 0#alpha1 = 0#Mu = 0#Asover = 0#as1 = 0#fc = 0#fy = 0#abs1 = 0abs2 = 0NextEnd SubSub TongGuiYuanXingShuLian() '混凝土规范关于圆形截面的配筋的迭代计算求解Const PI As Double = 3.1415926Dim MaxRow As Integer, i As IntegerMaxRow = Range("A65536").End(xlUp).Row'以下进行计算所需变量的定义Dim D0 As Double, c As Double, dgj As Double '截面直径，保护层厚度，箍筋直径Dim Asover As Double '已求得的总配筋面积Dim r As Double, A As Double '圆形截面半径,截面面积Dim JJJmin As Double, JJJmax As Double, dmin As Double, dmax As Double, StrContinueZZ As String, Rsmax As Double, StrRsmin As String '最小和最大钢筋间距、实际净间距，钢筋最小直径、最大直径、钢筋直径连续性判断、最大配筋率、最小配筋率是否考虑判断，实际配筋率Dim ag0 As Double, ag1 As Double, ag001 As Double '钢筋外边缘至截面边缘的距离，钢筋重心至截面边缘的距离,,Dim Ast001 As Double, nt001 As Integer, d001 As Double, Rsmin As Double, JJJ As Double, Ros As Double '描述钢筋实配方案的面积，根数，直径，最小配筋率，实际净间距，实际配筋率Dim ub0 As Integer, ub1 As Integer '钢筋最小直径和最大直径所对应的序号Dim nxmax As Integer, nxmin As Integer '最大钢筋数量、最小钢筋数量Dim Flag As Boolean '辅助退出第二层循环Dim d As Double, Asj As Double, Ast As Double, ntotal As Integer '单根钢筋面积,总钢筋面积、总钢筋根数ntotalDim ArDi, ArXu '存储钢筋直径和序号ArDi = Array(6, 8, 10, 12, 14, 16, 18, 20, 22, 25, 28, 32, 36, 40, 50)ArXu = Array(0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14) '存储对应直径在数组中的存储序号Dim dic1 As Object '创建字典Set dic1 = CreateObject("Scripting.Dictionary")'字典添加For j = 1 To 15dic1.Add ArDi(j - 1), ArXu(j - 1)NextFor i = 4 To MaxRow'0以下读入输入数据并初步计算中间参数D0 = CDbl(Sheet7.Cells(i, 1).Value)c = CDbl(Sheet7.Cells(i, 2).Value)dgj = CDbl(Sheet7.Cells(i, 3).Value)JJJmin = CDbl(Sheet7.Cells(i, 29).Value) '最小净间距JJJmax = CDbl(Sheet7.Cells(i, 30).Value) '最大净间距dmin = CDbl(Sheet7.Cells(i, 31).Value)dmax = CDbl(Sheet7.Cells(i, 32).Value)StrContinueZZ = CStr(Sheet7.Cells(i, 33).Value)Rsmax = CDbl(Sheet7.Cells(i, 34).Value)StrRsmin = CStr(Sheet7.Cells(i, 35).Value)Asover = CDbl(Sheet7.Cells(i, 16).Value)r = D0 / 2A = PI * r ^ 2ag0 = c + dgjRsmin = 0.0065 '最小配筋率'1以下针对钢筋直径的范围和钢筋净间距确定的最小最大钢筋根数,最小钢筋根数直接取8根和计算值中的较大值Ast001 = 10000000nt001 = 1200d001 = 100Flag = FalseIf StrContinueZZ = "是" Thenub0 = 10ub1 = 100Elseub0 = dic1.Item(dmin) '若要查询字典，必须把字典变量dic1以参数传递到此子函数中去ub1 = dic1.Item(dmax) '若要查询字典，必须把字典变量dic1以参数传递到此子函数中去End IfFor j = ub0 To ub1'判断钢筋直径连续与否，是否任意选取整数直径If StrContinueZZ = "是" Thend = jElsed = ArDi(j)End Ifag1 = ag0 + d / 2Asj = 0.25 * PI * d ^ 2nxmax = Round((PI * 2 * (r - ag1)) / (d + JJJmin), 0)nxmin = Application.WorksheetFunction.RoundUp((PI * (D0 - 2 * ag1)) / (d + JJJmax), 0)nxmin = Application.WorksheetFunction.Max(8, nxmin)For q = nxmax To nxmin Step -1 '单侧钢筋根数遍历，挑选最优方案ntotal = qAst = ntotal * AsjJJJ = Round(((D0 - 2 * ag1)) * Sin(PI / ntotal) - d, 2)'判断是否考虑一侧最小配筋率If StrRsmin = "否" ThenIf JJJ < JJJmax And JJJ > JJJmin And Ast >= Asover ThenIf Ast <= Ast001 ThenAst001 = Astnt001 = ntotald001 = dag001 = ag1Flag = TrueElseEnd IfElseEnd IfElseIf JJJ < JJJmax And JJJ > JJJmin And Ast >= Application.WorksheetFunction.Max(A * Rsmin, Asover) ThenIf Ast <= Ast001 ThenAst001 = Astnt001 = ntotald001 = dag001 = ag1Flag = TrueElseEnd IfElseEnd IfEnd IfNextNext'2如果找到优选结果，比较实际配筋率与最大配筋率的大小，判断是否超筋，然后将计算结果输出到excel中去If Flag = True ThenSheet7.Cells(i, 36).Value = nt001Sheet7.Cells(i, 37).Value = d001Sheet7.Cells(i, 38).Value = Round(Ast001, 0)Sheet7.Cells(i, 39).Value = RsminSheet7.Cells(i, 40).Value = Round(((D0 - 2 * ag001)) * Sin(PI / nt001) - d001, 0) '!!!计算净间距，要用选出的方案值，而不能用遍历的最后的值Ros = Round(Ast001 / A, 4)If Ros > Rsmax ThenSheet7.Cells(i, 41).Value = "超筋"ElseSheet7.Cells(i, 41).Value = RosEnd IfElseSheet7.Cells(i, 36).Value = "请调参"Sheet7.Cells(i, 37).Value = "请调参"Sheet7.Cells(i, 38).Value = "请调参"Sheet7.Cells(i, 39).Value = "请调参"Sheet7.Cells(i, 40).Value = "请调参"Sheet7.Cells(i, 41).Value = "请调参"End IfNextEnd SubSub JiGuiQiuJie() '线路基础规范关于圆形截面配筋的迭代计算求解，分为大小偏心求解Const PI As Double = 3.1415927Dim MaxRow As Integer, i As IntegerMaxRow = Range("A65536").End(xlUp).Row'以下进行计算所需变量的定义Dim D0 As Double, c As Double, d As Double, ConcreteQDDJ As String, SteelQDDJ As String, Nt As Double, M As Double '截面直径，保护层厚度，钢筋直径，混凝土强度等级，钢筋强度等级，轴向拉力，截面弯矩Dim ag As Double, rs As Double, e0 As Double, fai As Double, fai1 As Double, fai2 As Double, fai3 As Double '钢筋重心至边缘的距离，钢筋重心所在的圆半径，轴向拉力作用点至截面重心的距离Dim alpha As Double, alphaT As Double, alpha1 As Double, Mu As Double, Asover As Double, as1 As Double, fc As Double, fy As Double '。
