Scribd
Upload
54 views2 pages

Partial Class

The document contains code for a partial class that inherits from System.Web.UI.Page. The code declares private variables to store values for x1, x2, x3 and their errors during calculation. It includes a Button1_Click method that runs calculations in a loop to update the x values and errors, displaying the results. The calculations solve equations to update the x values iteratively based on the previous values.

Uploaded by

Rede Pool
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
54 views2 pages

Partial Class

The document contains code for a partial class that inherits from System.Web.UI.Page. The code declares private variables to store values for x1, x2, x3 and their errors during calculation. It includes a Button1_Click method that runs calculations in a loop to update the x values and errors, displaying the results. The calculations solve equations to update the x values iteratively based on the previous values.

Uploaded by

Rede Pool
Copyright
© Attribution Non-Commercial (BY-NC)
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd

Partial Class _Default

Inherits System.Web.UI.Page

Private x11 As Double = 0


Private x22 As Double = 0
Private x33 As Double = 0

Private x1jacobi As Double = 0


Private x2jacobi As Double = 0
Private x3jacobi As Double = 0

Private errorx01 As Double = 0


Private errorx02 As Double = 0
Private errorx03 As Double = 0

Private x1ant As Double = 0


Private x2ant As Double = 0
Private x3ant As Double = 0

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As


System.EventArgs) Handles btn01.Click
For i As Integer = 0 To 10
x11 = (10 + x3jacobi + x2jacobi) / 5

errorx01 = Math.Abs(((x11 - x1ant) / x11) * 100)


x1ant = x11

x22 = (x1jacobi + (4.3 * x3jacobi) + 10) / 3.5


errorx02 = Math.Abs(((x22 - x2ant) / x22) * 100)
x2ant = x22

x33 = (35 + (5 * x1jacobi) + x2jacobi) / 15


errorx03 = Math.Abs(((x33 - x3ant) / x33) * 100)
x3ant = x33

x1jacobi = x11
x2jacobi = x22
x3jacobi = x33

Response.Write(String.Format("<div><span>{0}</span>
<span>{1}</span> <span>{2}</span> <span>{3}</span> <span>{4}</span>
<span>{5}</span></div>", x11, errorx01, x22, errorx02, x33, errorx03))

x11 = 0
x22 = 0
x33 = 0

Next
End Sub
End Class
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
Select Case NumericUpDown1.Value

Case 3

x11 = (TextBox7.Text + x3jacobi + x2jacobi) /


TextBox4.Text

errorx01 = Math.Abs(((x11 - x1ant) / x11) * 100)


x1ant = x11

x22 = (x1jacobi + (TextBox13.Text * x3jacobi) +


TextBox14.Text) / TextBox12.Text
errorx02 = Math.Abs(((x22 - x2ant) / x22) * 100)
x2ant = x22

x33 = (TextBox21.Text + (TextBox18.Text * x1jacobi) +


x2jacobi) / TextBox20.Text
errorx03 = Math.Abs(((x33 - x3ant) / x33) * 100)
x3ant = x33

x1jacobi = x11
x2jacobi = x22
x3jacobi = x33
DataGridView1.Rows.Add(x11, errorx01, x22, errorx02, x33,
errorx03)

x11 = 0
x22 = 0
x33 = 0

End Select
End Sub

http://bestiagames.blogspot.com/2010/10/descargar-gratis-lost-planet-2-pc-2010.html

You might also like