Código para resolver la fórmula E=mc2
Definir las variables de la ecuación:
La fórmula expresa que la Energía (E) de un cuerpo en reposo es igual a su Masa (m) por la Velocidad de la Luz (c) al cuadrado, pero el valor numérico de la velocidad de la luz que se utilice depende de las unidades en que se encuentre la velocidad.
Información a tener en cuenta:
Imagen extraída del buscador Google
La velocidad de la luz en el vacio es
de
300,000 Km/seg (3x10^5Km/seg) equivalente a
300,000,000 m/seg (3x10^8 m/seg) equivalente a
30,000,000,000 cm/seg (3x10^10 cm/seg)
Solución de la ecuación:
Los siguientes ejercicios de Masa y Energía han sido resueltos, explicados y tomados del canal de Youtube Aulamax, así como los valores numéricos de la velocidad de la luz; el código ha sido escrito en Visual Basic.
Variables a usar:
em es nuestra variable para los valores de energía y masa según sea el caso.
res es la variable para guardar los cálculos y mostrarlos en pantalla.
luz es nuestra constante.
exp es una variable para los valores exponenciales del ejercicio 2 y 3.
Ejercicio 1. Cuando un kilogramo de uranio reacciona en una bomba atómica, solo 0,915 g se transformaron en energía ¿Cuánta energía se produce?
Link del video: https://www.youtube.com/watch?v=UTzDbfUtJKQ
Vista de la aplicación WindowsForm
Código 1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
em = TextBox1.Text
res = (em * (luz) ^ 2)
TextBox2.Text = res
If ComboBox1.Text = "kg" Then
TextBox2.Text = TextBox2.Text + " x " + "10^10 Joules"
End If
If ComboBox1.Text = "g" Then
TextBox2.Text = TextBox2.Text + " x " + "10^20 Ergios"
End If
If ComboBox1.Text = "lb" Then
TextBox2.Text = TextBox2.Text + " x " + "10^16 Poundal pie"
End If
End Sub
Ejercicio 2. Cuando estalla 500 g de nitroglicerina, se liberan 4x1013 ergios. ¿Cuanta masa intervino en dicha transformación?
Link del video: https://www.youtube.com/watch?v=LVn6ca6Ao6s
Vista de la aplicación WindowsForm
Código 2
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
em = TextBox3.Text
exp = TextBox5.Text
res = em / (luz) ^ 2
res = Format(res, "0.00")
TextBox4.Text = res
If ComboBox2.Text = "Joules" Then
exp = exp - 10
Label6.Text = exp
Label8.Text = "Kilogramos"
End If
If ComboBox2.Text = "ergio" Then
exp = exp - 20
Label6.Text = exp
Label8.Text = "gramos"
End If
If ComboBox2.Text = "poundal pie" Then
exp = exp - 20
Label6.Text = exp
Label8.Text = "libras"
End If
End Sub
Ejercicio 3. Cuando una bomba atómica de un kilogramo hace explosión, solamente 9,0x10-4 se transforma en energía. ¿Cuanta energía se desprende?
Link del video: https://www.youtube.com/watch?v=omKpXpOeCyQ
Vista de la aplicación WindowsForm
Código 3
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
em = TextBox8.Text
exp = TextBox7.Text
res = em * (luz) ^ 2
If ComboBox3.Text = "kg" Then
TextBox6.Text = res
Label11.Text = exp + 8 * 2
Label9.Text = "Joules"
End If
If ComboBox3.Text = "g" Then
TextBox6.Text = res
Label11.Text = exp + 10 * 2
Label9.Text = "Ergios"
End If
If ComboBox3.Text = "lb" Then
TextBox6.Text = res
Label11.Text = exp + 10 * 5
Label9.Text = "¨Poundal pie"
End If
End Sub
