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 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130
|
"function test(varargin)
close all;
clear all;
clc;
%**************************************
% DEBUT DE LA FONCTION PRINCIPALE *
%**************************************
%Création de l'objet Figure fenetre_1
figure('units','pixels',...
'outerposition',[0 30 800 700],...
'name','[LCND] Simulation Waterman-Truell',...
'numbertitle','off',...
'menubar','none',...
'tag','fenetre_1');
%Création de l'objet Uipanel panel_milieu
uipanel('Title',' Milieux ',...
'FontSize',11,...
'BackgroundColor','white',...
'Position',[.01 .81 .30 .18],...
'tag','panel_milieu');
%********************
%Uipanel panel_milieu
%Création de l'objet Uicontrol radio_wtsa
uicontrol('style','radio',...
'callback',@wt_sa,...
'units','normalized',...
'position',[.03 .83 .09 .03],...
'fontsize',9.0,...
'string',' WTSA',...
'tag','radio_wtsa');
%Création de l'objet Uipanel panel_parametre1
uipanel('Title','Paramètres D''entrées',...
'FontSize',11,...
'BackgroundColor','white',...
'Position',[.01 .01 .30 .78],...
'tag','panel_parametre1');
%********************
%Uipanel panel_parametre1
%Création de l'objet Uicontrol text_densite1
uicontrol('style','text',...
'units','normalized',...
'position',[.03 .68 .15 .032],...
'fontsize',9.0,...
'string','Densité (kg/m^3)',...
'tag','text_densite1');
%********************
%Uipanel panel_parametre1
%Création de l'objet Uicontrol edit_densite1
uicontrol('style','edit',...
'units','normalized',...
'position',[.19 .68 .1 .032],...
'fontsize',9.0,...
'string','1000',...
'tag','edit_densite1');
%********************
%Uipanel panel_parametre1
%Création de l'objet Uicontrol text_no
uicontrol('style','text',...
'units','normalized',...
'position',[.03 .10 .15 .032],...
'fontsize',9.0,...
'string','Nb inclusions par m3',...
'tag','text_no');
%********************
%Uipanel panel_parametre1
%Création de l'objet Uicontrol edit_no
uicontrol('style','text',...
'units','normalized',...
'position',[.19 .10 .1 .032],...
'fontsize',9.0,...
'string','0',...
'tag','edit_no');
%Création de l'objet Uicontrol bouton_calculer
uicontrol('style','pushbutton',...
'units','normalized',...
'position',[.1 .025 .1 .04],...
'string','Calculer',...
'callback',@calculer,...
'tag','calculer');
data=guihandles(gcf);
%********************************************
% DEBUT DE LA SOUS-FONCTION WT_SA *
%********************************************
function wt_sa(hObject, eventdata, handles)
data = guidata(gcbf);
h = findobj(gcbf, 'style', 'radio');
set(h, 'value', 0);
set(gcbo, 'value', 1)
data.flag=3;
guidata(gcbf,data);
%********************************************
% FIN DE LA SOUS-FONCTION WT_SA *
%********************************************
%********************************************
% DEBUT DE LA SOUS-FONCTION CALCULER *
%********************************************
function calculer(hObject, eventdata, handles)
data = guihandles(gcbf);
%Recuperation des parametres utilisateurs
data.num_densite1 = str2num(get(edit_densite1,'String'));
no=10;
set(data.edit_no,'String',no);
%Selection des milieux
data=guidata(gcbf);
if(data.flag==3) %wtsa
data
end
" |
Partager