private static void ConfigurarVariaveisBase(Bocal bocal, DadosDeProjeto dados)
{
bocal.Tensão_Admissivel_Para_o_Bocal_a_Temperatura_de_Projeto = CalculosGerais.GetTensaoMaximaAdmissivel("Bocal", dados.Temperatura_de_Projeto, bocal.Material);
DN = bocal.Diametro_Nominal;
E = bocal.Coeficiente_de_Eficiencia_de_Solda;
Sn = bocal.Tensão_Admissivel_Para_o_Bocal_a_Temperatura_de_Projeto;
P = dados.Pressao_Interna_de_Projeto;
C = dados.Sobrespessura_de_Corrosao;
}
public static double ResultadoSemSobrespessuraDeCorrosao(DadosDeProjeto dados)
{
var material = dados.Materiais.Cascos_e_Tampos;
var temperaturaDeProjeto = dados.Temperatura_de_Projeto;
var parte = "Cascos e Tampos";
var P = dados.Pressao_Interna_de_Projeto;
var D = dados.Diametro_Interno;
var S = CalculosGerais.GetTensaoMaximaAdmissivel(parte, temperaturaDeProjeto, material);
var E = dados.Eficiencia_de_Junta_do_Costado;
var resultadoSemSobrespessuraDeCorrosao = (D / 2) * ((Math.Exp(P / (S * E))) - 1);
//O capítulo 4, seção 4.1, subseção 4.1.2 diz que a espessura mínima sem sobrespessura de corrosão é de 1,6 mm.
if (resultadoSemSobrespessuraDeCorrosao < 1.6)
{
resultadoSemSobrespessuraDeCorrosao = 1.6;
}
return(resultadoSemSobrespessuraDeCorrosao);
}