Ejercicio Propuesto P- 8.1

Visualizar gráficamente en funciónde los parámetros a, b y c el comportamiento de la familia de parábolas: ax^2+bx+c

Solución P- 8.1

Plano

Manipulate[Plot[{x^2,a*x^2+b*x+c}
,{x,-10,10},PlotStyle->{{Blue,Thickness[0.010],Dashing[0.015]},{Magenta,Thickness[0.008]}},PlotRange-> {{-10,10},{-50,50}}],{a,-10,10,3},{b,-10,10,1},{c,-10,10,1}]

Ejercicio Propuesto P- 8.2

Visualizar gráficamente gráficamente en función del parametro “a” el compotamiento de la familia de sinusoides: sin(a+x) , sin(a*x) y a*sinx con Manipulate

Solución P- 8.2

Con Manipulate

Manipulate[Plot[{Sin[x],Sin[a+x]},{x,0,6.2},PlotStyle->{{Blue,Dashing[0.02]},{Purple,Thickness[0.01]}}],{a,-5,5}]

Manipulate[Plot[{Sin[x],Sin[a*x]},{x,0,6.2},PlotStyle->{{Blue,Dashing[0.02]},{Purple,Thickness[0.01]}}],{a,1,10,1}]

Manipulate[Plot[{Sin[x],a Sin[x]},{x,0,6.28},PlotStyle->{{Blue,Dashing[0.02]},{Purple,Thickness[0.01]}}],{a,0.5,2}]

Ejercicio Propuesto P- 8.3

Visualizar gráficamente en función del parametro “a” el compotamiento de la familia de sinusoides: cos(a+x) , cos(a*x) y a*cosx con Animate

Solución P- 8.3

Con Animate

Animate[Plot[{Cos[x],Cos[a+x]},{x,0,6.28},PlotStyle->{{Blue,Dashing[0.02]},{Purple,Thickness[0.01]}},PlotLabel->a],{a,0.5,2},AnimationRunning->False]

Animate[Plot[{Cos[x],Cos[a x]},{x,0,6.28},PlotStyle->{{Blue,Dashing[0.02]},{Purple,Thickness[0.01]}},PlotLabel->a],{a,0.5,2},AnimationRunning->False]

Animate[Plot[{Cos[x],a*Cos[ x]},{x,0,6.28},PlotStyle->{{Blue,Dashing[0.02]},{Purple,Thickness[0.01]}},PlotLabel->a],{a,0.5,2},AnimationRunning->False]