sidevalue.m

来自「利用ＭＡＴＬＡＢ实现了对测量中的平面网」· M 代码 · 共 19 行

function sidevalue(fit2,layername,groesse,side,x1,y1,x2,y2)
%----write side
fprintf(fit2,'0\n'); fprintf(fit2,'TEXT\n');
fprintf(fit2,'8\n'); fprintf(fit2,'%s\n',layername);
x=(x1+x2)/2;y=(y1+y2)/2;
fi1=360-(alfa((y2-y1),(x2-x1))*180/pi-90);
if(fi1>90&fi1<180)
    fi1=fi1+180;
end
if(fi1>180&fi1<270)
    fi1=fi1-180;
end
fprintf(fit2,'10\n'); fprintf(fit2,'%12.3f\n',x);
fprintf(fit2,'20\n'); fprintf(fit2,'%12.3f\n',y);
fprintf(fit2,'40\n'); fprintf(fit2,'%d\n',groesse);
fprintf(fit2,'50\n'); fprintf(fit2,'%10.4f\n',fi1);
fprintf(fit2,'1\n'); fprintf(fit2,'%s\n',num2str(side));
return