Часовой пояс: UTC + 3 часа [ Летнее время ]




Начать новую тему Эта тема закрыта, вы не можете редактировать и оставлять сообщения в ней.  
Автор Сообщение
ALEXIN
  Re: Статистика в Эксель
СообщениеДобавлено: 26.11.16 12:49 

Зарегистрирован: 11.06.12 07:57
Сообщения: 1698
vetvet писал(а):
Написано на С++, макросы на VBA. ....писать программу самому оченно тяжело.

Вот Вам готовый код. Потом покажите пожалуйста картинкой, что получилось в результате.
Код:
Sub Макрос3()
  [A1:H1] = Array(1, 1, 1, 1, "=108/B1-132/C1-1", "=100/A1-140/C1-2", "=D1/A1-D1/B1-1", "=D1/B1-D1/C1-1")
  Run "Solver.xlam!SolverReset"
  Run "Solver.xlam!SolverOk", "E1", 3, "0", "A1:D1"
  Run "Solver.xlam!SolverAdd", "F1:H1", 2, "0"
  Run "Solver.xlam!SolverSolve", True
End Sub
Вернуться к началу
 
 
ALEXIN
  Re: Статистика в Эксель
СообщениеДобавлено: 26.11.16 14:56 

Зарегистрирован: 11.06.12 07:57
Сообщения: 1698
Этот Макрос3 надо сначала "Сохранить". Потом запустить через команду "Выполнить".

Макрос3 самостоятельно и автоматически заполнит ячейки таблицы Эксель, рассчитав при этом:скорости каждого велосипедиста, расстояние до встречи (60 км) и т. д.

Изображение

Изображение

Вложение:
Macros3.xlsx [10.89 КБ]
Скачиваний: 100
Вернуться к началу
 
 
ALEXIN
  Re: Статистика в Эксель
СообщениеДобавлено: 05.12.16 14:09 

Зарегистрирован: 11.06.12 07:57
Сообщения: 1698
Сборник задач.
Решение задач линейного программирования в Microsoft Excel 2010: методические указания к выполнению лабораторных работ по информатике для обучающихся по всем программам бакалавриата и специалитета дневной формы обучения / сост. Н. Д. Берман, Н. И. Шадрина. – Хабаровск : Изд-во Тихоокеан. гос. ун-та, 2015. – 27 с.

Вариант 4
Для поддержания нормальной жизнедеятельности человеку ежедневно необходимо потреблять не менее 118 г белков, 56 г жиров, 500 г углеводов, 8 г минеральных солей. Количество питательных веществ, содержащихся в 1 кг каждого вида потребляемых продуктов, а также цена 1 кг каждого из этих продуктов – табл. 5
Составить дневной рацион, содержащий не менее минимальной суточной нормы потребности человека в необходимых питательных веществах при минимальной общей стоимости потребляемых продуктов.
Ответ. Минимальная общая стоимость 0,565947 р. при количестве продуктов: мясо – 0; рыба – 0; молоко – 0; масло – 0,03335; сыр – 0; крупа – 0,90513; картофель – 0.


Изображение

Изображение

_____________________________________________________
Вложение:
Ограниченный набор продуктов.xlsx [11.08 КБ]
Скачиваний: 727

У меня не сходится ответ. Сравните: 56,5947 руб и 68,30236 руб.
Чуть позже перепроверю на языке программирования — Haskell.
Вернуться к началу
 
 
ALEXIN
  Re: Статистика в Эксель
СообщениеДобавлено: 08.12.16 12:12 

Зарегистрирован: 11.06.12 07:57
Сообщения: 1698
Код на Haskell ниже. Надо подождать секунд 30-40, пока интерпретатор посчитает и выдаст результат.
Код:
import Data.List
ps = [[1.8,180,20,0,9], [1,190,3,0,10], [0.28,30,40,50,7], [3.4,10,865,6,12],
      [2.9,260,310,20,60], [0.5,130,30,650,20], [0.1,21,2,200,10]]
me = [118,56,500,8]
 
f ksi = (foldr1 (zipWith (+)) . zipWith (\l k -> map (*k) l) ps $ ks, ksi)
    where ks = map fromIntegral ksi
 
vs 0 = [[]]
vs n = [0..5] >>= \x -> map (x:) $ vs (n-1)
 
main = print $ head . sort . filter (all (<=0) . zipWith (-) me . tail . fst) . map f . vs $ 7


Ответ:
Код:
GHCi, version 8.0.1: http://www.haskell.org/ghc/  :? for help
Prelude> :cd C:\Users\admin\Documents\MyHaskell
Prelude> :load "MyBruteForce.hs"
[1 of 1] Compiling Main             ( MyBruteForce.hs, interpreted )
Ok, modules loaded: Main.
*Main> :main
([0.78,160.0,70.0,700.0,27.0],[0,0,1,0,0,1,0])
*Main>


Изображение


Исправил расчёты в Эксель по оптимизации набора продуктов.

Изображение

Вложение:
Оптимизация набора продуктов.xlsx [11.09 КБ]
Скачиваний: 573
Вернуться к началу
 
 
ALEXIN
  Re: Статистика в Эксель
СообщениеДобавлено: 08.12.16 13:28 

Зарегистрирован: 11.06.12 07:57
Сообщения: 1698
Какие же ограниченные тупицы Матфоруме, в том числе и Модераторы! Мне кажется это производная от криводушия (трусость + лживость). На роду им написано: быть по жизни подлыми людьми.

Например
Цитата:
"Первая труба наполняет резервуар на 48 минут дольше, чем вторая.Обе трубы, работая одновременно, наполняют этот же резервуар за 45 минут. За сколько минут наполняет этот резервуар одна вторая труба?" [...]

Быстрое решение:
x = y + 48 && xy/(x + y) = 45 [...]
x = 18, y = -30
x = 120, y = 72
Ответ: 72 минуты = 1 час и 12 минут

Они решают, ниже, разводят воду на киселе… .

Изображение
Вернуться к началу
 
 
ALEXIN
  Re: Статистика в Эксель
СообщениеДобавлено: 10.12.16 12:56 

Зарегистрирован: 11.06.12 07:57
Сообщения: 1698
Условия задачи. В продаже имеются только заготовки длиной 1500 мм, из которых надо получить три вида деталей:
• 82 штуки длиной 430 мм
• 93 штуки длиной 290 мм
• 115 штук длиной 180 мм

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

Решение:
Придётся купить 57 заготовок длиной 1500 мм. Минимум отходов составит — 3.01 %. Картинки ниже.

Изображение

Изображение

Изображение

Вложение:

Вложение:
My-calculation-of-the-procurement.rar [8.18 КБ]
Скачиваний: 63
Вернуться к началу
 
 
vetvet
  Re: Статистика в Эксель
СообщениеДобавлено: 15.12.16 12:56 

Зарегистрирован: 16.03.11 12:27
Сообщения: 98
ALEXIN писал(а):
Какие же ограниченные тупицы Матфоруме, в том числе и Модераторы! Мне кажется это производная от криводушия (трусость + лживость). На роду им написано: быть по жизни подлыми людьми.

Например
Цитата:
"Первая труба наполняет резервуар на 48 минут дольше, чем вторая.Обе трубы, работая одновременно, наполняют этот же резервуар за 45 минут. За сколько минут наполняет этот резервуар одна вторая труба?" [...]

Быстрое решение:
x = y + 48 && xy/(x + y) = 45 [...]
x = 18, y = -30
x = 120, y = 72
Ответ: 72 минуты = 1 час и 12 минут
Это не быстрое решение, а просто выписывание ответа, полученного при помощи онлайн-калькулятора. Вы доказали, что на клавиши давить может даже макака, молодца!
Вернуться к началу
 
 
ALEXIN
  Re: Статистика в Эксель
СообщениеДобавлено: 15.12.16 13:18 

Зарегистрирован: 11.06.12 07:57
Сообщения: 1698
vetvet писал(а):
Это не быстрое решение, а просто выписывание ответа, полученного при помощи онлайн-калькулятора.

Эта vetvet опять очнулась на 49-й версте. Уже проехали...

А что там решать? Любой дурак справится за 1-2 минуты, ниже:
xy/(x + y) = (y + 48)*y/(y + 48 + y) = (y^2 + 48y)/(2y + 48) = 45
y^2 + 48y – 90y – 2160 = 0 —> y^2 – 42y – 2160 = 0
D = 42^2 + 4 * 1 * 2160 = 1764 + 8640 = 10404
D^(0.5) = 102
Корни:
y = (42 + 102)/2 = 72 —> x = 72 + 48 = 120 — подходит!
y = (42 – 102)/2 = -30 —> x = -30 + 48 = 18 — не подходит из-за отрицательности!
Вернуться к началу
 
 
vetvet
  Re: Статистика в Эксель
СообщениеДобавлено: 16.12.16 04:34 

Зарегистрирован: 16.03.11 12:27
Сообщения: 98
ALEXIN писал(а):
vetvet писал(а):
Это не быстрое решение, а просто выписывание ответа, полученного при помощи онлайн-калькулятора.

Эта vetvet опять очнулась на 49-й версте. Уже проехали...

А что там решать? Любой дурак справится за 1-2 минуты, ниже:
xy/(x + y) = (y + 48)*y/(y + 48 + y) = (y^2 + 48y)/(2y + 48) = 45
y^2 + 48y – 90y – 2160 = 0 —> y^2 – 42y – 2160 = 0
D = 42^2 + 4 * 1 * 2160 = 1764 + 8640 = 10404
D^(0.5) = 102
Корни:
y = (42 + 102)/2 = 72 —> x = 72 + 48 = 120 — подходит!
y = (42 – 102)/2 = -30 —> x = -30 + 48 = 18 — не подходит из-за отрицательности!
Так вы тупо переписали то же решение, над которым выше глумились. Макака с клавой вы и есть.
Вернуться к началу
 
 
ALEXIN
  Re: Статистика в Эксель
СообщениеДобавлено: 16.12.16 14:03 

Зарегистрирован: 11.06.12 07:57
Сообщения: 1698
Excel считает лучше, чем калькулятор от Visual Basic.

Переписываю под 1300 мм:

D50 (82): =СУММПРОИЗВ(D7:D19;H7:H19)
E50 (93): =СУММПРОИЗВ(E7:E19;H7:H19)
F50(115): =СУММПРОИЗВ(F7:F19;H7:H19)

D51 (64): =СУММ(H7:H19)

D52 (83 200): =D3*D51

D53 (270): =СУММПРОИЗВ(G7:G19;H7:H19)
D54 (0.32 %): =D53/D52

Проверка
(43*82 + 29*93 + 18*115)/130 = (3526 + 2697 + 2070)/130 = 8293/130 = 63,79231
270/83200 *100 = 3,2452 %
130 * 64 = 8320

Результат Эксель, в см
23 раза: 43 + 43 + 43; отходы: 1; итого: 23 * 1 = 23
13 раз: 43 + 29 + 29 + 29; отходы: 0; итого: 13 * 0 = 0
27 раз: 29 + 29 + 18 + 18 + 18 + 18; отходы: 0; итого: 27 * 0 = 0
1 раз: 18 + 18 + 18 + 18 + 18 + 18 +18; отходы: 4; итого: 1 * 4 = 4
Всего: ________________________________________23 + 4 = 27

Изображение

Изображение

Вложение:
Вернуться к началу
 
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Эта тема закрыта, вы не можете редактировать и оставлять сообщения в ней.  

Часовой пояс: UTC + 3 часа [ Летнее время ]


Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 0


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Найти:



Powered by phpBB © 2001, 2007 phpBB Group
© АУП-Консалтинг, 2002 - 2024