Ajuste de Redes Topográficas por Mínimos Cuadrados: Cálculo de Coordenadas, Azimutes y Precisiones

Ajuste de Redes Topográficas por Mínimos Cuadrados

O2.Dg2/6,x,[12]-7obs(conoc)1C.Aprox;A;B;C|20;16;18|Hz|| afa=B-A;beta=C-B||x1=...tan(*pi()/200);;;x5|EpAprx;NpAprx |\2DesorAprx[f1]Est[12];Vis[A];Hz;AE=Ea-EpAprx;AN;AzCalc'= atan(AE/AN)*PI/200;AzC=si(AN<0;Az'+200;SI(AE<0;Az'+400;Az'));Desor'=Az-Hz;Desr=+400|\3CotaAprx[f1]Est[12];Vis[B]; CotaVis=Hb;AH=Dg*cos(V*pi/200)+i-m+(0,5-CoefR)*Dg^2/RT; CotaAprx=CotaV-AH|\4ReduccDist[f2(Dg)]Vis[A;B];w=Dg/ $Rt*200/pi;Dr=Dg*seno((V-w+w*$CoefR)*pi/200)/cos(w/2* pi/200);Dmar=Dr*$Rt/($Rt*CotaAprx+i);Dutm=Dm*$Ku|\ %CParam[Td]Est;Vis;Hz;AE;AN;AzC';AzC;AzObs'=Hz+$Desor(12-A);AzO=-400;Dif(cc)=AzC-AzO)*10000;DistCal=raiz(AE^2+ AN^2);DIstObs=Du;DifD=Dc-Do;sang;sdist=($sd1+$sd2*Do/ 1000)/1000|\6CalcMatricl[td]MatrzA=Est;Vis;Tipo=Dir/Dist;dE=-AN/Dc^2*$rcc/sa;dN=AE/...;dDesor[Dir]=-1/sa[Dist]=0;FE [Dir]=0[Ds]=-Do/sd||MtrzL=-Dif(cc)/sa|\MatrzN-1=MINVERS (MMULT(TRANSPONER(dE:FE);dE:FE))||Mtrzt=MMULT(TRANSPONER(dE:FE);ML:ML)||Mtrzx dE;dN;dDesor;FE;FE| = MMULT(MN-1:MN-1;Mt:Mt);FE=FE*10^6|m;m;cc; ;ppm|\ 7CResid[td]Est|Vis|Tip|V=A*x-L(ad)||SOLDesvTAPost=RAIZ (MMULT(TRANSP(MV);MV)/(CONTAR(MV)-CONTAR(Mt)))|\ ResultFinlsE12;N12;Desor12;FE|EpAPrx+dE;NpAPrx+dN;Desor(12-20)+dDesor/10000;FE|m;m;gon;ppm|Precisons$DvTAP *raiz(N-1.1); ; ;..(N-1.4)*10^6|m;m;cc;ppm

Cálculo de Coordenadas Desconocidas: Punto 16

O1NoDistConoc-descon(16)1CAzPtosFijs[f4] Est[1CadaPto| Vis[conoc]|AE|AN|Az'|Az|desr'|Desr|\2CoordAprx[f2]Est[a;b];Vis[16(descon)]|Az'=Desr+Hz|Az=-400;tang=tan(Az*pi/200)||E16=tg*(N16-Na)+Ea|N16=(Nb*tgb-Na*tga+Ea-Eb)/(tgb-tga)|\3CDatsCalcsyObs[td]Est|Vis|AE|AN|AzCalc'|AzC|AzObs|AzO|Dif(cc)|DistCalc|DvD=Raiz($DvE^2+$DvS^2)/1000/DistC*$rcc|Dvang=razi(DvD^2+$DvP^2+$DvL^2+$DvV^2)|\ 4C MatriclMA=Est|Vis|dE[16]=AN/Dc^2*$rcc/Dva:RestoVals=0|dN[16]=-AE..|dDesor12[12]=-1/Dvang;0;0..dD13|dD19|dD20 ||ML(TºIndep)=-Dif(cc)/Dva|\MN-1=MINVERS (MMULT (TRANSP(MA);MA))||Mtrzt=MMULT(TRANSPONER(MA);ML)||Mx=dE;dN;dD12;dD13;19;20|=MMULT(MN;Mt)|m;m;cc;cc,,|Precisions=$DesvT*raiz(N-1.1)|m;m;cc;cc..|\Est[td];Vis;V= A*x-L Ç=MMULT (MA;Mx)-ML||SOLDesvT=RAIZ(MMULT( TRANSP(V);V)/(11-6)|\ValorsAjustE;N;desor12;13;19;20| E16+dE;N16+dN;desor12+dD12/10000;;;|+-;+-;;;|=Prescis(dE);P(dN);P(dD12)/10000;;;|m;m;gon;gon,,