Sumar numeros de una columna en un Datagridview y calcular promedio, varianza y desviación estandar
Publicado por Andrés (27 intervenciones) el 03/09/2018 15:52:52
Buenos días amigos, Me encuentro realizando un programa que consiste en calcular una serie de cuestiones como es el promedio, la varianza y la desviación estándar a partir del calculo de una Integral en la cual genero 2000 eventos en un Datagridview, pero para ello inicialmente se requiere hacer lo siguiente:
1-Sumar todos los unos de la columna "Esta o no esta" y el resultado mostrarlo en un Textbox...
2-De igual manera contar la cantidad de ceros que hay en esta misma columna "Esta o no esta" y mostrarlo en el otro Textbox...
3-En el caso del Área la calcularía con la siguiente formula [(CantidadDeUnos/2000)*(2-0)*4], pero para ello necesito contar los unos de la columna "Esta o no esta"
4-El Promedio, la Varianza y la Desviación Estándar las calcularía respectivamente de las columnas X & Y, en sus 2000 eventos...
Aquí les comparto el código que tengo:
Agradecería mucho su colaboración, siempre son ustedes de mucha ayuda!!!
1-Sumar todos los unos de la columna "Esta o no esta" y el resultado mostrarlo en un Textbox...
2-De igual manera contar la cantidad de ceros que hay en esta misma columna "Esta o no esta" y mostrarlo en el otro Textbox...
3-En el caso del Área la calcularía con la siguiente formula [(CantidadDeUnos/2000)*(2-0)*4], pero para ello necesito contar los unos de la columna "Esta o no esta"
4-El Promedio, la Varianza y la Desviación Estándar las calcularía respectivamente de las columnas X & Y, en sus 2000 eventos...
Aquí les comparto el código que tengo:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim tabla As New List(Of Fila)
Dim r As New Random
For k As Integer = 1 To 2000Dim fila As New Fila
fila.n = k
fila.X = r.NextDouble() * 2
fila.Y = r.NextDouble() * 4
Dim cos As Double = Math.Cos(fila.X)
fila.cosX = Math.Pow(cos, 2) + fila.X
If fila.Y <= fila.cosX Then
fila.Z = 1
Else
fila.Z = 0
End If
tabla.Add(fila)
Next
DataGridView1.DataSource = tabla
DataGridView1.Columns("X").DefaultCellStyle.Format = "N4"
DataGridView1.Columns("Y").DefaultCellStyle.Format = "N4"
DataGridView1.Columns("cosX").DefaultCellStyle.Format = "N4"
DataGridView1.Columns("cosX").HeaderText = "COS(X)"
DataGridView1.Columns("Z").HeaderText = "Esta o no esta"
End Sub
End Class
Class Fila
Public Property n() As Integer
Public Property X() As Double
Public Property Y() As Double
Public Property cosX() As Double
Public Property Z() As Integer
End Class
Agradecería mucho su colaboración, siempre son ustedes de mucha ayuda!!!
Valora esta pregunta
0