Головная программа
%Расчет аппаратных функций ГКК, построенных на основе ПСПParams X_d XY_Det Y_d d1;_pst='LIST_PST.txt'; %Аппаратные функции, которые необходимо посчитать прописаны в файле= fopen(name_pst,'r'); = fgetl(fid);id~=-1= str2num(id(1:4)); %Получаем длину = str2num(id(5:8)); %Количество открытых пинхолов= str2num(id(9:12)); %Лямбда= str2num(id(13:16)); %Коэффициент расширения=(-3+sqrt(12*v*(n+1)-3))/6; %Из длины получаем Ранг ГКК='csv\'; .A=8; %Ячейка детектора.a=4; %Ячейка КК.L=100;%Расстояние от КК до ПЧД.NumT=2; %Дискретность~(k==v-1)=Make_list_KK_HEX_ex(minR,maxR,Params.a,naaame, n)
%считываем явный вид ПСП из ее параметров v,k,l,nk %выбираем тип (вырожденная, ассоциированная или классическая)1=4;v-1=3;k>v/2=2;=1;= PSHEX(pp).R = pshex.R;.MKK = pshex.open; %Записываем центры открытых пинхолов_Det = Make_Centr_Hex(Params.A, pshex.R);= 0.5*numel(pshex.open);_d = repmat(XY_Det(:,1), 1, d1);_d = repmat(XY_Det(:,2), 1, d1);=getaf(pshex); %Производится расчет АФ_d = min(af); %Находятся верхняя, нижняя, и средняя АФ_u = max(af);_m = mean(af);
%Отрисовываем аппаратные функции()on('Up, Middle, Down')=Params.A*Params.L/(Params.A-Params.a);=(-Params.L+Params.NumT:Params.NumT:Params.L);=[Z' af_u' af_d' af_m'];(Z,af_d,'b','Linewidth',2 );(Z,af_u,'r','Linewidth',2 );(Z,af_m,'g','Linewidth',2 );=flipud(af); %Приводим АФ к нужному для расчета виду
Анализ верхней АФ = Archive_Array(AF(:,1),AF(:,2));= Return_Local_Max_New(nU(:,1),nU(:,2)); %поиск локальных максимумовisempty(P)_Peak = [NaN, NaN];= [];_U = [nU(:,1),nU(:,2)];= max(nU(:,2));= Analys_TU(P);= K{1};_Peak = G;= G(1,2);_U = Cut_AF(nU(:,1),nU(:,2),GU);= Return_Local_Max_New(AF_U(:,1),AF_U(:,2));= Analys_TU(P);= K{1};_Peak = G;= G(1,2);= K{2};isempty(P)(1)=NaN;_ar = [];_U = [AF_U(:,1),AF_U(:,2)];_params = [NaN, NaN, NaN, NaN, NaN, NaN];(1) = max(P(:,2));_ar = Form_TU_L(P);_U = Return_Envelope(AF_U(:,1),AF_U(:,2),TU_ar);_params = Return_Dols_Params(AF_U(:,1),AF_U(:,2),Glav_Peak);
%2) анализ нижней АФ= Archive_Array(AF(:,1),AF(:,3));= Return_Local_Max_New(nU(:,1),nU(:,2));= Analys_TU(P);= K{1};= G(1,2);= K{2};isempty(P)(2)=NaN;(2) = max(P(:,2));
%3) анализ средней АФ= Archive_Array(AF(:,1),AF(:,4));= Return_Local_Max_New(nU(:,1),nU(:,2));= Analys_TU(P);= K{1};= G(1,2);= K{2};isempty(P)(3) = NaN;(3) = max(P(:,2));= Return_FWHM(AF(:,1),AF(:,2), AF(:,3), AF(:,4), GU, GD, GM);
%Формирование структуры характеристик= struct( 'V',str.vkln(1), .
'R',minR, .
'Pinholes', str.vkln(2), .
'AF',AF, .
'Du_1',Polush(1), .
'Dm_1',Polush(3), .
'Dd_1',Polush(2), .
'Tu_1',T(1), .
'Tm_1',T(3), .
'Td_1',T(2), .
'Env_U',Envelope_U, .
'GL_Peak',Glav_Peak, .
'IU_m', Dol_params(1), .
'TU_array', TU_ar);(S.Env_U(:,1), S.Env_U(:,2), 'k')= ['analizNEW\',sv,'_', svn, sk, sl, sn,'_', sA, sa, sL,'_',num2str(Params.ind), '.mat'];(name, 'S');
%Сохранение в файл всех характеристик= fgetl(fid);;(fid);.m
%Непосредственный расчет АФmassiv_tochkek_AF=getaf(PSHEX)XY_Det Params MMB MMBF;
% XY_Det = Make_Centr_Hex(Params.A, PSHEX.R);_A = Params.A*Params.a/(Params.A-Params.a);
Формирование центров ячеек в фокусной плоскости _FP = Make_Centr_Hex(FP_A, PSHEX.R);
%Процедура, необходимая для свертки, при использовании РПСП=eye(PSHEX.vkln(4)+1);i=1:PSHEX.vkln(1)j=1:PSHEX.vkln(1)((i-1)*(PSHEX.vkln(4)+1)+1:(i-1)*(PSHEX.vkln(4)+1)+PSHEX.vkln(4)+1,(j-1)*(PSHEX.vkln(4)+1)+1:(j-1)*(PSHEX.vkln(4)+1)+PSHEX.vkln(4)+1)=MBF;
Самое читаемое:
Разработка микроконтроллерного устройства стабилизации температуры
Эффективная организация контроля информации приобретает всё большее
практическое значение, прежде всего как условие успешной практической
деятельности людей. Объем информации, необходимой для нормального
функционирования современного общества, растёт из года в год. На сегодняшний
день складывается ситуация, в которой наряду с самой ...