ra[] := Random[]

X = Table[ra[], {50}]

Floor[5.6]

mktab[n_, s_] := Table[Floor[s ra[]] , {i, 1, n}]

mktab[100, 
5]

racubs[n_, s_] := Block[{a, b, c},
(a = mktab[n, s];
b = mktab[n, s];
c = mktab[n, s];
tabcubs = Table[
Cuboid[{a[[i]], 
b[[i]], c[[i]]}],
{i, 1, n}];
Show[Graphics3D[tabcubs]])]


racubs[40, 20]

A = ParametricPlot3D[
{Cos[t] (3 + Cos[u]), 
Sin[t] (3 + Cos[u]) , Sin[u]},
{t, 0, 2Pi}, {u, 0, 2 Pi} 
]

Show[A]

B = ParametricPlot3D[
{2 + Cos[t] (3 + Cos[u]), 
2 + 
Sin[u], Sin[t] (3 + Cos[u])},
{t, 0, 2Pi}, {u, 0, 2 Pi}] 

Show[A, B]

rcoord := {Random[], Random[], Random[]}

rantri := 
Polygon[Table[rcoord, {3}]]

mrtri[n_] := Show[Graphics3D[Table[rantri, {n}]]]

mrtri[13]

star[n_, radius_, twist_] :=
Polygon[
Flatten[
Table[
{
{Cos[t - twist], Sin[t - twist]},
radius {Cos[t + Pi/n + twist], Sin[t + Pi/n + twist]}
},
{t, 0, 
2 Pi , 2 Pi/n}
], 1]]

star[n_, radius_, twist_] :=
Polygon[
Flatten[
Table[
{
{Cos[t - twist], Sin[t - twist]},
radius 
{Cos[t + Pi/n + twist], Sin[t + Pi/n + twist]}
},
{t, 0, 2 Pi , 2 Pi/n}
], 1]]
star[n_, radius_, twist_] :=
Polygon[
Flatten[
Table[
{
{Cos[t - twist], Sin[t - twist]},
radius {Cos[t + Pi/n + twist], Sin[t + Pi/n + twist]}
},
{t, 0, 2 Pi , 2 
Pi/n}
], 1]]



Show[Graphics[star[13, 2, 18]], AspectRatio -> 1]

Show[Graphics[star[10, 2, Pi/2]], AspectRatio -> 
1]

Show[Graphics[star[16, 2, 3Pi/2]], AspectRatio -> 1]

Show[Graphics[star[16, 1, 3Pi/2]], AspectRatio -> 1]