Задача 12.1 (Программы 3)
Описание файла
Файл "Задача 12.1" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Задача 12.1"
Текст из документа "Задача 12.1"
For i As Integer = 0 To CInt((xm - x0) / dx) - 1
n = 1
e = 1
Do While Math.Abs(e) >= apr
y2n = ycur
yn = ycur
h1 = dx / 2 ^ (n - 1)
h2 = dx / 2 ^ n
jm = CInt(2 ^ (n - 1))
For j As Integer = 0 To jm - 1
yn = yn + f2(xcur + j * h1, yn) * h1
Next j
jm = CInt(2 ^ n)
For j As Integer = 0 To jm - 1
y2n = y2n + f2(xcur + j * h2, y2n) * h2
Next j
e = (y2n - yn) / yn
n += 1
Loop
ycur = y2n
xcur = x0 + dx * (i + 1)
output.WriteLine("{0,3:f1} {1,6:f4} {2,9:e1} {3,9:e1} {4,3}", xcur, ycur, f2(xcur, ycur), dx / jm, jm)
Next i