С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
didimozg
1 / 1 / 0
Регистрация: 22.04.2014
Сообщений: 70
1

Вычислить функцию, используя ее разложение в степенной ряд

13.05.2014, 22:58. Просмотров 665. Ответов 3
Метки нет (Все метки)

Нужно разложить функцию в ряд. Функция на скрине
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
    Dim x As Single, y As Single
    Dim n As Integer
    Const e = 0.001
    
    For x = -1 To 1 Step 0.1
        y = 0
        n = 1
        y = -x
        Do While Abs(y) - Abs(Round(Log(1 - x), 4)) <= e
            n = n + 1
            y = -(x ^ n) / n + y
        Loop
        Print Round(x, 4); Round(y, 4)
    Next x
Делаю так - получаю переполнение по N.
Сможет кто сказать что не так?
Вычислить функцию, используя ее разложение в степенной ряд
0
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
13.05.2014, 22:58
Ответы с готовыми решениями:

Вычислить функцию, используя ее разложение в степенной ряд
для х изменяющегося от a до b с шагом h=b-a/10 вычислить функцию f(x)используя...

Вычислить функцию, используя ее разложение в степенной ряд
решить в VB 6.0 для х изменяющегося от a до b с шагом h=b-a/10 вычислить...

Вычисление функции, используя ее разложение в степенной ряд
Ребята, помогите составить програмку Вычислить функцию, используя ее...

Ряды. Вычислить с заданной точностью значение функции, используя ее разложение в ряд
y=ln(x+1)=x - (x^2)/2 + (x^3)/3 - (x^4)/4 + ... для -1&lt;x&lt;=1;

Как можно запустить прогу, не используя функцию Shell, а используя API функцию?
Привет Всем! Подскажите, как можно запустить прогу, не используя функцию...

3
sco43
670 / 163 / 22
Регистрация: 27.01.2012
Сообщений: 372
13.05.2014, 23:42 2
Лучший ответ Сообщение было отмечено didimozg как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Command1_Click()
Form1.Cls
   Dim x As Single, y As Single
    Dim n As Long
    Const e = 0.001
    y = 0
    For x = -1 To 1 Step 0.1
        n = 1
        y = -x
        Do While Abs(Abs(y) - Abs(Log(1 - x))) >= e
            n = n + 1
            y = -(x ^ n) / n + y
            DoEvents
        Loop
        Print Round(x, 4); Round(y, 4); Round(Log(1 - x), 4)
        y = 0
    Next x
End Sub
1
didimozg
1 / 1 / 0
Регистрация: 22.04.2014
Сообщений: 70
09.06.2014, 00:31  [ТС] 3
еще разок подыму эту тему.
Нужна помощь с другим примером
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
    x = 0.2
    Const e = 0.001
    
    j = 1
    n = 2
    fac = 1
    sum = x
 
    Do While Abs(sum) - Abs(Sin(x)) >= e
        For i = 1 To j
            fac = fac * i
        Next i
      
        sum = sum + (-1) ^ (n - 1) * (x ^ (2 * n - 1)) / fac
        j = j + 2
        n = n + 1
        fac = 1   
    Loop
Вычислить функцию, используя ее разложение в степенной ряд


При любом Х получаю какую то фигню.
В чем я неправ?
0
gaw
6633 / 1500 / 169
Регистрация: 09.01.2010
Сообщений: 4,274
10.06.2014, 00:24 4
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
    Const e = 0.001
  For x = 0 To 10
    i = 1
    fac = 1
    Sum = 0
   c = 1
    Do
      sum1 = Sum
        Sum = Sum + c * (x ^ i) / fac
        c = -c
        i = i + 2
        fac = fac * i * (i - 1)
    Loop While Abs(Sum - sum1) >= e
    Print "Sin("; x; ")="; Sum
  Next x
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
10.06.2014, 00:24

Используя процедуру или функцию, вычислить выражение
используя процедуру или функцию, вычислить

Разложение функции в ряд фурье
собственно нужно разложить функцию в ряд Фурье до 50 члена, как пример дан sin...

Разложить, используя ряд Тейлора; найти сумму
Уважаемые посетители форума, прошу Вас о помощи. Разложить с помощью ряда...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru