Формула "взята" из учебника, поэтому думаю, что если бы было возможно аналитическое решение, после соответствующих математических преобразований, то его бы "привели" в учебнике. Предполагаю, что решение данного уравнения возможно графически, или подбором, после соответствующих, если я правильно помню итераций. Как это делать в программировании с помощью циклов я знаю. А в Экселе, думаю, что без VBA не "обойтись".
Формула "взята" из учебника, поэтому думаю, что если бы было возможно аналитическое решение, после соответствующих математических преобразований, то его бы "привели" в учебнике. Предполагаю, что решение данного уравнения возможно графически, или подбором, после соответствующих, если я правильно помню итераций. Как это делать в программировании с помощью циклов я знаю. А в Экселе, думаю, что без VBA не "обойтись".Юрий_Нд
Сообщение отредактировал Юрий_Нд - Понедельник, 20.03.2017, 01:33
Можно попробовать через Поиск решения. Вкладка Данные - Поиск решения. Если его там нет, то подключите надстройку "Поиск решения". Там не очень сложно, думаю, разберетесь
Можно попробовать через Поиск решения. Вкладка Данные - Поиск решения. Если его там нет, то подключите надстройку "Поиск решения". Там не очень сложно, думаю, разберетесь_Boroda_
Спасибо за совет, но боюсь, что это не мой случай. Возможно, я не до конца разобрался, но мне нужно не один раз решить уравнение, а решать это уравнение постоянно, в каждой строчке экселя и не "в рукопашном, а в автоматическом" режиме, без предварительного подбора корней...
Спасибо за совет, но боюсь, что это не мой случай. Возможно, я не до конца разобрался, но мне нужно не один раз решить уравнение, а решать это уравнение постоянно, в каждой строчке экселя и не "в рукопашном, а в автоматическом" режиме, без предварительного подбора корней...Юрий_Нд
Сообщение отредактировал Юрий_Нд - Понедельник, 20.03.2017, 22:47
По этому рисунку графически решается уравнение, которое я привел в первом сообщении.
п.с. Прошу прощения, никогда не работал в ВБА. "Этот ВБА находится" в Экселе? Или для работы в ВБА нужно установить Офис с Экселем, а потом еще установить ВБА?
По этому рисунку графически решается уравнение, которое я привел в первом сообщении.
п.с. Прошу прощения, никогда не работал в ВБА. "Этот ВБА находится" в Экселе? Или для работы в ВБА нужно установить Офис с Экселем, а потом еще установить ВБА?Юрий_Нд
Сообщение отредактировал Юрий_Нд - Вторник, 21.03.2017, 11:49
п.с. Прошу прощения, никогда не работал в ВБА. "Этот ВБА находится" в Экселе? Или для работы в ВБА нужно установить Офис с Экселем, а потом еще установить ВБА?
Чисто гипотетически можно предположить, что при установке, Visual Basic for Application (VBA) компоненту MS Office не установили, но в любом случае это часть этого пакета или отдельного MS Excel. ALT+F11 и большая вероятность, что у вас все уже готово к работе.
п.с. Прошу прощения, никогда не работал в ВБА. "Этот ВБА находится" в Экселе? Или для работы в ВБА нужно установить Офис с Экселем, а потом еще установить ВБА?
Чисто гипотетически можно предположить, что при установке, Visual Basic for Application (VBA) компоненту MS Office не установили, но в любом случае это часть этого пакета или отдельного MS Excel. ALT+F11 и большая вероятность, что у вас все уже готово к работе.bmv98rus
Замечательный Временно просто медведь , процентов на 20.
я в посте №7 всё спросил - меня послали читать учебник, спасибо, обойдусь.
Уважаемый buchlotnik, Вы не раз выручали меня дельным советом, и я искренне благодарен Вам за это. Выдержку из учебника и номограмму я Вам привел, думая, что возможно, это немного больше "раскроет суть" моего вопроса. На рис. 4.8, на который я указал Вам, приведены диапазоны изменения дополнительных переменных, которые входят в уравнение из первого сообщения. По горизонтали Re - изменяется от 4*10^3 до 10^8. По вертикали слева "лямбда" от 0.008 до 0.08. По вертикали справа kэ/dв от 0.00001 до 0.05. Еще раз прошу извинить меня, с уважением к каждому Вашему сообщению______________Юрий.
я в посте №7 всё спросил - меня послали читать учебник, спасибо, обойдусь.
Уважаемый buchlotnik, Вы не раз выручали меня дельным советом, и я искренне благодарен Вам за это. Выдержку из учебника и номограмму я Вам привел, думая, что возможно, это немного больше "раскроет суть" моего вопроса. На рис. 4.8, на который я указал Вам, приведены диапазоны изменения дополнительных переменных, которые входят в уравнение из первого сообщения. По горизонтали Re - изменяется от 4*10^3 до 10^8. По вертикали слева "лямбда" от 0.008 до 0.08. По вертикали справа kэ/dв от 0.00001 до 0.05. Еще раз прошу извинить меня, с уважением к каждому Вашему сообщению______________Юрий.Юрий_Нд
Проехали. Я реально на той картинке ни хрена не разобрал - навскидку UDF с половинным отрезком (точность в ней - третий параметр) [vba]
Код
Function lambda#(R#, kd#, d#) Dim a#, b#, S#, f# a = 0.008 b = 0.08 Do S = (a + b) / 2 f = 1 / (S ^ 0.5) + 2 * Log(2.51 / R / (S ^ 0.5) + kd / 3.7) / Log(10) If f > 0 Then a = S Else b = S Loop While (b - a) > d S = (a + b) / 2 lambda = S End Function
[/vba] корректность проверил Поиском решения [p.s.]а ещё VBA доступен с вкладки Разработчик, которая по умолчанию скрыта, но есть в настройках ленты
Проехали. Я реально на той картинке ни хрена не разобрал - навскидку UDF с половинным отрезком (точность в ней - третий параметр) [vba]
Код
Function lambda#(R#, kd#, d#) Dim a#, b#, S#, f# a = 0.008 b = 0.08 Do S = (a + b) / 2 f = 1 / (S ^ 0.5) + 2 * Log(2.51 / R / (S ^ 0.5) + kd / 3.7) / Log(10) If f > 0 Then a = S Else b = S Loop While (b - a) > d S = (a + b) / 2 lambda = S End Function
[/vba] корректность проверил Поиском решения [p.s.]а ещё VBA доступен с вкладки Разработчик, которая по умолчанию скрыта, но есть в настройках лентыbuchlotnik
Спасибо, Михаил. Все работает, пока не дохожу до сохранения. Если сохраняю с макросами, тогда функция Лямбда меняет название на название файла и перестает работать. А если сохраняю без макросов, тогда, естественно теряю функцию. Вот такие "пироги".
Спасибо, Михаил. Все работает, пока не дохожу до сохранения. Если сохраняю с макросами, тогда функция Лямбда меняет название на название файла и перестает работать. А если сохраняю без макросов, тогда, естественно теряю функцию. Вот такие "пироги".Юрий_Нд
Прошу прощения за беспокойство, Михаил. В очередной, наверное десятый раз все переделал сначала. И все "без сучков". Думаю, что "на сегодня хватит"... Попросите модератора, если можно, удалить три последних сообщения. Стыдно. Спокойной ночи...
Прошу прощения за беспокойство, Михаил. В очередной, наверное десятый раз все переделал сначала. И все "без сучков". Думаю, что "на сегодня хватит"... Попросите модератора, если можно, удалить три последних сообщения. Стыдно. Спокойной ночи...Юрий_Нд