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

@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 - просто переменная. В математике заданную наперед малую величину (точность) принято обозначать греческими буквами ε , δ и т.д. Будешь учить Матанализ - вспомнишь.

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

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

	Ряды. Вычислить с заданной точностью значение функции, используя ее разложение в ряд 01.06.2012, 12:01. Показов 2586. Ответов 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 Супер-модератор 38195 / 21128 / 4309 Регистрация: 12.02.2012 Сообщений: 34,733 Записей в блоге: 14
	01.06.2012, 15:59
	Лучше, конечно, поставить. Но 0 и 1 будут и так преобразованы к типу double 0

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