Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Алгоритмы

Модерирует : ShIvADeSt

 Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

Открыть новую тему     Написать ответ в эту тему

Alex_Piggy

Advanced Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

Код:
 
var fso= new ActiveXObject("Scripting.FileSystemObject");
var u=0.184584124
var maxi = 100
var dumin = 1
var win = ""
var fStream = fso.CreateTextFile("results.txt", true)
for (var a = 5; a < 100; a++) {
  for (var c = 5; c < 100; c++) {
    var acu = a * c / u;
    var bmin= acu / 100;
    bmin = bmin > 5 ? Math.floor(bmin) : 5;  
    var bmax = acu / 5;
    bmax = (bmax < 100) ? Math.ceil(bmax) : 100 ;
    for (var b = bmin; b < bmax; b++) {
      var d = acu / b;
      var dr = Math.round(d);
      var dd = Math.abs(d-dr);
      if (dd < 0.001) {
        var du = Math.abs(u - (a*c)/(b*dr));
        var vStr = "du=" + du + " a=" + a + " b=" + b + " c=" + c + " d=" + dr
        if (du < dumin) {
          win = vStr;
          dumin = du;
        }
       fStream.WriteLine(vStr);
      }
    }
  }
}
WScript.Echo ("Best: " + win);
 

Всего записей: 1883 | Зарегистр. 07-08-2002 | Отправлено: 22:55 31-12-2018
Открыть новую тему     Написать ответ в эту тему

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Алгоритмы


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru