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

@Mimie · Регистрация: 01.06.2012

Студворк — интернет-сервис помощи студентам

y=ln(x+1)=x - (x^2)/2 + (x^3)/3 - (x^4)/4 + ... для -1<x<=1;

@Catstail · 01.06.2012, 15:47

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Function Ln(x As Double, eps As Double) As Double
    s# = 0
    A# = x#
    n# = 1
    Do
      If Abs(A#) <= eps Then Exit Do
      s# = s# + A# / n#
      A# = -A# * x#
      n# = n# + 1
    Loop
    Ln = s#
End Function

@Linoge · 01.06.2012, 15:53

Не по теме:

Catstail,
а почему у нуля и единицы диез не поставили?

@Catstail · 01.06.2012, 15:59

Лучше, конечно, поставить. Но 0 и 1 будут и так преобразованы к типу double

@Mimie · 01.06.2012, 21:53 **[ТС]**

Catstail
Спасибо огромное, сначала испугался решения , если не тяжело:
Как использовать Function, к примеру с вводом значений в Х, и через:

Visual Basic
1
2
3
Private Sub Command1_Click()
 
End Sub

@Catstail · 03.06.2012, 08:42

Очень просто.

1) добавляешь на форму textbox (text1) - для ввода x;
label (label1) для результата и кнопку для запуска
2) В обработчике нажатия кнопки пишешь:

Visual Basic
1
2
3
4
Private Sub Command1_Click()
  xx#=Val(Me.Text1.text)
  Me.Label1.Caption=Cstr(F(xx#,0.0001)
End Sub

Если хочешь, можешь ввести еще один textbox (Text2) для ввода точности. Тогда:

Visual Basic
1
2
3
4
5
Private Sub Command1_Click()
  xx#=Val(Me.Text1.text)
  ee#=Val(Me.Text2.text)
  Me.Label1.Caption=Cstr(F(xx#,ee#)
End Sub

@Mimie · 03.06.2012, 11:05 **[ТС]**

Catstail
При вводе значения х = 1, Basik зависает и отказывается что либо делать.
Конечный вид программы:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Command1_Click()
  x# = Val(Text1.Text)
  Label1.Caption = CStr(Ln(x#, 0.0001))
End Sub
Function Ln(x As Double, eps As Double) As Double
    s# = 0
    A# = x#
    n# = 1
    Do
      If Abs(A#) <= eps Then Exit Do
      s# = s# + A# / n#
      A# = -A# * x#
      n# = n# + 1
    Loop
    Ln = s#
End Function

Все понял, все работает. Интересно узнать что означает эти 2 выражения:

Visual Basic
1
2
Abs
eps

@Catstail · 03.06.2012, 11:31

Abs - встроенная функция VB, вычисляющая абсолютную величину аргумента;
Eps - просто переменная. В математике заданную наперед малую величину (точность) принято обозначать греческими буквами ε , δ и т.д. Будешь учить Матанализ - вспомнишь.

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@Mimie 1 / 1 / 0 Регистрация: 01.06.2012 Сообщений: 5

	Ряды. Вычислить с заданной точностью значение функции, используя ее разложение в ряд 01.06.2012, 12:01. Показов 2561. Ответов 7 Метки нет (Все метки) y=ln(x+1)=x - (x^2)/2 + (x^3)/3 - (x^4)/4 + ... для -1<x<=1; 0

@Linoge
	01.06.2012, 15:53
	Не по теме: Catstail, а почему у нуля и единицы диез не поставили? 0

@Catstail Супер-модератор 38168 / 21103 / 4307 Регистрация: 12.02.2012 Сообщений: 34,691 Записей в блоге: 14
	01.06.2012, 15:59
	Лучше, конечно, поставить. Но 0 и 1 будут и так преобразованы к типу double 0

@Catstail Супер-модератор 38168 / 21103 / 4307 Регистрация: 12.02.2012 Сообщений: 34,691 Записей в блоге: 14
	03.06.2012, 11:31
	Abs - встроенная функция VB, вычисляющая абсолютную величину аргумента; Eps - просто переменная. В математике заданную наперед малую величину (точность) принято обозначать греческими буквами ε , δ и т.д. Будешь учить Матанализ - вспомнишь. 1