Задача 13(3) (1107223)

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла

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

Function U(ByVal x As Double) As Double

Return (1 - Math.Exp(-x)) ^ 2

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 i As Integer

Dim vel As Double = 0

Dim x(CInt((tk - t0) / h)) As Double

Dim v(CInt((tk - t0) / h)) As Double

Dim text As StreamWriter = New StreamWriter("13.csv")

Console.WriteLine("введите x")

x(0) = CDbl(Console.ReadLine())

v(0) = 0

text.WriteLine("t;x(i);v(i)")

For t = t0 To tk Step h

i = CInt(t / h)

If t = 0 Then

text.WriteLine("{0};{1};{2}", t, x(0), v(0))

Else

x(i) = x(i - 1) + h * v(i - 1)

v(i) = v(i - 1) + h * dU(x(i - 1))

text.WriteLine("{0};{1:F14};{2:F14}", t, x(i), v(i))

If v(i) / v(i - 1) < 0 Then

k = n + k

n = n + 1

vel = vel + t

End If

End If

Next t

Console.WriteLine("T = {0}", vel / k * 2)

text.WriteLine("{0}", vel / k * 2)

text.Close()

Console.ReadLine()

End Sub

End Module

Характеристики

Тип файла документ

Документы такого типа открываются такими программами, как Microsoft Office Word на компьютерах Windows, Apple Pages на компьютерах Mac, Open Office - бесплатная альтернатива на различных платформах, в том числе Linux. Наиболее простым и современным решением будут Google документы, так как открываются онлайн без скачивания прямо в браузере на любой платформе. Существуют российские качественные аналоги, например от Яндекса.

Будьте внимательны на мобильных устройствах, так как там используются упрощённый функционал даже в официальном приложении от Microsoft, поэтому для просмотра скачивайте PDF-версию. А если нужно редактировать файл, то используйте оригинальный файл.

Файлы такого типа обычно разбиты на страницы, а текст может быть форматированным (жирный, курсив, выбор шрифта, таблицы и т.п.), а также в него можно добавлять изображения. Формат идеально подходит для рефератов, докладов и РПЗ курсовых проектов, которые необходимо распечатать. Кстати перед печатью также сохраняйте файл в PDF, так как принтер может начудить со шрифтами.

Список файлов лабораторной работы