Дипломы теплотехников / мой диплом / ЗАПИСКА / Приложение Е

ПРИЛОЖЕНИЕ Е

Программа “Метод сглаживания по пяти точкам”

CLS

4 PRINT "Введите число точек n=": INPUT "", n

IF n < 5 THEN PRINT "НЕПРАВИЛЬНОЕ ЗАДАНИЕ КОЛИЧЕСТВА ТОЧЕК": GOTO 4

DIM y(n)

PRINT "начальное значение времени t0=": INPUT "", t0

PRINT " конечное значение времени tn=": INPUT "", tn

h = (t0 + tn) / (n - 1)

FOR i = 1 TO n

PRINT " y("; i - 1; ")=": INPUT "", y(i): NEXT i

y(1) = (3 * y(1) + 2 * y(2) + y(3) - y(4)) / 5

y(2) = (4 * y(1) + 3 * y(2) + y(3) + y(4)) / 10

FOR i = 3 TO n - 2

y(i) = (y(i - 2) + y(i - 1) + y(i) + y(i + 1) + y(i + 2)) / 5: NEXT i

y(n - 1) = (y(n - 3) + 2 * y(n - 2) + 3 * y(n - 1) + 4 * y(n)) / 10

y(n) = (3 * y(n) + 2 * y(n - 1) + y(n - 2) - y(n - 3)) / 5

CLS

PRINT "Сглаженные значения и время"

k = 1

FOR i = 1 TO n

t = t0 + (i - 1) * h

PRINT "y("; i - 1; ")="; y(i); TAB(20); "t("; i-1; ")="; t; ""

IF i < k * 10 THEN : GOTO 1

PRINT "запишите значения и нажмите Enter": INPUT "", enter

k = k + 1

CLS

PRINT "Сглаженные значения и время": GOTO 1

1 NEXT i

3 PRINT "КОНЕЦ работы программы" END

141