Задача 13(1) (Программы 3)
Описание файла
Файл "Задача 13(1)" внутри архива находится в папке "Программы 3". Документ из архива "Программы 3", который расположен в категории "". Всё это находится в предмете "практика расчётов на пэвм" из 2 семестр, которые можно найти в файловом архиве МГУ им. Ломоносова. Не смотря на прямую связь этого архива с МГУ им. Ломоносова, его также можно найти и в других разделах. .
Онлайн просмотр документа "Задача 13(1)"
Текст из документа "Задача 13(1)"
Module Module1
Function U(ByVal x As Double)
Return -2 * Math.Exp(-x) * (1 - Math.Exp(-x))
End Function
Sub Main()
Dim x, v, t0, t, tk, dt As Double
x = 2 : v = 0 : t0 = 0 : tk = 30 : dt = 0.001 : t = 0
Console.WriteLine("t;x(t);u(t)")
For i As Integer = 0 To CInt((tk - dt) / dt)
Console.WriteLine("{0};{1};{2}", t, x, v)
x = x + v * dt
v = v + dt * U(x)
t = t + dt
Next (i)
If Math.Sign(v) Then
Else
t = 1 / 2
End If
Console.ReadLine()
End Sub
End Module