2010-12-22 1 views

답변

1

그냥 재미 있습니다. 아니 진짜 대답 :

n = 5; 
p = {}; 
AppendTo[ p, {Brown, Cylinder[{{0, 0, 0}, {0, 0, 1}}, .5]}]; 

For[i = 1, i <= n, i++, 
    AppendTo[p, {Green, Cone[{{0, 0, i}, {0, 0, i + 3/2}}, (7 - i)^2/6]}]; 
]; 

Graphics3D[p, Boxed -> False] 

alt text