///
// Funciones elementales de SCILAB
//

pause

//Ejemplo de funciones ceil, floor, int and round:

round([1.25 1.50 -1.25 -1.75]) //Redondeo 
pause

int([1.25 1.50 -1.25 -1.75]) //Redondeo al primer numero entero mas cercano a cero

fix([1.25 1.50 -1.25 -1.75]) //fix es identico a int
pause


ceil([1.25 1.50 -1.25 -1.75]) //Redondeo al primer numero entero mayor que el numero dado

floor([1.25 1.50 -1.25 -1.75]) //Redondeo al primer numero entero menor que el numero dado

//
// Estas funciones son tambien aplicables a numeros complejos
//

pause

//
//SCILAB: operaciones con numeros complejos
//

z = 2.5 - 5.5*%i  //Definiendo un numero complejo

x = real(z)       //Parte real de z
y = imag(z)       //Parte imaginaria de z

pause

// Funcion "abs" 
abs([-3.4 0.0 3.4])    //Para numeros reales da el valor absoluto

abs(3-4*%i)            //Para numeros complejos 
pause

// Funcion signo
sign([-2.4 0.0 5.4])
pause


// Funcion raiz cuadrada "sqrt" 
sqrt(2345.676)
pause

// Raiz de un numero negativo
sqrt(-2345.676)
pause

// Otra forma
(3-5*%i)^(1/2)
pause


// Funciones exponenciales

%e^2

// Otra forma
exp(2)
pause


// Exponential de numeros complejos
exp(3+4*%i)
pause

// Logaritmo natural
log(2.35)

log([1 2 3])

// Logaritmo decimal 
log10([100 200 1000 1500])

pause

//
// Tambien se tienen:
// - Funciones trigonometricas (sin, cos, tan y cotg, etc.)
// - Funciones trigonometricas inversass (asin, acos, etc.)
// - Funciones hiperbolicas (sinh, cosh, tanh)

pause

//
// Graficos
//

//Ejemplo de la funcion 'plot'
x=[-4*%pi:%pi/100:4*%pi];
xbasc();     	// Borra todos los graficos existentes
plot(x,cos(x),'x','y')
xtitle("Funcion coseno"); 				//Titulo del grafico
pause

// Otra forma
x=[-4*%pi:%pi/100:4*%pi];
xbasc();     	// Borra todos los graficos existentes
plot2d(x,[cos(x)' (cos(x).^2)'],style =[-1 -2],leg="cos(x)@cos^2 (x)")
xtitle("Funcion coseno y coseno cuadrado","X","Y"); 				//Titulo del grafico y de ejes
xgrid() // Agregando una grilla
pause

//Ejemplo: Funcion tangente
x=[-%pi/2+0.01:0.01:%pi/2-0.01];xbasc();
plot(x,tan(x));xtitle('Funcion tangente')
pause

 
 


pause



//Fin de sesion