测绘类C#程序代码

测绘类C#程序代码测绘类C#程序代码测绘类C#程序代码常用测量程序设计代码(１)用全站仪在A点观测了B点斜边和垂直角,求A到B得高差。(提示:,D--斜边,--垂直角,－-仪器高,-－反光镜高,－-大气折光系数)usinｇSｙstｅm;usinｇＳysteｍ、Collｅｃtｉｏns、Ｇeneric;ｕsｉngSystem、Text;ｎａmespaceCｏnsoｌeApplicatioｎ1{clａssApｐlｉcａtｉon{sｔatiｃvoｉdMaｉn(sｔrｉｎg{Coｎsole、Wriｔe(＂请输入斜边=");douｂleD＝ｄoubｌe、Parsｅ(Ｃonsole、ＲeadLine());Conｓoｌe、Wｒite("请输入垂直角[ddd、ｍmsｓ]=");ｄoublea=DEG(double、Ｐaｒｓe(Conｓoｌｅ、RｅａdLiｎｅ()));Consｏle、Ｗrite("请输入仪器高=＂);dｏublｅi=douｂlｅ、Parｓe(Conｓoｌｅ、ＲｅadLine());Consoｌe、Write("请输入反光镜高=");doｕbleｖ=dｏublｅ、Pａｒse(Cｏｎsoｌe、ReaｄＬine());ｄoubｌeh=D＊Maｔh、Sｉn(a)+(1-0、13)＊D/637100０、０＊Ｄ/6３71０0０、０*Mａth、Ｃos(ａ)＊Maｔh、Coｓ(a)/2、0+i-v;Ｃoｎｓole、WｒiteLiｎe(＂高差为{0}",ｈ);}／/将ddd、ｍmsｓ转为弧度staticpubｌiｃdoｕbleＤEＧ(doｕbleang){intfｕhao＝(int)(ang/Mａth、Ａbs(ａng));ａnｇ＝Mａth、Ａｂs(anｇ);iｎｔd=(inｔ)aｎg;intm＝((int)(ang*１00))-d*10０;doublｅs=aｎｇ*10000－m*10０-d＊1000０;ｒeturn((ｄ＋m／６０、0+s/3６0０、0)*fｕhaｏ)／1８0、0＊Ｍath、PI;}}}(２)如图所示,已知A点得坐标及A点到B点得边长及方位角,计算B点得坐标。uｓｉnｇSysteｍ;ｕｓingSystｅm、Ｃｏllections、Geｎeric;usiｎgSystem、Teｘt;nａｍespaceCｏnｓoleAｐｐlication1{cｌaｓsＡｐplicatｉon｛staticvｏidMａin(string{Cｏnsole、Write("请输入A点得X坐标＝＂);doubleXA=ｄoubｌｅ、Parse(Conｓoｌe、ReadLine());Coｎsｏｌe、Ｗrｉte("请输入A点得Y坐标=");doubleYA＝ｄoｕｂｌe、Parｓe(Ｃｏnsole、ReａdLine());Cｏnｓｏle、Write("请输入A到B得方位角[ｄdd、mmss］=");doubｌeａ=DEG(doubｌｅ、Parsｅ(Coｎsolｅ、RｅadＬｉne()));Consｏle、Ｗrite("请输入A到B得水平距离=");douｂleＳ=double、Ｐarｓe(Cｏnｓｏle、ReaｄLine());doubｌeXB＝XA＋S＊Math、Coｓ(a);doｕｂｌeYB=YA+S＊Ｍath、Sin(a);Consoｌe、WriteLiｎe("B点得坐标({0},{1})",ＸＢ,YB);}//将ｄdd、mmss转为弧度sｔａticｐublicdoubleＤEG(dｏubleang){intfuhao=(ｉnt)(ang／Math、Abs(ａng));ａnｇ=Math、Ａbs(ang);inｔd=(inｔ)ang;iｎtｍ=((int)(ang*1０0))-ｄ*100;douｂles=anｇ*100０0-m＊１00-d*100０0;rｅtｕrn((d+m／60、0+s/36０0、0)*fｕhaｏ)/1８0、０*Ｍaｔh、PＩ;}}｝(3)如图所示,已知A点和B点得坐标,计算A点到得边长及方位角。usiｎgSｙsteｍ;usｉnｇSｙsｔeｍ、Cｏllｅｃｔions、Gｅneric;usingSysteｍ、Text;namespaceCｏｎsolｅApｐｌiｃation1{claｓsApｐｌｉcatiｏｎ{ｓtaticvｏidMａin(strｉng[]arg｛Consｏle、Wriｔｅ("请输入A点得X坐标＝");doubｌeＸA=doｕbｌｅ、Pａrse(Cｏｎsoｌe、ReadLine());Cｏnsole、Write(＂请输入Ａ点得Y坐标=＂);doubleＹＡ=doubｌe、Ｐarsｅ(Console、ReａdLine());Consoｌe、Wrｉte(＂请输入Ｂ点得X坐标＝＂);doubleXB＝ｄoubｌe、Parｓｅ(Console、ReaｄLine());Consｏlｅ、Write("请输入B点得Y坐标＝");ｄｏｕbｌeＹB=double、Ｐａrse(Consolｅ、ReadLine());doubｌｅS＝距离(ＸA,ＹA,ＸB,YB);dｏublea＝方位角(XA,YＡ,XB,YB);Ｃonｓｏｌe、WritｅLｉｎe("AB间得距离={0},从A到B得方位角=｛1}＂,S,DＭＳ(a));}//将弧度转为ddｄ、mmsｓstaｔicpｕｂlicdoubｌeDMS(dｏubleａｎg){ａng＋=1、０Ｅ-15;／/加上一个小量,以保证进位inｔｆｕhａｏ=(int)(ａng/Mａth、Aｂｓ(ang));ang＝Math、Ａbs(ang)*180、0/Maｔh、PＩ;iｎtｄ=(int)anｇ;ang=(ang-d)*6０、0;ｉntm=(int)aｎｇ;doubles=(ａnｇ－m)*60、0;return(d+m/1００、0+s/１00０0、0)*ｆuhaｏ;}//计算方位角,返回弧度值publicｓtａｔicｄoｕble方位角(dｏｕblex1,doublｅy1,ｄｏuｂｌex2,ｄｏubｌeｙ２){dｏuｂledｅlｔaX＝x2-x1;ｄouｂleｄｅlｔａＹ＝y2-ｙ１;ｄoubｌeａngｌe=Ｍath、PＩ*0、5;if(Math、Abs(deｌtaX)>0、00０00000１){ａngle=Mａth、Aｔan２(deltaY,ｄｅltaＸ);}if(angｌe<0)｛aｎｇle+＝Ｍath、ＰＩ;}ｉｆ(delｔaY<０、0){anglｅ+=Ｍath、ＰI;}retuｒnａngle;}／/计算距离publicstaticｄoublｅ距离(dｏubｌex1,dｏｕｂlｅy1,doｕbleｘ２,douｂｌey2){retuｒnMaｔh、Sqrt((x2-x１)*(x2－ｘ１)+(y2-y１)*(y2－y１));}}}(4)在如图所示得支中导线,已知A点到M点得坐标方位角及每个左角,求每条边得坐标方位角。usingＳyｓtem;usｉｎgSyｓｔｅm、Collｅcｔiｏｎs、Ｇｅｎerｉc;uｓｉngSｙｓtem、Text;nameｓpａceＣｏnsoleApｐlicaｔion1｛ｃlaｓｓＡpｐlicatioｎ{ｓtaticvoidMain(string[]aｒｇs){Coｎsｏle、Write("请输入A点到M点得坐标方位角=");//将Ａ点到M点得坐标方位角换算为M点到A点得坐标方位角,以便利用公式douｂlea0＝DＥＧ(dｏublｅ、Parse(Ｃoｎsole、ReadLine())+180、0);if(a0＞２＊Maｔh、PI){ａ0-=2*Math、PI;}Liｓt＜ｄouble>导线转角集合＝ｎewList<ｄoｕble＞();ｉｎtｉ＝１;ｄo{Consolｅ、Write(＂请输入第{0}个转角得水平角［左角为正,右角为负]<直接回车结束输入>=＂,i+＋);sｔringstｒ=Ｃｏnsoｌe、ＲeadLine();ｉf(ｓtr!="")｛导线转角集合、Ａｄｄ(DＥG(ｄｏuble、Parse(sｔr)));}eｌse{break;}}while(ｔrue);i＝1;fｏreａch(doubｌeaｉｎ导线转角集合){a0+=ａ+Math、PI;if(a0>２*Math、ＰI){a０-=2*Maｔh、PＩ;}elｓeif(a0<０、０){a0+=2*Ｍａtｈ、PI;}Consｏle、WrｉteLine("第{0}条边得方位角为{１}＂,ｉ++,DMS(a0));}}/／将弧度转为ddd、mmｓｓstatｉｃpublicdouｂｌｅＤＭS(doubｌeａｎｇ){aｎg+=1、０E-１５;//加上一个小量,以保证进位intfuｈao=(int)(ang/Math、Abｓ(ang));ａng=Matｈ、Ａbs(ａng)*18０、0/Ｍａｔh、PI;ｉntｄ=(int)ａｎg;ang=(ang-d)*60、0;ｉntm=(iｎt)aｎg;ｄouｂleｓ=(ang-m)*6０、０;ｒetｕrn(ｄ＋m／1０0、0＋s/１0000、0)*fuhao;}//将ddｄ、mmss转为弧度sｔａticpublｉｃdouｂlｅＤEG(doｕｂlｅanｇ){ｉnｔｆuｈao=(ｉnt)(ang/Maｔh、Abs(ａｎｇ));ａｎｇ=Mａtｈ、Aｂｓ(ang);ｉntd=(int)ａng;ｉntm=((iｎt)(ang*1０0))-d*100;ｄoｕbles=ang*10000-m＊100-d*100００;return((d+m/60、０+s/3600、0)＊fuhａｏ)/18０、0*Maｔh、PI;}}}(5)在如图所示得支中导线,已知A点和Ｍ点得坐标及每个左角和每条边长,求每个点得坐标。uｓingＳystem;uｓｉngSystem、Colｌeｃtｉｏns、Ｇｅnｅric;usiｎgＳｙstem、Tｅxt;naｍesｐaｃｅConsoleAｐplｉcation1{classAppliｃａtｉｏn{stａticvoidＭain(ｓｔriｎg[]ａrｇｓ{Cｏnsole、Wｒitｅ("请输入Ｍ点得x坐标=");doubｌｅMx=doubｌe、Parsｅ(Coｎｓoｌe、ReadＬine());Coｎsｏlｅ、Wrｉｔe("请输入M点得y坐标＝");dｏubleMy＝doｕｂle、Paｒse(Ｃoｎsole、ReadLine());Cｏｎsole、Writｅ(＂请输入A点得ｘ坐标=＂);ｄoubｌeAx=ｄoｕble、Ｐarｓｅ(Ｃonｓole、RｅadLine());Ｃonsole、Wｒiｔｅ("请输入A点得y坐标=＂);dｏｕbleAy=douｂｌｅ、Parｓe(Consｏlｅ、ReadLinｅ());Liｓt<ｄouble>导线转角集合＝newＬist<ｄｏuble＞();List＜dｏublｅ>导线边长集合=newLiｓｔ<ｄoｕble＞();intｉ=1;dｏ｛Cｏnsoｌe、Wｒite("请输入第{0｝个转角得水平角[左角为正,右角为负］＜直接回车结束输入＞＝",i);ｓｔriｎgｓtr=Ｃoｎsｏlｅ、ＲeadＬiｎe();if(ｓtr!＝""){导线转角集合、Add(ＤEＧ(doｕble、Paｒse(sｔｒ)));｝eｌｓｅ{break;}Consｏｌe、Wriｔe(＂请输入第{0｝条边长值=",ｉ+＋);导线边长集合、Aｄd(doublｅ、Parse(Coｎsole、ReadLine()));}ｗhile(ｔruｅ);/／计算Ｍ到Ａ得坐标方位角ｄouｂlea０=方位角(Mｘ,My,Ax,Aｙ);／/计算每个点得坐标ｄoublｅx0=Ax;doｕbley0=Ａy;for(intj＝０;j<导线转角集合、Ｃoｕnｔ;ｊ++){a0+=导线转角集合[ｊ]+Mａth、PI;if(a0>2＊Mａｔh、PI)a０－=２*Ｍaｔh、PI;x0=x0+导线边长集合[j]＊Math、Cｏs(ａ0);y0=y0+导线边长集合［j］＊Math、Sin(a０);Cｏnsole、WrｉteLine("P{0｝点得坐标就就是:{1｝,{２｝",j＋２,x0,y0);｝}／/将ddd、mmss转为弧度sｔaｔiｃpuｂｌicdouｂleDＥG(ｄoｕbｌeａｎg){ｉnｔfuhao=(int)(aｎg/Math、Ａbs(aｎg));anｇ=Math、Aｂs(ａng);intd=(int)ang;inｔm＝((ｉｎt)(aｎg＊1０0))－d*100;douｂｌｅs=ang＊10０00-m*100-d*10０00;rｅtｕｒｎ((d＋m/60、0+s/３600、０)*fuｈａo)/180、0＊Math、PＩ;}//计算方位角,返回弧度值puｂlicｓtａticdoｕble方位角(douｂlex1,doｕbleｙ1,ｄoublex2,doubleｙ2){doublｅdｅltaX=x2－x1;doubledelｔａY=ｙ2-ｙ１;ｄoublｅangｌe＝Matｈ、ＰI*0、５;iｆ(Ｍａtｈ、Ａbs(deｌtaＸ)>0、0０0000０0１){angle＝Ｍａｔh、Atan2(delｔaY,ｄeltaX);}if(ａnｇle＜0)｛angle+＝Mａｔh、PI;｝if(ｄeltaY＜０、0)｛aｎｇle+=Math、PI;｝rｅtuｒnangle;}}}(6)在如图所示得单一附合水准路线中,已知A点和B点得高程及每段得长度和高差,求每个点得高程。usingＳｙstem;ｕsiｎgＳysｔem、Ｃoｌlectiｏnｓ、Gｅｎeric;usiｎgSystem、Ｔexｔ;naｍeｓpacｅＣｏnｓoleAｐplicatiｏn1{ｃｌａssApplｉcation｛stａticvoidMａin(ｓｔrinｇ[］a{Coｎsole、Wriｔe(＂请输入Ａ点得高程=＂);doubleHａ=dｏubｌe、Pａrse(Conｓoｌe、ReadLine());Cｏnｓｏle、Wriｔe("请输入B点得高程=");doubleHb=ｄoublｅ、Parsｅ(Ｃonｓｏｌe、ReａdLine());Lisｔ<ｄouble>路线段长度集合=newLiｓt<douｂle>();Liｓｔ<dｏuble>路线段高差集合=newLｉst<double>();intｉ=1;ｄo{Consolｅ、Write("请输入第{0}段长度[公里为单位]<直接回车结束输入＞＝",ｉ);sｔｒｉnｇstr=Cｏnsole、ＲｅaｄLiｎｅ();if(stｒ!=＂"){路线段长度集合、Add(ｄoｕble、Parsｅ(ｓｔr));}ｅlｓe{brｅak;}Cｏnsole、Ｗrite("请输入第{0｝段高差=",ｉ＋+);路线段高差集合、Add(double、Pａrse(Ｃoｎsｏle、ＲeadLinｅ()));｝whilｅ(truｅ);/／计算水准路线闭合差ｄoubleｗ=0;dｏｕbｌｅ总长度=0;ｆor(ｉnｔj=0;ｊ<路线段长度集合、Ｃount;ｊ++)｛w+=路线段高差集合[j］;总长度+＝路线段长度集合［ｊ];}w＝ｗ-(Ｈb-Ha);//闭合差douｂlev=-w/总长度;//每公里改正数／/计算每个点得高程doublｅH=Hａ;for(iｎｔj=0;j<路线段长度集合、Ｃｏunt;j++){H+=路线段高差集合[ｊ]+v*路线段长度集合［ｊ］;Consｏlｅ、WｒitｅLine(＂P{0}点得高程就就是:{１｝＂,j+1,H);}Cｏnsole、WritｅＬinｅ("最后一点就就就是B点！");｝}}(7)在如图所示得前方交会中,ABJ三点按逆时针方向排列,已知AB两点得坐标和两个交会角度,求Ｊ点得坐标。ｕｓingSystem;usingSyｓtｅｍ、Coｌlecｔioｎs、Gｅneｒic;ｕsｉngＳｙsｔem、Text;namｅspacｅＣonsoleApplication1{ｃlasｓＡppｌｉcation{ｓtatiｃvoidMain(sｔｒing[］args){Cｏnｓｏle、Ｗrite("请输入Ａ点得x坐标=");ｄoubｌeAｘ=ｄouble、Pａrse(Console、ReaｄLｉne());Cｏnsole、Writｅ("请输入Ａ点得y坐标=＂);dｏubleＡｙ=double、Ｐａrse(Conｓole、ReａdLｉne());Consｏle、Ｗrｉｔe("请输入B点得x坐标＝");ｄoｕbleBx=ｄoublｅ、Parsｅ(Coｎsoｌe、ＲｅadLine());Consｏle、Wriｔe("请输入Ｂ点得ｙ坐标＝");doubｌeBy=dｏublｅ、Parse(Coｎsｏle、ReaｄLine());Coｎｓole、Ｗrite("请输入α得角度值=＂);doｕbleα=ＤEG(doｕble、Parsｅ(Coｎsoｌe、RｅadLine()));Console、Ｗｒite(＂请输入β得角度值=＂);dｏｕbleβ=DEＧ(double、Parse(Ｃonｓolｅ、ReadLinｅ()));//计算Ａ到Ｂ得坐标方位角dｏｕｂlea０=方位角(Aｘ,Ay,Bｘ,Ｂｙ);／/计算A到J得坐标方位角a0-＝α;//计算Ａ到B得边长dｏubｌeｓ=距离(Ax,Ay,Bx,By);//计算A到J得边长s=s/Mａth、Ｓin(Maｔｈ、PI-α-β)*Math、Ｓin(β);//计算Ｊ得坐标dｏubleJx=Ａx+s＊Math、Cos(a０);doubｌeJy＝Ａy+s*Mａth、Ｓｉn(a0);Coｎsoｌe、ＷｒiｔeLinｅ("J点得坐标={0},{1}",Jx,Ｊｙ);｝//将ddd、mmｓｓ转为弧度statiｃpublicdｏubｌeDEG(doubleanｇ){inｔfuhａo＝(inｔ)(aｎｇ/Mａth、Aｂs(aｎｇ));ang=Mａtｈ、Aｂs(aｎg);ｉntｄ=(inｔ)aｎg;intm=((inｔ)(ang*１00))－ｄ*１０0;ｄoublｅs=ａnｇ*10０00-m*１00-d*1００00;rｅtuｒn((ｄ+m/60、0+s/360０、0)*fｕhao)/180、０*Ｍath、PI;}//计算方位角,返回弧度值ｐｕblicstatiｃdouble方位角(dｏuｂlｅx1,ｄoubley１,dｏublｅx2,doubley2){doubledelｔaX=x2-x1;doubｌedeｌtaY＝y２-ｙ1;doubｌeangle=Mａth、PI*0、５;ｉｆ(Math、Aｂｓ(deltaＸ)>0、０0０00０00１){anglｅ=Maｔh、Atan２(deｌｔaY,deltaＸ);}if(anglｅ<0){angｌe+＝Mａtｈ、PI;}if(deltａY<0、0){angle+＝Maｔh、PI;}ｒetuｒnangle;}/／计算距离pｕbｌicstaticdouble距离(ｄoubleｘ１,doubｌey1,doubｌex２,doubley２){reｔurnMaｔh、Sｑrt((x２－x1)*(x2－x1)+(y2-y1)＊(y2-ｙ１));}｝｝(8)在如图所示得单个多边形中,已知每个点得坐标,求多边形得面积。提示面积得计算公式为:uｓｉngＳystｅm;usｉngSystem、Colｌeｃtionｓ、Ｇeｎeriｃ;usingＳystem、Tｅxt;ｎａmesｐaｃeCｏnsoleApplicａｔion1{clａssAｐpｌiｃａtiｏn{stａticvoidMaｉn(sｔｒinｇ[]a{Ｌist＜double＞多边形X坐标集=newList<doubｌe>();Ｌｉst<douｂｌe＞多边形Y坐标集=neｗList＜douｂle>();ｉntｉ＝1;do{Conｓoｌe、Wriｔｅ("请输入第{0｝点得ｘ坐标<直接回车就结束输入＞=",i);stringsｔr＝Conｓoｌｅ、ReadＬｉne();if(str!=""){多边形X坐标集、Add(doubｌe、Ｐarse(ｓtr));}ｅlse{break;｝Ｃonsolｅ、Write("请输入第{０}点得y坐标=＂,i++);多边形Ｙ坐标集、Adｄ(dｏublｅ、Ｐaｒｓe(Ｃonsｏle、ReａdLｉne()));｝ｗｈｉle(truｅ);/／计算面积doublearｅa＝0;//点得个数intCoｕnt=多边形X坐标集、Counｔ;fｏr(inｔj=0;j<Count-1;ｊ++){arｅa+=多边形X坐标集[j]*多边形Y坐标集[j+1]-多边形X坐标集[ｊ+1]*多边形Y坐标集[j］;}//计算最后一点到起点得项area+=多边形X坐标集[Ｃount-1]＊多边形Y坐标集[0]-多边形X坐标集[0]*多边形Y坐标集[Counｔ－1];Cｏnsole、ＷrｉtｅLine("多边形得面积＝{0｝＂,Math、Ａbｓ(area*0、５));}}}(9)在如图所示得仅有一个连接角得附合导线中,已知A点和B点得高程及每条边得斜边、垂直角、仪器高和反光镜高,求每个点得高程。(提示:,D-－斜边,-－垂直角,--仪器高,-－反光镜高,-－大气折光系数)ｕsiｎgＳysteｍ;ｕsinｇＳystｅｍ、Ｃoｌlｅｃｔions、Genｅｒｉc;ｕsingSｙsteｍ、Linq;usingSystｅm、Ｔeｘt;ｎamesｐace导线｛cｌａｓsＰroｇram{ｓtaｔicvoｉdＭaｉn(ｓ{Ｃonsole、Write(＂请输入A点得高程=＂);doubleHA=double、Parsｅ(Coｎsole、ReadＬｉｎｅ());Cｏnsolｅ、Wriｔe("请输入B点得高程=");ｄoｕblｅHB＝ｄｏuble、Parse(Consｏｌe、ＲeadLｉne());Ｌiｓt<double>高差集合=nｅwList<ｄｏuble>();List<double>水平距离平方集合=newLisｔ<double>();inti=１;doublｅ高差和=0;ｄouｂｌe水平距离平方和=０;do｛Consoｌe、Write("请输入{0｝点到{1｝点得斜距D<直接回车结束输入＞=＂,i,i＋１);ｓtringsｔr=Consolｅ、RｅadLｉne();ｉf(stｒ＝="")bｒeak;doｕbｌeD=double、Paｒsｅ(ｓtr);Consolｅ、Wｒiｔe(＂请输入｛0｝点到{1}点得垂直角=",ｉ,i+１);doｕｂｌeα＝导线、ＤEG(doubｌe、Pａrse(Ｃonsolｅ、ReadLine()));//并化为弧度Ｃonsoｌe、Write("请输入｛0｝得仪器高=",ｉ);doublｅ仪器高＝double、Parｓe(Ｃｏnｓolｅ、ReadＬine());Cｏｎsole、Ｗrite("请输入{０｝得反光镜高=",i＋1);double反光镜高＝ｄoubｌe、Pａrse(Consｏle、ReaｄＬｉｎｅ());ｉ++;ｄoｕble水平距离;doｕbleｈ＝导线、高差(Ｄ,α,仪器高,反光镜高,ｏｕt水平距离);水平距离平方集合、Aｄd(水平距离*水平距离);高差集合、Add(ｈ);水平距离平方和＋=水平距离*水平距离;高差和+=h;｝wｈile(trｕe);／／计算高差闭合差ｄoublｅ高差闭合差=HA+高差和-HＢ;//计算单位长度改正数,三角高程得权与距离得平方成反比doｕｂle单位长度改正数=-高差闭合差/水平距离平方和;/／计算每点高程ｄouｂleH=HＡ;foｒ(intｊ=0;j<高差集合、Count;j＋＋){H+=高差集合［j]+单位长度改正数*水平距离平方集合[j］;Ｃoｎsolｅ、WriｔeLiｎｅ("第{0}点得高程H={1}",j+2,Ｈ);｝Console、WｒiｔeＬｉnｅ("最后一个点得高程应该与B点得高程相同！");}｝class导线{//将dｄd、mmsｓ转为弧度ｓtatｉcpublicdoubleＤEG(ｄoｕｂｌeang){intfuhａo=(ｉnt)(ａｎｇ／Mａth、Abs(ａng));ａｎg＝Ｍath、Abs(aｎｇ);intd=(int)ａnｇ;inｔm=((ｉnt)(ang*100))－ｄ*１00;doublｅｓ=aｎｇ*1０0００-m*100－d＊10000;reｔurn((d+ｍ/60、0+s／3６0０、0)*fｕhao)/180、0*Math、ＰI;}//高差计算,返回高差ｐubliｃsｔａｔｉcdｏuｂle高差(doｕble斜距,ｄoublｅ垂直角,dｏuｂle仪器高,double反光镜高,ｏutdoｕbｌe水平距离)｛doubｌeh=斜距*Maｔh、Ｓiｎ(垂直角)＋斜距*Mａth、Cos(垂直角)／637１000、０*斜距*Math、Coｓ(垂直角)*(1-0、1３)+仪器高－反光镜高;水平距离=斜距＊Math、Cos(垂直角);returnｈ;}}}(1０)在如图所示得仅有一个连接角得附合导线中,已知M点、Ａ点和B点得坐标,每个点得左角及每条边得水平距离,求每个点得坐标。ｕsiｎgSyｓtem;usｉngSｙsｔｅm、Colｌections、Ｇenｅriｃ;usｉｎgSyｓtem、Ｔeｘt;namｅｓpaｃe导线{ｃｌaｓsProｇram{ｓtａｔｉcvoidMain(strｉng[]args){Consolｅ、Writｅ("请输入M点得Ｘ坐标=");doubｌeMＸ=double、Pａｒsｅ(Ｃonsｏle、ＲeaｄLine());Consoｌｅ、Write(＂请输入M点得Y坐标=");doubleMY=douｂle、Parsｅ(Conｓoｌe、ＲeａdＬine());Coｎsole、Wｒｉｔe("请输入A点得X坐标=");doubｌeＡX=doｕｂｌe、Parse(Console、ReａdLinｅ());Conｓole、Ｗrite(＂请输入Ａ点得Ｙ坐标＝＂);dｏｕbleAY＝doｕble、Parse(Coｎsｏle、RｅaｄLine());Cｏnsoｌe、Ｗｒｉｔｅ("请输入B点得X坐标=");doubleBX=doublｅ、Parse(Cｏnsole、ReadLｉｎe());Consolｅ、Write(＂请输入B点得Y坐标＝");dｏｕｂｌeBY=doubｌe、Parse(Consｏle、ReａdLiｎe());//计算Ｍ到A得方位角doubｌeα0=导线、方位角(MＸ,MY,AX,AY);Ｌist<dｏubｌe>坐标增量X集合=newＬisｔ<dｏuｂlｅ>();List<double>坐标增量Y集合=ｎewList<douｂｌe＞();iｎｔｉ＝1;ｄouble坐标增量X和=0;double坐标增量Ｙ和＝０;double坐标增量X绝对值和＝0;doｕbｌe坐标增量Y绝对值和=0;dｏuble水平距离和=0;dｏ{Conｓole、Wriｔe("请输入{0}点到{1}点得水平距离S<直接回车结束输入>=＂,i,i+1);strinｇｓtr=Ｃoｎｓoｌe、ReａdLｉne();if(str=="")brｅak;douｂｌeS=double、Ｐａrｓe(str);Coｎsｏle、Ｗriｔe("请输入{0}点得水平角<左角为正,右角为负>=",i);doｕbleβ=导线、DＥG(doｕｂle、Parse(Cｏnsolｅ、RｅaｄＬｉne()));ｉ＋+;//计算坐标增量ｄouｂleｄx,dy;α0=导线、坐标(0,0,β,S,α０,ouｔdｘ,ｏutdy);坐标增量X集合、Add(dｘ);坐标增量Y集合、Ａｄｄ(dy);坐标增量X和+=dx;;坐标增量Y和＋＝dｙ;;坐标增量X绝对值和+=Mａｔｈ、Ａbs(dx);坐标增量Y绝对值和+=Math、Ａbs(dy);水平距离和+＝Ｓ;}ｗｈilｅ(trｕｅ);／/计算闭合差doｕble闭合差Ｘ＝AX+坐标增量X和－BＸ;doubｌｅ闭合差Y=AＹ+坐标增量Ｙ和-ＢＹ;／/计算单位长度改正数doｕｂleX坐标单位长度改正数=－闭合差Ｘ/坐标增量Ｘ绝对值和;doublｅY坐标单位长度改正数=-闭合差Ｙ／坐标增量Y绝对值和;//计算导线相对精度intｆ＝(ｉｎt)(水平距离和/Mａｔh、Sqrt(闭合差X*闭合差X+闭合差Y＊闭合差Y));Console、WｒiteＬiｎｅ("导线得相对精度为1／{0}＂,f);//计算每点坐标doｕbｌｅＸ=AX;dｏubleY＝AY;ｆor(intｊ=０;ｊ<坐标增量Ｘ集合、Cｏuｎt;ｊ＋+){X+=坐标增量X集合[ｊ]+X坐标单位长度改正数*Maｔh、Aｂs(坐标增量X集合[j]);Y+=坐标增量Y集合［ｊ]+Y坐标单位长度改正数＊Mａth、Ａbs(坐标增量Y集合[j]);Consｏle、WriteLiｎe(＂第{０}点得X坐标={1},Y坐标={２}",j+2,X,Y);}Cｏnsole、WｒiｔｅＬine("最后一个点得坐标应该与B点得坐标相同！");}}cｌａｓs导线{//将ddd、ｍmss转为弧度sｔａticpuｂlicdoｕbleDEＧ(douｂleaｎg){intfuｈao＝(int)(ａng/Matｈ、Abs(ang));aｎg＝Math、Abs(ang);iｎｔｄ=(inｔ)aｎg;intm＝((int)(anｇ＊100))-d*１０0;doｕbleｓ=ang＊10０00-m*１0０－d＊1000０;ｒｅturn((d+m/6０、0+s／３6０0、0)*fuhａo)/180、0*Mａth、PI;}//计算方位角,返回弧度值publiｃｓｔaticｄoｕble方位角(doubleｘ１,doubｌeｙ1,doublｅx2,ｄoｕbｌey2){doｕbledeltaX=ｘ２-x１;doubledeltａＹ=y２-ｙ1;ｄｏublｅａngｌe＝Matｈ、PI*0、5;if(Mａtｈ、Abs(deltaＸ)>0、０000０00０1){angle=Ｍaｔh、Atａｎ2(delｔaY,deltaX);}if(ａnglｅ<0)｛angｌe+=Math、PI;}iｆ(deｌtaY<０、０){angle+＝Ｍａth、ＰI;｝rｅturｎanｇle;}//计算坐标,返回已知点到计算点得方位角publicｓｔaticdoubｌe坐标(doubｌex0,dｏubｌey0,dｏuble左角,dｏuｂｌe水平距离,double已知方位角,ｏｕtdoubｌex,outdouｂｌｅy){doｕbｌｅ方位角＝已知方位角+左角＋Mａth、PI;／/将方位角调整到0到2π之间ｉｆ(方位角>＝Ｍath、ＰI*2)方位角-=Maｔh、PI*2;if(方位角<0、0)方位角＋＝Math、PI*2;x=x0＋水平距离*Matｈ、Cｏs(方位角);y=ｙ０+水平距离＊Ｍａth、Sin(方位角);retｕｒn方位角;｝}｝(1１)在如图所示得仅有一个连接角得附合导线中,已知M点、Ａ点和B点得坐标,A点和B点得高程,每个点得左角及每条边得斜边、垂直角、仪器高和反光镜高,求每个点得坐标和高程。(提示:,Ｄ-－斜边,--垂直角,--仪器高,-－反光镜高,-－大气折光系数)usｉngSystｅm;usｉｎｇSystem、Coｌlecｔiｏns、Geneｒｉc;ｕsingSysteｍ、Tｅxt;naｍespａｃe导线｛clasｓPrｏgrａm{ｓtaｔｉcvoiｄMaｉn(stｒing[]a{Consoｌe、Wｒiｔe("请输入M点得Ｘ坐标=");dｏubleMX=double、Parｓe(Cｏｎsole、ReadLiｎe());Conｓole、Write("请输入M点得Y坐标＝");ｄｏubｌｅMY＝doｕｂｌｅ、Ｐａｒse(Coｎsoｌe、ReadLine());Cｏｎsｏle、Ｗrite("请输入A点得X坐标=");ｄoublｅAX=doｕｂle、Parｓe(Conｓｏｌe、RｅadLｉne());Console、Wriｔｅ("请输入A点得Y坐标=＂);ｄoubleAＹ=ｄouble、Parse(Consolｅ、ＲeａdＬｉne());Cｏnsoｌｅ、Wrｉte(＂请输入A点得高程=＂);ｄｏuｂleHＡ＝dｏublｅ、Parse(Conｓolｅ、ReadLｉne());Coｎsｏle、Write("请输入B点得X坐标=");ｄoubｌｅBＸ＝double、Paｒse(Consｏlｅ、ReadLiｎe());Cｏｎsoｌe、Writｅ("请输入B点得Y坐标＝");ｄoubleＢY=doｕble、Pａｒse(Ｃｏnｓolｅ、ReaｄＬｉne());Conｓole、Wriｔｅ("请输入B点得高程=＂);ｄoublｅHB=doｕble、Parｓｅ(Cｏnsoｌe、ＲeａdＬinｅ());／／计算M到A得方位角ｄoubｌeα０=导线、方位角(ＭX,MＹ,AＸ,AＹ);Liｓt<double＞坐标增量X集合=ｎｅwList＜dｏuble>();Lｉst<dｏubｌｅ>坐标增量Ｙ集合=nｅwLisｔ<doubｌｅ>();Lｉst<double>高差集合=newLisｔ<doｕble>();Lｉsｔ<dｏｕｂle>水平距离平方集合＝newList<dｏuble＞();inti=1;double坐标增量X和＝０;doｕblｅ坐标增量Y和＝0;dｏuble坐标增量X绝对值和＝0;ｄouble坐标增量Y绝对值和=0;douｂle水平距离和=0;doｕｂle高差和=０;doｕble水平距离平方和=0;do{Ｃoｎsｏle、Ｗritｅ("请输入{０}点到{１}点得斜距D<直接回车结束输入>＝",i,i＋1);sｔringｓｔr＝Coｎsｏle、RｅadLiｎｅ();if(sｔr＝="")breａk;doublｅD=double、Pａrse(str);Ｃoｎｓｏle、Ｗrｉte("请输入{0｝点得水平角<左角为正,右角为负>=",ｉ);doubleβ＝导线、DEＧ(doublｅ、Ｐarse(Ｃoｎsolｅ、RｅａｄLine()));Ｃonsolｅ、Wｒｉte(＂请输入{0}点到｛1}点得垂直角＝",i,ｉ+１);ｄoubｌｅα=导线、DEG(doublｅ、Parse(Ｃonsｏlｅ、ＲeａｄLine()));//并化为弧度Ｃonsolｅ、Write("请输入{0}得仪器高=＂,ｉ);doｕbｌe仪器高=dｏuble、Parｓe(Ｃｏnsoｌe、RｅａdLｉnｅ());Console、Writｅ("请输入{０}得反光镜高=",ｉ＋1);double反光镜高＝double、Parse(Console、ReａdLine());ｉ++;／/计算高差dｏubｌe水平距离;douｂlｅh=导线、高差(Ｄ,α,仪器高,反光镜高,ｏut水平距离);水平距离平方集合、Aｄｄ(水平距离*水平距离);高差集合、Ａｄｄ(h);水平距离平方和＋=水平距离*水平距离;高差和+=h;//计算坐标增量doｕbｌedx,dy;α０=导线、坐标(0,０,β,水平距离,α0,outｄx,outdy);坐标增量Ｘ集合、Add(dｘ);坐标增量Y集合、Add(dy);坐标增量X和+＝dx;;坐标增量Y和＋＝dy;;坐标增量Ｘ绝对值和＋=Math、Abs(dx);坐标增量Y绝对值和＋=Math、Abｓ(dy);水平距离和+=水平距离;}while(tｒue);/／计算高差闭合差double高差闭合差=HA+高差和-HB;//计算单位长度改正数,三角高程得权与距离得平方成反比double单位长度改正数=-高差闭合差／水平距离平方和;/／计算闭合差doublｅ闭合差X=ＡX＋坐标增量X和-BX;doｕble闭合差Ｙ=ＡY＋坐标增量Ｙ和-BY;//计算单位长度改正数doubleX坐标单位长度改正数=-闭合差X/坐标增量X绝对值和;dｏuｂleY坐标单位长度改正数=-闭合差Y／坐标增量Y绝对值和;／/计算导线相对精度iｎtf＝(ｉｎt)(水平距离和／Maｔh、Sｑrt(闭合差Ｘ＊闭合差X＋闭合差Y＊闭合差Y));Consolｅ、WｒiteＬine("导线得相对精度为1/｛０｝",f);//计算每点坐标doubｌeX=AX;dｏｕｂleY=AＹ;doｕｂlｅH=HＡ;for(iｎtｊ=0;j<坐标增量X集合、Cｏuｎt;j＋+)｛H+＝高差集合[j]+单位长度改正数*水平距离平方集合[ｊ];Ｘ+=坐标增量X集合［j］＋Ｘ坐标单位长度改正数＊Math、Abs(坐标增量X集合[ｊ]);Ｙ+=坐标增量Y集合［j]+Y坐标单位长度改正数*Ｍath、Abｓ(坐标增量Y集合［j]);Coｎｓole、WriteLiｎe("第{０}点得Ｘ坐标={１},Y坐标＝{2｝,高程H={3｝",j＋2,X,Y,Ｈ);}Console、WrｉtｅLｉｎｅ(＂最后一个点得坐标和高程应该与B点得坐标和高程相同！");｝}class导线{／/将ddd、mmss转为弧度stａticpuｂlｉｃdoubleDＥG(doｕbleanｇ)｛intfuhａo=(inｔ)(ａng/Ｍath、Abs(anｇ));ａng＝Ｍａth、Aｂs(ａng);iｎtd=(iｎｔ)ang;iｎtm＝((int)(aｎｇ*１00))-d*100;ｄoubles=ａng*100０0-ｍ*1０0-d*10０00;reｔurｎ((d+m/60、0+ｓ／3600、０)*ｆuhａo)/１8０、0*Mａtｈ、PI;}//计算方位角,返回弧度值publicstaｔiｃdｏｕble方位角(doｕblex1,doｕｂlｅy1,ｄoｕblex2,doublｅy2){douｂleｄeltaX=ｘ２-x1;dｏｕblｅｄeltaY＝y2－y1;dｏuｂｌeanglｅ=Ｍath、ＰI*0、5;if(Mａtｈ、Ａｂs(ｄeltaＸ)>0、0０0000001){angle＝Matｈ、Atａn2(deltａY,ｄeltaX);｝if(anｇle＜0){angｌe+=Ｍath、ＰI;｝if(deｌtaＹ＜０、0){angle+＝Maｔｈ、ＰI;}retｕｒnaｎｇｌe;}/／高差计算,返回高差publｉcstａtｉcdｏｕｂle高差(double斜距,ｄouble垂直角,dｏuble仪器高,doｕble反光镜高,outdｏｕｂle水平距离){doublｅｈ=斜距＊Math、Sin(垂直角)＋斜距*Math、Cos(垂直角)/6３710００、0＊斜距*Ｍatｈ、Ｃｏs(垂直角)*(１-0、１3)＋仪器高-反光镜高;水平距离=斜距*Math、Ｃoｓ(垂直角);returnｈ;}//计算坐标,返回已知点到计算点得方位角ｐuｂlｉｃsｔaticdouble坐标(douｂleｘ０,ｄoubｌey0,ｄouｂle左角,double水平距离,ｄoｕble已知方位角,outdoubｌex,oｕtdouｂley){dｏublｅ方位角=已知方位角＋左角+Math、PI;／/将方位角调整到0到2π之间if(方位角>＝Mａth、PI*2)方位角-=Math、PI*２;ｉf(方位角＜0、0)方位角+=Math、PI*2;x=x0+水平距离*Maｔｈ、Cos(方位角);y=y0+水平距离*Math、Sin(方位角);ｒeturｎ方位角;}}}(12)在如图所示得具有两个连接角得附合导线中,已知M点、N点、A点和Ｂ点得坐标,A点和B点得高程,每个点得左角及每条边得斜边、垂直角、仪器高和反光镜高,请采用近似平差方法求每个点得坐标和高程。(提示:,D-－斜边,--垂直角,－-仪器高,-－反光镜高,－-大气折光系数)ｕsingSｙsteｍ;ｕsｉｎgSysteｍ、Ｃｏllectiｏns、Gｅneric;usｉnｇSysｔem、Teｘt;namesｐaｃe导线{ｃlassProgram{statｉcvoidＭaｉｎ(string[]aｒg｛Conｓoｌe、Ｗｒiｔe("请输入M点得Ｘ坐标=");dｏuｂleＭX＝double、Parse(Conｓｏlｅ、