{VERSION 4 0 "IBM INTEL NT" "4.0" }
{USTYLETAB {CSTYLE "Maple Input" -1 0 "Courier" 0 1 255 0 0 1 0 1 0 0 
1 0 0 0 0 1 }{CSTYLE "2D Math" -1 2 "Times" 0 1 0 0 0 0 0 0 2 0 0 0 0 
0 0 1 }{CSTYLE "2D Output" 2 20 "" 0 1 0 0 255 1 0 0 0 0 0 0 0 0 0 1 }
{PSTYLE "Normal" -1 0 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 
2 2 1 1 1 1 }1 1 0 0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 
11 1 {CSTYLE "" -1 -1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }3 3 0 
0 0 0 1 0 1 0 2 2 0 1 }{PSTYLE "Maple Output" -1 12 1 {CSTYLE "" -1 
-1 "Times" 1 12 0 0 0 1 2 2 2 2 2 2 1 1 1 1 }1 3 0 0 0 0 1 0 1 0 2 2 
0 1 }}
{SECT 0 {EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 89 "# propaga\347\343o d
e vari\342ncias-covari\342ncias numa irradiada incluindo incertezas na
s medi\347\365es " }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 78 "# line
ares e angulares, assim como incertezas nas coordenadas do ponto esta
\347\343o" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 20 "with(LinearAlgebra):" }}}{EXCHG 
{PARA 0 "> " 0 "" {MPLTEXT 1 0 1 "#" }}}{EXCHG {PARA 0 "> " 0 "" 
{MPLTEXT 1 0 16 "M2:=M1+d*sin(R);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>
%#M2G,&%#M1G\"\"\"*&%\"dGF'-%$sinG6#%\"RGF'F'" }}}{EXCHG {PARA 0 "> " 
0 "" {MPLTEXT 1 0 16 "P2:=P1+d*cos(R);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%#P2G,&%#P1G\"\"\"*&%\"dGF'-%$cosG6#%\"RGF'F'" }}}{EXCHG {PARA 
0 "> " 0 "" {MPLTEXT 1 0 79 "sigma_obs:=Matrix([[s2M1,sM1P1,0,0],[sM1P
1,s2P1,0,0],[0,0,s2d,0],[0,0,0,s2R]]);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%*sigma_obsG-%'RTABLEG6$\")w4ez-%'MATRIXG6#7&7&%%s2M1G%&sM1P1G
\"\"!F07&F/%%s2P1GF0F07&F0F0%$s2dGF07&F0F0F0%$s2RG" }}}{EXCHG {PARA 0 
"> " 0 "" {MPLTEXT 1 0 109 "J:=Matrix([[diff(M2,M1),diff(M2,P1),diff(M
2,d),diff(M2,R)],[diff(P2,M1),diff(P2,P1),diff(P2,d),diff(P2,R)]]);" }
}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%\"JG-%'RTABLEG6$\")73hz-%'MATRIXG6#
7$7&\"\"\"\"\"!-%$sinG6#%\"RG*&%\"dGF.-%$cosGF2F.7&F/F.F6,$*&F5F.F0F.!
\"\"" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 38 "sigma_coord:=J.sigm
a_obs.Transpose(J);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%,sigma_coordG
-%'RTABLEG6$\")onvz-%'MATRIXG6#7$7$,(%%s2M1G\"\"\"*&)-%$sinG6#%\"RG\"
\"#F0%$s2dGF0F0*()%\"dGF7F0)-%$cosGF5F7F0%$s2RGF0F0,(%&sM1P1GF0*(F3F0F
8F0F=F0F0**F:F0F=F0F?F0F3F0!\"\"7$F@,(%%s2P1GF0*&F<F0F8F0F0*(F:F0F2F0F
?F0F0" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 57 "Aux0:=ScalarMultip
ly(Matrix(2,2,shape=identity),-lambda);" }}{PARA 11 "" 1 "" {XPPMATH 
20 "6#>%%Aux0G-%'RTABLEG6$\")Onyz-%'MATRIXG6#7$7$,$%'lambdaG!\"\"\"\"!
7$F1F." }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 28 "Aux1:=Add(sigma_c
oord,Aux0);" }}{PARA 11 "" 1 "" {XPPMATH 20 "6#>%%Aux1G-%'RTABLEG6$\")
gw#)z-%'MATRIXG6#7$7$,*%%s2M1G\"\"\"*&)-%$sinG6#%\"RG\"\"#F0%$s2dGF0F0
*()%\"dGF7F0)-%$cosGF5F7F0%$s2RGF0F0%'lambdaG!\"\",(%&sM1P1GF0*(F3F0F8
F0F=F0F0**F:F0F=F0F?F0F3F0FA7$FB,*%%s2P1GF0*&F<F0F8F0F0*(F:F0F2F0F?F0F
0F@FA" }}}{EXCHG {PARA 0 "> " 0 "" {MPLTEXT 1 0 34 "solve(Determinant(
Aux1)=0,lambda);" }}{PARA 12 "" 1 "" {XPPMATH 20 "6$,,%$s2dG#\"\"\"\"
\"#*(F%F&)%\"dGF'F&%$s2RGF&F&*&F%F&%%s2M1GF&F&*&F%F&%%s2P1GF&F&*&F%F&-
%%sqrtG6#,D*$)F$F'F&F&**F'F&F)F&F+F&F$F&!\"\"*(F'F&F-F&F$F&F8*(F'F&F$F
&F/F&F&*&)F*\"\"%F&)F+F'F&F&**F'F&F-F&F)F&F+F&F&**F'F&F)F&F+F&F/F&F8*$
)F-F'F&F&*(F'F&F-F&F/F&F8*$)F/F'F&F&*,F=F&F)F&F+F&F/F&)-%$sinG6#%\"RGF
'F&F&*&F=F&)%&sM1P1GF'F&F&**F=F&F-F&F$F&FGF&F&*,F=F&F-F&F)F&FGF&F+F&F8
**F=F&FGF&F$F&F/F&F8*,\"\")F&FNF&FHF&F$F&-%$cosGFJF&F&*.FSF&FNF&F)F&FT
F&F+F&FHF&F8F&F&,,F$F%*(F%F&F)F&F+F&F&*&F%F&F-F&F&*&F%F&F/F&F&*&#F&F'F
&*$F1F&F&F8" }}}}{MARK "13" 0 }{VIEWOPTS 1 1 0 1 1 1803 1 1 1 1 }
{PAGENUMBERS 0 1 2 33 1 1 }{RTABLE_HANDLES 79580976 79610812 79756768 
79786736 79827660 }{RTABLE 
M6R0
I5RTABLE_SAVE/79580976X,%)anythingG6"6"][[[[[p1"%"%%%s2M1G%&sM1P1G""!F)F(%%s2P1
GF)F)F)F)%$s2dGF)F)F)F)%$s2RGF&
}
{RTABLE 
M6R0
I5RTABLE_SAVE/79610812X,%)anythingG6"6"][[[[[p)"#"%"""""!F(F'-%$sinG6#%"RG-%$co
sGF+*&%"dGF'F-F',$*&F0F'F)F'!""F&
}
{RTABLE 
M6R0
I5RTABLE_SAVE/79756768X,%)anythingG6"6"][[[[[p%"#"#,(%%s2M1G"""*&-%$sinG6#%"RG"
"#%$s2dGF)F)*(%"dGF/-%$cosGF-F/%$s2RGF)F),(%&sM1P1GF)*(F+F)F0F)F3F)F)**F2F/F3F)
F5F)F+F)!""F6,(%%s2P1GF)*&F3F/F0F)F)*(F2F/F+F/F5F)F)F&
}
{RTABLE 
M6R0
I5RTABLE_SAVE/79786736X,%)anythingG6"6"][[[[[p%"#"#,$%'lambdaG!""""!F*F'F&
}
{RTABLE 
M6R0
I5RTABLE_SAVE/79827660X,%)anythingG6"6"][[[[[p%"#"#,*%%s2M1G"""*&-%$sinG6#%"RG"
"#%$s2dGF)F)*(%"dGF/-%$cosGF-F/%$s2RGF)F)%'lambdaG!"",(%&sM1P1GF)*(F+F)F0F)F3F)
F)**F2F/F3F)F5F)F+F)F7F8,*%%s2P1GF)*&F3F/F0F)F)*(F2F/F+F/F5F)F)F6F7F&
}