Курсовая работа: Использование современной компьютерной техники и программного обеспечения для решения прикладных задач в области геодезических измерений

yP23:=y2+(((y3-y2)*sin(RB2P3))/(sin(Alfa23)*sin(RB1P2+RB2P3)))*sin(Alfa23-RB1P2);

                            Writeln('koordinaty iskomogo pynkta');

                            Writeln(t2,'Координаты искомого пункта');

                            Writeln('x1-2=');

                            Writeln(t2,'x1-2=');

                            Writeln(xP12:6:2);

                            Writeln(t2,xP12:6:2);

                            Writeln('y1-2=');

                            Writeln(t2,'y1-2=');

                            Writeln(yP12:6:2);

                            Writeln(t2,yP12:6:2);

         Writeln('x2-3=');

                            Writeln(t2,'x2-3=');

                            Writeln(xP23:6:2);

                            Writeln(t2,xP23:6:2);

                            Writeln('y2-3=');

                            Writeln(t2,'y2-3=');

                            Writeln(yP23:6:2);

                            Writeln(t2,yP23:6:2);

srX:=(xP12+xP23)/2;

srY:=(yP12+yP23)/2;

                            Writeln('Srednee X');

                            Writeln(t2,'Среднее X');

                            Writeln(srX:6:2);

                            Writeln(t2,srX:6:2);

                            Writeln('Srednee Y');

                            Writeln(t2,'Среднее Y');

                            Writeln(srY:6:2);

                            Writeln(t2,srY:6:2);

Writeln('chtenie iz faila "in.txt", zapic v "out.txt"');

End;

Close (t1);

Close (t2);

Readkey;

End.

2.6. Содержание фаила «in.txt»

Пункт №1:

Координата X:

5935.51

Координата Y:

5441.24

Горизонтальный угол B1:

Градусы

98

Минуты

4

Секунды

30

-------------------------------

Пункт №2:

Координата X:

5687.41

Координата Y:

5172.76

Горизонтальный угол B1:

Градусы

63

Минуты

0

Секунды

12

Горизонтальный угол B2:

Градусы

41

Минуты

54

Секунды

46

-------------------------------

Пункт №3:

Координата X:

5142.93

Координата Y:

5460.08

Горизонтальный угол B2:

Градусы

54

Минуты

19

Секунды

48

-------------------------------

2.7 Результаты программы

Рис.2.3 Результаты в Turbo Pascal.

Содержание фаила «rezultat.txt»

Приращения

По оси X для 1-2

-248.10

По оси Y для 1-2

-268.48

По оси X для 2-3

-544.48

По оси Y для 2-3

287.32

Румб 1-2

0.824829

Румб 2-3

0.485558

Для 1-2

III четверть

Дирекционный угол равен(в радианах):

 3.966

Для 2-3

II четверть

Дирекционный угол равен(в радианах):

 2.656

Дирекционный угол 1-2 равен:

 227 градусов 15 минут 33 секунд

Дирекционный угол 2-3 равен:

 152 градусов 10 минут 46 секунд

Координаты искомого пункта

x1-2=

5695.54

y1-2=

5735.63

x2-3=

5695.50

y2-3=

5735.70

Среднее X

5695.52

Среднее Y

5735.67

2.8 Табличные вычисления в MS Excel

Рис.2.4 Проверка в MS Excel.

Рис. 2.5 Проверка в MS Excel в режиме отображения формул.

2.9 Вычисления в MathCad

Рис. 2.6 Проверка в MathCad 14.

2.10 Анализ

Таким образом, задача №2 (прямая угловая засечка) была решена с помощью языка программирования Turbo Pascal и затем была проверена с помощью табличного процессора Microsoft Excel 2007 и MathCad 14. Результаты решений совпали, что говорит о правильности выбранного алгоритма решения задачи.

3. Обратная геодезическая засечка

3.1 Теоретические сведения

На плоскости задана система точек  с известными координатами (xi, yi ). При использовании обратной геодезической засечки теодолит располагают непосредственно на точке Р , координаты которой требуется определить. На точки с известными координатами (их должно быть не менее трех) устанавливают визирные цели, после чего измеряют горизонтальные углы  (рис.3.1).

 P

 

 A1

 A2 

 A3

 Рис. 3.1. Схема обратной геодезической засечки

Для однозначного определения координат точки Р достаточно рассмотреть два треугольника, однако в этом случае решение задачи является бесконтрольным. Инструкции по проведению геодезических измерений требуют включать, как минимум, четыре точки с известными координатами и определять координаты вставляемой точки, соответственно, по трем или более треугольникам.

Избыточность исходных данных позволяет повысить надежность определения окончательных значений искомых величин за счет применения правила арифметического среднего.

Для определения координат вставляемой точки предварительно определяем вспомогательные величины n и m.

 (3.1)

 (3.2)

Далее находим углы  и определяем координаты вставляемой точки.

 (3.3)

 (3.4)

3.2 Постановка задачи

Обратная геодезическая засечка. Требуется определить координаты точки P по трем точкам с известными координатами и двум известным углам (каждый угол – угол между 2 соседними точками с вершиной в точке P).

3.3 Исходные данные

Табл. 3.1.

Исходные данные

3.4. Алгоритм для Turbo Pascal

Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9