Praca s diskretnymi datami

pole=Table[i^2,{i,1,10}]

ListPlot[pole,ImageSize->{200,200}]

ListPlot[pole,PlotStyle->{AbsolutePointSize[5],RGBColor[0,0,1]},ImageSize->{200,200}]

ListPlot[pole,PlotStyle->{AbsolutePointSize[5],RGBColor[0,0,1]},Filling->Axis,ImageSize->{200,200}]

ListPlot[pole,PlotStyle->RGBColor[0,0,1],Joined->True,ImageSize->{200,200}]

pole=Table[{i,i^3-10i^2},{i,0,18,3}]

ListPlot[pole,PlotStyle->{AbsolutePointSize[5],RGBColor[0,0,1]},ImageSize->{200,200}]

??RandomInteger

pole=Table[RandomInteger[],{i,1,10}]

ListPlot[pole,PlotStyle->{AbsolutePointSize[5],RGBColor[0,0,1]},ImageSize->{200,200}]

pole=Table[RandomInteger[],{i,1,100}]
ListPlot[pole,PlotStyle->{AbsolutePointSize[5],RGBColor[0,0,1]},ImageSize->{200,200}]

pocetnost=Tally[pole]

pocetpokusov=100;
pole=Table[RandomInteger[{1,6}],{i,1,pocetpokusov}]
ListPlot[pole,PlotStyle->{AbsolutePointSize[5],RGBColor[0,0,1]},PlotRange->{0,7},ImageSize->{200,200}]

pocetnost=Tally[pole]

data=Table[{pocetnost[[i,1]],pocetnost[[i,2]]/pocetpokusov},{i,1,Length[pocetnost]}]

ListPlot[data,PlotStyle->{AbsolutePointSize[5],RGBColor[0,0,1]},PlotRange->{0,0.5},ImageSize->{200,200}]

pocetpokusov=1000;
pole=Table[RandomInteger[{1,6}],{i,1,pocetpokusov}];
ListPlot[pole,PlotStyle->{AbsolutePointSize[5],RGBColor[0,0,1]},ImageSize->{200,200}]
pocetnost=Tally[pole];
data=Table[{pocetnost[[i,1]],pocetnost[[i,2]]/pocetpokusov},{i,1,Length[pocetnost]}]
ListPlot[data,PlotStyle->{AbsolutePointSize[5],RGBColor[0,0,1]},PlotRange->{0,0.5},ImageSize->{200,200}]

pocetpokusov=100000;
pole=Table[RandomInteger[{1,6}],{i,1,pocetpokusov}];
ListPlot[pole,PlotStyle->{AbsolutePointSize[5],RGBColor[0,0,1]},ImageSize->{200,200}]
pocetnost=Tally[pole];
data=Table[{pocetnost[[i,1]],pocetnost[[i,2]]/pocetpokusov},{i,1,Length[pocetnost]}]
ListPlot[data,PlotStyle->{AbsolutePointSize[5],RGBColor[0,0,1]},PlotRange->{0,0.5},ImageSize->{200,200}]

RandomInteger[10,{10,2}]

??Circle

Graphics[Circle/@ RandomInteger[10,{10,2}],Axes->True,ImageSize->{200,200}]

Graphics[Circle/@ RandomReal[10,{10,2}],Axes->True,ImageSize->{200,200}]

data=Table[Sin[j^2+i],{i,0,Pi,Pi/5},{j,0,Pi,Pi/5}]

ListPlot3D[data,ImageSize->{200,200}]

ListPlot3D[data,Mesh->None,ImageSize->{200,200}]

ListPlot3D[data,Mesh->None,InterpolationOrder->0,ImageSize->{200,200}]

ListPlot3D[data,Mesh->None,InterpolationOrder->0,ColorFunction->Hue,ImageSize->{200,200}]

ListPlot3D[data,Mesh->None,InterpolationOrder->1,ColorFunction->"Rainbow",ImageSize->{200,200}]

ListPlot3D[data,Mesh->None,InterpolationOrder->2,ColorFunction->"Rainbow",ImageSize->{200,200}]

ListContourPlot[data,ImageSize->{200,200}]

ListContourPlot[data,InterpolationOrder->2,ImageSize->{200,200}]

ListDensityPlot[data,InterpolationOrder->0,ImageSize->{200,200}]

ListDensityPlot[data,InterpolationOrder->3,ImageSize->{200,200}]

a=ReadList["d:/vstup.txt",Number,5]

ReadList["d:/vstup2.txt",{Number,Number,Number},3]

ReadList["d:/vstup2.txt",{Number,Number,Number},2]

n1=3;
n2=3;
ReadList["d:/vstup2.txt",Table[Number,{n2}],n1]

n1=165;
n2=175;
obraz=ReadList["d:/aecho.pgm",Table[Number,{n2}],(n1)];

ListDensityPlot[obraz,Mesh->False,InterpolationOrder->0,ColorFunction->GrayLevel,ImageSize->{200,200}]

ListContourPlot[obraz,Mesh->False,InterpolationOrder->0,ColorFunction->GrayLevel,Contours->2,ImageSize->{200,200}]

ListPlot3D[obraz,PlotRange->All,Mesh->None,ImageSize->{200,200}]

Max[obraz]
Min[obraz]