%Este script testa a função SIGMOIDE
clc;
clear all;
close all;
disp('Este script testa a função SIGMOIDE');

%pede o valor de x e testa o valor
x_incorrecto= true;
while (x_incorrecto)
   entrada_x= ...
      input('Introduza um escalar ou array uni-dimens. x [e.g.: [-5:0.01:5]]: ');
   [linhas_entrada_x, colunas_entrada_x] = size(entrada_x);
   x_incorrecto= (linhas_entrada_x> 1 && colunas_entrada_x> 1);
end

%pede 3 valores de K e testa os seus valores
K_incorrecto= true;
while(K_incorrecto)
   entrada_K_1 = input('Introduza um escalar K_1 [e.g.: 1]: ');
   entrada_K_2 = input('Introduza um escalar K_2 [e.g.: 10]: ');
   entrada_K_3 = input('Introduza um escalar K_3 [e.g.: 100]: ');
   entrada_K= [entrada_K_1, entrada_K_2, entrada_K_3];
   [linhas_entrada_K, colunas_entrada_K] = size(entrada_K);
   K_incorrecto= (linhas_entrada_K~=1 ||colunas_entrada_K~= 3);
end

figure(100), hold on;
for j=1:3,
   subplot(3,1,j),
   plot(entrada_x, sigmoide(entrada_x, entrada_K(j)));
   title(['K_', int2str(j), ' = ', int2str(entrada_K(j))]), grid on;
end
