Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Задачка на метод последовательного приближения в VBA (Excel) / 4 сообщений из 4, страница 1 из 1
04.07.2014, 09:12
    #38687488
Dmitry1238
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
капитанская дочка
капитанская дочка
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задачка на метод последовательного приближения в VBA (Excel)
Dmitry1238,

уроки аль лекции прогулял? точ такая же задача как у тя решена здесь
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
13.07.2014, 00:54
    #38695199
Volodbka
Volodbka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задачка на метод последовательного приближения в 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
Volodbka
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Задачка на метод последовательного приближения в VBA (Excel)
осталось только вспомнить что такое - метод последовательных приближений
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Задачка на метод последовательного приближения в VBA (Excel) / 4 сообщений из 4, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 165ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2156274]:
 0ms
get settings:
 10ms
get forum list:
 15ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 61ms
get topic data:
 10ms
get forum data:
 3ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 15ms
total:  165ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]