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); }