Задача 13(4) (Программы 3)
Описание файла
Файл "Задача 13(4)" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Задача 13(4)"
Текст из документа "Задача 13(4)"
Option Strict On
Imports System.IO
Module Module1
Const m As Double = 1
Function dU(ByVal x As Double) As Double
Return (-2 * Math.Exp(-x) * (1 - Math.Exp(-x))) / m
End Function
Sub Main()
Dim t0 As Double = 0
Dim tk As Double = 30
Dim h As Double = 0.001
Dim n As Double = 0
Dim k As Double = 0
Dim q, w As Double
Dim vel As Double = 0
Dim x As Double
Dim v As Double
Dim text As StreamWriter = New StreamWriter("13.csv")
Console.WriteLine("введите x")
q = Double.Parse(Console.ReadLine())
v = 0
text.WriteLine("{0};{1};{2}", t0, x, v)
For t = t0 + h To tk Step h
x = q + h * w
v = w + h * dU(q)
text.WriteLine("{0};{1:F14};{2:F14}", t, x, v)
Console.WriteLine("{0};{1:F14};{2:F14}", t, x, v)
If v / w < 0 Then
k = n + k
n = n + 1
vel = vel + t
End If
q = x
w = v
x = x + h
Next t
Console.WriteLine("T = {0}", vel / k * 2)
text.WriteLine(dU(x))
text.Close()
Console.ReadLine()
End Sub
End Module