read angles in radian and convert them in degrees/minutes/seconds
- by Amadou
n=0;
disp('This program performs an angle conversion');
disp('input data set to a straight line. Enter the name');
disp('of the file containing the input Lambda in radian: ');
filename = input(' ','s');
[fid,msg] = fopen(filename,'rt');
if fid < 0
disp(msg);
else
A=textscan(fid, '%g',1);
while ~feof(fid)
Lambda = A(1);
n = n + 1;
A = textscan(fid, '%f',1);
end
fclose(fid);
end
Alpha=Lambda*180/pi;
fprintf('Angle converted from radian to degree/minutes/seconds:\n');
fprintf('Alpha =%12d\n',Alpha);
fprintf('No of angles =%12d\n',n);
