directionvalue.m

利用ＭＡＴＬＡＢ实现了对测量中的平面网

function directionvalue(fit2,layername,groesse,direction,x1,y1,x2,y2,offset)
%----write direction
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;
fi2=-alfa((y2-y1),(x2-x1))*180/pi+90;
fi1=alfa((y2-y1),(x2-x1));
fprintf(fit2,'10\n'); fprintf(fit2,'%12.3f\n',x1+offset*sin(fi1));
fprintf(fit2,'20\n'); fprintf(fit2,'%12.3f\n',y1+offset*cos(fi1));
fprintf(fit2,'40\n'); fprintf(fit2,'%d\n',groesse);
fprintf(fit2,'50\n'); fprintf(fit2,'%10.4f\n',fi2);
fprintf(fit2,'1\n'); fprintf(fit2,'%s\n',num2str(direction));
return