Graficas señales y sistemas

Grafique las siguientes señales:

x[t_]=Sin[t]*Sign[t];
Plot[x[t],{t,-15,15}]

x[t_]=Log[10t];
Plot[x[t],{t,-10,10}]

x[t_]=Log[10t+3];
Plot[x[t],{t,-10,10}]Plot[{Sin[2*t+Φ]/.Φ→0,Sin[2*t+Φ]/.Φ->π4,Sin[2*t+Φ]/.Φ→-π4},{t,-3*π,6*π},PlotStyle→{Red,Blue,Green}]

x[t_]=[t]Sin[20t];
[t_]=Which[-(1/2)t0,t+1/2,0t1/2,-(1/2)-t,t<-(1/2),0,t>1/2,0];Plot[x[t],{t,-2,2},PlotRangeAll]
Plot[[t]Sin[20t],{t,-4,4}]

Triang[t_]=(1/2+t)*(UnitStep[t+1/2]-UnitStep[t])+(1/2-t)*(UnitStep[t]-UnitStep[t-1/2]);

x[t_]=Triang[t]*Sin[20*t];
Plot[x[t],{t,-0.6,0.6}]x[t_]=Cos[10*Pi*t-Triang[t/4]];
Plot[x[t],{t,-.8,.8}]

c[t_]=n=1∞Triang[t-n1n2];
Plot[c[t],{t,-10,10},PlotRangeAll]

Sinc[t_]=Sin[*t]/(*t);
Plot[Sinc[t],{t,-15,15},PlotRangeAll]

Sa[t_]=Sin[t]/t;Plot[Sa[t],{t,-7,7},PlotRangeAll]

triang[t_]=(1/2+t)*(UnitStep[t+1/2]-UnitStep[t])+(1/2-)*(UnitStep[t]-UnitStep[t-1/2]);
Plot[triang[t],{t,-1,1}]tria[t_]=(t+1)*(UnitStep[t+1]-UnitStep[t])+(1-t)*(UnitStep[t]-UnitStep[t-1]);
Plot[tria[t],{t,-2,2}]

TT[t_]=(UnitStep[t+1/2]-UnitStep[t-1/2]);
Plot[TT[t],{t,-3,3}]

Grafique la function original y la funcion transformada para cada funcion.g[t_]=10*Cos[20*Pi*t]*Triang[t];
Plot[g[t],{t,-2,2}]

Plot[5g[t]*(2*t),{t,-1,1},PlotRange→All]


Considere que dos funciones se definen mediante:

Grafique el producto deestas dos funciones vs el tiempo dado en un intervalo -2 < t < 2.

x1[t_]:=If[Sin[20  t]0,1,-1];
x2[t_]:=If[Sin[2  t]0,t,-t];
Plot[x1[t]*x2[t],{t,-2,2}]Sean dos señales definidas mediante:

Grafique estos productos dado el intervalo de tiempo -5 < t < 5.

x1[t_]:=If[Cos[20  t]1,1,0];
x2[t_]=Sin[(2*Pi*t)/10];Plot[x1[t]*x2[t],{t,-5,5},PlotRangeAll]
Plot[x2[t],{t,-5,5}]









Dibuje la operación indicada:

a[t_]=Log[10t];
Plot[a[t],{t,-1,1}]

b[t_]=Sin[t];...