Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Решение трансцендентного уравнения - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Решение трансцендентного уравнения
Решение трансцендентного уравнения
dolka Дата: Воскресенье, 24.08.2014, 15:48 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Написана программа на VBA для решения трансцендентного уравнения в Excel
f = 9000 / (550 - x) + 80 * Sin(5.5 * x*Pi/180) + 100 * Sin(4.5 * x*Pi/180) - 29 * Cos(3.5 * x*Pi/180).
Но результаты программных расчетов не совпадают с расчетами по формулам Excel и MathCAD.
В уравнении в тригонометрических функциях аргументы в радианах,
Если использовать функцию как есть, то VBA отказывается считать. Если убрать Pi/180, результат неправильный (на отрезке [56;76] с точностью 0,001 должен быть результат 70,538, а не 71,674)
Кто знает, как задать такую функцию в VBA, отпишите, пож-та
К сообщению приложен файл: 4429668.zip (10.1 Kb)
 
Ответить
СообщениеНаписана программа на VBA для решения трансцендентного уравнения в Excel
f = 9000 / (550 - x) + 80 * Sin(5.5 * x*Pi/180) + 100 * Sin(4.5 * x*Pi/180) - 29 * Cos(3.5 * x*Pi/180).
Но результаты программных расчетов не совпадают с расчетами по формулам Excel и MathCAD.
В уравнении в тригонометрических функциях аргументы в радианах,
Если использовать функцию как есть, то VBA отказывается считать. Если убрать Pi/180, результат неправильный (на отрезке [56;76] с точностью 0,001 должен быть результат 70,538, а не 71,674)
Кто знает, как задать такую функцию в VBA, отпишите, пож-та

Автор - dolka
Дата добавления - 24.08.2014 в 15:48
Pelena Дата: Воскресенье, 24.08.2014, 16:10 | Сообщение № 2
Группа: Админы
Ранг: Местный житель
Сообщений: 19197
Репутация: 4423 ±
Замечаний: ±

Excel 365 & Mac Excel
Так подойдёт?
К сообщению приложен файл: trans.xls (46.5 Kb)


"Черт возьми, Холмс! Но как??!!"
Ю-money 41001765434816
 
Ответить
СообщениеТак подойдёт?

Автор - Pelena
Дата добавления - 24.08.2014 в 16:10
dolka Дата: Воскресенье, 24.08.2014, 21:44 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 2
Репутация: 0 ±
Замечаний: 0% ±

Еще как пойдет.
Спасибо, если честно, не ожидала
 
Ответить
СообщениеЕще как пойдет.
Спасибо, если честно, не ожидала

Автор - dolka
Дата добавления - 24.08.2014 в 21:44
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Решение трансцендентного уравнения
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!