Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Разное
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 28.03.2013, 14:25
tima705 tima705 вне форума
Прохожий
 
Регистрация: 28.03.2013
Сообщения: 3
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Прошу помощи в простой задачке)

Казалось бы задача проста: подобрать значения элементов массива так, чтобы они удовлетворяли условию



Здесь даны суммы по строкам и по столбцам.
Кровь мне пьет эта задачка уже второй день))
Прошу помощи знатоков. Спасибо.

З.Ы. Должно получиться что-то типа

Ответить с цитированием
  #2  
Старый 28.03.2013, 17:37
AlexSku AlexSku вне форума
Специалист
 
Регистрация: 07.05.2007
Адрес: Москва
Сообщения: 884
Репутация: 21699
По умолчанию

Ничего не получится: количество переменных = 6*6 = 36, количество уравнений = 6 + 6 = 12. Такая линейная система даёт бесконечно много решений.
Ответить с цитированием
  #3  
Старый 28.03.2013, 17:57
Аватар для Uniq!
Uniq! Uniq! вне форума
Местный
 
Регистрация: 29.09.2010
Сообщения: 539
Версия Delphi: Delphi XE3
Репутация: 374
По умолчанию

AlexSku, задача вырождена.

Первое что надо сделать: отсечь все столбики и строки которые по своим векторам (суммируясь) дают ноль. (Это экономическое вырождение дебитно-кредитных систем)

После вырождения получаем 9 неизвестных и 9 уравнений.
Методы решения СЛАУ

Последний раз редактировалось Uniq!, 28.03.2013 в 18:01.
Ответить с цитированием
  #4  
Старый 28.03.2013, 21:07
tima705 tima705 вне форума
Прохожий
 
Регистрация: 28.03.2013
Сообщения: 3
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию Как-то облачны всегда ответы..

А вот и нет. Даже если выкидываем нулевые строки остается неизвестных N x N, а уравнений N + N... Тема очень актуальна)) Не нашел я еще решения пока.
Ответить с цитированием
  #5  
Старый 29.03.2013, 16:51
Аватар для Mrak
Mrak Mrak вне форума
Местный
 
Регистрация: 26.01.2013
Адрес: МО
Сообщения: 438
Версия Delphi: XE2
Репутация: 17
По умолчанию

я один вижу там ITIT ?
__________________
Я за здоровый экстрим!
Спасибо за "спасибо")
Ответить с цитированием
  #6  
Старый 16.04.2013, 12:13
tima705 tima705 вне форума
Прохожий
 
Регистрация: 28.03.2013
Сообщения: 3
Версия Delphi: Delphi 7
Репутация: 10
По умолчанию

Цитата:
Сообщение от Mrak
я один вижу там ITIT ?

Что? Что это такое?)

Задачу решил подстановкой данных в Excel и выполнением там макроса поиска решений, после чего считываю обратно в программу. Увы..
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 10:27.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter