Форум атеистов Рунета

Текущее время: 08 ноя 2026, 13:16

Часовой пояс: UTC + 4 часа




Начать новую тему Ответить на тему  [ Сообщений: 4775 ]  На страницу Пред.  1 ... 362, 363, 364, 365, 366, 367, 368 ... 478  След.
Автор Сообщение
 Заголовок сообщения: Re: Забавные задачки
СообщениеДобавлено: 22 май 2023, 14:16 
Не в сети
Аватара пользователя

Зарегистрирован: 17 авг 2012, 21:37
Сообщения: 37275
Откуда: Новороссийск
Я пользуюсь программой Wolfram Mathematica. Она умеет вычислять сразу erfi(x) вместо x подставляете значение. Не надо мучиться ни с Тейлором, ни с программками. Хотя в сети вы можете найти много вариантов программ на разных языках. Попробовать приспособить к VBA.
1) Смысл мне тоже не понятен. В каких-то расчетах по радиолокации комплексные числа применяются. erfi(z)=-ierf(iz), это определение вовсе не для облегчения расчетов. В формулах получается, как у вас именно функция erfi. Онлайн калькуляторы выдают в формулах Erfi. И могут считать Erfi. Нет необходимости преобразовывать к Erf.
https://www.wolframcloud.com/browse разовые расчёты позволяет делать бесплатно. Надо только зарегистрироваться.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Забавные задачки
СообщениеДобавлено: 23 май 2023, 01:57 
Не в сети
Аватара пользователя

Зарегистрирован: 06 авг 2020, 16:18
Сообщения: 2197
Состряпал на скорую руку функцию пользователя в Excel VBA. Вычисляет Erfi(x) с помощью разложения функции Exp(x2) в ряд с последующим интегрированием.
Текст программы:
Function Erfi(x As Double) As Double ' Интеграл от 0 до х от функции Exp(x2)
Dim n As Integer, S As Double, Member As Double, Factor As Double
n = 0: S = x: Member = x
Do
Factor = (2 * n + 1) / (2 * n + 3): Factor = Factor * x ^ 2 / (n + 1)
Member = Member * Factor
S = S + Member
n = n + 1
Loop Until Abs(Member) < 0.000001
Erfi = S
End Function

_________________
Мудрость - это понимание своего бессилия перед глупостью.
Во имя овса и сена, и свиного уха


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Забавные задачки
СообщениеДобавлено: 23 май 2023, 11:10 
Не в сети
Аватара пользователя

Зарегистрирован: 06 авг 2020, 16:18
Сообщения: 2197
Нсчет Wolfram Mathematica - спасибо за инфу, но Erfi у меня всего лишь промежуточное звено, для полного решения нужно сперва вычислить аргумент для функции Erfi, а ее результат подвергнуть дальнейшим вычислениям. Все это делает тблица в Excel. Вот если бы функцию Wolfram Mathematica можно было вызывать из таблицы...

_________________
Мудрость - это понимание своего бессилия перед глупостью.
Во имя овса и сена, и свиного уха


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Забавные задачки
СообщениеДобавлено: 23 май 2023, 11:18 
Не в сети
Аватара пользователя

Зарегистрирован: 17 авг 2012, 21:37
Сообщения: 37275
Откуда: Новороссийск
Это вряд ли. Программа коммерческая. Возможно для Exel есть какие-то библиотеки, но по-моему ваш путь собственной подпрограммки оптимальней. Во всяком случае понимаешь, что считает, доверия больше. :)


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Забавные задачки
СообщениеДобавлено: 24 май 2023, 18:17 
Не в сети
Аватара пользователя

Зарегистрирован: 06 авг 2020, 16:18
Сообщения: 2197
У меня появились кой-какие мысли, хочу с вами посоветоваться.
Речь идет о реологии концентрированных суспензий.
Препринт моей последней статьи на эту тему опубликован в открытом доступе

Изображение

Изображение

_________________
Мудрость - это понимание своего бессилия перед глупостью.
Во имя овса и сена, и свиного уха


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Забавные задачки
СообщениеДобавлено: 24 май 2023, 22:07 
Не в сети
Аватара пользователя

Зарегистрирован: 17 авг 2012, 21:37
Сообщения: 37275
Откуда: Новороссийск
Если y' меняется линейно, то, вероятно разбиение на ступени правомерно. А что за дефицит времени с численным решением уравнения Риккати? Если это разовые расчеты дома, оставьте на ночь. Если что-то ежедневное для промышленности, то метод давно обкатан. И компьютеры отличные и распределенные вычисления.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Забавные задачки
СообщениеДобавлено: 24 май 2023, 22:47 
Не в сети
Аватара пользователя

Зарегистрирован: 06 авг 2020, 16:18
Сообщения: 2197
Что такое y' ? Видимо, скорость сдвига?
А если нелинейно, это что-то меняет? Описанный мной метод не предполагает ограничений на ее зависимость от времени, она м.б. любой. Или как?


Насчет вычислений:
Зависимость вязкости от скорости сдвига описывается уравнениями с 10 "подстроечными" параметрами.
Параметры варьируются программой в Excel VBA таким образом, чтобы теоретическая кривая оптимальным образом проходила черз экспериментальные точки (т.е. минимизировалась невязка). Для этого по очереди варьируется каждый параметр по отдельности при фиксированных значениях прочих параметров, и эта процедура повторяется многократно, пока невязка практически не перестанет убывать (или пока я не сочту аппроксимацию удовлетворительной).
Если численно решать уравнение Риккати (метод ломаных Эйлера с поправкой на y''), то для повышения точности приходится уменьшать шаг по времени, а это значит, что таблица становится очень большой (порядка 1000 строк). При каждом изменении хотя бы одного параметра вся таблица автоматически пересчитывается заново. А я должен контролировать процесс и решать - повторять вариации, или нет. В результате приходилось сидеть перед компом часами.
В упомянутой выше статье (препринт) я именно так и делал; результаты оказались неплохими, но мне надоело так бездарно терять время.

_________________
Мудрость - это понимание своего бессилия перед глупостью.
Во имя овса и сена, и свиного уха


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Забавные задачки
СообщениеДобавлено: 24 май 2023, 23:10 
Не в сети
Аватара пользователя

Зарегистрирован: 17 авг 2012, 21:37
Сообщения: 37275
Откуда: Новороссийск
Alexander писал(а):
Что такое y' ? Видимо, скорость сдвига?

Изображение

Alexander писал(а):
описывается уравнениями с 10 "подстроечными" параметрами.

Если вам нужна качественная картина, то может вернуться к технике полувековой давности?
Когда-то такие дифференциальные уравнения решались на аналоговых вычислительных машинах.
Набор перемычек к операционным усилителям, параметры – резисторы, конденсаторы.
Хотя сейчас я не знаю, существуют ли такие машины. Разве, что самому собрать. С другой стороны удобно, в качестве параметров крутишь потенциометры, сразу ответ видишь на экране осциллографа.
А вообще-то цифровые компы по скорости вполне потянут. Тот же график вы почти моментально будете видеть на экране. Excel просто не очень хорош для таких вычислений. Вместо VBA попробуйте С.


Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Забавные задачки
СообщениеДобавлено: 24 май 2023, 23:42 
Не в сети
Аватара пользователя

Зарегистрирован: 06 авг 2020, 16:18
Сообщения: 2197
Когда-то я изучал аналоговыю машину и даже выполнял на ней лабораторную работу (колебания связанных маятников). Изучал и С++, но без практики все забыл...
К тому же в C++ нужно программировать с нуля, а Excel предоставляет кучу готовых объектов со свойствами и процедурами. Очень мощная и гибкая система, позвпляет решать любые задачи, не тратя много времени на написание и отладку программ. и тут же автоматически строить графики.
Но речь сейчас не о том.
Речь о том, можно ли так считать, как в моем предыдущем сообщении. Вроде как pourquoi pas?

_________________
Мудрость - это понимание своего бессилия перед глупостью.
Во имя овса и сена, и свиного уха


Последний раз редактировалось Alexander 24 май 2023, 23:58, всего редактировалось 1 раз.

Вернуться к началу
 Профиль  
 
 Заголовок сообщения: Re: Забавные задачки
СообщениеДобавлено: 24 май 2023, 23:57 
Не в сети
Аватара пользователя

Зарегистрирован: 17 авг 2012, 21:37
Сообщения: 37275
Откуда: Новороссийск
Да вроде как да. Просчитали бы несколько точек по разным методикам, вдруг несовпадение сразу ответит на вопрос.


Вернуться к началу
 Профиль  
 
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ Сообщений: 4775 ]  На страницу Пред.  1 ... 362, 363, 364, 365, 366, 367, 368 ... 478  След.

Часовой пояс: UTC + 4 часа


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

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


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

Найти:
Перейти:  
Powered by phpBB® Forum Software © phpBB Group
Русская поддержка phpBB