Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: минимум из позитивных чисел Добавлено: 05.04.09 17:09  

Автор вопроса:  isidan
имеются два столбика чисел

столбик x столбик y


И нужно найти минимальное значение из позитивных чисел столбика Y + записать значение X, которое соответствует Y.


Вот так находит если просто минимум , т.е не из позитивных чисел:


Sub min_y()
Dim xalg, xlopp, n, samm, x As Double, y As Double
xalg = Range("alg")
xlopp = Range("lopp")
n = Range("N")
samm = (xlopp - xalg) / n
ymin = 10000000
For i = 0 To n
    x = xalg + i * samm
    y = Fun(x)
    If y < ymin Then ymin = y: xmin = x
Next i
Range("ymin") = ymin
Range("xmin") = xmin
End Sub



А как, если только с позитивными числами????

Заранее Спасибо!

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 mc-black



ICQ: 308-534-060 

Вопросов: 20
Ответов: 1860
  Web-сайт: mc-black.narod.ru/dzp.htm
 Профиль | | #1 		Добавлено: 05.04.09 20:18
  1. Sub min_y()
  2.     Dim xalg, xlopp, n, samm, x As Double, y As Double, b As Boolean
  3.     xalg = Range("alg")
  4.     xlopp = Range("lopp")
  5.     n = Range("N")
  6.     samm = (xlopp - xalg) / n
  7.     ymin = 10000000
  8.     b = False
  9.     For i = 0 To n
  10.         x = xalg + i * samm
  11.         y = Fun(x)
  12.         If Not b Then
  13.             If y > 0 Then b = True: ymin = y: xmin = x
  14.         Else
  15.             If y < ymin Then ymin = y: xmin = x
  16.         End If
  17.     Next i
  18.     Range("ymin") = ymin
  19.     Range("xmin") = xmin
  20. End Sub

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам