用excel进行架空线路导线弧垂应力计算

GoalSeek Goal:=zjl12, ChangingCell:=Range("B15")РRange("C16").Value = Range("c10").ValueРzjl22 = Range("d10").ValueРRange("D16").GoalSeek Goal:=zjl22, ChangingCell:=Range("B16")РRange("C17").Value = Range("c11").ValueРzjl32 = Range("d11").ValueРRange("D17").GoalSeek Goal:=zjl32, ChangingCell:=Range("B17")РIf Range("B15").Value < 0 Or Range("B16").Value < 0 Or Range("B17").Value < 0 Then GoTo line1Р' 我们知道:解一元三次方程式,根一般不只一个,加上这条语句是为了判断所求得的应力值的合理性,不合理就返回重算。РEnd SubР计算架空导线弧垂。Р至此,三种控制条件下的导线应力值已经算出来了,取其中的最小值(MIN(B15,B16,B17)),代入到公式弧垂计算公式中,即在E15单元格按f=l2g/8σ输入计算公式,OK,一切顺利!我的结果是f=1.5米。Р怎么样,你成功了吗?再随便更改一下其它条件,运行一下宏,是不是很方便!Р应力弧垂计算表格界面参考。Р计算方法明白了,如何建立这个工作簿,您可以完全按自己的喜好来做。以下是我的应力弧垂计算表格界面,仅供参考。Р气象条件表:Р注:在“气象条件”表B15单元格(风速不均匀系数α)中的公式“=IF(F8>=35,0.7,IF(F8>=30,0.75,IF(F8>=20,0.85,1)))”目的是使其值随最大风速(F8单元格)的变化而变化。