Разделы сайта

Тексты программ и описание их работы

Головная программа

%Расчет аппаратных функций ГКК, построенных на основе ПСП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;

Перейти на страницу: 1 2 3

Самое читаемое:

Имитационное моделирование сети Ethernet в среде GPSS World
Развитие моделирования сетей и систем телекоммуникации непосредственно связано с внедрение новых телекоммуникационных и информационных технологий. Это связано с тем, что моделирование является основным современным методом исследования телекоммуникационных систем. Целью курсовой работы является овладение методами моделировани ...

www.techstages.ru : Все права защищены! 2019