16 Apr
2013
16 Apr
'13
2:47 p.m.
In[1472]:= {Re[#], Im[#]} & /@ (I^(1/4 + Range[8]/2)) Out[1472]= {{Sin[\[Pi]/8], Cos[\[Pi]/8]}, {-Sin[\[Pi]/8], Cos[\[Pi]/8]}, {-Cos[\[Pi]/8], Sin[\[Pi]/ 8]}, {-Cos[\[Pi]/8], -Sin[\[Pi]/8]}, {-Sin[\[Pi]/8], -Cos[\[Pi]/ 8]}, {Sin[\[Pi]/8], -Cos[\[Pi]/8]}, {Cos[\[Pi]/ 8], -Sin[\[Pi]/8]}, {Cos[\[Pi]/8], Sin[\[Pi]/8]}} In[1473]:= Graphics[Polygon[%]] makes a STOP sign. But I'm in a hurry. Can't I just get a YIELD sign (equilateral triangle) with In[1474]:= Graphics[Polygon[%% /. 1/8 -> 1/3]] ?-) --rwg