Метод Последовательный приближений / Visual Basic

ReSQL.ru

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

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Метод Последовательный приближений

4 сообщений из 4, страница 1 из 1

Метод Последовательный приближений

#38581649

megaded14

Гость

Здравствуйте, мне преподователь дал задание написать программу для расчета цикла ДВС. И я застопорился на нахождении одного параметра который ищется методом последовательных приближений или методом итераций. Найти нужно параметр n1, в формуле все остальные параметры известны.Вот фото уравнения для ясности http://www.radikal.ru][IMG] http://s020.radikal.ru/i723/1403/74/a7d29e100f09.jpg [/IMG]. Я лазил по форуму и вот что у меня получилось

Private Sub Command1_Click()
Dim sng0 As Single
Dim snqEps As Single
Dim lngCount As Long
Dim sngX As Single
Dim sngY As Single

sng0 = 1.34
snqEps = 0.0000001

sngX = sng0
lngCount = 0
sngY = (8.13 / (19.277 + (0.002515 * 344.836 * (1 + 14 ^ (sngX - 1))))) + 1 - sngX
Do
sngX = sngY
sngY = ((8.13 / (19.277 + (0.002515 * 344.836 * (1 + 14 ^ (sngX - 1))))) * sngX) + 1 - sngX
lngCount = lngCount + 0.000000001
Loop Until Abs(sngY - sngX) < snqEps
lbla.Caption = sngY
End Sub

Но но считает на правильно. Прошу помочь. Приделы числа n1=1,34...1,42

...

Рейтинг:

0 / 0

08.03.2014, 00:10

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

Метод Последовательный приближений

#38581653

megaded14

Гость

Код: vbnet

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

Private Sub Command1_Click()
Dim sng0 As Single
    Dim snqEps As Single
    Dim lngCount As Long
    Dim sngX As Single
    Dim sngY As Single
    
    sng0 = 1.34
    snqEps = 0.0000001
    
    sngX = sng0
    lngCount = 0
    sngY = (8.13 / (19.277 + (0.002515 * 344.836 * (1 + 14 ^ (sngX - 1))))) + 1 - sngX
    Do
        sngX = sngY
        sngY = ((8.13 / (19.277 + (0.002515 * 344.836 * (1 + 14 ^ (sngX - 1))))) * sngX) + 1 - sngX
        lngCount = lngCount + 0.000000001
    Loop Until Abs(sngY - sngX) < snqEps
    lbla.Caption = sngY
End Sub

...

Рейтинг:

0 / 0

08.03.2014, 00:18

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

Метод Последовательный приближений

#38581662

Казанский

Гость

Убрал из формул лишнее, получил 1,36 при 6 итерациях:

Код: vbnet

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

Private Sub Command1_Click()
Dim sng0 As Double
    Dim snqEps As Double
    Dim lngCount As Long
    Dim sngX As Double
    Dim sngY As Double
    
    sng0 = 1.34
    snqEps = 0.0000001
    
    sngX = sng0
    lngCount = 0
    sngY = 8.13 / (19.277 + 0.002515 * 344.836 * (1 + 14 ^ (sngX - 1))) + 1
    Do
        sngX = sngY
        sngY = 8.13 / (19.277 + 0.002515 * 344.836 * (1 + 14 ^ (sngX - 1))) + 1
        lngCount = lngCount + 1
    Loop Until Abs(sngY - sngX) < snqEps
    Debug.Print sngY, lngCount
End Sub

И забудьте про Single.

...

Рейтинг:

0 / 0

08.03.2014, 00:37

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

Метод Последовательный приближений

#38581674

megaded14

Гость

Казанский, спасибо большое за помощь, все сходиться))
а из-за параметра Sigle при удалении лишнего из формулы у меня программа зависала и из-за этого пол дня голову ломал

...

Рейтинг:

0 / 0

08.03.2014, 01:05

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

4 сообщений из 4, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Метод Последовательный приближений

Цитировать

Написать

Автор*:

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

Тема*:

Сообщение

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

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

Автор:

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

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

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

Вложение:

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

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

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

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

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

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

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

start [/forum/topic.php?fid=60&fpage=45&tid=2156472]:	0ms
get settings:	11ms
get forum list:	11ms
check forum access:	3ms
check topic access:	3ms
track hit:	46ms
get topic data:	12ms
get forum data:	3ms
get page messages:	38ms
get tp. blocked users:	1ms
others:	14ms

total:	142ms