The summary

In a report tj the course work presented for solving some surveying tasks with the help of programs like MS Excel, MathCad, MatLab and Visual Basic.

The paper consists of 25 page of text, 20 figures, graphs and tables, bibliography of 5 point.

Оглавление

Введение 5

1 Расчет неприступного расстояния. 6

2 Решение прямой угловой засечки по формулам Юнга……………………...10

3 Решение прямой угловой засечки по формулам Гаусса. 14

4 Решение обратной угловой засечки по формулам Пранис-Праневича. 18

Заключение. 22

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

Введение

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

Так, для расчетов предствленных виде таблицы, удобнее всего использовать пакет программ MS Office, а именно MS Excel. Он позволяет проделывать основные расчеты, а так же предоставить результаты в удобном табличном виде.

Для более сложных расчетов можно использовать такие программы как MathCad, MatLab, Visual Basic.

1 Расчет неприступного расстояния

В данной задаче необходимо вычислить расстояние от точки А до точки В, между которыми располагаются неприступное препятствие (рис. 1).

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

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

Теорема синусов для треугольника авс1:

.

Среднее значение AB:

.

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

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

Рис. 2.Рабочее окно MSExcelпри вычислении неприступного расстояния.

Результат вычисления неприступного расстояния в МS Excel: АВ=223,399 м.

Затем решение осуществлялось средствами MathCAD [3]. В результате чего был получен следующий вид вычисления неприступного расстояния:

Рис. 3 Рабочее окно MathCadпри вычислении неприступного расстояния.

Результат вычисления неприступного расстояния в MathCAD АВ=223.399 м.

Далее решение выполнялось средствами MatLab. Результат представлен на рис. 3.

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

clc

ac1=input('AC1->');

ac2=input('AC2->');

ac3=input('AC3->');

ac4=input('AC4->');

d1g=input('d1(grad)->');

d2g=input('d2(grad)->');

d3g=input('d3(grad)->');

d4g=input('d4(grad)->');

d1m=input('d1(min)->');

d2m=input('d2(min)->');

d3m=input('d3(min)->');

d4m=input('d4(min)->');

b1g=input('b1(grad)->');

b2g=input('b2(grad)->');

b3g=input('b3(grad)->');

b4g=input('b4(grad)->');

b1m=input('b1(min)->');

b2m=input('b2(min)->');

b3m=input('b3(min)->');

b4m=input('b4(min)->');

d1=d1g+d1m/60;

d2=d2g+d2m/60;

d3=d3g+d3m/60;

d4=d4g+d4m/60;

b1=b1g+b1m/60;

b2=b2g+b2m/60;

b3=b3g+b3m/60;

b4=b4g+b4m/60;

AB1=(ac1*sin(b1*pi/180))/sin((180-d1-b1)*pi/180);

AB2=(ac2*sin(b2*pi/180))/sin((180-d2-b2)*pi/180);

AB3=(ac3*sin(b3*pi/180))/sin((180-d3-b3)*pi/180);

AB4=(ac4*sin(b4*pi/180))/sin((180-d4-b4)*pi/180);

AB =(AB1+AB2+AB3+AB4)/4

Рис. 4 Рабочее окно MatLabпри вычислении неприступного расстояния.

Результат вычисления неприступного расстояния в MatLab

АВ=223.399 м.

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

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

Private Sub Command1_Click()

Cls

AC1 = Val(Text1.Text): AC2 = Val(Text2.Text): AC3 = Val(Text3.Text): AC4 = Val(Text4.Text)

pi = 3.14

d1 = Val(Text5.Text) + Val(Text9.Text) / 60

d2 = Val(Text6.Text) + Val(Text10.Text) / 60

d3 = Val(Text7.Text) + Val(Text11.Text) / 60

d4 = Val(Text8.Text) + Val(Text12.Text) / 60

b1 = Val(Text13.Text) + Val(Text17.Text) / 60

b2 = Val(Text14.Text) + Val(Text18.Text) / 60

b3 = Val(Text15.Text) + Val(Text19.Text) / 60

b4 = Val(Text16.Text) + Val(Text20.Text) / 60

AB1 = AC1 * (Sin(b1 * pi / 180) / Sin((180 - d1 - b1) * pi / 180))

AB2 = AC2 * (Sin(b2 * pi / 180) / Sin((180 - d2 - b2) * pi / 180))

AB3 = AC3 * (Sin(b3 * pi / 180) / Sin((180 - d3 - b3) * pi / 180))

AB4 = AC4 * (Sin(b4 * pi / 180) / Sin((180 - d4 - b4) * pi / 180))

AB = (AB1 + AB2 + AB3 + AB4) / 4

Print "AB(среднее)="; AB

End Sub

Рис. 5 Рабочее окно VisualBasicпри вычислении неприступного расстояния.

Результат вычисления неприступного расстояния в Basic 6.0 приблизительно АВ=223.408 м