Měření (simulace)

<<matematika\mereni.m

volba vzorku dat typ=10
určení frakvencí signálu

T=1.0;
n=1024;

data=Mereni[10,T,n];

dt=T/n;
dv=1/T;

grafd=Table
[{(i-1)dt,data[[i]]},{i,1,n}];

ListPlot[grafd,Joined->True,AxesLabel->{"t","s(t)"}]

four=Fourier[data];

graff=Table[{(i-1)dv,four[[i]]},{i,1,n}];

ListPlot[Abs[graff],Joined->True,PlotRange->All,AxesLabel->{"v","S(v)"}]

ListPlot[Abs[graff],Joined->True,PlotRange->{{10,40},All},AxesOrigin->{10,0},Ticks->{{20},None},AxesLabel->{"v","S(v)"}]

ListPlot[Abs[graff],Joined->True,PlotRange->{{40,50},All},AxesOrigin->{40,0},Ticks->{{45},None},AxesLabel->{"v","S(v)"}]

ListPlot[Abs[graff],Joined->True,PlotRange->{{60,80},All},AxesOrigin->{60,0},Ticks->{{71},None},AxesLabel->{"v","S(v)"}]

ListPlot[Abs[graff],Joined->True,PlotRange->{{140,160},All},AxesOrigin->{140,0},Ticks->{{152},None},AxesLabel->{"v","S(v)"}]

ListPlot[Abs[graff],Joined->True,PlotRange->{{440,460},All},AxesOrigin->{440,0},Ticks->{{450},None},AxesLabel->{"v","S(v)"}]

T=1.0;
n=2048;

data1=Mereni[10,T,n];

dt=T/n;
dv=1/T;

four1=Fourier[data1];

graff1=Table[{(i-1)dv,four1[[i]]},{i,1,n}];

ListPlot[Abs[graff1],Joined->True,PlotRange->All,AxesLabel->{"v","S(v)"}]

ListPlot[Abs[graff1],Joined->True,PlotRange->{{0,1023},All},AxesLabel->{"v","S(v)"}]

ListPlot[Abs[graff1],Joined->True,PlotRange->{{0,511},All},AxesLabel->{"v","S(v)"}]

ListPlot[Abs[graff],Joined->True,PlotRange->{{0,511},All},AxesLabel->{"v","S(v)"}]