Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Estadistica o probabilidad

30/06/2003 - 16:29 por Nego | Informe spam
Ayuda Hacer una pregunta
A ver a quien se le ocurre una posible solucion, a este dilema que tengo.

Resulta que debo a traves de alguna formula o codigo, establecer posibles
combinaciones para lograr ciertos objetivos. esto me lleva para ser mas
claro mostrarles un ejemplo

De un rango de pesos dado.. por ejemplo de 1 a 1.4 Kl.

Lograr detallar el rango quitandole 100 gramos desdel el maximo hasta llegar
al minimo en este caso 1. Kl.

Con esto pedile al programa que me agrupe estos pesos.. para lograr formar.
por ejemplo 25 Kl.

Tabla
Peso Unidad
1.4 1
1.3 1
1.2 1
1.1 1
1.0 1
Entonces saber cuantas piezas de cada peso necesito para lograr los 25 Kl. y
con ello todas las posibles bombinaciones..

Espero haber sido muy Claro.

Saludos Cordiales, esto ya lo postie en microsoft.public.es.access, pero
igual lo hago acá por si a alguien se le ocurre algo. yo en realidad. me
declaro inconpetente.. es esto.. y no lo logro hacer por ningun lado..



Nego
email Siga el debateRespuesta 2 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

Leer las respuestas

#1 Sashka
30/06/2003 - 19:30 | Informe spam
ojalá te sirva.

Public Function calcula(ByVal total As Long, ByVal mini As Double, ByVal
maxi As Double) As Variant
Dim i As Double, valores() As Single, x As Long, cant() As Long
Dim entero As Long, a1 As Double
ReDim valores(0)
valores(0) = maxi
For i = maxi - 0.1 To mini Step -0.1
x = x + 1
ReDim Preserve valores(0 To x)
valores(x) = i
Next i
x = x + 1
ReDim Preserve valores(0 To x)
valores(x) = mini
ReDim cant(0 To UBound(valores))
a1 = total
For x = 0 To UBound(cant) - 1
cant(x) = Int(a1 / valores(x))
a1 = a1 - (cant(x) * valores(x))
entero = entero + (cant(x) * valores(x))
Next x
calcula = cant
End Function

Sub main()
Dim cant As Variant
cant = calcula(25, 1, 1.4)
If IsArray(cant) Then MsgBox "ya"
End Sub

Sashka

"Nego" escribió en el mensaje
news:
A ver a quien se le ocurre una posible solucion, a este dilema que tengo.

Resulta que debo a traves de alguna formula o codigo, establecer posibles
combinaciones para lograr ciertos objetivos. esto me lleva para ser mas
claro mostrarles un ejemplo

De un rango de pesos dado.. por ejemplo de 1 a 1.4 Kl.

Lograr detallar el rango quitandole 100 gramos desdel el maximo hasta


llegar
al minimo en este caso 1. Kl.

Con esto pedile al programa que me agrupe estos pesos.. para lograr


formar.
por ejemplo 25 Kl.

Tabla
Peso Unidad
1.4 1
1.3 1
1.2 1
1.1 1
1.0 1
Entonces saber cuantas piezas de cada peso necesito para lograr los 25 Kl.


y
con ello todas las posibles bombinaciones..

Espero haber sido muy Claro.

Saludos Cordiales, esto ya lo postie en microsoft.public.es.access, pero
igual lo hago acá por si a alguien se le ocurre algo. yo en realidad. me
declaro inconpetente.. es esto.. y no lo logro hacer por ningun lado..



Nego


Preguntas similares

 

Busqueda sugerida :