(* iniciar el kernel *)
2+2

a

a=4

a

(* tipos de variables *)
juan=4
var=4.0
nombre="Pedro"
ciudad="Mexico"

a=5
b=6
a+b
a b
Sin[a]Cos[b]

(* MUY IMPORTANTE reglas *)
d/.{d->8}

d

(d^2)/.{d->3}

Cos[θ]/.{θ->0}

(* MUY IMPORTANTE listas *)
listanum={1,2,3,4,5}
listastring={"hugo","paco","luis"}
listatodo={"hugo", 27,1.75,"CDMX"}
listafun={Sin[x],Cos[x],Exp[x],Log[x]}
matriz1={{1,0},{0,1}}
matriz2={{2,3},{5,6}}

(* operaciones con listas *)
lista={{0,0},{1,1},{2,4},{3,9},{4,16},{5,25}}
lista2={{6,36},{7,49}}
Flatten[lista];
listatot=Join[lista,lista2]

(* generacion de listas *)
lista=Table[i,{i,1,7}]

Table[(g^j),{j,1,5}]

Do[

,{i,1,7}]

(* graficas de listas *)
listadatos=Table[i,{i,0,9}]
ListPlot[listadatos]

(* EJERCICIO *)

(* funciones *)
f=(x^2)+x

(* graficas de funciones *)
Plot[f,{x,0,6}]

(* Ajuste de datos *)
f=G (x^2)+A x+B
listadatos=Table[{y,3.2(y^2)+2 y+5.2},{y,0,6,0.5}];
fit=FindFit[listadatos,f,{G,A,B},x]
ListPlot[listadatos]
Plot[f/.fit,{x,0,6}]

fn=f/.fit
plot={Plot[fn,{x,0,6}],ListPlot[listadatos,PlotStyle->{PointSize[0.05],Opacity[0.2],Green}]};
Show[plot]

listadatos=Table[{y,3.2(y^2)+2 y+5.2+RandomReal[{-10,10}]},{y,0,6,0.2}];
ListPlot[listadatos]

fit=FindFit[listadatos,f,{{G,3},{A,2},{B,5}},x]
fn=f/.fit
plot={Plot[fn,{x,0,6}],ListPlot[listadatos,PlotStyle->{PointSize[0.05],Opacity[0.2],Darker@Green}]};
Show[plot]

(* distribucion de Gauss/ campana de Gauss*)
f=Exp[-(x^2)]
Plot[f,{x,-5,5}]

f=A Exp[-(1/2)(((((x-x0)/σ)))^2)]
Plot[f/.{x0->3,σ->5,A->5},{x,-10,20}]

f=A1 Exp[-(1/2)(((((x-x1)/(σ1))))^2)]+A2 Exp[-(1/2)(((((x-x2)/(σ2))))^2)]
cond={A1->9,x1->5,σ1->5,A2->15,x2->18,σ2->1};

Plot[f/.cond,{x,-10,25}]

data=Table[{x,(f/.cond)(1+0.5RandomReal[{-0.5,0.5}])},{x,-15,20,0.1}];
ListPlot[data]

Mean[MaxwellDistribution[0.2]]

Play[0Sin[220 2π t]+Cos[π t]Sin[880 2π t]+Sin[440 2Pi t]Sin[π t],{t,0,8}]

SetDirectory["/Users/akb/Dropbox/Trabajo/URL/akb_files/Cursos/Mathematica/actividades"]
data=AudioData[Import["busy.mp3","Sound"]];

sample=data[[1,500000;;1000000]];
samplet=Table[sample[[i]],{i,1,Dimensions[sample][[1]]}];

ListPlay[samplet,SampleRate->44100]

sample=data[[1,500000;;1000000]];
samplet=Table[sample[[i]]Sin[π i/50000],{i,1,Dimensions[sample][[1]]}];

ListPlay[samplet,SampleRate->44100]

sample=data[[1,500000;;1000000]];
samplet=Table[sample[[i]]+Sin[2π i/50000]Sin[440  2π i/50000],{i,1,Dimensions[sample][[1]]}];

ListPlay[samplet,SampleRate->44100]

data[[1,3]]

ListPlot[samplet]