Проблема такова: есть программка (автор не доступен), которая анализирует bmp-рисунки (карточки) с точками (результат опрыскивания - капли разного размера, формы и т.п.) - т.е. программка узкого с/х применения. Все, вроде, правильно делает, но один из параметром не меняется. Т.е. если взять несколько разных (видно на глаз) карточек, то все параметры разные, кроме одного. Я в VB ноль, но есть исходный код - на бумаге и так (отсканеный).
Может кто-нибудь посмотреть, что делается в этом (см. ниже) фрагменте пргоги (Медианно-массовый диаметр) - вот я вырезал сюда этот код, где и упоминается про MMD, может здесь вызываются еще какие-нибудь функции (короче, этого фрагмента будет мало) - то кину ссылку на *.exe, карточки в *.bmp и весь код...
(И еще: в VB вообще возможно такое сделать? Я про анализ bmp-шек?)
ReDim Beta(Class - 1)
For X = 0 To Class - 1
Beta(X) = SumClass(Sld, X + 1) / VSum
Next X
MMD
IblResMMD.Caption = Str$(MMDiam)
dmax = ((Min + WidthClass * MMDiam) * 6 / 3.14159265) (1 / 3)
IblResDatDiam.Caption = Str$(dmax)
StRatio
PaintIntLine
PaintGist
txtClass.Text = Str$(Class) End Sub
Private Sub MMD() SMMD = 0
Cter = 0
Do While SSMD < 0.5
SSMD = SSMD + Beta(Cter)
Cter = Cter + 1
Loop
MMDiam = Cter
End Sub