> MA:=2663.696;

> PA:=2500.726;

> MB:=3726.952;

> PB:=3752.443;

> R_BA:=arctan((MA-MB)/(PA-PB));

> if ((PA-PB)<0) then R_BA:=R_BA+evalf(Pi) end if;

> if ((MA-MB)<0 and (PA-PB)>0) then R_BA:=R_BA+2*Pi end if;
> R_BA_grados:=R_BA*200/evalf(Pi);

> MD:=7171.921;

> PD:=2378.599;

> R_BD:=arctan((MD-MB)/(PD-PB));

> if ((PD-PB)<0) then R_BD:=R_BD+evalf(Pi) end if;

> if ((MD-MB)<0 and (PD-PB)>0) then R_BD:=R_BD+2*Pi end if;
> R_BD_grados=R_BD*200/evalf(Pi);

> R_BC:=R_BA-87.37/200*evalf(Pi);

> R_BC_grados=R_BC*200/evalf(Pi);

> alfa:=R_BC-R_BD;

> alfa_grados:=alfa*200/evalf(Pi);

> BD:=sqrt((MB-MD)^2+(PB-PD)^2);

> gama:=evalf(Pi)-alfa-126.22/200*evalf(Pi);

> gama_grados:=gama*200/evalf(Pi);

> BC:=sin(gama)*BD/sin(126.22/200*evalf(Pi));

> MC:=MB+BC*sin(R_BC);

> PC:=PB+BC*cos(R_BC);

>