[VBA] алгоритмы разветвляющейся структуры

[Dimok218]

из круглого бревна диаметром d необходимо вырезать балку прямоугольного сечения с основанием a и высотой h. При каких значениях a и h прочность балки будет наибольшей, если известно, что прочность балки пропорциональна ah^2. укажем, что необходимо выбрать определенный диапазон измерения значений а (иначе приходится использовать методы численного дифференцирования высшей математики).
В написании кодов VBA совсем ничего не понимаю, в математике тоже не силен. За партой сидел лет 15 назад...

[Cuprum5]

Сообщение от Dimok218

ah^2

- здесь h в квадрат возводится или сначала a перемножается с h и потом возводится в квадрат?
А что за алгоритм разветвляющейся структуры? Можете объяснить в 2-ух словах?

[Dimok218]

a*(h^2). А алгоритм разветвляющейся структуры это название лабораторной работы.

[p51x]

Сообщение от Cuprum5

- здесь h в квадрат возводится или сначала a перемножается с h и потом возводится в квадрат?

основание на квадрат высоты, это ж известная формула

Сообщение от Cuprum5

А что за алгоритм разветвляющейся структуры? Можете объяснить в 2-ух словах?

Это значит, что в алгоритме используются: условный оператор, тернарный или свитч.

Сообщение от Dimok218

В написании кодов VBA совсем ничего не понимаю, в математике тоже не силен. За партой сидел лет 15 назад...

А нафига тогда вам это все?..

[Dimok218]

написал что-то, но это не работает
Sub лб3()
Dim a As Integer
Dim b As Double
Dim c As Double
Dim d As Double

Cells.Clear
a = InputBox("диаметр ствола")
If a >= 0 Then
Cells(1, 1) = a
End If
If d < a Then
Cells(1, 3) = (a ^ 2 - d ^ 2) ^ 1 / 2 = c
End If
If c < a Then
Cells(1, 4) = (a ^ 2 - c ^ 2) ^ 1 / 2 = d
End If
If b < a Then
Cells(1, 2) = c * d ^ 2 = b
End If
End Sub

учусь на заочке и надо для контрольной

[Cuprum5]

Предлагаю назначить минимальную высоту(h) и минимальную ширину основания(а), можно построить окружность, заведите цикл for от a максимального до минимального, и задайте шаг, при каждой итерации h будет четко определяться по теореме Пифагора. Нарисуйте картинку и выложите ее здесь, если не совсем понятно.
В каждой итерации считаете прочность и сразу следите и выбираете максимальное значение.

[ViktorR]

Это задача на поиск оптимального решения.
Там конечно же будут условные операторы.
Вспомним, что около прямоугольника можно описать окружность, центр которой находится в точке пересечения диагоналей.
Размер диагонали - диаметр бревна.
В таком случае d^2 = a^2 + h^2.
Так установили одну связь. Вторая связь (прочность - размеры балки) уже определена.
Ежели выполнить подстановку и продифференцировать полученную функцию, то ...

[Dimok218]

Сообщение от Cuprum5

Предлагаю назначить минимальную высоту(h) и минимальную ширину основания(а), можно построить окружность, заведите цикл for от a максимального до минимального, и задайте шаг, при каждой итерации h будет четко определяться по теореме Пифагора. Нарисуйте картинку и выложите ее здесь, если не совсем понятно.
В каждой итерации считаете прочность и сразу следите и выбираете максимальное значение.

Сообщение от Cuprum5

Предлагаю назначить минимальную высоту(h) и минимальную ширину основания(а), можно построить окружность, заведите цикл for от a максимального до минимального, и задайте шаг, при каждой итерации h будет четко определяться по теореме Пифагора. Нарисуйте картинку и выложите ее здесь, если не совсем понятно.
В каждой итерации считаете прочность и сразу следите и выбираете максимальное значение.

как и куда писать цикл? и нужна ли диагональ, все эти формулы?

[Cuprum5]

Да, возьмите диагональ, как ViktorR написал, цикл и поиск максимума среди множества значений на VBA - найдите код в Интернете.

[Dimok218]

Сообщение от ViktorR

Это задача на поиск оптимального решения.
Там конечно же будут условные операторы.
Вспомним, что около прямоугольника можно описать окружность, центр которой находится в точке пересечения диагоналей.
Размер диагонали - диаметр бревна.
В таком случае d^2 = a^2 + h^2.
Так установили одну связь. Вторая связь (прочность - размеры балки) уже определена.
Ежели выполнить подстановку и продифференцировать полученную функцию, то ...

к чему это не понимаю