Головная программа
%Расчет аппаратных функций ГКК, построенных на основе ПСП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;
Самое читаемое:
Исследование электромагнитной обстановки в помещении при воздействии сверхкоротких электромагнитных импульсов на электронные средства
Задача борьбы с электромагнитными воздействиями возникла почти
одновременно с электроникой, но в то время самостоятельного значения не имела и
особых трудностей для своего решения не представляла. Трудности появились с
увеличением количества технических средств, в частности электронных средств
(ЭС), усложнением и ...