測繪類C#程序代碼

測繪類C#程序代碼測繪類C#程序代碼測繪類C#程序代碼常用測量程序設(shè)計(jì)代碼(１)用全站儀在A點(diǎn)觀測了B點(diǎn)斜邊和垂直角,求A到B得高差。(提示:,D--斜邊,--垂直角,－-儀器高,-－反光鏡高,－-大氣折光系數(shù))usinｇSｙstｅm;usinｇＳysteｍ、Collｅｃtｉｏns、Ｇeneric;ｕsｉngSystem、Text;ｎａmespaceCｏnsoｌeApplicatioｎ1{clａssApｐlｉcａt(yī)ｉ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ａt(yī)h、Ｃos(ａ)＊Maｔh、Coｓ(a)/2、0+i-v;Ｃoｎｓole、WｒiteLiｎe(＂高差為{0}",ｈ);}／/將ddd、ｍmsｓ轉(zhuǎn)為弧度staticpubｌiｃdoｕbleＤEＧ(doｕbleang){intfｕhao＝(int)(ang/Mａt(yī)h、Ａbs(ａng));ａnｇ＝Mａt(yī)h、Ａｂ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點(diǎn)得坐標(biāo)及A點(diǎn)到B點(diǎn)得邊長及方位角,計(jì)算B點(diǎn)得坐標(biāo)。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點(diǎn)得X坐標(biāo)＝＂);doubleXA=ｄoubｌｅ、Parse(Conｓoｌe、ReadLine());Coｎsｏｌe、Ｗrｉte("請輸入A點(diǎn)得Y坐標(biāo)=");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點(diǎn)得坐標(biāo)({0},{1})",ＸＢ,YB);}//將ｄdd、mmss轉(zhuǎn)為弧度sｔａt(yī)icｐ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點(diǎn)和B點(diǎn)得坐標(biāo),計(jì)算A點(diǎn)到得邊長及方位角。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點(diǎn)得X坐標(biāo)＝");doubｌeＸA=doｕbｌｅ、Pａrse(Cｏｎsoｌe、ReadLine());Cｏnsole、Write(＂請輸入Ａ點(diǎn)得Y坐標(biāo)=＂);doubleＹＡ=doubｌe、Ｐarsｅ(Console、ReａdLine());Consoｌe、Wrｉte(＂請輸入Ｂ點(diǎn)得X坐標(biāo)＝＂);doubleXB＝ｄoubｌe、Parｓｅ(Console、ReaｄLine());Consｏlｅ、Write("請輸入B點(diǎn)得Y坐標(biāo)＝");ｄｏｕ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));}//將弧度轉(zhuǎn)為ddｄ、mmsｓstaｔicpｕｂlicdoubｌeDMS(dｏubleａｎg){ａng＋=1、０Ｅ-15;／/加上一個(gè)小量,以保證進(jìn)位inｔｆｕhａｏ=(int)(ａng/Mａt(yī)h、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ｏ;}//計(jì)算方位角,返回弧度值publicｓtａｔicｄoｕble方位角(dｏｕblex1,doublｅy1,ｄｏuｂｌex2,ｄｏubｌeｙ２){dｏuｂledｅlｔaX＝x2-x1;ｄouｂleｄｅlｔａＹ＝y(tǒng)2-ｙ１;ｄoubｌeａngｌe=Ｍath、PＩ*0、5;if(Math、Abs(deｌtaX)>0、00０00000１){ａngle=Mａt(yī)h、Aｔan２(deltaY,ｄｅltaＸ);}if(angｌe<0)｛aｎｇle+＝Ｍath、ＰＩ;}ｉｆ(delｔaY<０、0){anglｅ+=Ｍath、ＰI;}retuｒnａngle;}／/計(jì)算距離publicstaticｄoublｅ距離(dｏubｌex1,dｏｕｂlｅy1,doｕbleｘ２,douｂｌey2){retuｒnMaｔh、Sqrt((x2-x１)*(x2－ｘ１)+(y2-y１)*(y2－y１));}}}(4)在如圖所示得支中導(dǎo)線,已知A點(diǎn)到M點(diǎn)得坐標(biāo)方位角及每個(gè)左角,求每條邊得坐標(biāo)方位角。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點(diǎn)到M點(diǎn)得坐標(biāo)方位角=");//將Ａ點(diǎn)到M點(diǎn)得坐標(biāo)方位角換算為M點(diǎn)到A點(diǎn)得坐標(biāo)方位角,以便利用公式douｂlea0＝DＥＧ(dｏublｅ、Parse(Ｃoｎsole、ReadLine())+180、0);if(a0＞２＊Maｔh、PI){ａ0-=2*Math、PI;}Liｓt＜ｄouble>導(dǎo)線轉(zhuǎn)角集合＝ｎewList<ｄoｕble＞();ｉｎtｉ＝１;ｄo{Consolｅ、Write(＂請輸入第{0}個(gè)轉(zhuǎn)角得水平角［左角為正,右角為負(fù)]<直接回車結(jié)束輸入>=＂,i+＋);sｔringstｒ=Ｃｏnsoｌe、ＲeadLine();ｉf(ｓtr!="")｛導(dǎo)線轉(zhuǎn)角集合、Ａｄｄ(DＥG(ｄｏuble、Parse(sｔr)));}eｌse{break;}}while(ｔrue);i＝1;fｏreａch(doubｌeaｉｎ導(dǎo)線轉(zhuǎn)角集合){a0+=ａ+Math、PI;if(a0>２*Math、ＰI){a０-=2*Maｔh、PＩ;}elｓeif(a0<０、０){a0+=2*Ｍａt(yī)ｈ、PI;}Consｏle、WrｉteLine("第{0}條邊得方位角為{１}＂,ｉ++,DMS(a0));}}/／將弧度轉(zhuǎn)為ddd、mmｓｓstatｉｃpublicdouｂｌｅＤＭS(doubｌeａｎｇ){aｎg+=1、０E-１５;//加上一個(gè)小量,以保證進(jìn)位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轉(zhuǎn)為弧度sｔａt(yī)icpublｉｃdouｂlｅＤEG(doｕｂlｅanｇ){ｉnｔｆuｈao=(ｉnt)(ang/Maｔh、Abs(ａｎｇ));ａｎｇ=Mａt(yī)ｈ、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)在如圖所示得支中導(dǎo)線,已知A點(diǎn)和Ｍ點(diǎn)得坐標(biāo)及每個(gè)左角和每條邊長,求每個(gè)點(diǎn)得坐標(biāo)。uｓingＳystem;uｓｉngSystem、Colｌeｃtｉｏns、Ｇｅnｅric;usiｎgＳｙstem、Tｅxt;naｍesｐaｃｅConsoleAｐplｉcation1{classAppliｃａt(yī)ｉｏn{stａt(yī)icvoidＭain(ｓｔriｎg[]ａrｇｓ{Cｏnsole、Wｒitｅ("請輸入Ｍ點(diǎn)得x坐標(biāo)=");doubｌｅMx=doubｌe、Parsｅ(Coｎｓoｌe、ReadＬine());Coｎsｏlｅ、Wrｉｔe("請輸入M點(diǎn)得y坐標(biāo)＝");dｏubleMy＝doｕｂle、Paｒse(Ｃoｎsole、ReadLine());Cｏｎsole、Writｅ(＂請輸入A點(diǎn)得ｘ坐標(biāo)=＂);ｄoubｌeAx=ｄoｕble、Ｐarｓｅ(Ｃonｓole、RｅadLine());Ｃonsole、Wｒiｔｅ("請輸入A點(diǎn)得y坐標(biāo)=＂);dｏｕbleAy=douｂｌｅ、Parｓe(Consｏlｅ、ReadLinｅ());Liｓt<ｄouble>導(dǎo)線轉(zhuǎn)角集合＝newＬist<ｄｏuble＞();List＜dｏublｅ>導(dǎo)線邊長集合=newLiｓｔ<ｄoｕble＞();intｉ=1;dｏ｛Cｏnsoｌe、Wｒite("請輸入第{0｝個(gè)轉(zhuǎn)角得水平角[左角為正,右角為負(fù)］＜直接回車結(jié)束輸入＞＝",i);ｓｔriｎgｓtr=Ｃoｎsｏlｅ、ＲeadＬiｎe();if(ｓtr!＝""){導(dǎo)線轉(zhuǎn)角集合、Add(ＤEＧ(doｕble、Paｒse(sｔｒ)));｝eｌｓｅ{break;}Consｏｌe、Wriｔe(＂請輸入第{0｝條邊長值=",ｉ+＋);導(dǎo)線邊長集合、Aｄd(doublｅ、Parse(Coｎsole、ReadLine()));}ｗhile(ｔruｅ);/／計(jì)算Ｍ到Ａ得坐標(biāo)方位角ｄouｂlea０=方位角(Mｘ,My,Ax,Aｙ);／/計(jì)算每個(gè)點(diǎn)得坐標(biāo)ｄoublｅx0=Ax;doｕbley0=Ａy;for(intj＝０;j<導(dǎo)線轉(zhuǎn)角集合、Ｃoｕnｔ;ｊ++){a0+=導(dǎo)線轉(zhuǎn)角集合[ｊ]+Mａt(yī)h、PI;if(a0>2＊Mａｔh、PI)a０－=２*Ｍaｔh、PI;x0=x0+導(dǎo)線邊長集合[j]＊Math、Cｏs(ａ0);y0=y0+導(dǎo)線邊長集合［j］＊Math、Sin(a０);Cｏnsole、WrｉteLine("P{0｝點(diǎn)得坐標(biāo)就就是:{1｝,{２｝",j＋２,x0,y0);｝}／/將ddd、mmss轉(zhuǎn)為弧度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Ｉ;}//計(jì)算方位角,返回弧度值puｂlicｓtａt(yī)icdoｕ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(yī)ｈ、Ａ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)在如圖所示得單一附合水準(zhǔn)路線中,已知A點(diǎn)和B點(diǎn)得高程及每段得長度和高差,求每個(gè)點(diǎn)得高程。usingＳｙstem;ｕsiｎgＳysｔem、Ｃoｌlectiｏnｓ、Gｅｎeric;usiｎgSystem、Ｔexｔ;naｍeｓpacｅＣｏnｓoleAｐplicatiｏn1{ｃｌａssApplｉcation｛stａt(yī)icvoidMａin(ｓｔrinｇ[］a{Coｎsole、Wriｔe(＂請輸入Ａ點(diǎn)得高程=＂);doubleHａ=dｏubｌe、Pａrse(Conｓoｌe、ReadLine());Cｏnｓｏle、Wriｔe("請輸入B點(diǎn)得高程=");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}段長度[公里為單位]<直接回車結(jié)束輸入＞＝",ｉ);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ｅ);/／計(jì)算水準(zhǔn)路線閉合差ｄoubleｗ=0;dｏｕbｌｅ總長度=0;ｆor(ｉnｔj=0;ｊ<路線段長度集合、Ｃount;ｊ++)｛w+=路線段高差集合[j］;總長度+＝路線段長度集合［ｊ];}w＝ｗ-(Ｈb-Ha);//閉合差douｂlev=-w/總長度;//每公里改正數(shù)／/計(jì)算每個(gè)點(diǎn)得高程doublｅH=Hａ;for(iｎｔj=0;j<路線段長度集合、Ｃｏunt;j++){H+=路線段高差集合[ｊ]+v*路線段長度集合［ｊ］;Consｏlｅ、WｒitｅLine(＂P{0}點(diǎn)得高程就就是:{１｝＂,j+1,H);}Cｏnsole、WritｅＬinｅ("最后一點(diǎn)就就就是B點(diǎn)！");｝}}(7)在如圖所示得前方交會(huì)中,ABJ三點(diǎn)按逆時(shí)針方向排列,已知AB兩點(diǎn)得坐標(biāo)和兩個(gè)交會(huì)角度,求Ｊ點(diǎn)得坐標(biāo)。ｕｓ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("請輸入Ａ點(diǎn)得x坐標(biāo)=");ｄoubｌeAｘ=ｄouble、Pａrse(Console、ReaｄLｉne());Cｏnsole、Writｅ("請輸入Ａ點(diǎn)得y坐標(biāo)=＂);dｏubleＡｙ=double、Ｐａrse(Conｓole、ReａdLｉne());Consｏle、Ｗrｉｔe("請輸入B點(diǎn)得x坐標(biāo)＝");ｄoｕbleBx=ｄoublｅ、Parsｅ(Coｎsoｌe、ＲｅadLine());Consｏle、Wriｔe("請輸入Ｂ點(diǎn)得ｙ坐標(biāo)＝");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ｅ()));//計(jì)算Ａ到Ｂ得坐標(biāo)方位角dｏｕｂlea０=方位角(Aｘ,Ay,Bｘ,Ｂｙ);／/計(jì)算A到J得坐標(biāo)方位角a0-＝α;//計(jì)算Ａ到B得邊長dｏubｌeｓ=距離(Ax,Ay,Bx,By);//計(jì)算A到J得邊長s=s/Mａt(yī)h、Ｓin(Maｔｈ、PI-α-β)*Math、Ｓin(β);//計(jì)算Ｊ得坐標(biāo)dｏubleJx=Ａx+s＊Math、Cos(a０);doubｌeJy＝Ａy+s*Mａt(yī)h、Ｓｉn(a0);Coｎsoｌe、ＷｒiｔeLinｅ("J點(diǎn)得坐標(biāo)={0},{1}",Jx,Ｊｙ);｝//將ddd、mmｓｓ轉(zhuǎn)為弧度statiｃpublicdｏubｌeDEG(doubleanｇ){inｔfuhａo＝(inｔ)(aｎｇ/Mａt(yī)h、Aｂs(aｎｇ));ang=Mａt(yī)ｈ、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;}//計(jì)算方位角,返回弧度值ｐｕblicstatiｃdouble方位角(dｏuｂlｅx1,ｄoubley１,dｏublｅx2,doubley2){doubledelｔaX=x2-x1;doubｌedeｌtaY＝y(tǒng)２-ｙ1;doubｌeangle=Mａt(yī)h、PI*0、５;ｉｆ(Math、Aｂｓ(deltaＸ)>0、０0０00０00１){anglｅ=Maｔh、Atan２(deｌｔaY,deltaＸ);}if(anglｅ<0){angｌe+＝Mａt(yī)ｈ、PI;}if(deltａY<0、0){angle+＝Maｔh、PI;}ｒetuｒnangle;}/／計(jì)算距離pｕbｌicstaticdouble距離(ｄoubleｘ１,doubｌey1,doubｌex２,doubley２){reｔurnMaｔh、Sｑrt((x２－x1)*(x2－x1)+(y2-y1)＊(y2-ｙ１));}｝｝(8)在如圖所示得單個(gè)多邊形中,已知每個(gè)點(diǎn)得坐標(biāo),求多邊形得面積。提示面積得計(jì)算公式為:uｓｉngＳystｅm;usｉngSystem、Colｌeｃtionｓ、Ｇeｎeriｃ;usingＳystem、Tｅxt;ｎａmesｐaｃeCｏnsoleApplicａｔion1{clａssAｐpｌiｃａt(yī)iｏn{stａt(yī)icvoidMaｉn(sｔｒinｇ[]a{Ｌist＜double＞多邊形X坐標(biāo)集=newList<doubｌe>();Ｌｉst<douｂｌe＞多邊形Y坐標(biāo)集=neｗList＜douｂle>();ｉntｉ＝1;do{Conｓoｌe、Wriｔｅ("請輸入第{0｝點(diǎn)得ｘ坐標(biāo)<直接回車就結(jié)束輸入＞=",i);stringsｔr＝Conｓoｌｅ、ReadＬｉne();if(str!=""){多邊形X坐標(biāo)集、Add(doubｌe、Ｐarse(ｓtr));}ｅlse{break;｝Ｃonsolｅ、Write("請輸入第{０}點(diǎn)得y坐標(biāo)=＂,i++);多邊形Ｙ坐標(biāo)集、Adｄ(dｏublｅ、Ｐaｒｓe(Ｃonsｏle、ReａdLｉne()));｝ｗｈｉle(truｅ);/／計(jì)算面積doublearｅa＝0;//點(diǎn)得個(gè)數(shù)intCoｕnt=多邊形X坐標(biāo)集、Counｔ;fｏr(inｔj=0;j<Count-1;ｊ++){arｅa+=多邊形X坐標(biāo)集[j]*多邊形Y坐標(biāo)集[j+1]-多邊形X坐標(biāo)集[ｊ+1]*多邊形Y坐標(biāo)集[j］;}//計(jì)算最后一點(diǎn)到起點(diǎn)得項(xiàng)area+=多邊形X坐標(biāo)集[Ｃount-1]＊多邊形Y坐標(biāo)集[0]-多邊形X坐標(biāo)集[0]*多邊形Y坐標(biāo)集[Counｔ－1];Cｏnsole、ＷrｉtｅLine("多邊形得面積＝{0｝＂,Math、Ａbｓ(area*0、５));}}}(9)在如圖所示得僅有一個(gè)連接角得附合導(dǎo)線中,已知A點(diǎn)和B點(diǎn)得高程及每條邊得斜邊、垂直角、儀器高和反光鏡高,求每個(gè)點(diǎn)得高程。(提示:,D-－斜邊,-－垂直角,--儀器高,-－反光鏡高,-－大氣折光系數(shù))ｕsiｎgＳysteｍ;ｕsinｇＳystｅｍ、Ｃoｌlｅｃｔions、Genｅｒｉc;ｕsingSｙsteｍ、Linq;usingSystｅm、Ｔeｘt;ｎamesｐace導(dǎo)線｛cｌａｓsＰroｇram{ｓtaｔicvoｉdＭaｉn(ｓ{Ｃonsole、Write(＂請輸入A點(diǎn)得高程=＂);doubleHA=double、Parsｅ(Coｎsole、ReadＬｉｎｅ());Cｏnsolｅ、Wriｔe("請輸入B點(diǎn)得高程=");ｄ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｝點(diǎn)到{1｝點(diǎn)得斜距D<直接回車結(jié)束輸入＞=＂,i,i＋１);ｓtringsｔr=Consolｅ、RｅadLｉne();ｉf(stｒ＝="")bｒeak;doｕbｌeD=double、Paｒsｅ(ｓtr);Consolｅ、Wｒiｔe(＂請輸入｛0｝點(diǎn)到{1}點(diǎn)得垂直角=",ｉ,i+１);doｕｂｌeα＝導(dǎo)線、Ｄ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ｈ＝導(dǎo)線、高差(Ｄ,α,儀器高,反光鏡高,ｏｕt水平距離);水平距離平方集合、Aｄd(水平距離*水平距離);高差集合、Add(ｈ);水平距離平方和＋=水平距離*水平距離;高差和+=h;｝wｈile(trｕe);／／計(jì)算高差閉合差ｄoublｅ高差閉合差=HA+高差和-HＢ;//計(jì)算單位長度改正數(shù),三角高程得權(quán)與距離得平方成反比doｕｂle單位長度改正數(shù)=-高差閉合差/水平距離平方和;/／計(jì)算每點(diǎn)高程ｄouｂleH=HＡ;foｒ(intｊ=0;j<高差集合、Count;j＋＋){H+=高差集合［j]+單位長度改正數(shù)*水平距離平方集合[j］;Ｃoｎsolｅ、WriｔeLiｎｅ("第{0}點(diǎn)得高程H={1}",j+2,Ｈ);｝Console、WｒiｔeＬｉnｅ("最后一個(gè)點(diǎn)得高程應(yīng)該與B點(diǎn)得高程相同！");}｝class導(dǎo)線{//將dｄd、mmsｓ轉(zhuǎn)為弧度ｓtatｉcpublicdoubleＤEG(ｄoｕｂｌeang){intfuhａo=(ｉnt)(ａｎｇ／Mａt(yī)h、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;}//高差計(jì)算,返回高差ｐubliｃsｔａｔｉcdｏuｂle高差(doｕble斜距,ｄoublｅ垂直角,dｏuｂle儀器高,double反光鏡高,ｏutdoｕbｌe水平距離)｛doubｌeh=斜距*Maｔh、Ｓiｎ(垂直角)＋斜距*Mａt(yī)h、Cos(垂直角)／637１000、０*斜距*Math、Coｓ(垂直角)*(1-0、1３)+儀器高－反光鏡高;水平距離=斜距＊Math、Cos(垂直角);returnｈ;}}}(1０)在如圖所示得僅有一個(gè)連接角得附合導(dǎo)線中,已知M點(diǎn)、Ａ點(diǎn)和B點(diǎn)得坐標(biāo),每個(gè)點(diǎn)得左角及每條邊得水平距離,求每個(gè)點(diǎn)得坐標(biāo)。ｕsiｎgSyｓtem;usｉngSｙsｔｅm、Colｌections、Ｇenｅriｃ;usｉｎgSyｓtem、Ｔeｘt;namｅｓpaｃe導(dǎo)線{ｃｌaｓsProｇram{ｓtａｔｉcvoidMain(strｉng[]args){Consolｅ、Writｅ("請輸入M點(diǎn)得Ｘ坐標(biāo)=");doubｌeMＸ=double、Pａｒsｅ(Ｃonsｏle、ＲeaｄLine());Consoｌｅ、Write(＂請輸入M點(diǎn)得Y坐標(biāo)=");doubleMY=douｂle、Parsｅ(Conｓoｌe、ＲeａdＬine());Coｎsole、Wｒｉｔe("請輸入A點(diǎn)得X坐標(biāo)=");doubｌeＡX=doｕｂｌe、Parse(Console、ReａdLinｅ());Conｓole、Ｗrite(＂請輸入Ａ點(diǎn)得Ｙ坐標(biāo)＝＂);dｏｕbleAY＝doｕble、Parse(Coｎsｏle、RｅaｄLine());Cｏnsoｌe、Ｗｒｉｔｅ("請輸入B點(diǎn)得X坐標(biāo)=");doubleBX=doublｅ、Parse(Cｏnsole、ReadLｉｎe());Consolｅ、Write(＂請輸入B點(diǎn)得Y坐標(biāo)＝");dｏｕｂｌeBY=doubｌe、Parse(Consｏle、ReａdLiｎe());//計(jì)算Ｍ到A得方位角doubｌeα0=導(dǎo)線、方位角(MＸ,MY,AX,AY);Ｌist<dｏubｌe>坐標(biāo)增量X集合=newＬisｔ<dｏuｂlｅ>();List<double>坐標(biāo)增量Y集合=ｎewList<douｂｌe＞();iｎｔｉ＝1;ｄouble坐標(biāo)增量X和=0;double坐標(biāo)增量Ｙ和＝０;double坐標(biāo)增量X絕對值和＝0;doｕbｌe坐標(biāo)增量Y絕對值和=0;dｏuble水平距離和=0;dｏ{Conｓole、Wriｔe("請輸入{0}點(diǎn)到{1}點(diǎn)得水平距離S<直接回車結(jié)束輸入>=＂,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}點(diǎn)得水平角<左角為正,右角為負(fù)>=",i);doｕbleβ=導(dǎo)線、DＥG(doｕｂle、Parse(Cｏnsolｅ、RｅaｄＬｉne()));ｉ＋+;//計(jì)算坐標(biāo)增量ｄouｂleｄx,dy;α0=導(dǎo)線、坐標(biāo)(0,0,β,S,α０,ouｔdｘ,ｏutdy);坐標(biāo)增量X集合、Add(dｘ);坐標(biāo)增量Y集合、Ａｄｄ(dy);坐標(biāo)增量X和+=dx;;坐標(biāo)增量Y和＋＝dｙ;;坐標(biāo)增量X絕對值和+=Mａｔｈ、Ａbs(dx);坐標(biāo)增量Y絕對值和+=Math、Ａbs(dy);水平距離和+＝Ｓ;}ｗｈilｅ(trｕｅ);／/計(jì)算閉合差doｕble閉合差Ｘ＝AX+坐標(biāo)增量X和－BＸ;doubｌｅ閉合差Y=AＹ+坐標(biāo)增量Ｙ和-ＢＹ;／/計(jì)算單位長度改正數(shù)doｕｂleX坐標(biāo)單位長度改正數(shù)=－閉合差Ｘ/坐標(biāo)增量Ｘ絕對值和;doublｅY坐標(biāo)單位長度改正數(shù)=-閉合差Ｙ／坐標(biāo)增量Y絕對值和;//計(jì)算導(dǎo)線相對精度intｆ＝(ｉｎt)(水平距離和/Mａｔh、Sqrt(閉合差X*閉合差X+閉合差Y＊閉合差Y));Console、WｒiteＬiｎｅ("導(dǎo)線得相對精度為1／{0}＂,f);//計(jì)算每點(diǎn)坐標(biāo)doｕbｌｅＸ=AX;dｏubleY＝AY;ｆor(intｊ=０;ｊ<坐標(biāo)增量Ｘ集合、Cｏuｎt;ｊ＋+){X+=坐標(biāo)增量X集合[ｊ]+X坐標(biāo)單位長度改正數(shù)*Maｔh、Aｂs(坐標(biāo)增量X集合[j]);Y+=坐標(biāo)增量Y集合［ｊ]+Y坐標(biāo)單位長度改正數(shù)＊Mａt(yī)h、Ａbs(坐標(biāo)增量Y集合[j]);Consｏle、WriteLiｎe(＂第{０}點(diǎn)得X坐標(biāo)={1},Y坐標(biāo)={２}",j+2,X,Y);}Cｏnsole、WｒiｔｅＬine("最后一個(gè)點(diǎn)得坐標(biāo)應(yīng)該與B點(diǎn)得坐標(biāo)相同！");}}cｌａｓs導(dǎo)線{//將ddd、ｍmss轉(zhuǎn)為弧度sｔａt(yī)icpuｂ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ａt(yī)h、PI;}//計(jì)算方位角,返回弧度值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(yī)ｈ、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+＝Ｍａt(yī)h、ＰI;｝rｅturｎanｇle;}//計(jì)算坐標(biāo),返回已知點(diǎn)到計(jì)算點(diǎn)得方位角publicｓｔaticdoubｌe坐標(biāo)(doubｌex0,dｏubｌey0,dｏuble左角,dｏuｂｌe水平距離,double已知方位角,ｏｕtdoubｌex,outdouｂｌｅy){doｕbｌｅ方位角＝已知方位角+左角＋Mａt(yī)h、PI;／/將方位角調(diào)整到0到2π之間ｉｆ(方位角>＝Ｍath、ＰI*2)方位角-=Maｔh、PI*2;if(方位角<0、0)方位角＋＝Math、PI*2;x=x0＋水平距離*Matｈ、Cｏs(方位角);y=ｙ０+水平距離＊Ｍａt(yī)h、Sin(方位角);retｕｒn方位角;｝}｝(1１)在如圖所示得僅有一個(gè)連接角得附合導(dǎo)線中,已知M點(diǎn)、Ａ點(diǎn)和B點(diǎn)得坐標(biāo),A點(diǎn)和B點(diǎn)得高程,每個(gè)點(diǎn)得左角及每條邊得斜邊、垂直角、儀器高和反光鏡高,求每個(gè)點(diǎn)得坐標(biāo)和高程。(提示:,Ｄ-－斜邊,--垂直角,--儀器高,-－反光鏡高,-－大氣折光系數(shù))usｉngSystｅm;usｉｎｇSystem、Coｌlecｔiｏns、Geneｒｉc;ｕsingSysteｍ、Tｅxt;naｍespａｃe導(dǎo)線｛clasｓPrｏgrａm{ｓtaｔｉcvoiｄMaｉn(stｒing[]a{Consoｌe、Wｒiｔe("請輸入M點(diǎn)得Ｘ坐標(biāo)=");dｏubleMX=double、Parｓe(Cｏｎsole、ReadLiｎe());Conｓole、Write("請輸入M點(diǎn)得Y坐標(biāo)＝");ｄｏubｌｅMY＝doｕｂｌｅ、Ｐａｒse(Coｎsoｌe、ReadLine());Cｏｎsｏle、Ｗrite("請輸入A點(diǎn)得X坐標(biāo)=");ｄoublｅAX=doｕｂle、Parｓe(Conｓｏｌe、RｅadLｉne());Console、Wriｔｅ("請輸入A點(diǎn)得Y坐標(biāo)=＂);ｄoubleAＹ=ｄouble、Parse(Consolｅ、ＲeａdＬｉne());Cｏnsoｌｅ、Wrｉte(＂請輸入A點(diǎn)得高程=＂);ｄｏuｂleHＡ＝dｏublｅ、Parse(Conｓolｅ、ReadLｉne());Coｎsｏle、Write("請輸入B點(diǎn)得X坐標(biāo)=");ｄoubｌｅBＸ＝double、Paｒse(Consｏlｅ、ReadLiｎe());Cｏｎsoｌe、Writｅ("請輸入B點(diǎn)得Y坐標(biāo)＝");ｄoubleＢY=doｕble、Pａｒse(Ｃｏnｓolｅ、ReaｄＬｉne());Conｓole、Wriｔｅ("請輸入B點(diǎn)得高程=＂);ｄoublｅHB=doｕble、Parｓｅ(Cｏnsoｌe、ＲeａdＬinｅ());／／計(jì)算M到A得方位角ｄoubｌeα０=導(dǎo)線、方位角(ＭX,MＹ,AＸ,AＹ);Liｓt<double＞坐標(biāo)增量X集合=ｎｅwList＜dｏuble>();Lｉst<dｏubｌｅ>坐標(biāo)增量Ｙ集合=nｅwLisｔ<doubｌｅ>();Lｉst<double>高差集合=newLisｔ<doｕble>();Lｉsｔ<dｏｕｂle>水平距離平方集合＝newList<dｏuble＞();inti=1;double坐標(biāo)增量X和＝０;doｕblｅ坐標(biāo)增量Y和＝0;dｏuble坐標(biāo)增量X絕對值和＝0;ｄouble坐標(biāo)增量Y絕對值和=0;douｂle水平距離和=0;doｕｂle高差和=０;doｕble水平距離平方和=0;do{Ｃoｎsｏle、Ｗritｅ("請輸入{０}點(diǎn)到{１}點(diǎn)得斜距D<直接回車結(jié)束輸入>＝",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｝點(diǎn)得水平角<左角為正,右角為負(fù)>=",ｉ);doubleβ＝導(dǎo)線、DEＧ(doublｅ、Ｐarse(Ｃoｎsolｅ、RｅａｄLine()));Ｃonsolｅ、Wｒｉte(＂請輸入{0}點(diǎn)到｛1}點(diǎn)得垂直角＝",i,ｉ+１);ｄoubｌｅα=導(dǎo)線、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());ｉ++;／/計(jì)算高差dｏubｌe水平距離;douｂlｅh=導(dǎo)線、高差(Ｄ,α,儀器高,反光鏡高,ｏut水平距離);水平距離平方集合、Aｄｄ(水平距離*水平距離);高差集合、Ａｄｄ(h);水平距離平方和＋=水平距離*水平距離;高差和+=h;//計(jì)算坐標(biāo)增量doｕbｌedx,dy;α０=導(dǎo)線、坐標(biāo)(0,０,β,水平距離,α0,outｄx,outdy);坐標(biāo)增量Ｘ集合、Add(dｘ);坐標(biāo)增量Y集合、Add(dy);坐標(biāo)增量X和+＝dx;;坐標(biāo)增量Y和＋＝dy;;坐標(biāo)增量Ｘ絕對值和＋=Math、Abs(dx);坐標(biāo)增量Y絕對值和＋=Math、Abｓ(dy);水平距離和+=水平距離;}while(tｒue);/／計(jì)算高差閉合差double高差閉合差=HA+高差和-HB;//計(jì)算單位長度改正數(shù),三角高程得權(quán)與距離得平方成反比double單位長度改正數(shù)=-高差閉合差／水平距離平方和;/／計(jì)算閉合差doublｅ閉合差X=ＡX＋坐標(biāo)增量X和-BX;doｕble閉合差Ｙ=ＡY＋坐標(biāo)增量Ｙ和-BY;//計(jì)算單位長度改正數(shù)doubleX坐標(biāo)單位長度改正數(shù)=-閉合差X/坐標(biāo)增量X絕對值和;dｏuｂleY坐標(biāo)單位長度改正數(shù)=-閉合差Y／坐標(biāo)增量Y絕對值和;／/計(jì)算導(dǎo)線相對精度iｎtf＝(ｉｎt)(水平距離和／Maｔh、Sｑrt(閉合差Ｘ＊閉合差X＋閉合差Y＊閉合差Y));Consolｅ、WｒiteＬine("導(dǎo)線得相對精度為1/｛０｝",f);//計(jì)算每點(diǎn)坐標(biāo)doubｌeX=AX;dｏｕｂleY=AＹ;doｕｂlｅH=HＡ;for(iｎtｊ=0;j<坐標(biāo)增量X集合、Cｏuｎt;j＋+)｛H+＝高差集合[j]+單位長度改正數(shù)*水平距離平方集合[ｊ];Ｘ+=坐標(biāo)增量X集合［j］＋Ｘ坐標(biāo)單位長度改正數(shù)＊Math、Abs(坐標(biāo)增量X集合[ｊ]);Ｙ+=坐標(biāo)增量Y集合［j]+Y坐標(biāo)單位長度改正數(shù)*Ｍath、Abｓ(坐標(biāo)增量Y集合［j]);Coｎｓole、WriteLiｎe("第{０}點(diǎn)得Ｘ坐標(biāo)={１},Y坐標(biāo)＝{2｝,高程H={3｝",j＋2,X,Y,Ｈ);}Console、WrｉtｅLｉｎｅ(＂最后一個(gè)點(diǎn)得坐標(biāo)和高程應(yīng)該與B點(diǎn)得坐標(biāo)和高程相同！");｝}class導(dǎo)線{／/將ddd、mmss轉(zhuǎn)為弧度stａt(yī)icpuｂlｉｃdoubleDＥG(doｕbleanｇ)｛intfuhａo=(inｔ)(ａng/Ｍath、Abs(anｇ));ａng＝Ｍａt(yī)h、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(yī)ｈ、PI;}//計(jì)算方位角,返回弧度值publicstaｔiｃdｏｕble方位角(doｕblex1,doｕｂlｅy1,ｄoｕblex2,doublｅy2){douｂleｄeltaX=ｘ２-x1;dｏｕblｅｄeltaY＝y(tǒng)2－y1;dｏuｂｌeanglｅ=Ｍath、ＰI*0、5;if(Mａt(yī)ｈ、Ａｂ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;}/／高差計(jì)算,返回高差publｉcstａt(yī)ｉ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ｈ;}//計(jì)算坐標(biāo),返回已知點(diǎn)到計(jì)算點(diǎn)得方位角ｐuｂlｉｃsｔaticdouble坐標(biāo)(douｂleｘ０,ｄoubｌey0,ｄouｂle左角,double水平距離,ｄoｕble已知方位角,outdoubｌex,oｕtdouｂley){dｏublｅ方位角=已知方位角＋左角+Math、PI;／/將方位角調(diào)整到0到2π之間if(方位角>＝Mａt(yī)h、PI*2)方位角-=Math、PI*２;ｉf(方位角＜0、0)方位角+=Math、PI*2;x=x0+水平距離*Maｔｈ、Cos(方位角);y=y0+水平距離*Math、Sin(方位角);ｒeturｎ方位角;}}}(12)在如圖所示得具有兩個(gè)連接角得附合導(dǎo)線中,已知M點(diǎn)、N點(diǎn)、A點(diǎn)和Ｂ點(diǎn)得坐標(biāo),A點(diǎn)和B點(diǎn)得高程,每個(gè)點(diǎn)得左角及每條邊得斜邊、垂直角、儀器高和反光鏡高,請采用近似平差方法求每個(gè)點(diǎn)得坐標(biāo)和高程。(提示:,D-－斜邊,--垂直角,－-儀器高,-－反光鏡高,－-大氣折光系數(shù))ｕsingSｙsteｍ;ｕsｉｎgSysteｍ、Ｃｏllectiｏns、Gｅneric;usｉnｇSysｔem、Teｘt;namesｐaｃe導(dǎo)線{ｃlassProgram{statｉcvoidＭaｉｎ(string[]aｒg｛Conｓoｌe、Ｗｒiｔe("請輸入M點(diǎn)得Ｘ坐標(biāo)=");dｏuｂleＭX＝double、Parse(Conｓｏlｅ、