In[]:=
(*zadanie2*)​​Show[Graphics[​​Table[Point[{i/j+j/(i+j),0}],{i,1,40},{j,1,40}]​​],Axes{True,False},PlotRange{{0,10},All}]​​ListPointPlot3D[Table[i/j+j/(i+j),{i,1,40},{j,1,40}],PlotRange{0,3}]
Out[]=
0
2
4
6
8
10
Out[]=
In[]:=
(*zadanie3*)​​Show[Graphics[​​Table[Point[{i/(j+k)+j/(i+k)+k/(i+j),0}],{i,1,20},{j,1,20},{k,1,20}]​​],Axes{True,False},PlotRange{{0,10},All}]​​ListPointPlot3D[Flatten[Table[{i,j,i/(j+k)+j/(i+k)+k/(i+j)},{k,1,8},{i,1,20},{j,1,20}],{{1},{2,3},{4}}],PlotRange{0,4}]
Out[]=
0
2
4
6
8
10
Out[]=
In[]:=
(*zadanie6*)​​ListStepPlot[Table[(1-1/n)^n,{n,1,20}]]
Out[]=
5
10
15
20
0.05
0.10
0.15
0.20
0.25
0.30
0.35
In[]:=
(*zadanie9*)​​ListStepPlot[Table[2^nn!/n^n,{n,1,20}]]
Out[]=
5
10
15
20
0.5
1.0
1.5
2.0
In[]:=
(*zadanie11*)​​ListStepPlot[Table[(n!)^(1/n)/n,{n,1,20}]]
Out[]=
5
10
15
20
0.45
0.50
0.55
0.60
0.65
0.70
0.75
In[]:=
(*zadanie13*)​​ListStepPlot[Table[n^n/2^(nSqrt[n]),{n,1,20}]]
Out[]=
5
10
15
20
0.5
1.0
1.5
2.0
2.5
3.0
In[]:=
(*zadanie14*)​​ListStepPlot[Table[(1+1/n)^(n+1/2),{n,1,20}]]
Out[]=
5
10
15
20
2.720
2.725
2.730
2.735
2.740
2.745