none
Como puedo calcular esto RRS feed

  • Pregunta

  • Buenas Gracias de antemano estoy intentando calcular esto pero no doy con la tecla 

    supuniendo de que tengo estos datos 

    max seria 6,3

    min 5,8

    la barra verde mide 180 

    0 = 5,8

    180 = 6,3

    como puedo recorrer la barra verde de 0 a 180 en la diferencia que hay entre 6,3 - 5,8 = 0,5

    jueves, 20 de octubre de 2016 18:38

Respuestas

  • Recuerda de los tiempos en que estudiaste matemáticas la ecuación de la recta que pasa por dos puntos:

    (x-x1)/(y-y1)=(x2-x1)/(y2-y1)

    Aquí, x1,y1 y x2,y2 son los dos puntos que conoces, es decir, x1,y1=0,5.8 y x2,y2=180,6.3. Sustituyes en la ecuación y despejas y en función de x:

    (x-0)/(y-5.8) = (180-0)/(6.3-5.8)

    y = x * (0.5/180) + 5.8

    • Marcado como respuesta JETET martes, 25 de octubre de 2016 6:46
    viernes, 21 de octubre de 2016 7:01
  • gracias por responder alberto pero no doy con la formula

    For contar = 0 To Receta_Nueva.Dgv_Tabla_Estilos.RowCount - 1
                'MsgBox(Receta_Nueva.Dgv_Tabla_Estilos.Rows(contar).Cells(0).Value.ToString.ToLower.Contains(DataGridView1.CurrentRow.Cells(3).Value.ToString.ToLower))
                Dim Max_Abv As Decimal = Receta_Nueva.Dgv_Tabla_Estilos.Rows(contar).Cells(17).Value
                Dim Min_Abv As Decimal = Receta_Nueva.Dgv_Tabla_Estilos.Rows(contar).Cells(18).Value
                Dim Dif_Abv As Decimal = 180 / (Max_Abv - Min_Abv)
                Dim number As Decimal = NumericUpDown2.Value
                Dim x1 As Decimal = 0
                Dim y1 As Decimal = Receta_Nueva.Dgv_Tabla_Estilos.Rows(contar).Cells(17).Value
                Dim x2 As Decimal = 180
                Dim y2 As Decimal = Receta_Nueva.Dgv_Tabla_Estilos.Rows(contar).Cells(17).Value
    
                If Receta_Nueva.Dgv_Tabla_Estilos.Rows(contar).Cells(0).Value.ToString.ToLower.Contains(DataGridView1.CurrentRow.Cells(3).Value.ToString.ToLower) Then
    
    
                    'MsgBox(Max_Abv & "/" & Min_Abv & "/" & NumericUpDown2.Value)
                    BarraCircular1.Posicion_Mar = 360 * (180 / 0.5) + 5.8
                    Exit For
                End If
    
            Next

    • Marcado como respuesta JETET martes, 25 de octubre de 2016 6:46
    domingo, 23 de octubre de 2016 15:23

Todas las respuestas

  • Recuerda de los tiempos en que estudiaste matemáticas la ecuación de la recta que pasa por dos puntos:

    (x-x1)/(y-y1)=(x2-x1)/(y2-y1)

    Aquí, x1,y1 y x2,y2 son los dos puntos que conoces, es decir, x1,y1=0,5.8 y x2,y2=180,6.3. Sustituyes en la ecuación y despejas y en función de x:

    (x-0)/(y-5.8) = (180-0)/(6.3-5.8)

    y = x * (0.5/180) + 5.8

    • Marcado como respuesta JETET martes, 25 de octubre de 2016 6:46
    viernes, 21 de octubre de 2016 7:01
  • gracias por responder alberto pero no doy con la formula

    For contar = 0 To Receta_Nueva.Dgv_Tabla_Estilos.RowCount - 1
                'MsgBox(Receta_Nueva.Dgv_Tabla_Estilos.Rows(contar).Cells(0).Value.ToString.ToLower.Contains(DataGridView1.CurrentRow.Cells(3).Value.ToString.ToLower))
                Dim Max_Abv As Decimal = Receta_Nueva.Dgv_Tabla_Estilos.Rows(contar).Cells(17).Value
                Dim Min_Abv As Decimal = Receta_Nueva.Dgv_Tabla_Estilos.Rows(contar).Cells(18).Value
                Dim Dif_Abv As Decimal = 180 / (Max_Abv - Min_Abv)
                Dim number As Decimal = NumericUpDown2.Value
                Dim x1 As Decimal = 0
                Dim y1 As Decimal = Receta_Nueva.Dgv_Tabla_Estilos.Rows(contar).Cells(17).Value
                Dim x2 As Decimal = 180
                Dim y2 As Decimal = Receta_Nueva.Dgv_Tabla_Estilos.Rows(contar).Cells(17).Value
    
                If Receta_Nueva.Dgv_Tabla_Estilos.Rows(contar).Cells(0).Value.ToString.ToLower.Contains(DataGridView1.CurrentRow.Cells(3).Value.ToString.ToLower) Then
    
    
                    'MsgBox(Max_Abv & "/" & Min_Abv & "/" & NumericUpDown2.Value)
                    BarraCircular1.Posicion_Mar = 360 * (180 / 0.5) + 5.8
                    Exit For
                End If
    
            Next

    • Marcado como respuesta JETET martes, 25 de octubre de 2016 6:46
    domingo, 23 de octubre de 2016 15:23
  • resultado es = (6,02 - 5,8) / ((6,3 - 5,8) / 180)
    domingo, 23 de octubre de 2016 17:09