10,11 (Программы 2)
Описание файла
Файл "10,11" внутри архива находится в папке "Программы 2". Документ из архива "Программы 2", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "10,11"
Текст из документа "10,11"
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)
Return x + y
End Function
Sub Main()
Dim x, y As Double
Dim x0 As Double = 0
Dim y0 As Double = 0
Dim xk As Double = 1
Dim h As Double = 0.1
Dim dx As Integer = CInt((xk - x0) / h)
Console.WriteLine(" Начальное условие : х0 = {0}, у0 = {1}", x0, y0)
Console.WriteLine()
Console.WriteLine(" х_кон. = {0} шаг по х: {1}", xk, h)
Console.WriteLine()
Console.WriteLine(" х м-д Эйлера Точное значение Погрешность")
Console.WriteLine("--------------------------------------------------------")
x = x0
y = y0
Console.WriteLine(" {0,3:f1} {1,8:f4} {2,10:f4} {3,12: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,3:f1} {1,8:f4} {2,10:f4} {3,12:f4} ", x, y, T(x), T(x) - y)
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 t0 As Double = 0
Dim P0 As Double = 0
Dim tk As Double = 500
Dim h As Double = 10
Dim t, P As Double
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]")
t = t0
P = P0
Console.WriteLine(" {0,10}; {1}", t, P)
For i As Integer = 1 To dt
P = P + h * Pt(t, P)
t = t + h
Console.WriteLine(" {0,10}; {1}", t, P)
Next i
Dim out As StreamWriter
out = New StreamWriter("11.csv")
out.WriteLine(" t; [P]")
For i As Integer = 1 To dt
out.WriteLine("{0,10}; {1}", t, P)
Next i
out.Close()
Console.ReadLine()
End Sub
End Module