1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40
| function Step3_Calcul(gcf,handles)
handles = guidata(gcf);
load User_Specs.mat
[diam_mini_faisceau,Wth,W_waist,zrayleigh_th,zrayleigh]=Laser_Perf(Lambda_faisceau,dist_focale,get(handles.Step3_Slide_Diam,'value')/1000,M2);
load User_step2.mat
load geometrie.mat
tic
handles.Step3_Results_X=linspace(Decal_X-P_Long,Decal_X+P_Long,70);
handles.Step3_Results_Y=linspace(-G_Long,G_Long,70);
handles.Step3_Results=zeros(length(handles.Step3_Results_X),length(handles.Step3_Results_Y));
for i=1:length(handles.Step3_Results_X)
for j=1:length(handles.Step3_Results_Y)
handles.Step3_Results(i,j)=Fluence2(handles.Step3_Results_X(i),handles.Step3_Results_Y(j),theta,Hmax,hauteur_source,zrayleigh,W_waist,correction_focale,dist_galva,dist_focale,Decal_X,G_Lag,P_Lag,G_Long,P_Long,freq_faisceau,Pmoy_faisceau)/10000;
end
end
toc
Step3_Affichage(gcf,handles);
guidata(gcf,handles); %updates the handles
function Step3_Affichage(gcf, handles)
handles = guidata(gcf);
axes(handles.fluence_axe);
switch get(handles.fluence_popmenu,'Value')
case 1 %fluence
a= handles.Step3_Results;
b= get(handles.Step3_Slide_Puissance,'value');
c= get(handles.Step3_Slide_Repet,'value')/1000;
A=a*b/c;
surf(handles.Step3_Results_X*1000,handles.Step3_Results_Y*1000,A');
case 2
case 3
end
guidata(gcf,handles); %updates the handles |
Partager