Лабораторная работа: Программы 2

Option Strict On

Module Module1

Function F(ByVal x As Double, ByVal y As Double) As Double

Return x + y

End Function

Function T(ByVal x As Double) As Double

Return Math.Exp(x) - x - 1

End Function

Sub Main()

Dim x, y, x1, y1 As Double

Dim x0 As Double = 0

Dim y0 As Double = 0

Dim xk As Double = 1

Dim h As Double = 0.1

Dim h1 As Double = 2 * h

Dim dx As Integer = CInt((xk - x0) / h1)

Console.WriteLine(" Начальное условие : х0 = {0}, y0 = {1}", x0, y0)

Console.WriteLine()

Console.WriteLine(" х_кон. = {0} шаг по х: {1}", xk, h)

Console.WriteLine()

Console.WriteLine(" х м-д Эйлера Точное значение Погрешность м-д Эйлера Погрешность ")

Console.WriteLine(" шаг h шаг h шаг 2h шаг 2h")

Console.WriteLine("--------------------- ---------------------------------------- ----------------")

x1 = x0

x = x0

y1 = y0

y = y0

Console.WriteLine("{0,4:f1} {1,9:f4} {2,10:f4} {3,10:f4} {4,12:f4} {5,12:f4} ", x, y, T(x), T(x) - y, y1, T(x1) - y1)

For i As Integer = 1 To dx

For j As Integer = 0 To 1

y = y + h * F(x, y)

x = x + h

Next j

y1 = y1 + h1 * F(x1, y1)

x1 = x1 + h1

Console.WriteLine("{0,4:f1} {1,9:f4} {2,10:f4} {3,10:f4} {4,12:f4} {5,12:f4} ", x, y, T(x), T(x) - y, y1, T(x1) - y1)

Next i

Console.ReadLine()

End Sub

End Module

Module Module1

Function T(ByVal x As Double) As Double

Return Math.Exp(x) - x - 1

End Function

Function F(ByVal x As Double, ByVal y As Double)

Return x + y

End Function

Sub Main()

Dim x0 As Double = 0

Dim y0 As Double = 0

Dim xk As Double = 1

Dim h As Double = 0.1

Dim steps As Integer = CInt((xk - x0) / h)

Dim y(steps) As Double

For i As Integer = 0 To steps

If i = 0 Then

y(0) = y0

Console.WriteLine()

End If

If i <> 0 Then

y(i) = y(i - 1) + h * F(x0 + (i - 1) * h, y(i - 1))

Console.WriteLine("{0} {1}", i * h, y(i))

End If

Next i

Console.ReadLine()

End Sub

End Module

Option Strict On

Module Module1

Function T(ByVal x As Double) As Double

Return Math.Exp(x) - x - 1

End Function

Function F(ByVal x As Double, ByVal y As Double) As Double

Return x + y

End Function

Sub Main()

Dim x, y, x1, y1 As Double

Dim x0 As Double = 0

Dim y0 As Double = 0

Dim xk As Double = 1

Dim h As Double = 0.1

Dim h1 As Double = 2 * h

Dim dx As Integer = CInt((xk - x0) / h1)

Console.WriteLine(" Начальное условие : х0 = {0}, y0 = {1}", x0, y0)

Console.WriteLine()

Console.WriteLine(" х_кон. = {0} шаг по х: {1}", xk, h)

Console.WriteLine()

Console.WriteLine(" х м-д Эйлера Точное значение Погрешность ")

Console.WriteLine(" шаг h шаг 2h шаг h шаг 2h шаг h шаг 2h")

Console.WriteLine("--------------------- ---------------------------------")

x1 = x0

x = x0

y1 = y0

y = y0

Console.WriteLine(" {0:f1} {1,8:f4} {2,12:f4} {3,14:f4}", x, y, T(x), T(x) - y)

For i As Integer = 1 To dx

y = y + h * F(x, y)

x = x + h

Console.WriteLine(" {0:f1} {1,8:f4} {2,8:f4} {3,8:f4} {4,8:f4} {5,12:f4} {6,12:f4}", x, y, y1, T(x), T(x1), T(x) - y, T(x1) - y1)

Next i

Console.ReadLine()

End Sub

End Module

Option Strict On

Imports System.IO

Module Module1

Dim k1 As Double = 0.05

Dim k2 As Double = 0.0065

Dim A0 As Double = 1

Function Pt(ByVal t As Double, ByVal P As Double) As Double

Return Math.Exp(-k1 * t) * k1 * A0 - k2 * P

End Function

Sub Main()

Dim out As StreamWriter

out = New StreamWriter("11.csv")

out.WriteLine(" <t>; <[P]>")

Dim t, P As Double

Dim t0 As Double = 0

Dim P0 As Double = 0

Dim tk As Double = 500

Dim h As Double = 10

Dim dt As Integer = CInt((tk - t0) / h)

Console.WriteLine(" Расчёт методом Эйлера кинетики хим. реакции")

Console.WriteLine()

Console.WriteLine(" Начальное значение t; {0}", t0)

Console.WriteLine(" Начальное значение P; {0}", P0)

Console.WriteLine(" Конечное значение t; {0}", tk)

Console.WriteLine(" Шаг интегрирования; {0}", h)

Console.WriteLine()

Console.WriteLine(" t; [P]")

For i As Integer = 0 To dt

Console.WriteLine(" {0,6}; {1}", t, P)

out.WriteLine(" {0,6}; {1}", t, P)

P = P + h * Pt(t, P)

t = t + h

Next i

out.Close()

Console.ReadLine()

End Sub

End Module

Возможно не удалось распознать кодировку файла

C:\Users\Анжела\documents\visual studio 2010\Projects\12\12\bin\Debug\12.exe

C:\Users\Анжела\documents\visual studio 2010\Projects\12\12\bin\Debug\12.pdb

C:\Users\Анжела\documents\visual studio 2010\Projects\12\12\bin\Debug\12.xml

C:\Users\Анжела\documents\visual studio 2010\Projects\12\12\obj\x86\Debug\Resolv eAssemblyReference.cache

C:\Users\Анжела\documents\visual studio 2010\Projects\12\12\obj\x86\Debug\Consol eApplication2.Resources.resources

C:\Users\Анжела\documents\visual studio 2010\Projects\12\12\obj\x86\Debug\Genera teResource.read.1.tlog

C:\Users\Анжела\documents\visual studio 2010\Projects\12\12\obj\x86\Debug\Genera teResource.write.1.tlog

C:\Users\Анжела\documents\visual studio 2010\Projects\12\12\obj\x86\Debug\12.exe

C:\Users\Анжела\documents\visual studio 2010\Projects\12\12\obj\x86\Debug\12.xml

C:\Users\Анжела\documents\visual studio 2010\Projects\12\12\obj\x86\Debug\12.pdb

C:\Users\Мария\Desktop\12\12\obj\x86\Deb ug\12.exe

C:\Users\Мария\Desktop\12\12\obj\x86\Deb ug\12.xml

C:\Users\Мария\Desktop\12\12\obj\x86\Deb ug\12.pdb

C:\Users\Анжела\AppData\Local\Temporary Projects\ConsoleApplication2\bin\Debug\C onsoleApplication2.exe

C:\Users\Анжела\AppData\Local\Temporary Projects\ConsoleApplication2\bin\Debug\C onsoleApplication2.pdb

C:\Users\Анжела\AppData\Local\Temporary Projects\ConsoleApplication2\bin\Debug\C onsoleApplication2.xml

C:\Users\Анжела\AppData\Local\Temporary Projects\ConsoleApplication2\obj\x86\Deb ug\ResolveAssemblyReference.cache

C:\Users\Анжела\AppData\Local\Temporary Projects\ConsoleApplication2\obj\x86\Deb ug\ConsoleApplication2.Resources.resourc es

C:\Users\Анжела\AppData\Local\Temporary Projects\ConsoleApplication2\obj\x86\Deb ug\GenerateResource.read.1.tlog

C:\Users\Анжела\AppData\Local\Temporary Projects\ConsoleApplication2\obj\x86\Deb ug\GenerateResource.write.1.tlog

C:\Users\Анжела\AppData\Local\Temporary Projects\ConsoleApplication2\obj\x86\Deb ug\ConsoleApplication2.exe

C:\Users\Анжела\AppData\Local\Temporary Projects\ConsoleApplication2\obj\x86\Deb ug\ConsoleApplication2.xml

C:\Users\Анжела\AppData\Local\Temporary Projects\ConsoleApplication2\obj\x86\Deb ug\ConsoleApplication2.pdb