Задачка на метод последовательного приближения в VBA (Excel) / Visual Basic

2.0.52

Планшетная версия Контакт Правила FAQ Помощь

Гость

Нов. | Гор. | Избр.

Действия ...

Доб. в избранное
Игнор. тему
Прикреп. тему
Пометить прочит. / непрочит.
Фильтр:
Сообщения автора темы
Сообщение содержит вложения
Сообщение содержит картинки
Сообщение содержит видеоклипы
Сообщение содержит аудиоклипы
Сообщение содержит картинки или видео 18+

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Задачка на метод последовательного приближения в VBA (Excel) / 4 сообщений из 4, страница 1 из 1

04.07.2014, 09:12

#38687488

Dmitry1238

Гость

Задачка на метод последовательного приближения в VBA (Excel)

Всем привет! У меня возникли трудности с решением задачки, так как к сожалению мои познания в програмировании стремятся к нулю. Задача следующая:
Дано: Q0=3000000 t1=320 t3=278.5 F=24460 k=5.25
Задаем t2

tлог=(t1-t2)/ln(1+(t1-t2)/(t2-t3))

Q1= k*F*tлог

Необходимо, чтобы программа подобрала такое значение t2, чтобы равенство Q0=Q1 выполнялось с погрешностью не более 1%.
Так же необходимо вывести полученное значение t2 в ячейку Excel.

Прошу вашей помощи!

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

04.07.2014, 11:25

#38687683

капитанская дочка

Участник

Сообщения: 305
Рейтинг: 0 / 0

Задачка на метод последовательного приближения в VBA (Excel)

Dmitry1238,

уроки аль лекции прогулял? точ такая же задача как у тя решена здесь

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

13.07.2014, 00:54

#38695199

Volodbka

Участник

Сообщения: 329
Рейтинг: 0 / 0

Задачка на метод последовательного приближения в VBA (Excel)

Dmitry1238, проверяй

Код: vbnet

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.

Sub Dmitry1238()
Dim Q0, Q1
Dim t1, t2, t3
Dim tlog, f, k

Q0 = 3000000
t1 = 320
t3 = 278.5
f = 24460
k = 5.25

For t2 = 1000 To 0 Step -0.1
tlog = (t1 - t2) / (Log(1 + (t1 - t2) / (t2 - t3)) / Log(Exp(1)))
Q1 = k * f * tlog
If Abs((Q1 - Q0) / Q1) < 0.01 Then Exit For
Next t2

MsgBox "t2=" & t2 & Chr(10) & "Q1=" & Q1

End Sub

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

13.07.2014, 01:10

#38695202

Volodbka

Участник

Сообщения: 329
Рейтинг: 0 / 0

Задачка на метод последовательного приближения в VBA (Excel)

осталось только вспомнить что такое - метод последовательных приближений

...

Рейтинг:

0 / 0

| Ответить | Цитировать | Написать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/moderation_log.php?user_name=%D0%B2%D0%BE%D0%BA%D0%B8%D0%BD%D1%82%D1%80%D0%BE%D0%BF]:	0ms
get settings:	10ms
get forum list:	14ms
get settings:	9ms
get forum list:	11ms
check forum access:	8ms
check topic access:	8ms
track hit:	68ms
get topic data:	10ms
get forum data:	3ms
get page messages:	48ms
get tp. blocked users:	1ms
others:	1161ms

total:	1351ms