/// <summary>
/// #计算导线比载,默认采用老规范计算，计算参数取1，新规范取2
/// </summary>
/// <param name="CalType"></param>
public void CalBZ(int CalType = 1)
{
//计算比载
var graAcc = CommParas.GraAcc;
BzDic = new Dictionary <string, BZResult>();
//换算最大风速值
var maxWindCon = WeatherParas.WeathComm.Where(item => item.Name == "换算最大风速").First().WindSpeed;
var maxWindSt = WeatherParas.WeathComm.Where(item => item.Name == "最大风速").First().WindSpeed;
double maxUpbaWindSt = 0, maxUpbaWindCon = 0;
//如果存在不均匀风工况
if (WeatherParas.WeathComm.Where(item => item.Name == "不均匀风").Count() > 0)
{
maxUpbaWindSt = WeatherParas.WeathComm.Where(item => item.Name == "不均匀风").First().WindSpeed;
maxUpbaWindCon = WeatherParas.WeathComm.Where(item => item.Name == "换算不均匀风").First().WindSpeed;
}
//g1为统一值
Comg1 = Wei * graAcc / Sec;
foreach (var weaItem in WeatherParas.WeathComm)
{
if (CalType == 1)
{
BZResult bz = new BZResult();
//温度
var temVal = weaItem.Temperature;
double winVal;
// 大风工况采用换算后的数值计算
if (weaItem.Name == "最大风速")
{
winVal = maxWindCon;
}
else if (weaItem.Name == "不均匀风")
{
winVal = maxUpbaWindCon;
}
else
{
winVal = weaItem.WindSpeed;
}
double iceVal = weaItem.IceThickness;
double alpha = ElecCalsToolBox.WindAlpha(winVal, iceVal, 1);
bz.g1 = Comg1;
double g2 = graAcc * 0.9 * Math.PI * iceVal * (iceVal + Dia) * 1e-3 / Sec;
bz.g2 = g2;
double g3 = Comg1 + g2;
bz.g3 = g3;
// Usc系数不区分覆冰与不覆冰
double usc = ElecCalsToolBox.WindEpson(iceVal, Dia);
//横向比载
double g4 = 0.625 * Math.Pow(winVal, 2) * Dia * alpha * usc * 1e-3 / Sec;
bz.g4 = g4;
//在覆冰计算中，计入覆冰增大系数
double bex = ElecCalsToolBox.WindLoadEnlargeCoe(iceVal);
double g5 = 0.625 * Math.Pow(winVal, 2) * (Dia + 2 * iceVal) * alpha * usc * bex * 1e-3 / Sec;
bz.g5 = g5;
double g6 = Math.Sqrt(Math.Pow(Comg1, 2) + Math.Pow(g4, 2));
bz.g6 = g6;
double g7 = Math.Sqrt(Math.Pow(g3, 2) + Math.Pow(g5, 2));
bz.g7 = g7;
//按照Excel的算法
bz.BiZai = ElecCalsToolBox2.BiZai(Wei * 1000, Dia, Sec, weaItem.IceThickness, weaItem.WindSpeed, weaItem.BaseWindSpeed) / 1000;
bz.HorBizai = ElecCalsToolBox2.BiZaiH(Dia, weaItem.IceThickness, weaItem.WindSpeed, weaItem.BaseWindSpeed, Sec) / 1000;
bz.VerHezai = ElecCalsToolBox2.Weight(Wei * 1000, Dia, weaItem.IceThickness) / 1000;
bz.VerBizai = bz.VerHezai / Sec;
bz.WindHezai = ElecCalsToolBox2.WindPa(CommParas.VoltStr, Dia, weaItem.IceThickness, weaItem.WindSpeed, weaItem.BaseWindSpeed) / 1000;
BzDic.Add(weaItem.Name, bz);
}
}
}
