Протабулировать функцию y на отрезке [а, b] с шагом h - VB

Узнай цену своей работы

Формулировка задачи:

Протабулировать 1. функцию y на отрезке [а, b] с шагом h. 2. сумму S функционального ряда разложения этой функции на отрезке [а, b] с шагом h. Сравнить значения заданной функции и ее разложения. Все работает, но вот сумма ряда, начиная со второго, очень сильно отличается от значения функции, хотя они должны быть близки по значению. Может где-то есть ошибка? Помогите пожалуйста.

Решение задачи: «Протабулировать функцию y на отрезке [а, b] с шагом h»

textual
Листинг программы
Option Explicit
Dim a As Double, b As Double, h As Double, e As Double, s As Double
Dim q As Double, n As Double, x As Double, y As Double
Function f(x)
f = x * (3 - x) / (1 - x) ^ 3
End Function
Private Sub Command1_Click()
Picture1.Cls
Picture2.Cls
Picture3.Cls
a = Val(Text1)
b = Val(Text2)
h = Val(Text3)
e = 40 ^ (-5)
s = 0
   For x = a To b Step h
      y = f(x): s = 0
      For n = 1 To 50000
          q = n * (n + 2) * x ^ n
          s = s + q
          If Abs(q) < e Then Exit For
      Next n
      Picture3.Print s
      Picture1.Print x
      Picture2.Print y
    Next x
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.909 из 5
Похожие ответы