《常用测绘C#程序设计(源代码)》由会员分享，可在线阅读，更多相关《常用测绘C#程序设计(源代码)（50页珍藏版）》请在金锄头文库上搜索。
1、常用测量程序设计（1)用全站仪在A点观测了B点斜边和垂直角，求到B的高差。(提示：，D-斜边，垂直角，-仪器高,-反光镜高，-大气折光系数）using Sysem;usingstColections.Gneri;using Sstem.ext;namepe osoleAppliatin1 class Applicto sti voi Mn(sting ars) Cool.Wie(请输入斜边=); double D double.Parse(CooleadLie（); Console.it（请输入垂直角ddd.mss=)； ubl aE(doul.arse(onole.Read()）); Con
2、sl.rie(请输入仪器高=); dobl i = oubleParse（Console.eadLin（); Cnsoe.Wre(请输入反光镜高)； doble v = obe.Parse（Conole.ReaLine(); doubl= Math.Sin(a)+( - 0.1) * D /31000. D 637100. *at.s(a) * Mt.Cos() / 20 + i ; onsle.Writeine(高差为0,h)； /将dd.mmss转为弧度 tatic pblicdoube DE(dobl ang) int uhao =(nt）(ang Mth.Abs(an); an Mat
3、.Abs(an); n d= (nt)an; int m =(（int)(g 10)-d * 100; double s =ang * 0000 - m *10- d *100； reun (（+ m / 60. +s / 300.0) * fao）/ 18.0 Math.PI； (2）如图所示，已知点的坐标及A点到B点的边长及方位角,计算B点的坐标。uing ysem；using System.ColectoGeneic；using Syste.Te;namspac Conslpplicaton clas Aplication staic oi Man(sting ars) Conol.Wr
4、te（请输入A点的X坐标=); doubl = doublerse(ConsoleReLine(）; Conoe.Wrie（请输入A点的Y坐标); double YA = dube.ase(Cnsole.eadie()； ConsolWite(请输入A到B的方位角dddmm=); doble a= DE（doube.Ps（Console.ReadLine（)）; Csole.ite（请输入A到B的水平距离=); doubl S = oule.Pas(Console.ReadLne()）; oube XB = XA + *Mats(a）; double B YA + S*athSn(a); on
5、ol.rteLine(B点的坐标(,）,XB,YB); /将d.mmss转为弧度 satic publicouble DEG(dleang) it fha= (in）(a / Mat.Abs(ang); =Math.As(ag）; int d = (int)ang； in m (int)(ang*100)-d * 1; does= ang * 1 * 10 -d*10000; rturn(d m /600 s /3600.0) *fuhao) / 100*Math.P; (3）如图所示，已知点和点的坐标，计算A点到的边长及方位角。using Sytm;uingSystem.Collctions
6、.Generic；usg steet；amspceCnsoeApplaio1 class Apliaon stic vidin(strin rs) Conole.Write(请输入A点的X坐标=); doub A doublePase(Consl.Reaine（); Console.ite（请输入A点的坐标); dobl A = ule.Pare(onsle.Redine(）); Cose.Wite(请输入B点的坐标=); dubeB = doule.ae(Conleeadie(); osoe.Wre（请输入B点的坐标=); dueYBouble.arse(Consle.RedLine(）;
7、dube S = 距离（XA，YA， B, B）; doble = 方位角(XA, YA, XB,YB）； ConsolWriteLin（A间的距离=0，从A到的方位角，S,MS（a）)； /将弧度转为ddd.mms statpbl doubl DMS(ouble n) ang = 10-15;/加上一种小量,以保证进位 it uao= (int）(ang / Mahb（ang); ag MAbs（ang) 180.0/Mat.PI; in (in)g; ang =(ag d) * 60.0; int m （t)ang; uble (ng - )* 60.； etur(d+m 1.0 + s / 100000)* fuhao; /计算方位角,返回弧度值 pubc statc doble 方位角(ou x1, duble y1, uble x2, ubley2） double dea = x -x1; dubdelta = y2 y; double ngle ahI* 0.5; f (MhAbs(lta） 0.) age MathAtan2(deltY, detaX）; i (angle 2 * Mat.PI) -= 2*Math.；
