r2d.m

摄影测量学中单像空间后方交会程序

function  degrees=r2d(radian)
if radian>=0
    degree=floor(radian*180/pi);                               %得到度数
    minute=floor((radian*180/pi-degree)*60);                   %得到分数
    second=((radian*180/pi-degree)*60-minute)*60;   %得到秒数
    degrees=degree+minute/100+second/10000;
else
    radian=-radian;
    degree=floor(radian*180/pi);                               %得到度数
    minute=floor((radian*180/pi-degree)*60);                   %得到分数
    second=((radian*180/pi-degree)*60-minute)*60;   %得到秒数
    degrees=-(degree+minute/100+second/10000);
end