Важная информация
Показано с 1 по 3 из 3

Тема: Решение транспортной задачи

  1. #1 Решение транспортной задачи 
    Профи Аватар для FelixMacintosh
    Регистрация
    20.01.2014
    Сообщений
    390
    Сказал(а) спасибо
    57
    Поблагодарили 45 раз(а) в 37 сообщениях
    сегодня, я решил оставить без работы часть фрилансеров,
    выложив тем самым очередное своё решение, а называется оно


    решение транспортной задачи

    ТЗ-сокращенно

    начну с картинок

    час мучился, но всетаки к-что удалось сюда залить

    ито не всё ((

    на очереди еще столько-же
    Последний раз редактировалось The trick; 09.12.2014 в 09:18. Причина: Объединение
    Нет подписи : (
    Ответить с цитированием  
     

  2. #2  
    Admin
    Регистрация
    09.04.2014
    Сообщений
    1,219
    Сказал(а) спасибо
    778
    Поблагодарили 491 раз(а) в 404 сообщениях
    Цитата Сообщение от FelixMacintosh Посмотреть сообщение
    ТЗ-сокращенно
    Это Техническое задание....!
    так используется эта аббревиатура)
    не путайте людей.
    Ответить с цитированием  
     

  3. #3  
    Профи Аватар для FelixMacintosh
    Регистрация
    20.01.2014
    Сообщений
    390
    Сказал(а) спасибо
    57
    Поблагодарили 45 раз(а) в 37 сообщениях
    вот файл, извеняюсь что не ответил ..отвлекли меня

    Там, в моей программе я поставил в заголовках склады и магазины.
    я намеренно изменил заголовки чтобы продемонстрировать их здесь и было понятнее
    у меня там должны были стоять инвесторы и направления инвестиций..
    суть от этого не меняется, задача может решаться а может и нет
    нужно чтобы суммв запросов и сумма предложений совпадала..

    а еще очень хотелось поделиться тем с каким изяществом вызывается наДстройка
    "поиск решения" для когото это может показаться пустыми словами
    но на реализация программной части я потратил несколько дней ))


    VB Code:
    1. Public Sub Search_Solutions2()
    2.     'Поиск решения в MS Excel
    3.     Dim ms As Application 'As object
    4.     Dim MySolver As Workbook, SolverAddIn As Object, wb As Object
    5.     Dim j$(), Slv$
    6.     
    7.     Sheet2.Select 'Обязательно переходим в наш лист
    8.     
    9.     'Находим наши желтые матрицы
    10.     j = GetSquares(Yellow_Color)
    11.     'подключаем "Поиск решений"
    12.     On Error Resume Next
    13.     Set ms = Excel.Application
    14.     ms.ReferenceStyle = xlA1  ' стиль ссылок "A$1$"
    15.     If Val(Application.Version) < 12 Then
    16.         'Для старой версии может быть это название
    17.         Slv = "Solver.xla"
    18.     Else 'Все версии выше
    19.          Slv = "Solver.xlam"
    20.     End If
    21.     Set MySolver = Workbooks(Slv): Slv = Slv & "!"
    22.     If Err Then
    23.         On Error GoTo ErrSetting
    24.         'Подключение надстройки "Поиск решения"
    25.         Set SolverAddIn = ms.AddIns("Поиск решения")
    26.         'Книга Solver.xla (Solver.xlam)
    27.         Set wb = ms.Workbooks.Open(SolverAddIn.FullName)
    28.     End If
    29.     '
    30.     'Инициализируем
    31.     ms.Run Slv & "Auto_Open"
    32.     ms.Run Slv & "SolverReset" 'Сбрасываем то что было ранее
    33.     'Данные для расчета
    34.     'Function SolverOk([SetCell], [MaxMinVal], [ValueOf], [ByChange])
    35.     'MaxMinVal:=2 *Равной: 1,2,3  (2=минимальному значению)*
    36.     '
    37.     ms.Run Slv & "SolverOk", j(5), 2, 0, j(2)
    38.     'Function SolverAdd(CellRef, Relation As Integer, [FormulaText])'
    39.     'Relation:=1 *<=*
    40.     'Relation:=2 *=*
    41.     'Relation:=3 *>=*
    42.     'Добавляем 3 ограничения
    43.     ms.Run Slv & "SolverAdd", j(3), 2, j(1)
    44.     ms.Run Slv & "SolverAdd", j(4), 2, j(6)
    45.     ms.Run Slv & "SolverAdd", j(2), 3, "0"
    46.     '
    47.     'Function SolverSolve([UserFinish], [ShowRef])
    48.     Range(j(9)) = ms.Run(Slv & "SolverSolve")
    49.     '
    50.     Exit Sub
    51. ErrSetting:
    52.     Slv = "Надстройка *Поиск решения* не установленна, " & vbCrLf
    53.     Slv = Slv & "Войдите в >>Сервис >>Надстройки >>Поиск решения"
    54.     MsgBox Slv, vbExclamation
    55. End Sub


    кстати, обычно многие надстройки запароленны
    вот пароль от надстройки Solver
    Пароль: Wildebeest!!

    Пользуйтесь на здоровье господа фрилансеры
    Последний раз редактировалось The trick; 10.12.2014 в 21:11.
    Нет подписи : (
    Ответить с цитированием  
     

Информация о теме
Пользователи, просматривающие эту тему

Эту тему просматривают: 1 (пользователей: 0 , гостей: 1)

Похожие темы

  1. Ответов: 1
    Последнее сообщение: 06.05.2014, 12:10
  2. Готовое решение компонент OCX (исходники)
    от FelixMacintosh в разделе Visual Basic
    Ответов: 37
    Последнее сообщение: 19.02.2014, 23:35
  3. Транспортные задачи и задачи о назначениях и отбор
    от muzon45 в разделе Общие вопросы программирования
    Ответов: 0
    Последнее сообщение: 07.12.2013, 18:40
  4. Ответов: 0
    Последнее сообщение: 05.01.2013, 18:14
  5. Ответов: 0
    Последнее сообщение: 03.06.2011, 01:35
Ваши права
  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •