////////////////////////simulacao5SLA.sce/////////////////////////////////////

// Autor: Marcus Vinicius Pereira de Souza

// Data: 06/04/19

// O objetivo deste programa é gerar os gráficos de:
// 1) entrada u;
// 2) saídas y1 e y2;
// 3) erro1.

clc;



u=U.values([1:size(U.values,1)],1);
y1=Y1.values([1:size(Y1.values,1)],1);
y2=Y2.values([1:size(Y2.values,1)],1);
erro1=E1.values([1:size(E1.values,1)],1);
erro2=E2.values([1:size(E2.values,1)],1);

t=Y1.time([1:size(Y1.time,1)],1);


// Mostrando o resultado da simulacao:

// Cores: 2=azul      3=verde    4=ciano
//        5=vermelho  6= rosa    7=amarelo
//        8=branco    9=marinho 12=azul claro

xset('window',0)

xset('font size',4)
xgrid(0.25)
plot2d(t,u,[2],'011',rect=[0,0,t($),max(u)+1]) 
p=get("hdl");
p.children.thickness=5;
xlabel("$t(s)$","fontsize",4)
ylabel("$u(t)$","fontsize",4,"color","blue") 

xset('window',1)
xset('font size',4)
xgrid(0.25)

subplot(2,1,1)
xgrid(0.25)
plot2d(t,y1,[2],'011',rect=[0,0,t($),max(y1)+1]) 
p=get("hdl");
p.children.thickness=5;
xlabel("$t(s)$","fontsize",4)
ylabel("$y_1(t)$","fontsize",4,"color","blue") 

subplot(2,1,2)
xgrid(0.25)
plot2d(t,erro1,[5],'011',rect=[0,0,t($),max(erro1)+1]) 
p=get("hdl");
p.children.thickness=5;
xlabel("$t(s)$","fontsize",4)
ylabel("$erro_1(t)$","fontsize",4,"color","blue") 


xset('window',2)
xset('font size',4)
xgrid(0.25)

subplot(2,1,1)
plot2d(t,y2,[2],'011',rect=[0,min(y2)-1,t($),max(y2)+1]) 
// comando "rect" ajusta os eixos [xmin,ymin,xmax,ymax]
p=get("hdl");
p.children.thickness=3;
xlabel("$t(s)$","fontsize",4)
ylabel("$y_2(t)$","fontsize",4,"color","blue") 


subplot(2,1,2)
xset('font size',4)
xgrid(0.25)
plot2d(t,erro2,[3],rect=[0,min(erro2)-1,t($),max(erro2)+1]) 
// comando "rect" ajusta os eixos [xmin,ymin,xmax,ymax]
p=get("hdl");
p.children.thickness=3;
xlabel("$t(s)$","fontsize",4)
ylabel("$erro_2(t)$","fontsize",4,"color","green") 



// eof - MVPSouza