The summary

In this paper we present a solution of geodetic problems by calculating the area of the coordinates of contour points and polar notches, using the table editor and MS Excel programming language Visual Basic 6.0.

The report contains 13 pages of text, 6 figures and references out of 3 points.

Оглавление

Оглавление 3

Введение 4

1. Вычисление площади по координатам контурных точек 6

Вычисление площади по координатам контурных точек: 6

Список литературы 13

Введение

Значительная часть работы геодезиста связана с проведением расчетов. В настоящее время основным вычислительным средством является персональный компьютер. Вычислительные возможности современных компьютеров реализованы как в программных средствах общего назначения, так и специализированном программном обеспечении.

Для решения многих задач, исходные данные и полученные результаты вычислений которых могут быть представлены в табличной форме, используют табличные процессоры (электронные таблицы) и, в частности, MS Ехсеl. Также имеется множество инженерных задач, для решения которых требуется применить язык программирования.

В данной работе использована среда языка программирования Visual Basic 6.0, электронные таблицы Microsoft Excel 2007 из пакета Microsoft Office, текстовой редактор Microsoft Word 2007 для оформления отчета о проделанной работе.

При выполнении работы были использованы материалы лекций и рекомендованные источники литературы.

1. Вычисление площади по координатам контурных точек

В данной задаче необходимо было вычислить площадь участка по координатам контурных точек (рис. 1). Вводится произвольное число контурных точек с их координатами (x,y) [1].

Рис. 1. Схема для вычисления площади по координатам контурных точек

Для того чтобы произвести вычисления использовалась следующая формула [1].

Вычисление площади по координатам контурных точек:

, (1)где Р – площадь участка, оконтуренного точками 1,2,3,…,n;

n – число контурных точек (неограниченное);

x_i, y_i – координаты контурной точки i.

Решение поставленной задачи производилось в разных программных продуктах: МS Excel и Visual Basic 6.0.

Задача была решена средствами МS Excel [2]. Результат представлен на рис. 2.

Главное условие решения данной задачи в МS Excel при введении координат точек, чтобы последняя строка в точности повторяла первую.

Рис. 2. Вычисление площади по координатам контурных точек,

выполненное средствами MSExcel

Результат вычисления площади по координатам контурных точек в МS Excel в данном примере Р=215000 м².

Решение данной задачи так же вычислялось средствами Visual Basic 6.0 [3]. Был получен следующий вид решения, результат которого представлен на рис. 3.

Программный код:

Sub s()

Dim x(100), y(100)

n = Worksheets("лист1").Cells(1, 1)

For i = 3 To n + 3

x(i - 2) = Worksheets("лист1").Cells(i, 1)

y(i - 2) = Worksheets("лист1").Cells(i, 2)

Next i

y(n + 1) = y(1): y(0) = y(n)

p = 0

For i = 1 To n

p = p + x(i) * (y(i + 1) - y(i - 1)): Next i

p = Abs(p) / 2

Cells(1, 8) = p

End Sub

Рис. 3. Результат вычисления программы в Basic6.0

Результат вычисления площади по координатам контурных точек в Basic 6.0 приблизительно Р=215000 м².