нку прямої кутової засічки за формулами Гаусса
Результат обчислення координат точки Р в MatLab м, м.
Рішення даного завдання завершувалося обчисленням координат точки Р засобами Visual Basic 6.0. Було отримано наступний вид рішення, результат якого представлений на рис. 12.
Програмний код:
Sub Command1_Click ()=Val (Text1 (0) .Text): Y1=Val (Text2.Text)=Val (Text6.Text): Y2=Val (Text7.Text)=Val (Text3.Text) + Val (Text4.Text)/60=Val (Text8.Text) + Val (Text9.Text)/60=3.1415926=a * pi/180=b * pi/180=(X1 * Tan (a) - X2 * Tan (b) - Y1 + Y2)/(Tan (a) - Tan (b))=Y1 + (xp - X1) * Tan (a) xp= raquo ;; xp, yp= raquo ;; ypSub
Рис. 12. Робоче вікно Visual Basic при розрахунку прямої кутової засічки за формулами Гаусса
Результат обчислення координат точки Р в Basic 6.0 приблизно м, м.
. Рішення зворотного кутовий зарубки за формулами Праніс-Праневіча
У цьому завданню необхідно було вирахувати координати точки P, за координатами трьох заданих точок 1, 2и 3 і двом кутам і (рис. 13).
Рис. 13. Схема для обчислення координат за формулами Праніс-Праневіча
Для обчислення координат точки P використовувалися формули Праніс-Праневіча:
,
де,
,
,
,
.
Спочатку задача була вирішена засобом МS Excel. Результат представлений на рис. 14.
Рис. 14.Рабочее вікно при розрахунку зворотної кутової засічки за формулами Праніс - Праневіча засобами МS Excel
Результат обчислення координат точки Р в МS Excel приблизно м, м.
Потім рішення здійснювалося засобами MathCAD. В результаті чого було отримано наступний вигляд обчислення координат точки Р:
Рис. 14.Рабочее вікно при розрахунку зворотної кутової засічки за формулами Праніс - Праневіча в MathCad
Результат виявився рівним м, м.
Далі рішення виконувалося засобами MatLab. Результат представлений на рис. 15.
Програмний код:
=input(laquo;x1-gt;raquo;);=input(laquo;y1-gt;raquo;);=input(laquo;x2-gt;raquo;);=input(laquo;y2-gt;raquo;);=input(laquo;x3-gt;raquo;);=input(laquo;y3-gt;raquo;);=input(laquo;a(grad)-gt;raquo;);=input(laquo;a(min)-gt;raquo;);=input(laquo;b(grad)-gt;raquo;);=input(laquo;b(min)-gt;raquo;);=ag+am/60;=bg+bm/60;=b*pi/180;=a*pi/180;=((y2-y1)/tan(a)-(y3-y2)/tan(b)+x1-x3)/((x2-x1)/tan(a)-(x3-x2)/tan(b)-y1+y3);=(y2-y1)*(1/tan(a)-tgq)-(x2-x1)*(1+1/tan(a)*tgq);=n/(1+tgq^2);=dx*tgq;=x2+dx=y2+dy
Рис. 14.Рабочее вікно при розрахунку зворотної кутової засічки за формулами Праніс - Праневіча в MatLab
Результат обчислення координат точки Р в MatLab м, м.
Рішення даного завдання завершувалося обчисленням координат точки Р засобами Visual Basic 6.0. Було отримано наступний вид рішення, результат якого представлений на рис. 16.
Програмний код:
Function ctg (x)=Cos (x)/Sin (x) FunctionSub Command1_Click ()=Val (txtx1.Text): Y1=Val (txty1.Text)=Val (txtx2.Text): Y2=Val ( txty2.Text)=Val (txtX3.Text): y3=Val (txty3.Text)=Val (txtag.Text) + Val (txtam.Text)/60=Val (txtbg.Text) + Val (txtbm.Text)/60=3.1415926=a * pi/180=b * pi/180=((Y2 - Y1) * ctg (a) - (y3 - Y2) * ctg (b) + X1 - x3)/((X2 - X1 ) * ctg (a) - (x3 - X2) * ctg (b) - Y1 + y3)=(Y2 - Y1) * (ctg (a) - tgq) - (X2 - X1) * (1 + ctg (a ) * tgq)=n/(1 + tgq * tgq)=dx * tgq=X2 + dx=Y2 + dy xp= raquo ;; xp, yp= raquo ;; ypSub
Рис. 14.Рабочее вікно при розрахунку зворотної кутової засічки за формулами Праніс - Праневіча в Visual Basic
Результат обчислення координат точки Р в Basic 6.0 приблизно м, м.
Висновок
Метою курсової роботи є вирішення базових геодезичних задач в різних програмних продуктах: MS Excel, MathCAD, MatLab, Visual Basic 6.0. Результати розрахунків завдань у різних програмах збіглися, що свідчить про правильність обчислень. Для остаточних результатів бралися середні значення рішень геодезичних задач всіх програмних продуктів. Отримані навички не замінні в подальших роботах в галузі геодезії.
Список літератури
геодезична задача програма рішення
1. Інформатика. Рішення базових геодезичних задач: Методичні вказівки до курсової роботи/Національний мінерально-сировинної університет «Гірський». Упоряд .: В.В.Глазков, А.Б.Маховіков. СПб, +2013. 52с.
. Серогодскій В.В., Прокди Р.Г. Excel 2010. Покроковий самовчитель + довідник користувача.- Наука
. Багнетів В.В. MathCAD. Керівництво щодо вирішення завдань для початківців.- Либроком, 2013.
. Васильєв А.Н. Mat lab.Самоучітель. Практичний підхід.- Наука і техніка, 2012
. Зіборов В. Visual Basic 2012 на прикл...
