Разработка методики измерения радиуса округления режущих кромок лезвий с помощью растрового электронного микроскопа, страница 7

Список использованных источников

 1.  Залога В. А. Разработка научных основ и принципов практического применения нестационарных видов обработки резанием на базе попутного тангенциального точения: Автореф. дисс. ... докт. техн. наук:05.03.01/ СумГУ. -Х., 2000. -33c.

 2.  Якобсон М. О. Шероховатость, наклеп и остаточные напряжения при механической обработке. -М.: Машгиз, 1956. -307c.

 3.  Сильнопальников В. А., Эйхманс Э. Ф. Радиус округления режущих кромок твердосплавного инструмента//Станки и инструмент. -1965. -№ 6. -C.  35- 37

 4.  Протяжки для обработки отверстий/Д. К. Маргулис, М. М. Тверской, В. Н. Ашихмин и др. -М.: Машиностроение, 1986. -232c.

 5.  Мазур Н. П. Разработка теоретических основ и практическое использование термомеханической модели обработки пластических материалов: Дисс. ... докт. техн. наук:05.03.01. -К., 1999. -309c.

 6.  Баклунов Е. Д., Москалев А. П. Использование двойного микроскопа МИС-11 для определения радиуса округления режущих лезвий//Труды Николаевского кораблестроительного института. -1974. -Вып.  81. -C.  51- 54

 7.  Зорев Н. Н. Вопросы механики процесса резания. -М.: Машгиз, 1956. -368c.

 8.  Волкова Т. М., Бура С. Т. Измерение радиуса округления режущей кромки инструмента//Измерительная техника. -1968. -№ 10. -C.  78- 79

 9.  Лаврова Л. В. Разработка и применение обобщенного критерия оценки качества износостойких покрытий TiN на быстрорежущем инструменте: Дисс. ... канд. техн. наук:05.02.01. -Запорожье, 1990. -195c.

 10. Nakayama K. N., Arai M. A., Wanc  . X. Способ  оценки остроты режущей кромки//Сэймицу когаку  кайси =  J.  Jap.  Soc. Presic. Eng. -1989. -Т.  55, № 12. -C.  2261- 2266

 11. Schafer W. S. Измерение радиуса округления режущих кромок инструмента//Экспресс информация. -1972. -Т.  3, № 6. -C.  174- 176

 12. US5090811. Charles W. Optical radius gauge. G01B 011/24//1. -1992. -C.  1- 1

 13. Филоненко С. Н., Деревянченко А. Г. Особенности стружкообразования при резании с малыми толщинами среза//Резание и инструмент в технологических системах: Межд. научн. техн. сборник. -Х.: Высшая школа, 1977. -Вып.  18. -C.  73- 77

 14. Практическая растровая электронная микроскопия: Пер. с англ./Под ред. Д. Г. Гоулдстейна. -М.: Мир, 1978. -656c.

 15. Справочник машиностроителя: В 6-х т./Под ред. Н. С. Ачеркана. -2 изд., доп. -М.: Машгиз, 1956. -Т.1. -567c.

 16. РЭМ-100. Руководство по эксплуатации ЦФ1.720.041 РЭ. -Сумы: ПО "Электрон", 1989. -159c.

ПРИЛОЖЕНИЕ А
Программа автоматизированного определения радиуса округления режущей кромки

function [mn,ro,t1,t2]=calcro(FileName,sc,Frotate)

%Функция определения радиуса округления режущей кромки по фотографии

%Использование calcro('Имя файла', увеличение, [rotate])

%rotate - 'rotate' - устранять невертикальность изображения; 'nrotate' - не надо

if nargin<1, error('Not enouph arguments'); end;

if nargin==1,

   sc=1000;

end;

if ~exist('Frotate'),

   Frotate='rotate';

end;

if isempty(Frotate),  Frotate='rotate'; end;

thread=1.73;

fprintf('Файл - %s\n',FileName);

fprintf('Увеличение - %f\n',sc);

im=imread(FileName);

%im=wiener2(im,[3 3],0.05);

j=imadjust(im,[0.8 1],[],0.1);

[rows cols]=size(j);

sc=217.6/sc/cols;

ro=zeros(rows,1);tr=200;

if strcmp(Frotate,'rotate'),

   for i=1:rows,

      tmp=find(j(i,50:end)>tr);

      if length(tmp)>0,

         t1(i)=tmp(1);

         t2(i)=tmp(end);

      else

         t1(i)=0;

         t2(i)=0;

         ro(i)=0;

      end

   end;

   %повращаем

   pl=polyfit(1:length(t2),t2,1);

   im1=imrotate(im,-pl(1)*90/pi);

   fprintf('Изображение было повернуто на %f градусов\n', -pl(1)*90/pi);

else

   im1=im;

end;

mn=mean(im1,1);

rt=find(mn>mean(mn(ceil(0.1*cols:0.33*cols))));

rt=rt(find(rt>ceil(0.33*cols)));

ro=length(rt)*sc;

fprintf('Cредний радиус округления ro = %f мм\n',ro);

%fprintf('Среднее квадратическое отклонение sro = %f мм\n',std(ro(find(abs(ro-mean(ro))<thread*std(ro)))));

imshow(im1);

hold on;

handle=plot(mn);

set(handle,'color','red','LineWidth',2);

%hold off;

handle=line([min(rt);min(rt)], [1 rows] );

set(handle,'color','green','LineWidth',1);

handle=line([max(rt);max(rt)], [1 rows] );

set(handle,'color','green','LineWidth',1);

OK=input('Границы правильно определены? (1-Да(обе)/0-Нет(обе)/2-Нет(начало)/3-Нет(конец):');

if isempty(OK), OK=1; end

if OK~=1,

   if OK==0|OK==2,

      ps=mginput('Координата начала радиуса');

      rt=rt(find(rt>=ps));

      handle=line([min(rt);min(rt)], [1 rows] );

      set(handle,'color','blue','LineWidth',1);

   end

   if OK==0|OK==3,

      ps=mginput('Координата конца радиуса');

      rt=rt(find(rt<=ps));

      handle=line([max(rt);max(rt)], [1 rows] );

      set(handle,'color','blue','LineWidth',1);

   end

   ro=length(rt)*sc;

   fprintf('Cредний уточненный радиус округления ro = %f мм\n',ro);

end;

hold off;