Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 26.05.2016, 06:23   #1
Виктор1998
Новичок
Джуниор
 
Регистрация: 19.09.2015
Сообщений: 1
По умолчанию Перебор по раскрою квадрата в Solver Excel.

Здравствуйте!

Пожалуйста, помогите составить программу на перебор в Solver Excel.
Написать программу для раскроя квадрата на десять равнобедренных треугольников с равными боковыми сторонами.

Проект для решения.
Предположим, сторона квадрата — 1.0 (const). Есть теорема синусов. Пусть боковые стороны треугольника, каждая — r.
Полагаю, будет не более пяти неизвестных, как максимум.

Основное уравнение:
r^2/2 *[k*six(X) + m*six(Y) + n*six(Z) + p*six(J) + q*six(W)] = 1.0
Условие, как ограничение: k + m + n + p + q = 10

Значения основных синусов, с указанием возможной переменной:
a = sin30° = 0.5
b = sin45° = 2^0.5/2
c = sin60° = 3^0.5/2
d = sin90° = 1.0
f = sin120° = 3^0.5/2
g = sin135°= 2^0.5/2
h = sin150° = 0.5

Примеры решений:
r^2/2 *[4sin60° + 4sin150° + 2sin90°] = 1.0 —> r = 1/(2 + 3^0.5)^0.5 = 1/1,9319 = 0,5176…
r^2/2 *[4sin60° + 2sin30° +2sin150° + 2sin90°] = 1.0 —> r = 1/(2 + 3^0.5)^0.5 = 1/1,9319 = 0,5176…
r^2/2 *[4sin48.59 + 4sin(180°-48.59°) + 2sin90°] = r^2/2 *[4*0.75 + 4*0.75 +2*1] = 1.0 —> d = 1/4^0.5 = 1/2 = 0.5

Пояснение: sin48,59037789072914066151949781307 4° = 0,75

Как найти остальные варианты решений?
Виктор1998 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа перебора вариантов (изменить перебор цифровой на перебор буквенный) BArt2000 Паскаль, Turbo Pascal, PascalABC.NET 5 02.03.2015 12:56
Excel solver. Нужны новые идеи Ljovvka Microsoft Office Excel 5 05.11.2014 17:57
Перебор файлов Excel coder082 Microsoft Office Excel 4 08.06.2010 11:21
Подскажите где скачать более новую версию Solver, чем та, которая воткнута в Excel? Raikhman Microsoft Office Excel 0 01.02.2009 19:34
Оптимизация в Excel средствами Solver Raikhman Microsoft Office Excel 0 01.02.2009 19:17