MENUS DESPLEGABLES
----------------------------------
File, Edit, Insert, Format, Cell, Graphics, Evaluation, Palettes, Window y Help.

HELP
--------
->Online:  Menu->Documentation Center:2 Opciones
	a.-How to-> Topics: How to work with lists y statistics
	b.-Virtual book
->Web:http://reference.wolfram.com/mathematica/guide/mathematica.html
->de variables y funciones del mathematica
?x
?Log
??Log
  F1
 ?f  siendo f una función que se ha creado el usuario dentro de la sesión de mathematica.

TECLAS RÁPIDAS
-------------------------
Para hacer calculos:
Shift+Enter — do a computation
Alt+.— abort a computation
Ctrl+L — copy input from above

Styling& Formatting »
Alt+7 — text cell (with default stylesheet) (Format ► Style ►...)
Format ► Stylesheet ▪...


EMPEZAMOS A TRABAJAR ACTIVANDO EL KERNEL
---------------------------------------------------------------------------

ASIGNACION DE UNA VARIABLE
-----------------------------------------------

x=7

x+2

?x

?clear

?Clear

??Clear

Clear[x]

?x

f[x_]:=x^2

?f

f[2]

f[a]

INFORMACION DE LAS VARIABLES O FUNCIONES CON LAS QUE SE HAN TRABAJADO
--------------------------------------------------------------------------------------------------------------------------------

?Names

??Names

?f

Names["Global`*"]

Names["Global`*"]

Names["Global"]

Names["Global`*"]

Comando-> Clear
-------------------
Para liberar tanto las funciones como las variables se utiliza el comando Clear. 
Para variable Clear[x]
Para funciones Clear[f]

?x

Clear[x]

x

x=.

?x

Remove[a]

Names["Global`*"]

Remove[f,x]

Names["Global`*"]

y=1/3

N[y]

N[y,10]

LISTAS
---------------------------------------------------
Una lista permite representar conjuntos de elementos, los cuales puede que no sean del mismo tipo, como valores numéricos, variables, texto, etc. Para utilizar ciertos elementos de una lista se considera la posición que ocupan en ella. Por otra parte, las listas pueden ser manipuladas, en muchas ocasiones, como si de simples objetos se tratase.

CREANDO LISTAS
--------------------------------------------------

a={1,-2,x,Sqr[2],3+y^2,x+y}

Acceso al elemento de una lista:

a[3]

a[[3]]

a[[{1,3,5}]]

Otras funciones relacionadas con las listas.

Dimensions[a]

p=Partition[a,2]

Dimensions[p]

q=Partition[a,3]

Para hacer Clear

Names["Global`*"]

Remove[a,p,q,Sqr,x,y]

Utilliza la funcion Range con dos argumentos para crear una lista de enteros que empiezan en el primer argumento y terminan en el segundo.

Range

Range[5,10]

Range con tres argumentos, el tercer argumento te indica el paso y este puede ser distinto de un valor entero

Range[5,10,1/2]

Operaciones con listas

Names["Global`*"]

Remove[b,r,u,v,w,x,y,z]

a={x,y,z}

b={1,2,3}

a+b

Table

Table[i^2]

Table[i^2,{5}]

Table[i^2,{i,5}]

Table[i^2,{i,5,10}]

Table[i^2,{i,5,10,1/2}]

Table[i^2,{i,1,5},{j,1,10}]

m=Table[i+j,{i,1,5},{j,1,10}]

TableForm[m]

Names["Global`*"]

Remove[a,b,i,j,m,x,y,z]

?Union

Union[{c,a,b},{d,a,c},{a,e}]

Clear[a,b,c,d,e]

Remove[a,b,c,d,e]

Intersection[{a,c,b},{b,a,d,a}]

Complement[{a,b,c,d},{a,d}]

Subsets[{a,b,c}]

DeleteDuplicates[{a,b,c,a}]

Names["Global`*"]

Remove[a,b,c,d]

ALGO DE INFORMACION SOBRE GRÁFICAS
------------------------------------------------------------
Comandos que vamos a introducir
Plot, Show,
Recordar que dentro del menu desplegable se encuentra la opción de cargar Palettes algunas funciones para ir mas rápido.

Plot[Sin[x],{x,0,Pi}]

Plot[Tan[x],{x,-3,3}]

Plot[{Sin[x],Sin[2x],Sin[3x]},{x,0,2Pi}]

h=%

Show[h]

Dibujando datos
--------------------

Table[Sin[x^2],{x, 0.0,2.0,0.1}]

t=%

ListPlot[t]

TUTORIAL DE LA AYUDA FUNCIONES ALEATORIAS
Ver tutorial acerca de la funciones aleatorias para luego calcular algun estadistico sin mas.
Funcion Random:Pseudorandom Numbers
Random[Integer] da 0 o 1 con una probabilidad de 1/2
Random[Complex] da pseudorandom numero complejo en un rectangulo con esquinas 0 y 1+i
Random[Complex, {zmin, zmax}]
Random[Real, range, n] genera un numero aleatorio con n de precisión


({{RandomInteger[], 0 or 1 with probability (1/2)}, {RandomInteger[{(Subscript[i, min]),(Subscript[i, max])}], an integer between (Subscript[i, min]) and (Subscript[i, max]), inclusive}, {RandomInteger[(Subscript[i, max])], an integer between 0 and (Subscript[i, max]), inclusive}, {RandomReal[ ], a real number between 0 and 1}, {RandomReal[{(Subscript[x, min]), (Subscript[x, max])}], a real number between (Subscript[x, min]) and (Subscript[x, max])}, {RandomReal[(Subscript[x, max])], a real number between 0 and (Subscript[x, max])}, {RandomComplex[], a complex number in the unit square}, {RandomComplex[{(Subscript[z, min]),(Subscript[z, max])}], a complex number in the rectangle defined by (Subscript[z, min]) and (Subscript[z, max])}, {RandomComplex[(Subscript[z, max])], a complex number in the rectangle defined by 0 and (Subscript[z, max])}})

({{RandomReal[range,n], RandomComplex[range,n], RandomInteger[range,n], }, {, a list of n pseudorandom numbers from the given range}, {RandomReal[range,{(Subscript[n, 1]),(Subscript[n, 2]),…}], RandomComplex[range,{(Subscript[n, 1]),(Subscript[n, 2]),…}], RandomInteger[range,{(Subscript[n, 1]),(Subscript[n, 2]),…}], }, {, an (Subscript[n, 1])×(Subscript[n, 2])×… array of pseudorandom numbers
}})

Los valores de descriptivos estan ya introducidos en el kernel.

data=Table[i^2,{i,5}]

Mean[data]

Para ver como se aplica a los problemas, veamos un par de ejemplos del tema I

ej.1.6.1.Según sea la concentración de contaminantes en el aire,se expresan mediante los índices 1,2,3,4 y 5,definiéndolos de la forma:Índice Calidad del aire
1 Muy buena
2 Buena
3 Suficiente
4 Mala
5 Muy mala

Los siguientes valores nos indican la calidad del aire de dieciocho días:

(1, 2, 2, 3, 3, 2, 3, 3, 4,3, 1, 3, 1, 5, 4, 3, 2, 3

a) ¿Cómo es la variable?b) Representar mediante una barra gráfica y un diagrama de sectores

c) Calcular la media y la mediana.Interpretar el resultado.

aire= {1,2,2,3,3,2,3,3,4,3,1,3,1,5,4,3,2,3}

La media se obtiene

Mean[aire]

Median[aire]

y su aproximación decimal

N[%]

Ej.1.6.5.

Sean los consumos diarios de un conjunto de máquinas:Consumo
(litros) Nº de máquinas
[10,20) 8
[20,30) 12
[30,40) 10
[40,50) 22
[50,60) 13

a) Construir el diagrama y el polígono de frecuencias acumuladas.b) Calcular el rango,rango intercuartílico,desviación típica y coeficiente de variación.c) Entre que índices intercuartílicos está los 42.5 litros de consumo.

Para calcular el rango intercuartilico:

consumo = {{15,8},{25,12},{35,10},{45,22},{55,13}}

DesviacionTipica= StandardDeviation[consumo]

Mean[consumo]

CoefficientOfVariation[consumo]

Regress[consumo,{1,x^2},x,RegressionReport->{CoefficientOfVariation}]

La cosa resulta mas complicada, pues no tiene en cuenta la frecuencia. Hay que hacer la práctica 2.

RESUMEN DE LA PRÁCTICA 2

[10,20) 8
[20,30) 12
[30,40) 10
[40,50) 22
[50,60) 13

clases={10,20,30,40,50,60}

frecuencias={8,12,10,22,13}

marcas=Table[((clases[[i]]+clases[[i+1]])/2),{i,Length[clases]-1}]

muestra=Sum[frecuencias[[i]],{i,Length[frecuencias]}]

suma=Sum[(clases[[i]]+clases[[i+1]])/2*frecuencias[[i]],{i,Length[frecuencias]}]

media=Sum[(clases[[i]]+clases[[i+1]])/2*frecuencias[[i]],{i,Length[frecuencias]}]/Sum[frecuencias[[i]],{i,Length[frecuencias]}]

N[%]

varianza=Sum[((clases[[i]]+clases[[i+1]])/2)^2*frecuencias[[i]],{i,Length[frecuencias]}]/Sum[frecuencias[[i]],{i,Length[frecuencias]}]-media^2//N

s=Sqrt[%]

Practica a realizar: Ej. 1.6.10

Un medidor ha medido los siguientes porcentajes relativos de humedad:29 12 34 17 26 28 23 28 29 34
17 23 12 26 34 29 12 34 28 17

 Calcular: media=Mean[datos],mediana=Median[datos],moda=Commonest[datos],varianza=Variance[datos], desviación típica=StandardDeviation[datos]