Program- aplicatie pentru determinarea parametrilor de intrare ai simularii procesului de deformare superplastica

PROGRAM- aplicatie PENTRU DETERMINAREA PARAMETRILOR DE INTRARE AI SIMULaRII PROCESULUI DE DEFORMARE SUPERPLASTICA

Programul este astfel realizat incat sa nu fie necesare comenzi suplimentare pentru executarea incarcarii datelor experimentale, pentru plotarea graficelor pe baza calculelor, respectiv pentru executarea unor optiuni.

Comanda programului poate fi realizata atat din fereastra de comanda(Command Window) cat si prin intermediul casetelor de dialog(msgdlg sau msgbox) sau al butoanelor.

Programul determina prin calcul direct parametrii tehnologici ai deformarii superplastice pentru diferite situatii impuse, fiind organizat astfel:

-liniile de dialog sunt de culoare verde;

-pentru a se economisi spatiul de prezentare, datele experimentale au fost convertite

din matrice coloana in tabele, fiecare opt celule ale unui rand al tabelului reprezinta o coloana a matricei de date, fiecare coloana este separata de cele invecinate prin celule libere;

-sirurile de caractere sunt marcate cu culoarea rosie;

-buclele if- else- end sau buclele for- end, sunt marcate cu culoare albastra, ca de altfel toate instructiunile Matlab.

Observatie: programul se initializeaza prin comanda "opt" data la prompterul Matlab din fereastra de comanda!

%Program de analiza a dependentei

%dintre parametrii deformarii superplastice.

%Programul foloseste ca date de intrare

%rezultate experimentale stocate

%in fisierul 'date.dat';

%Pentru exemplificare s-au introdus cele sase matrici cu valori

%experimentale in cadrul programului(liniile 17- 664)

% Incarcarea datelor

%(liniile 12 -17 sunt transformate in 'comentarii'

%in cazul exemplificarii; altfel sunt linii de program)

%load k;

%load temp;

%load mar_gr;

%load eps;

%load m;

%load sigma;

k=[ 2780 3550 4005 4530 5110 5780 6140 6730 ;

1810 2310 2780 3140 3770 4005 4260 4530 ;

570 870 1180 1510 1810 2180 2610 2950 ;

60 90 140 210 350 540 730 1420 ;

2410 3070 3680 4410 4980 5620 5970 6740 ;

1160 1670 2130 2720 3260 3680 4150 4690 ;

200 290 390 560 860 1160 1400 1670 ;

70 100 150 260 420 560 860 1160 ;

390 530 710 970 1490 2140 2910 3710 ;

180 250 320 470 710 970 1400 2020 ;

110 170 220 300 470 630 910 1320 ;

55 85 120 170 250 390 560 860 ];

temp=[ 299 299 299 299 299 299 299 299 ;

333 333 333 333 333 333 333 333 ;

393 393 393 393 393 393 393 393 ;

443 443 443 443 443 443 443 443 ;

299 299 299 299 299 299 299 299 ;

333 333 333 333 333 333 333 333 ;

393 393 393 393 393 393 393 393 ;

443 443 443 443 443 443 443 443 ;

299 299 299 299 299 299 299 299 ;

341 341 341 341 341 341 341 341 ;

363 363 363 363 363 363 363 363 ;

393 393 393 393 393 393 393 393 ];

%matricea continand dimensiunea grauntilor;

mar_gr=[ 7.5 7.5 7.5 7.5 7.5 7.5 7.5 7.5

7.5 7.5 7.5 7.5 7.5 7.5 7.5 7.5;

7.5 7.5 7.5 7.5 7.5 7.5 7.5 7.5;

7.5 7.5 7.5 7.5 7.5 7.5 7.5 7.5;

5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5;

5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5;

5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5;

5.5 5.5 5.5 5.5 5.5 5.5 5.5 5.5;

2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0;

2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0;

2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0;

2.0 2.0 2.0 2.0 2.0 2.0 2.0 2.0];

format short e

%matricea deformatiilor reale;

eps=[0.0000318    0.000077 0.000155 0.000285 0.000669 0.00131 0.00256 0.00637 ;

0.0000318 0.000077 0.000155 0.000285 0.000669 0.00131 0.00256 0.00637 ;

0.0000328 0.0000793 0.000155 0.000285 0.000711 0.00139 0.00256 0.00637 ;

0.0000318 0.0000793 0.000155 0.000285 0.000711 0.00139 0.00256 0.0000947;

0.0000318 0.0000746 0.000155 0.000303 0.000711 0.00139 0.00256 0.00599 ;

0.0000318 0.0000746 0.000146 0.000268 0.000649 0.00116 0.00226 0.00499 ;

0.0000793 0.000155 0.000285 0.000711 0.00139 0.00272 0.00637 0.0117 ;

0.0000299 0.0000746 0.000137 0.000277 0.000629 0.00131 0.00233 0.0047 ;

0.0000318 0.000077 0.000146 0.000285 0.00069 0.00135 0.00248 0.00564 ;

0.0000318 0.000077 0.000146 0.000285 0.00069 0.00135 0.00248 0.00547 ;

0.0000309 0.0000746 0.000146 0.000268 0.000669 0.00123 0.0024 0.00547 ];

%matricea coeficientilor de sensibilitate a vitezei de deformare;

m=[ 0.31 0.22 0.19 0.17 0.15 0.13 0.11 0.08;

0.24 0.28 0.25 0.21 0.14 0.11 0.08 0.07;

0.6 0.44 0.37 0.31 0.26 0.23 0.2 0.15;

0.58 0.58 0.6 0.62 0.61 0.59 0.54 0.37;

0.31 0.27 0.24 0.21 0.017 0.14 0.12 0.1;

0.5 0.4 0.36 0.29 0.21 0.17 0.15 0.13;

0.26 0.49 0.65 0.54 0.46 0.39 0.3 0.22;

0.45 0.58 0.63 0.62 0.58 0.53 0.46 0.38;

0.29 0.41 0.47 0.5 0.51 0.48 0.44 0.37;

0.37 0.43 0.46 0.49 0.51 0.51 0.5 0.48;

0.44 0.43 0.45 0.47 0.5 0.52 0.52 0.51;

0.45 0.51 0.52 0.53 0.53 0.55 0.57 0.59];

%matricea rezistentelor la deformare;

sigma=[ 19.167544 24.47654 27.613674 31.233444 35.232428 39.851944 42.334072 46.402004;

12.479588 15.926988 19.167544 21.649672 25.993396 27.613674 29.371848 31.233444;

3.930036 5.998476 8.135864 10.411148 12.479588 15.030664 17.995428 20.33966;

0.413688 0.620532 0.965272 1.447908 2.41318 3.723192 5.033204 9.790616;

16.616468 21.167036 25.372864 30.406068 34.336104 38.748776 41.161956 46.470952;

7.997968 11.514316 14.685924 18.753856 22.477048 25.372864 28.61342 32.336612;

1.37896 1.999492 2.688972 3.861088 5.929528 7.997968 9.65272 11.514316;

0.482636 0.68948 1.03422 1.792648 2.895816 3.861088 5.929528 7.997968;

2.688972 3.654244 4.895308 6.687956 10.273252 14.754872 20.063868 25.579708;

1.241064 1.7237 2.206336 3.240556 4.895308 6.687956 9.65272 13.927496;

0.758428 1.172116 1.516856 2.06844 3.240556 4.343724 6.274268 9.101136;

0.379214 0.586058 0.827376 1.172116 1.7237 2.688972 3.861088 5.929528];

% se incarca astfel un set de 6 matrici : temp = temperatura,

% mar_gr = marimea grauntilor, eps = viteza de deformare, m = coef. de sensibilitate,

% sigma = rezistenta la deformare, k = consistenta.

% Afisarea grafica a parametrilor:

MESAJ1(1)=;

MESAJ1(2)=;

MESAJ2(1)=;

MESAJ2(2)=;

MESAJ3(1)=;

MESAJ3(2)=;

MESAJ4(1)=;

MESAJ4(2)=;

MESAJ5(1)=;

% se construiesc controalele:h,j,l

%h=uicontrol('Style','text','Position',[80 80 300 65],'String',MESAJ1,'BackgroundColor','b','ForegroundColor','y','FontWeight','bold');

j=uicontrol('Style','text','Position',[80 80 300 65],'String',MESAJ2);

l=uicontrol('Style','text','Position',[80 80 300 65],'String',MESAJ3);

msgbox('APASATI ORICE TASTA PENTRU A CONTINUA!', C O N T I N U A R E !!!')

msgbox('PENTRU INTRERUPEREA EXECUTARII PROGRAMULUI(in orice moment!), SI REVENIREA IN 'COMMAND WINDOW' APASATI COMBINATIA DE TASTE [Ctrl+C] !', H E L P !!!')

pause

subplot(2,3,1);

plot(temp/50000,'r');

%set(title('TEMPERATURA [C]'),'color','r')

index=1;

%text(50,0.0055,,'FontSize',10)

legend('temp.',1)

subplot(2,3,2);plot(mar_gr/1000,'y');

%set(title('DIM. GRAUNTILOR [m*10^-6]'),'color','y')

legend('dim. gr.',1)

subplot(2,3,3);plot(eps,'m');

%set(title('VIT. DE DEF. [sec^-1]'),'color','m')

legend('vit. de def.',1)

subplot(2,3,4);plot(m/100,'g');

%set(title('COEFICIENTUL m'),'color','g')

legend('coef. 'm'',1)

subplot(2,3,5);plot(sigma/10000,'b');

%set(title('REZ. DE DEF. [N/mm^2]'),'color','b')

legend('rez. de def.',1)

subplot(2,3,6);plot(k/1000000,'k');

%set(title('CONSISTENTA [N/mm^2]'),'color','k')

legend('consistenta',1)

msgbox('URMARITI MESAJELE DE LA BAZA FIGURII','!! I M P O R T A N T !!')

zoom on

msgbox('Pentru 'ZOOM- IN' folositi butonul stang al mouse- uluiPentru 'ZOOM- OUT' folositi butonul drept!', Z O O M A C T I V !!!')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

delete(h)

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE ! VALORILE AFISATE AU EROAREA DATORATA POZITIONARII POINTERULUI PE GRAFIC !','!! VERIFICARE !!')

elseif (r~=1)&(r~=0)

disp('!! EROARE!! NU ATI APASAT NICI TASTA '1' SI NICI TASTA '0' ! ACESTA ESTE MOTIVUL PENTRU CARE PRACTIC S-A PIERDUT O ETAPA A PROGRAMULUI !! PENTRU A REVENI APASATI [Ctrl+C] DUPA CARE INTRODUCETI <nume_fisier> IN COMMAND WINDOW !' )

errordlg('NU ATI APASAT NICI TASTA '1' SI NICI TASTA'0'! ACESTA ESTE MOTIVUL PENTRU CARE PRACTIC S-A PIERDUT O ETAPA A PROGRAMULUI !! PENTRU A REVENI APASATI [Ctrl+C] DUPA CARE INTRODUCETI <nume_fisier> IN COMMAND WINDOW ! PENTRU A CONTINUA APASATI ORICE TASTA !','!!! EROARE UTILIZATOR !!!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left','Visible','on');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

zoom off

pause

%Reprezentarea grafica a expresiei sigma=k*(eps^m)

zoom on

msgbox('Pentru 'ZOOM- IN' folositi butonul stang al mouse- uluiPentru 'ZOOM- OUT' folositi butonul drept!','!!! H E L P !!!')

sigma_calc = k.*(eps.^m);

subplot(1,1,1)

plot(sigma_calc,'r');

ylabel('REZISTENTA [kPa]')

xlabel('INDEX')

set(title('GRAFICUL VALORILOR CALCULATE PENTRU REZISTENTA DE DEFORMARE'),'color','r')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

disp(blanks(1)')

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left','Visible','on');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

disp(' A S T E P T A T I V A R O G ! ')

g = waitbar(0,'A S T E P T A T I V A R O G !');

for i=1:1000,

% SE REALIZEAZA CALCULE %

waitbar(i/1000)

end

close(g)

% Aplicarea metodei celor mai mici patrate:

temp1 = temp(1:8);

mar_gr1 = mar_gr(1:8);

eps1 = eps(1:8);

m1 = m(1:8);

sigma1 = sigma(1:8);

k1 = k(1:8);

temp2 = temp(9:16);

mar_gr2 = mar_gr(9:16);

eps2 = eps(9:16);

m2 = m(9:16);

sigma2 = sigma(9:16);

k2 = k(9:16);

temp3 = temp(17:24);

mar_gr3 = mar_gr(17:24);

eps3 = eps(17:24);

m3 = m(17:24);

sigma3 = sigma(17:24);

k3 = k(17:24);

temp4 = temp(25:32);

mar_gr4 = mar_gr(25:32);

eps4 = eps(25:32);

m4 = m(25:32);

sigma4 = sigma(25:32);

k4 = k(25:32);

temp5 = temp(33:40);

mar_gr5 = mar_gr(33:40);

eps5 = eps(33:40);

m5 = m(33:40);

sigma5 = sigma(33:40);

k5 = k(33:40);

temp6 = temp(41:48);

mar_gr6 = mar_gr(41:48);

eps6 = eps(41:48);

m6 = m(41:48);

sigma6 = sigma(41:48);

k6 = k(41:48);

temp7 = temp(49:56);

mar_gr7 = mar_gr(49:56);

eps7 = eps(49:56);

m7 = m(49:56);

sigma7 = sigma(49:56);

k7 = k(49:56);

temp8 = temp(57:64);

mar_gr8 = mar_gr(57:64);

eps8 = eps(57:64);

m8 = m(57:64);

sigma8 = sigma(57:64);

k8 = k(57:64);

temp9 = temp(65:72);

mar_gr9 = mar_gr(65:72);

eps9 = eps(65:72);

m9 = m(65:72);

sigma9 = sigma(65:72);

k9 = k(65:72);

temp10 = temp(73:80);

mar_gr10 = mar_gr(73:80);

eps10 = eps(73:80);

m10 = m(73:80);

sigma10 = sigma(73:80);

k10 = k(73:80);

temp11 = temp(81:88);

mar_gr11 = mar_gr(81:88);

eps11 = eps(81:88);

m11 = m(81:88);

sigma11 = sigma(81:88);

k11 = k(81:88);

temp12 = temp(89:96);

mar_gr12 = mar_gr(89:96);

eps12 = eps(89:96);

m12 = m(89:96);

sigma12 = sigma(89:96);

k12 = k(89:96);

% Cu majuscule se vor nota valorile calculate ale lui 'm' si 'k' prin metoda numerica

conditie = 1;

pas = 0.001;

eroare = 0.000001;

expresie = 0;

M = 0;

i = 0;

% Bucla de cautare a valorii lui M

% pentru care 'expresie' se apropie de zero in limita 'erorii'

while conditie

M = M+pas;

i = i+1;

s11 = sum(eps1.^(2*M));

s21 = sum((eps1.^M).*sigma1.*log(eps1));

s31 = sum((eps1.^M).*sigma1);

s41 = sum((eps1.^(2.*M)).*sigma1.*log(eps1));

expresie = s11*s21-s31*s41;

s12 = sum(eps2.^(2*M));

s22 = sum((eps2.^M).*sigma2.*log(eps2));

s32 = sum((eps2.^M).*sigma2);

s42 = sum((eps2.^(2.*M)).*sigma2.*log(eps2));

expresie = s12*s22-s32*s42;

s13 = sum(eps3.^(2*M));

s23 = sum((eps3.^M).*sigma3.*log(eps3));

s33 = sum((eps3.^M).*sigma3);

s43 = sum((eps3.^(2.*M)).*sigma3.*log(eps3));

expresie = s13*s23-s33*s43;

s14 = sum(eps4.^(2*M));

s24 = sum((eps4.^M).*sigma4.*log(eps4));

s34 = sum((eps4.^M).*sigma4);

s44 = sum((eps4.^(2.*M)).*sigma4.*log(eps4));

expresie = s14*s24-s34*s44;

s15 = sum(eps5.^(2*M));

s25 = sum((eps5.^M).*sigma5.*log(eps5));

s35 = sum((eps5.^M).*sigma5);

s45 = sum((eps5.^(2.*M)).*sigma5.*log(eps5));

expresie = s15*s25-s35*s45;

s16 = sum(eps6.^(2*M));

s26 = sum((eps6.^M).*sigma6.*log(eps6));

s36 = sum((eps6.^M).*sigma6);

s46 = sum((eps6.^(2.*M)).*sigma6.*log(eps6));

expresie = s16*s26-s36*s46;

s17 = sum(eps7.^(2*M));

s27 = sum((eps7.^M).*sigma7.*log(eps7));

s37 = sum((eps7.^M).*sigma7);

s47 = sum((eps7.^(2.*M)).*sigma7.*log(eps7));

expresie = s17*s27-s37*s47;

s18 = sum(eps8.^(2*M));

s28 = sum((eps8.^M).*sigma8.*log(eps8));

s38 = sum((eps8.^M).*sigma8);

s48 = sum((eps8.^(2.*M)).*sigma8.*log(eps8));

expresie = s18*s28-s38*s48;

s19 = sum(eps9.^(2*M));

s29 = sum((eps9.^M).*sigma9.*log(eps9));

s39 = sum((eps9.^M).*sigma9);

s49 = sum((eps9.^(2.*M)).*sigma9.*log(eps9));

expresie = s19*s29-s39*s49;

s10 = sum(eps10.^(2*M));

s20 = sum((eps10.^M).*sigma10.*log(eps10));

s30 = sum((eps10.^M).*sigma10);

s40 = sum((eps10.^(2.*M)).*sigma10.*log(eps10));

expresie = s10*s20-s30*s40;

s111 = sum(eps11.^(2*M));

s211 = sum((eps11.^M).*sigma11.*log(eps11));

s311 = sum((eps11.^M).*sigma11);

s411 = sum((eps11.^(2.*M)).*sigma11.*log(eps11));

expresie = s111*s211-s311*s411;

s112 = sum(eps12.^(2*M));

s212 = sum((eps12.^M).*sigma12.*log(eps12));

s312 = sum((eps12.^M).*sigma12);

s412 = sum((eps12.^(2.*M)).*sigma12.*log(eps12));

xpresie = s112*s212-s312*s412;

if abs(expresie) < eroare

conditie = 0

end

end

K1 = sum((eps1.^M).*sigma1)/sum(eps1.^(2*M));

K2 = sum((eps2.^M).*sigma2)/sum(eps2.^(2*M));

K3 = sum((eps3.^M).*sigma3)/sum(eps3.^(2*M));

K4 = sum((eps4.^M).*sigma4)/sum(eps4.^(2*M));

K5 = sum((eps5.^M).*sigma5)/sum(eps5.^(2*M));

K6 = sum((eps6.^M).*sigma6)/sum(eps6.^(2*M));

K7 = sum((eps7.^M).*sigma7)/sum(eps7.^(2*M));

K8 = sum((eps8.^M).*sigma8)/sum(eps8.^(2*M));

K9 = sum((eps9.^M).*sigma9)/sum(eps9.^(2*M));

K10 = sum((eps10.^M).*sigma10)/sum(eps10.^(2*M));

K11 = sum((eps11.^M).*sigma11)/sum(eps11.^(2*M));

K12 = sum((eps12.^M).*sigma12)/sum(eps12.^(2*M));

sigma_calc1 = K1.*(eps1.^((-1)*M));

sigma_calc2 = K2.*(eps2.^((-1)*M));

sigma_calc3 = K3.*(eps3.^((-1)*M));

sigma_calc4 = K4.*(eps4.^((-1)*M));

sigma_calc5 = K5.*(eps5.^((-1)*M));

sigma_calc6 = K6.*(eps6.^((-1)*M));

sigma_calc7 = K7.*(eps7.^((-1)*M));

sigma_calc8 = K8.*(eps8.^((-1)*M));

sigma_calc9 = K9.*(eps9.^((-1)*M));

sigma_calc10 = K10.*(eps10.^((-1)*M));

sigma_calc11 = K11.*(eps11.^((-1)*M));

sigma_calc12 = K12.*(eps12.^((-1)*M));

% Trasare grafic curba calculata

subplot(1,2,1)

plot(eps1,sigma_calc1,'r')

grid on

set(title('SIGMA CALCULAT-1'),'color','r')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

hold off

subplot(1,2,2)

plot(eps2,sigma_calc2,'b');grid

set(title('SIGMA CALCULAT-2'),'color','b')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

l=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ3,

'BackgroundColor','c','ForegroundColor','k','FontWeight','bold','HorizontalAlignment','center');

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

subplot(2,1,1)

plot(eps3,sigma_calc3,'g')

set(title('SIGMA CALCULAT-3'),'color','g')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

subplot(2,1,2)

plot(eps4,sigma_calc4,'k')

set(title('SIGMA CALCULAT-4'),'color','k')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

subplot(1,1,1)

subplot(1,2,1)

plot(eps5,sigma_calc5,'y')

set(title('SIGMA CALCULAT-5'),'color','y')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

subplot(1,2,2)

plot(eps6,sigma_calc6,'r')

set(title('SIGMA CALCULAT-6'),'color','r')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

subplot(2,1,1)

plot(eps7,sigma_calc7,'m')

set(title('SIGMA CALC7'),'color','m')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

subplot(2,1,2)

plot(eps8,sigma_calc8,'c')

set(title('SIGMA CALCULAT-8'),'color','c')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

subplot(1,2,1)

plot(eps9,sigma_calc9,'b')

set(title('SIGMA CALCULAT-9'),'color','b')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA  'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

subplot(1,2,2)

plot(eps10,sigma_calc10,'k')

set(title('SIGMA CALCULAT-10'),'color','k')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

pause

subplot(2,1,1)

plot(eps11,sigma_calc11,'r')

set(title('SIGMA CALCULAT-11'),'color','r')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

subplot(2,1,2)

plot(eps12,sigma_calc12,'b')

set(title('SIGMA CALCULAT-12'),'color','b')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

% Trasare grafic puncte experimentale

subplot(2,1,1)

plot(eps1,sigma1,'r')

set(title('VITEZA DE DEFORMARE FUNCTIE DE REZISTENTA LA DEFORMARE'),'color','r')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

subplot(2,1,2)

plot(eps2,sigma2,'g*')

set(title('VITEZA DE DEFORMARE FUNCTIE DE REZISTENTA LA DEFORMARE'),'color','g')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

subplot(2,1,1)

plot(eps3,sigma3,'b')

set(title('VITEZA DE DEFORMARE FUNCTIE DE REZISTENTA LA DEFORMARE'),'color','b')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

subplot(2,1,2)

plot(eps4,sigma4,'g')

set(title('VITEZA DE DEFORMARE FUNCTIE DE REZISTENTA LA DEFORMARE'),'color','g')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

subplot(2,1,1)

plot(eps5,sigma5,'k')

set(title('VITEZA DE DEFORMARE FUNCTIE DE REZISTENTA LA DEFORMARE'),'color','k')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

subplot(2,1,2)

plot(eps6,sigma6,'r')

set(title('VITEZA DE DEFORMARE FUNCTIE DE REZISTENTA LA DEFORMARE'),'color','r')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

subplot(2,1,1)

plot(eps7,sigma7,'b')

set(title('VITEZA DE DEFORMARE FUNCTIE DE REZISTENTA LA DEFORMARE'),'color','b')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

subplot(2,1,2)

plot(eps8,sigma8,'y')

set(title('VITEZA DE DEFORMARE FUNCTIE DE REZISTENTA LA DEFORMARE'),'color','y')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

subplot(2,1,1)

plot(eps9,sigma9,'r')

set(title('VITEZA DE DEFORMARE FUNCTIE DE REZISTENTA LA DEFORMARE'),'color','r')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

subplot(2,1,2)

plot(eps10,sigma10,'c')

set(title('VITEZA DE DEFORMARE FUNCTIE DE REZISTENTA LA DEFORMARE'),'color','c')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

subplot(2,1,1)

plot(eps11,sigma11,'r')

set(title('VITEZA DE DEFORMARE FUNCTIE DE REZISTENTA LA DEFORMARE'),'color','r')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

subplot(2,1,2)

plot(eps12,sigma12,'b')

set(title('VITEZA DE DEFORMARE FUNCTIE DE REZISTENTA LA DEFORMARE'),'color','b')

disp(blanks(1)')

h=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ1,

'BackgroundColor','b','ForegroundColor','y','FontWeight','bold','HorizontalAlignment','left');

disp(blanks(1)')

r=input('DORITI SA AFLATI COORDONATELE PUNCTELOR DE PE GRAFIC ?nn PENTRU 'DA' APASATI '1 urmat de ENTER'n PENTRU 'NU' APASATI '0 urmat de ENTER'');

if r==1;

j=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

disp('ALEGETI PUNCTELE ! ')

disp('INCHEIATI APASAND TASTA 'E N T E R ' ')

[x,y]=ginput;

disp(blanks(1)')

disp('C O O R D O N A T E L E S U N T:')

disp(blanks(1)')

disp([blanks(4),'ABSCISA',blanks(6),'ORDONATA'])

disp(blanks(1)')

disp([x,y])

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

helpdlg('COORDONATELE PUNCTELOR SELECTATE SUNT AFISATE IN WORKSPACE','!! VERIFICARE !!')

else

disp('Apasati orice tasta pentru a continua')

disp('Apasati [Ctrl + C] pentru a renunta')

end

disp(blanks(1)')

uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ2,

'BackgroundColor','y','ForegroundColor','b','FontWeight','bold','HorizontalAlignment','left');

n=uicontrol('Style','text','Position',[8 5 800 25],'String',MESAJ4,

'BackgroundColor','g','ForegroundColor','r','FontWeight','bold','HorizontalAlignment','left');

pause

delete(j)

delete(h)

msgbox('S F A R S I T   P R O G R A M','!!!! OPTIMIZARE !!!!')

disp('    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ')

disp(' ~~~~~~~~~~ S F A R S I T P R O G R A M ~~~~~~~~ ')

disp('    ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ')

%Sfarsit program