clc
clear
fid = fopen(‘pnet1.txt’);
if fid>=3 %判断是否输入成功
msgbox(‘Opening Successfully’);
else
errordlg(‘Failed’,’Wrong File’);
end
%逐行读取第1行概况信息
tline1 = fgetl(fid);
str = ‘[-]?\d[\.]?\d*’;
f1=str2double(regexp(tline1,str,’match’));
m_Pnumber=f1(1,1);%总点数
m_knPnumber=f1(1,2);%已知点数
m_Lnumber=f1(1,3);%方向值组数
m_Nnumber=f1(1,4);%方向值总数
m_Snumber=f1(1,5);%边长总数
m_Tnumber=f1(1,6);%方位角总数
%逐行读取第2行观测值精度
tline2 = fgetl(fid);
f2=str2double(regexp(tline2,str,’match’));
ma=f2(1,1);%方向值中误差
mS1=f2(1,2);%边长固定误差
mS2=f2(1,3);%边长比例误差
mT=f2(1,4);%方位角中误差
%逐行读取第3行点名数组
tline3 = fgetl(fid);
st = ‘[\w][-]