サイエンスフォーラムホームページ>過去の話題>数学専門>凹18面体 Mapleリスト


(2) 凹18面体 Mapleリスト
O805
2005年05月04日(水) 11時09分

with(plottools):t:=1/2+sqrt(5)/2:
> o1:=[t,0,t-1]/2:
> o2:=[1,-1,1]*t/2:
> o3:=[1,0,t]*t/2:
> o4:=[1,1,1]*t/2:
> o5:=[t,1,0]*t/2:
> o6:=[t,0,-t+1]*t/2:
> o7:=[t,-1,0]*t/2:
> o8:=[t,-t-1,-1]/2:
> o9:=[0,-t,0]:
> o10:=[0,-t,1]*t/2:
> o11:=[-1,-t,t+1]/2:
> o12:=[0,0,t]:
> o13:=[-1,t,t+1]/2:
> o14:=[0,t,1]*t/2:
> o15:=[0,t,0]:
> o16:=[t,t+1,-1]/2:
> o17:=[1,t,-t-1]/2:
> o18:=[1,0,-t]*t/2:
> o19:=[1,-t,-t-1]/2:
> o20:=[-1,-t,-t-1]/2:
> o21:=[-t,-t-1,-1]/2:
> o22:=[-t,-1,0]*t/2:
> o23:=[-t-1,-1,t]/2:
> o24:=[-t-1,1,t]/2:
> o25:=[-t,1,0]*t/2:
> o26:=[-t,t+1,-1]/2:
> o27:=[-1,t,-t-1]/2:
> o28:=[-1,0,-t]*t/2:
> o29:=[-t,0,-t+1]*t/2:
> #--------------------
> MEN1:=polygon([o1,o2,o3,o4],thickness=3):
> MEN2:=polygon([o4,o5,o6,o1],thickness=3):
> MEN3:=polygon([o1,o6,o7,o2],thickness=3):
> MEN4:=polygon([o2,o7,o8,o9,o10],thickness=3):
> MEN5:=polygon([o2,o10,o11,o12,o3],style=patch,color=RED,thickness=3):
> MEN6:=polygon([o3,o12,o13,o14,o4],style=patch,color=green,thickness=3):
> MEN7:=polygon([o4,o14,o15,o16,o5],style=patch,color=RED,thickness=3):
> MEN8:=polygon([o5,o16,o17,o18,o6],style=patch,color=green,thickness=3):
> MEN9:=polygon([o6,o18,o19,o8,o7],style=patch,color=RED,thickness=3):
> MEN10:=polygon([o8,o19,o20,o21,o9],style=patch,color=YELLOW,thickness=3):
> MEN11:=polygon([o9,o21,o22,o23,o11,o10],style=patch,color=green,thickness=3):
> MEN12:=polygon([o11,o23,o24,o13,o12],style=patch,color=BLUE,thickness=3):
> MEN13:=polygon([o13,o24,o25,o26,o15,o14],style=patch,color=YELLOW,thickness=3):
> MEN14:=polygon([o15,o26,o27,o17,o16],style=patch,color=green,thickness=3):
> MEN15:=polygon([o26,o25,o29,o28,o27],style=patch,color=YELLOW,thickness=3):
> MEN16:=polygon([o29,o25,o24,o23,o22],style=patch,color=green,thickness=3):
> MEN17:=polygon([o29,o22,o21,o20,o28],style=patch,color=BLUE,thickness=3):
> MEN18:=polygon([o20,o28,o27,o17,o18,o19],style=patch,color=green,thickness=3):
> plots[display]({MEN1,MEN2,MEN3,MEN4,MEN5,MEN6,MEN7,MEN8,MEN9,MEN10,MEN11,MEN12,MEN13,MEN14,MEN15,MEN16,MEN17,MEN18});





Copyright© 2007 FSCI All rights reserved.