Sub grafico_LD2()
Dim perc_Si, peso_SiO2, peso_CaO, teor_P, peso_soma_CaOMgO, peso_CaOMgO, LD, PM_SiO2, PM_Si, peso_escoria, peso_FeO As Double
Dim perc_Mg_escoria, perc_Si_fixo, perc_MgO_caldolomita, P_SiO2_falta, p_aco, perc_SiO2_Esc, perc_Si_Esc, PEsc_AD, PEsc_AD_correl As Double
Dim perc_Si_gr As Double
'LD = capacidade do LD (toneladas)
'P.M SiO2 = peso molecular da Sílica (g/mol) 'P.M Si = peso molecular do Silício (g/mol)
perc_Si = InputBox("Entrar com percentual de Silício") / 100 teor_P = InputBox("Entrar com teor de Fósforo") / 100 LD = InputBox("Entrar com valor de LD (Kg)") 'cálculo do peso da sílica
'LD = 30000 PM_SiO2 = 60.08 PM_Si = 28.08
peso_FeO = 650 ' (peso em Kg)
'peso_CaOMgO = peso MgO
'peso_soma_CaOMgO = peso CaO + peso MgO
'Cálculo da basicidade
If teor_P > 0.002 And perc_Si >= 0.005 Then peso_SiO2 = perc_Si * LD * PM_SiO2 / PM_Si peso_soma_CaOMgO = peso_SiO2 * 6.5
'Cálculo do peso da escória
'Cálculo do peso do Cal Dolomita perc_Mg_escoria = 0.09
perc_MgO_caldolomita = 0.35
peso_CaOMgO = Round(peso_escoria * perc_Mg_escoria / perc_MgO_caldolomita, 2)
peso_CaO = Round(peso_CaOMgO / 1.2, 2)
MsgBox (" Peso de CaO: " & peso_CaO & Chr(13) & " Peso CaOMgO: " & peso_CaOMgO) 'GRÁFICO j = 2 perc_Si = 0.005 teor_P = 0.002 For j = 2 To 12
peso_SiO2 = perc_Si * LD * PM_SiO2 / PM_Si peso_soma_CaOMgO = peso_SiO2 * 6.5
'Cálculo do peso da escória
peso_escoria = peso_soma_CaOMgO + peso_FeO
'Cálculo do peso do Cal Dolomita perc_Mg_escoria = 0.09
perc_MgO_caldolomita = 0.35
peso_CaOMgO = Round(peso_escoria * perc_Mg_escoria / perc_MgO_caldolomita, 2)
peso_CaO = Round(peso_CaOMgO / 1.2, 2) 'Saída no excel
Sheets("Plan1").Cells(j, 1) = perc_Si * 100 Sheets("Plan1").Cells(j, 2) = peso_CaO
Sheets("Plan1").Cells(j, 3) = peso_CaOMgO Sheets("Plan1").Cells(j, 5) = teor_P perc_Si = perc_Si + 0.0005 teor_P = teor_P + 0.005 Next j Else
If teor_P < 0.00199999 And perc_Si >= 0.005 Then
peso_SiO2 = perc_Si * LD * PM_SiO2 / PM_Si peso_soma_CaOMgO = peso_SiO2 * 6.5
'Cálculo do peso da escória
peso_escoria = peso_soma_CaOMgO + peso_FeO
'Cálculo do peso do Cal Dolomita perc_Mg_escoria = 0.09
perc_MgO_caldolomita = 0.35
peso_CaOMgO = Round(peso_escoria * perc_Mg_escoria / perc_MgO_caldolomita, 2)
peso_CaO = Round(peso_CaOMgO / 1.2, 2)
MsgBox (" Peso de CaO: " & peso_CaO & Chr(13) & " Peso CaOMgO: " & peso_CaOMgO) 'GRÁFICO j = 19 perc_Si = 0.005 teor_P = 0.002 For j = 19 To 29
peso_soma_CaOMgO = peso_SiO2 * 6.5 'Cálculo do peso da escória
peso_escoria = peso_soma_CaOMgO + peso_FeO
'Cálculo do peso do Cal Dolomita perc_Mg_escoria = 0.09 perc_MgO_caldolomita = 0.35 peso_CaOMgO = Round(peso_escoria*perc_Mg_escoria/perc_MgO_caldolomita, 2) peso_CaO = Round(peso_CaOMgO / 1.2, 2) 'Saída no excel Sheets("Plan1").Cells(j, 1) = perc_Si * 100 Sheets("Plan1").Cells(j, 2) = peso_CaO Sheets("Plan1").Cells(j, 3) = peso_CaOMgO 'Sheets("Plan1").Cells(j, 5) = teor_P perc_Si = perc_Si + 0.0005 teor_P = teor_P - 0.005 Next j Else
If teor_P > 0.002 And perc_Si < 0.004999999 Then
'Cálculo da escória sintética para aumento do teor de silício p_aco = 30000 'peso do aço em Kg
perc_Si_Esc = 0.25 ' percentual de silicio da escória sintética perc_SiO2_Esc = 0.3 ' percentual da sílica da escória sintética P_SiO2_falta = 320 - perc_Si * p_aco * PM_SiO2 / PM_Si
PEsc_AD = P_SiO2_falta * perc_Si_Esc * PM_SiO2 / PM_Si + P_SiO2_falta * perc_SiO2_Esc
PEsc_AD_correl = Round(1.19 * PEsc_AD, 2)
perc_Si_fixo = 0.005
peso_SiO2 = perc_Si_fixo * LD * PM_SiO2 / PM_Si peso_soma_CaOMgO = peso_SiO2 * 6.5
'Cálculo do peso da escória
peso_escoria = peso_soma_CaOMgO + peso_FeO
'Cálculo do peso do Cal Dolomita perc_Mg_escoria = 0.09
perc_MgO_caldolomita = 0.35
peso_CaOMgO = Round(peso_escoria * perc_Mg_escoria / perc_MgO_caldolomita, 2)
peso_CaO = Round(peso_CaOMgO / 1.2, 2)
MsgBox (" Peso de CaO: " & peso_CaO & Chr(13) & " Peso CaOMgO: " & peso_CaOMgO & Chr(13) & " Peso da Escória SiO2 Adicionada: " & PEsc_AD_correl) 'GRÁFICO j = 35 perc_Si = 0.002 For j = 35 To 45
'Cálculo da escória sintética para aumento do teor de silício p_aco = 30000 'peso do aço em Kg
perc_Si_Esc = 0.25 ' percentual de silicio da escória sintética perc_SiO2_Esc = 0.3 ' percentual da sílica da escória sintética P_SiO2_falta = 320 - perc_Si * p_aco * PM_SiO2 / PM_Si
PEsc_AD = P_SiO2_falta * perc_Si_Esc * PM_SiO2 / PM_Si + P_SiO2_falta * perc_SiO2_Esc
PEsc_AD_correl = Round(1.19 * PEsc_AD, 2)
'saída no excel
Sheets("Plan1").Cells(j, 1) = perc_Si * 100 perc_Si = perc_Si + 0.0005 Next j Else
If teor_P < 0.001999999 And perc_Si < 0.004999999 Then 'Cálculo da escória sintética para aumento do teor de silício p_aco = 30000 'peso do aço em Kg
perc_Si_Esc = 0.25 ' percentual de silicio da escória sintética perc_SiO2_Esc = 0.3 ' percentual da sílica da escória sintética P_SiO2_falta = 320 - perc_Si * p_aco * PM_SiO2 / PM_Si
PEsc_AD = P_SiO2_falta * perc_Si_Esc * PM_SiO2 / PM_Si + P_SiO2_falta * perc_SiO2_Esc
PEsc_AD_correl = Round(1.19 * PEsc_AD, 2)
perc_Si_fixo = 0.005
peso_SiO2 = perc_Si_fixo * LD * PM_SiO2 / PM_Si
peso_soma_CaOMgO = peso_SiO2 * 6.5
'Cálculo do peso da escória
peso_escoria = peso_soma_CaOMgO + peso_FeO
'Cálculo do peso do Cal Dolomita perc_Mg_escoria = 0.09
perc_MgO_caldolomita = 0.35
peso_CaOMgO = Round(peso_escoria * perc_Mg_escoria / perc_MgO_caldolomita, 2)
peso_CaO = Round(peso_CaOMgO / 1.2, 2)
MsgBox (" Peso de CaO: " & peso_CaO & Chr(13) & " Peso CaOMgO: " & peso_CaOMgO & Chr(13) & " Peso da Escória SiO2 Adicionada: " & PEsc_AD_correl) End If End If End If End If End Sub