![[Graphics:../Images/index_gr_103.gif]](../Images/index_gr_103.gif)
{GrayLevel[0], Line[{{2, 0, 0}, {2*Cos[Pi/50], Sin[Pi/50], 0}, {2*Cos[Pi/25], Sin[Pi/25], 0},
{2*Cos[(3*Pi)/50], Sin[(3*Pi)/50], 0}, {2*Cos[(2*Pi)/25], Sin[(2*Pi)/25], 0},
{Sqrt[(5 + Sqrt[5])/2], (-1 + Sqrt[5])/4, 0}, {2*Cos[(3*Pi)/25], Sin[(3*Pi)/25], 0},
{2*Cos[(7*Pi)/50], Sin[(7*Pi)/50], 0}, {2*Cos[(4*Pi)/25], Sin[(4*Pi)/25], 0},
{2*Cos[(9*Pi)/50], Sin[(9*Pi)/50], 0}, {(1 + Sqrt[5])/2, Sqrt[(5 - Sqrt[5])/2]/2, 0},
{2*Cos[(11*Pi)/50], Sin[(11*Pi)/50], 0}, {2*Cos[(6*Pi)/25], Sin[(6*Pi)/25], 0},
{2*Cos[(13*Pi)/50], Sin[(13*Pi)/50], 0}, {2*Cos[(7*Pi)/25], Sin[(7*Pi)/25], 0},
{Sqrt[(5 - Sqrt[5])/2], (1 + Sqrt[5])/4, 0}, {2*Cos[(8*Pi)/25], Sin[(8*Pi)/25], 0},
{2*Cos[(17*Pi)/50], Sin[(17*Pi)/50], 0}, {2*Cos[(9*Pi)/25], Sin[(9*Pi)/25], 0},
{2*Cos[(19*Pi)/50], Sin[(19*Pi)/50], 0}, {(-1 + Sqrt[5])/2, Sqrt[(5 + Sqrt[5])/2]/2, 0},
{2*Cos[(21*Pi)/50], Sin[(21*Pi)/50], 0}, {2*Cos[(11*Pi)/25], Sin[(11*Pi)/25], 0},
{2*Cos[(23*Pi)/50], Sin[(23*Pi)/50], 0}, {2*Cos[(12*Pi)/25], Sin[(12*Pi)/25], 0}, {0, 1, 0},
{2*Cos[(13*Pi)/25], Sin[(13*Pi)/25], 0}, {2*Cos[(27*Pi)/50], Sin[(27*Pi)/50], 0},
{2*Cos[(14*Pi)/25], Sin[(14*Pi)/25], 0}, {2*Cos[(29*Pi)/50], Sin[(29*Pi)/50], 0},
{(1 - Sqrt[5])/2, Sqrt[(5 + Sqrt[5])/2]/2, 0}, {2*Cos[(31*Pi)/50], Sin[(31*Pi)/50], 0},
{2*Cos[(16*Pi)/25], Sin[(16*Pi)/25], 0}, {2*Cos[(33*Pi)/50], Sin[(33*Pi)/50], 0},
{2*Cos[(17*Pi)/25], Sin[(17*Pi)/25], 0}, {-Sqrt[(5 - Sqrt[5])/2], (1 + Sqrt[5])/4, 0},
{2*Cos[(18*Pi)/25], Sin[(18*Pi)/25], 0}, {2*Cos[(37*Pi)/50], Sin[(37*Pi)/50], 0},
{2*Cos[(19*Pi)/25], Sin[(19*Pi)/25], 0}, {2*Cos[(39*Pi)/50], Sin[(39*Pi)/50], 0},
{(-1 - Sqrt[5])/2, Sqrt[(5 - Sqrt[5])/2]/2, 0}, {2*Cos[(41*Pi)/50], Sin[(41*Pi)/50], 0},
{2*Cos[(21*Pi)/25], Sin[(21*Pi)/25], 0}, {2*Cos[(43*Pi)/50], Sin[(43*Pi)/50], 0},
{2*Cos[(22*Pi)/25], Sin[(22*Pi)/25], 0}, {-Sqrt[(5 + Sqrt[5])/2], (-1 + Sqrt[5])/4, 0},
{2*Cos[(23*Pi)/25], Sin[(23*Pi)/25], 0}, {2*Cos[(47*Pi)/50], Sin[(47*Pi)/50], 0},
{2*Cos[(24*Pi)/25], Sin[(24*Pi)/25], 0}, {2*Cos[(49*Pi)/50], Sin[(49*Pi)/50], 0}, {-2, 0, 0},
{2*Cos[(51*Pi)/50], Sin[(51*Pi)/50], 0}, {2*Cos[(26*Pi)/25], Sin[(26*Pi)/25], 0},
{2*Cos[(53*Pi)/50], Sin[(53*Pi)/50], 0}, {2*Cos[(27*Pi)/25], Sin[(27*Pi)/25], 0},
{-Sqrt[(5 + Sqrt[5])/2], (1 - Sqrt[5])/4, 0}, {2*Cos[(28*Pi)/25], Sin[(28*Pi)/25], 0},
{2*Cos[(57*Pi)/50], Sin[(57*Pi)/50], 0}, {2*Cos[(29*Pi)/25], Sin[(29*Pi)/25], 0},
{2*Cos[(59*Pi)/50], Sin[(59*Pi)/50], 0}, {(-1 - Sqrt[5])/2, -Sqrt[(5 - Sqrt[5])/2]/2, 0},
{2*Cos[(61*Pi)/50], Sin[(61*Pi)/50], 0}, {2*Cos[(31*Pi)/25], Sin[(31*Pi)/25], 0},
{2*Cos[(63*Pi)/50], Sin[(63*Pi)/50], 0}, {2*Cos[(32*Pi)/25], Sin[(32*Pi)/25], 0},
{-Sqrt[(5 - Sqrt[5])/2], (-1 - Sqrt[5])/4, 0}, {2*Cos[(33*Pi)/25], Sin[(33*Pi)/25], 0},
{2*Cos[(67*Pi)/50], Sin[(67*Pi)/50], 0}, {2*Cos[(34*Pi)/25], Sin[(34*Pi)/25], 0},
{2*Cos[(69*Pi)/50], Sin[(69*Pi)/50], 0}, {(1 - Sqrt[5])/2, -Sqrt[(5 + Sqrt[5])/2]/2, 0},
{2*Cos[(71*Pi)/50], Sin[(71*Pi)/50], 0}, {2*Cos[(36*Pi)/25], Sin[(36*Pi)/25], 0},
{2*Cos[(73*Pi)/50], Sin[(73*Pi)/50], 0}, {2*Cos[(37*Pi)/25], Sin[(37*Pi)/25], 0}, {0, -1, 0},
{2*Cos[(38*Pi)/25], Sin[(38*Pi)/25], 0}, {2*Cos[(77*Pi)/50], Sin[(77*Pi)/50], 0},
{2*Cos[(39*Pi)/25], Sin[(39*Pi)/25], 0}, {2*Cos[(79*Pi)/50], Sin[(79*Pi)/50], 0},
{(-1 + Sqrt[5])/2, -Sqrt[(5 + Sqrt[5])/2]/2, 0}, {2*Cos[(81*Pi)/50], Sin[(81*Pi)/50], 0},
{2*Cos[(41*Pi)/25], Sin[(41*Pi)/25], 0}, {2*Cos[(83*Pi)/50], Sin[(83*Pi)/50], 0},
{2*Cos[(42*Pi)/25], Sin[(42*Pi)/25], 0}, {Sqrt[(5 - Sqrt[5])/2], (-1 - Sqrt[5])/4, 0},
{2*Cos[(43*Pi)/25], Sin[(43*Pi)/25], 0}, {2*Cos[(87*Pi)/50], Sin[(87*Pi)/50], 0},
{2*Cos[(44*Pi)/25], Sin[(44*Pi)/25], 0}, {2*Cos[(89*Pi)/50], Sin[(89*Pi)/50], 0},
{(1 + Sqrt[5])/2, -Sqrt[(5 - Sqrt[5])/2]/2, 0}, {2*Cos[(91*Pi)/50], Sin[(91*Pi)/50], 0},
{2*Cos[(46*Pi)/25], Sin[(46*Pi)/25], 0}, {2*Cos[(93*Pi)/50], Sin[(93*Pi)/50], 0},
{2*Cos[(47*Pi)/25], Sin[(47*Pi)/25], 0}, {Sqrt[(5 + Sqrt[5])/2], (1 - Sqrt[5])/4, 0},
{2*Cos[(48*Pi)/25], Sin[(48*Pi)/25], 0}, {2*Cos[(97*Pi)/50], Sin[(97*Pi)/50], 0},
{2*Cos[(49*Pi)/25], Sin[(49*Pi)/25], 0}, {2*Cos[(99*Pi)/50], Sin[(99*Pi)/50], 0}, {2, 0, 0}}],
Hue[0], Line[{{2 - w, 0, 0}, {2*Cos[Pi/50] - (w*Cos[Pi/50])/Sqrt[Cos[Pi/50]^2 + 4*Sin[Pi/50]^2],
Sin[Pi/50] - (2*w*Sin[Pi/50])/Sqrt[Cos[Pi/50]^2 + 4*Sin[Pi/50]^2], 0},
{2*Cos[Pi/25] - (w*Cos[Pi/25])/Sqrt[Cos[Pi/25]^2 + 4*Sin[Pi/25]^2],
Sin[Pi/25] - (2*w*Sin[Pi/25])/Sqrt[Cos[Pi/25]^2 + 4*Sin[Pi/25]^2], 0},
{2*Cos[(3*Pi)/50] - (w*Cos[(3*Pi)/50])/Sqrt[Cos[(3*Pi)/50]^2 + 4*Sin[(3*Pi)/50]^2],
Sin[(3*Pi)/50] - (2*w*Sin[(3*Pi)/50])/Sqrt[Cos[(3*Pi)/50]^2 + 4*Sin[(3*Pi)/50]^2], 0},
{2*Cos[(2*Pi)/25] - (w*Cos[(2*Pi)/25])/Sqrt[Cos[(2*Pi)/25]^2 + 4*Sin[(2*Pi)/25]^2],
Sin[(2*Pi)/25] - (2*w*Sin[(2*Pi)/25])/Sqrt[Cos[(2*Pi)/25]^2 + 4*Sin[(2*Pi)/25]^2], 0},
{Sqrt[(5 + Sqrt[5])/2] - w/(2*Sqrt[(2*((-1 + Sqrt[5])^2/4 + (5 + Sqrt[5])/8))/(5 + Sqrt[5])]),
(-1 + Sqrt[5])/4 - ((-1 + Sqrt[5])*w)/(2*Sqrt[(-1 + Sqrt[5])^2/4 + (5 + Sqrt[5])/8]), 0},
{2*Cos[(3*Pi)/25] - (w*Cos[(3*Pi)/25])/Sqrt[Cos[(3*Pi)/25]^2 + 4*Sin[(3*Pi)/25]^2],
Sin[(3*Pi)/25] - (2*w*Sin[(3*Pi)/25])/Sqrt[Cos[(3*Pi)/25]^2 + 4*Sin[(3*Pi)/25]^2], 0},
{2*Cos[(7*Pi)/50] - (w*Cos[(7*Pi)/50])/Sqrt[Cos[(7*Pi)/50]^2 + 4*Sin[(7*Pi)/50]^2],
Sin[(7*Pi)/50] - (2*w*Sin[(7*Pi)/50])/Sqrt[Cos[(7*Pi)/50]^2 + 4*Sin[(7*Pi)/50]^2], 0},
{2*Cos[(4*Pi)/25] - (w*Cos[(4*Pi)/25])/Sqrt[Cos[(4*Pi)/25]^2 + 4*Sin[(4*Pi)/25]^2],
Sin[(4*Pi)/25] - (2*w*Sin[(4*Pi)/25])/Sqrt[Cos[(4*Pi)/25]^2 + 4*Sin[(4*Pi)/25]^2], 0},
{2*Cos[(9*Pi)/50] - (w*Cos[(9*Pi)/50])/Sqrt[Cos[(9*Pi)/50]^2 + 4*Sin[(9*Pi)/50]^2],
Sin[(9*Pi)/50] - (2*w*Sin[(9*Pi)/50])/Sqrt[Cos[(9*Pi)/50]^2 + 4*Sin[(9*Pi)/50]^2], 0},
{(1 + Sqrt[5])/2 - ((1 + Sqrt[5])*w)/(4*Sqrt[(5 - Sqrt[5])/2 + (1 + Sqrt[5])^2/16]),
Sqrt[(5 - Sqrt[5])/2]/2 - w/Sqrt[(2*((5 - Sqrt[5])/2 + (1 + Sqrt[5])^2/16))/(5 - Sqrt[5])], 0},
{2*Cos[(11*Pi)/50] - (w*Cos[(11*Pi)/50])/Sqrt[Cos[(11*Pi)/50]^2 + 4*Sin[(11*Pi)/50]^2],
Sin[(11*Pi)/50] - (2*w*Sin[(11*Pi)/50])/Sqrt[Cos[(11*Pi)/50]^2 + 4*Sin[(11*Pi)/50]^2], 0},
{2*Cos[(6*Pi)/25] - (w*Cos[(6*Pi)/25])/Sqrt[Cos[(6*Pi)/25]^2 + 4*Sin[(6*Pi)/25]^2],
Sin[(6*Pi)/25] - (2*w*Sin[(6*Pi)/25])/Sqrt[Cos[(6*Pi)/25]^2 + 4*Sin[(6*Pi)/25]^2], 0},
{2*Cos[(13*Pi)/50] - (w*Cos[(13*Pi)/50])/Sqrt[Cos[(13*Pi)/50]^2 + 4*Sin[(13*Pi)/50]^2],
Sin[(13*Pi)/50] - (2*w*Sin[(13*Pi)/50])/Sqrt[Cos[(13*Pi)/50]^2 + 4*Sin[(13*Pi)/50]^2], 0},
{2*Cos[(7*Pi)/25] - (w*Cos[(7*Pi)/25])/Sqrt[Cos[(7*Pi)/25]^2 + 4*Sin[(7*Pi)/25]^2],
Sin[(7*Pi)/25] - (2*w*Sin[(7*Pi)/25])/Sqrt[Cos[(7*Pi)/25]^2 + 4*Sin[(7*Pi)/25]^2], 0},
{Sqrt[(5 - Sqrt[5])/2] - w/(2*Sqrt[(2*((5 - Sqrt[5])/8 + (1 + Sqrt[5])^2/4))/(5 - Sqrt[5])]),
(1 + Sqrt[5])/4 - ((1 + Sqrt[5])*w)/(2*Sqrt[(5 - Sqrt[5])/8 + (1 + Sqrt[5])^2/4]), 0},
{2*Cos[(8*Pi)/25] - (w*Cos[(8*Pi)/25])/Sqrt[Cos[(8*Pi)/25]^2 + 4*Sin[(8*Pi)/25]^2],
Sin[(8*Pi)/25] - (2*w*Sin[(8*Pi)/25])/Sqrt[Cos[(8*Pi)/25]^2 + 4*Sin[(8*Pi)/25]^2], 0},
{2*Cos[(17*Pi)/50] - (w*Cos[(17*Pi)/50])/Sqrt[Cos[(17*Pi)/50]^2 + 4*Sin[(17*Pi)/50]^2],
Sin[(17*Pi)/50] - (2*w*Sin[(17*Pi)/50])/Sqrt[Cos[(17*Pi)/50]^2 + 4*Sin[(17*Pi)/50]^2], 0},
{2*Cos[(9*Pi)/25] - (w*Cos[(9*Pi)/25])/Sqrt[Cos[(9*Pi)/25]^2 + 4*Sin[(9*Pi)/25]^2],
Sin[(9*Pi)/25] - (2*w*Sin[(9*Pi)/25])/Sqrt[Cos[(9*Pi)/25]^2 + 4*Sin[(9*Pi)/25]^2], 0},
{2*Cos[(19*Pi)/50] - (w*Cos[(19*Pi)/50])/Sqrt[Cos[(19*Pi)/50]^2 + 4*Sin[(19*Pi)/50]^2],
Sin[(19*Pi)/50] - (2*w*Sin[(19*Pi)/50])/Sqrt[Cos[(19*Pi)/50]^2 + 4*Sin[(19*Pi)/50]^2], 0},
{(-1 + Sqrt[5])/2 - ((-1 + Sqrt[5])*w)/(4*Sqrt[(-1 + Sqrt[5])^2/16 + (5 + Sqrt[5])/2]),
Sqrt[(5 + Sqrt[5])/2]/2 - w/Sqrt[(2*((-1 + Sqrt[5])^2/16 + (5 + Sqrt[5])/2))/(5 + Sqrt[5])], 0},
{2*Cos[(21*Pi)/50] - (w*Cos[(21*Pi)/50])/Sqrt[Cos[(21*Pi)/50]^2 + 4*Sin[(21*Pi)/50]^2],
Sin[(21*Pi)/50] - (2*w*Sin[(21*Pi)/50])/Sqrt[Cos[(21*Pi)/50]^2 + 4*Sin[(21*Pi)/50]^2], 0},
{2*Cos[(11*Pi)/25] - (w*Cos[(11*Pi)/25])/Sqrt[Cos[(11*Pi)/25]^2 + 4*Sin[(11*Pi)/25]^2],
Sin[(11*Pi)/25] - (2*w*Sin[(11*Pi)/25])/Sqrt[Cos[(11*Pi)/25]^2 + 4*Sin[(11*Pi)/25]^2], 0},
{2*Cos[(23*Pi)/50] - (w*Cos[(23*Pi)/50])/Sqrt[Cos[(23*Pi)/50]^2 + 4*Sin[(23*Pi)/50]^2],
Sin[(23*Pi)/50] - (2*w*Sin[(23*Pi)/50])/Sqrt[Cos[(23*Pi)/50]^2 + 4*Sin[(23*Pi)/50]^2], 0},
{2*Cos[(12*Pi)/25] - (w*Cos[(12*Pi)/25])/Sqrt[Cos[(12*Pi)/25]^2 + 4*Sin[(12*Pi)/25]^2],
Sin[(12*Pi)/25] - (2*w*Sin[(12*Pi)/25])/Sqrt[Cos[(12*Pi)/25]^2 + 4*Sin[(12*Pi)/25]^2], 0},
{0, 1 - w, 0}, {2*Cos[(13*Pi)/25] - (w*Cos[(13*Pi)/25])/
Sqrt[Cos[(13*Pi)/25]^2 + 4*Sin[(13*Pi)/25]^2], Sin[(13*Pi)/25] -
(2*w*Sin[(13*Pi)/25])/Sqrt[Cos[(13*Pi)/25]^2 + 4*Sin[(13*Pi)/25]^2], 0},
{2*Cos[(27*Pi)/50] - (w*Cos[(27*Pi)/50])/Sqrt[Cos[(27*Pi)/50]^2 + 4*Sin[(27*Pi)/50]^2],
Sin[(27*Pi)/50] - (2*w*Sin[(27*Pi)/50])/Sqrt[Cos[(27*Pi)/50]^2 + 4*Sin[(27*Pi)/50]^2], 0},
{2*Cos[(14*Pi)/25] - (w*Cos[(14*Pi)/25])/Sqrt[Cos[(14*Pi)/25]^2 + 4*Sin[(14*Pi)/25]^2],
Sin[(14*Pi)/25] - (2*w*Sin[(14*Pi)/25])/Sqrt[Cos[(14*Pi)/25]^2 + 4*Sin[(14*Pi)/25]^2], 0},
{2*Cos[(29*Pi)/50] - (w*Cos[(29*Pi)/50])/Sqrt[Cos[(29*Pi)/50]^2 + 4*Sin[(29*Pi)/50]^2],
Sin[(29*Pi)/50] - (2*w*Sin[(29*Pi)/50])/Sqrt[Cos[(29*Pi)/50]^2 + 4*Sin[(29*Pi)/50]^2], 0},
{(1 - Sqrt[5])/2 - ((1 - Sqrt[5])*w)/(4*Sqrt[(1 - Sqrt[5])^2/16 + (5 + Sqrt[5])/2]),
Sqrt[(5 + Sqrt[5])/2]/2 - w/Sqrt[(2*((1 - Sqrt[5])^2/16 + (5 + Sqrt[5])/2))/(5 + Sqrt[5])], 0},
{2*Cos[(31*Pi)/50] - (w*Cos[(31*Pi)/50])/Sqrt[Cos[(31*Pi)/50]^2 + 4*Sin[(31*Pi)/50]^2],
Sin[(31*Pi)/50] - (2*w*Sin[(31*Pi)/50])/Sqrt[Cos[(31*Pi)/50]^2 + 4*Sin[(31*Pi)/50]^2], 0},
{2*Cos[(16*Pi)/25] - (w*Cos[(16*Pi)/25])/Sqrt[Cos[(16*Pi)/25]^2 + 4*Sin[(16*Pi)/25]^2],
Sin[(16*Pi)/25] - (2*w*Sin[(16*Pi)/25])/Sqrt[Cos[(16*Pi)/25]^2 + 4*Sin[(16*Pi)/25]^2], 0},
{2*Cos[(33*Pi)/50] - (w*Cos[(33*Pi)/50])/Sqrt[Cos[(33*Pi)/50]^2 + 4*Sin[(33*Pi)/50]^2],
Sin[(33*Pi)/50] - (2*w*Sin[(33*Pi)/50])/Sqrt[Cos[(33*Pi)/50]^2 + 4*Sin[(33*Pi)/50]^2], 0},
{2*Cos[(17*Pi)/25] - (w*Cos[(17*Pi)/25])/Sqrt[Cos[(17*Pi)/25]^2 + 4*Sin[(17*Pi)/25]^2],
Sin[(17*Pi)/25] - (2*w*Sin[(17*Pi)/25])/Sqrt[Cos[(17*Pi)/25]^2 + 4*Sin[(17*Pi)/25]^2], 0},
{-Sqrt[(5 - Sqrt[5])/2] + w/(2*Sqrt[(2*((5 - Sqrt[5])/8 + (1 + Sqrt[5])^2/4))/(5 - Sqrt[5])]),
(1 + Sqrt[5])/4 - ((1 + Sqrt[5])*w)/(2*Sqrt[(5 - Sqrt[5])/8 + (1 + Sqrt[5])^2/4]), 0},
{2*Cos[(18*Pi)/25] - (w*Cos[(18*Pi)/25])/Sqrt[Cos[(18*Pi)/25]^2 + 4*Sin[(18*Pi)/25]^2],
Sin[(18*Pi)/25] - (2*w*Sin[(18*Pi)/25])/Sqrt[Cos[(18*Pi)/25]^2 + 4*Sin[(18*Pi)/25]^2], 0},
{2*Cos[(37*Pi)/50] - (w*Cos[(37*Pi)/50])/Sqrt[Cos[(37*Pi)/50]^2 + 4*Sin[(37*Pi)/50]^2],
Sin[(37*Pi)/50] - (2*w*Sin[(37*Pi)/50])/Sqrt[Cos[(37*Pi)/50]^2 + 4*Sin[(37*Pi)/50]^2], 0},
{2*Cos[(19*Pi)/25] - (w*Cos[(19*Pi)/25])/Sqrt[Cos[(19*Pi)/25]^2 + 4*Sin[(19*Pi)/25]^2],
Sin[(19*Pi)/25] - (2*w*Sin[(19*Pi)/25])/Sqrt[Cos[(19*Pi)/25]^2 + 4*Sin[(19*Pi)/25]^2], 0},
{2*Cos[(39*Pi)/50] - (w*Cos[(39*Pi)/50])/Sqrt[Cos[(39*Pi)/50]^2 + 4*Sin[(39*Pi)/50]^2],
Sin[(39*Pi)/50] - (2*w*Sin[(39*Pi)/50])/Sqrt[Cos[(39*Pi)/50]^2 + 4*Sin[(39*Pi)/50]^2], 0},
{(-1 - Sqrt[5])/2 - ((-1 - Sqrt[5])*w)/(4*Sqrt[(-1 - Sqrt[5])^2/16 + (5 - Sqrt[5])/2]),
Sqrt[(5 - Sqrt[5])/2]/2 - w/Sqrt[(2*((-1 - Sqrt[5])^2/16 + (5 - Sqrt[5])/2))/(5 - Sqrt[5])], 0},
{2*Cos[(41*Pi)/50] - (w*Cos[(41*Pi)/50])/Sqrt[Cos[(41*Pi)/50]^2 + 4*Sin[(41*Pi)/50]^2],
Sin[(41*Pi)/50] - (2*w*Sin[(41*Pi)/50])/Sqrt[Cos[(41*Pi)/50]^2 + 4*Sin[(41*Pi)/50]^2], 0},
{2*Cos[(21*Pi)/25] - (w*Cos[(21*Pi)/25])/Sqrt[Cos[(21*Pi)/25]^2 + 4*Sin[(21*Pi)/25]^2],
Sin[(21*Pi)/25] - (2*w*Sin[(21*Pi)/25])/Sqrt[Cos[(21*Pi)/25]^2 + 4*Sin[(21*Pi)/25]^2], 0},
{2*Cos[(43*Pi)/50] - (w*Cos[(43*Pi)/50])/Sqrt[Cos[(43*Pi)/50]^2 + 4*Sin[(43*Pi)/50]^2],
Sin[(43*Pi)/50] - (2*w*Sin[(43*Pi)/50])/Sqrt[Cos[(43*Pi)/50]^2 + 4*Sin[(43*Pi)/50]^2], 0},
{2*Cos[(22*Pi)/25] - (w*Cos[(22*Pi)/25])/Sqrt[Cos[(22*Pi)/25]^2 + 4*Sin[(22*Pi)/25]^2],
Sin[(22*Pi)/25] - (2*w*Sin[(22*Pi)/25])/Sqrt[Cos[(22*Pi)/25]^2 + 4*Sin[(22*Pi)/25]^2], 0},
{-Sqrt[(5 + Sqrt[5])/2] + w/(2*Sqrt[(2*((-1 + Sqrt[5])^2/4 + (5 + Sqrt[5])/8))/(5 + Sqrt[5])]),
(-1 + Sqrt[5])/4 - ((-1 + Sqrt[5])*w)/(2*Sqrt[(-1 + Sqrt[5])^2/4 + (5 + Sqrt[5])/8]), 0},
{2*Cos[(23*Pi)/25] - (w*Cos[(23*Pi)/25])/Sqrt[Cos[(23*Pi)/25]^2 + 4*Sin[(23*Pi)/25]^2],
Sin[(23*Pi)/25] - (2*w*Sin[(23*Pi)/25])/Sqrt[Cos[(23*Pi)/25]^2 + 4*Sin[(23*Pi)/25]^2], 0},
{2*Cos[(47*Pi)/50] - (w*Cos[(47*Pi)/50])/Sqrt[Cos[(47*Pi)/50]^2 + 4*Sin[(47*Pi)/50]^2],
Sin[(47*Pi)/50] - (2*w*Sin[(47*Pi)/50])/Sqrt[Cos[(47*Pi)/50]^2 + 4*Sin[(47*Pi)/50]^2], 0},
{2*Cos[(24*Pi)/25] - (w*Cos[(24*Pi)/25])/Sqrt[Cos[(24*Pi)/25]^2 + 4*Sin[(24*Pi)/25]^2],
Sin[(24*Pi)/25] - (2*w*Sin[(24*Pi)/25])/Sqrt[Cos[(24*Pi)/25]^2 + 4*Sin[(24*Pi)/25]^2], 0},
{2*Cos[(49*Pi)/50] - (w*Cos[(49*Pi)/50])/Sqrt[Cos[(49*Pi)/50]^2 + 4*Sin[(49*Pi)/50]^2],
Sin[(49*Pi)/50] - (2*w*Sin[(49*Pi)/50])/Sqrt[Cos[(49*Pi)/50]^2 + 4*Sin[(49*Pi)/50]^2], 0},
{-2 + w, 0, 0}, {2*Cos[(51*Pi)/50] - (w*Cos[(51*Pi)/50])/
Sqrt[Cos[(51*Pi)/50]^2 + 4*Sin[(51*Pi)/50]^2], Sin[(51*Pi)/50] -
(2*w*Sin[(51*Pi)/50])/Sqrt[Cos[(51*Pi)/50]^2 + 4*Sin[(51*Pi)/50]^2], 0},
{2*Cos[(26*Pi)/25] - (w*Cos[(26*Pi)/25])/Sqrt[Cos[(26*Pi)/25]^2 + 4*Sin[(26*Pi)/25]^2],
Sin[(26*Pi)/25] - (2*w*Sin[(26*Pi)/25])/Sqrt[Cos[(26*Pi)/25]^2 + 4*Sin[(26*Pi)/25]^2], 0},
{2*Cos[(53*Pi)/50] - (w*Cos[(53*Pi)/50])/Sqrt[Cos[(53*Pi)/50]^2 + 4*Sin[(53*Pi)/50]^2],
Sin[(53*Pi)/50] - (2*w*Sin[(53*Pi)/50])/Sqrt[Cos[(53*Pi)/50]^2 + 4*Sin[(53*Pi)/50]^2], 0},
{2*Cos[(27*Pi)/25] - (w*Cos[(27*Pi)/25])/Sqrt[Cos[(27*Pi)/25]^2 + 4*Sin[(27*Pi)/25]^2],
Sin[(27*Pi)/25] - (2*w*Sin[(27*Pi)/25])/Sqrt[Cos[(27*Pi)/25]^2 + 4*Sin[(27*Pi)/25]^2], 0},
{-Sqrt[(5 + Sqrt[5])/2] + w/(2*Sqrt[(2*((1 - Sqrt[5])^2/4 + (5 + Sqrt[5])/8))/(5 + Sqrt[5])]),
(1 - Sqrt[5])/4 - ((1 - Sqrt[5])*w)/(2*Sqrt[(1 - Sqrt[5])^2/4 + (5 + Sqrt[5])/8]), 0},
{2*Cos[(28*Pi)/25] - (w*Cos[(28*Pi)/25])/Sqrt[Cos[(28*Pi)/25]^2 + 4*Sin[(28*Pi)/25]^2],
Sin[(28*Pi)/25] - (2*w*Sin[(28*Pi)/25])/Sqrt[Cos[(28*Pi)/25]^2 + 4*Sin[(28*Pi)/25]^2], 0},
{2*Cos[(57*Pi)/50] - (w*Cos[(57*Pi)/50])/Sqrt[Cos[(57*Pi)/50]^2 + 4*Sin[(57*Pi)/50]^2],
Sin[(57*Pi)/50] - (2*w*Sin[(57*Pi)/50])/Sqrt[Cos[(57*Pi)/50]^2 + 4*Sin[(57*Pi)/50]^2], 0},
{2*Cos[(29*Pi)/25] - (w*Cos[(29*Pi)/25])/Sqrt[Cos[(29*Pi)/25]^2 + 4*Sin[(29*Pi)/25]^2],
Sin[(29*Pi)/25] - (2*w*Sin[(29*Pi)/25])/Sqrt[Cos[(29*Pi)/25]^2 + 4*Sin[(29*Pi)/25]^2], 0},
{2*Cos[(59*Pi)/50] - (w*Cos[(59*Pi)/50])/Sqrt[Cos[(59*Pi)/50]^2 + 4*Sin[(59*Pi)/50]^2],
Sin[(59*Pi)/50] - (2*w*Sin[(59*Pi)/50])/Sqrt[Cos[(59*Pi)/50]^2 + 4*Sin[(59*Pi)/50]^2], 0},
{(-1 - Sqrt[5])/2 - ((-1 - Sqrt[5])*w)/(4*Sqrt[(-1 - Sqrt[5])^2/16 + (5 - Sqrt[5])/2]),
-Sqrt[(5 - Sqrt[5])/2]/2 + w/Sqrt[(2*((-1 - Sqrt[5])^2/16 + (5 - Sqrt[5])/2))/(5 - Sqrt[5])], 0},
{2*Cos[(61*Pi)/50] - (w*Cos[(61*Pi)/50])/Sqrt[Cos[(61*Pi)/50]^2 + 4*Sin[(61*Pi)/50]^2],
Sin[(61*Pi)/50] - (2*w*Sin[(61*Pi)/50])/Sqrt[Cos[(61*Pi)/50]^2 + 4*Sin[(61*Pi)/50]^2], 0},
{2*Cos[(31*Pi)/25] - (w*Cos[(31*Pi)/25])/Sqrt[Cos[(31*Pi)/25]^2 + 4*Sin[(31*Pi)/25]^2],
Sin[(31*Pi)/25] - (2*w*Sin[(31*Pi)/25])/Sqrt[Cos[(31*Pi)/25]^2 + 4*Sin[(31*Pi)/25]^2], 0},
{2*Cos[(63*Pi)/50] - (w*Cos[(63*Pi)/50])/Sqrt[Cos[(63*Pi)/50]^2 + 4*Sin[(63*Pi)/50]^2],
Sin[(63*Pi)/50] - (2*w*Sin[(63*Pi)/50])/Sqrt[Cos[(63*Pi)/50]^2 + 4*Sin[(63*Pi)/50]^2], 0},
{2*Cos[(32*Pi)/25] - (w*Cos[(32*Pi)/25])/Sqrt[Cos[(32*Pi)/25]^2 + 4*Sin[(32*Pi)/25]^2],
Sin[(32*Pi)/25] - (2*w*Sin[(32*Pi)/25])/Sqrt[Cos[(32*Pi)/25]^2 + 4*Sin[(32*Pi)/25]^2], 0},
{-Sqrt[(5 - Sqrt[5])/2] + w/(2*Sqrt[(2*((-1 - Sqrt[5])^2/4 + (5 - Sqrt[5])/8))/(5 - Sqrt[5])]),
(-1 - Sqrt[5])/4 - ((-1 - Sqrt[5])*w)/(2*Sqrt[(-1 - Sqrt[5])^2/4 + (5 - Sqrt[5])/8]), 0},
{2*Cos[(33*Pi)/25] - (w*Cos[(33*Pi)/25])/Sqrt[Cos[(33*Pi)/25]^2 + 4*Sin[(33*Pi)/25]^2],
Sin[(33*Pi)/25] - (2*w*Sin[(33*Pi)/25])/Sqrt[Cos[(33*Pi)/25]^2 + 4*Sin[(33*Pi)/25]^2], 0},
{2*Cos[(67*Pi)/50] - (w*Cos[(67*Pi)/50])/Sqrt[Cos[(67*Pi)/50]^2 + 4*Sin[(67*Pi)/50]^2],
Sin[(67*Pi)/50] - (2*w*Sin[(67*Pi)/50])/Sqrt[Cos[(67*Pi)/50]^2 + 4*Sin[(67*Pi)/50]^2], 0},
{2*Cos[(34*Pi)/25] - (w*Cos[(34*Pi)/25])/Sqrt[Cos[(34*Pi)/25]^2 + 4*Sin[(34*Pi)/25]^2],
Sin[(34*Pi)/25] - (2*w*Sin[(34*Pi)/25])/Sqrt[Cos[(34*Pi)/25]^2 + 4*Sin[(34*Pi)/25]^2], 0},
{2*Cos[(69*Pi)/50] - (w*Cos[(69*Pi)/50])/Sqrt[Cos[(69*Pi)/50]^2 + 4*Sin[(69*Pi)/50]^2],
Sin[(69*Pi)/50] - (2*w*Sin[(69*Pi)/50])/Sqrt[Cos[(69*Pi)/50]^2 + 4*Sin[(69*Pi)/50]^2], 0},
{(1 - Sqrt[5])/2 - ((1 - Sqrt[5])*w)/(4*Sqrt[(1 - Sqrt[5])^2/16 + (5 + Sqrt[5])/2]),
-Sqrt[(5 + Sqrt[5])/2]/2 + w/Sqrt[(2*((1 - Sqrt[5])^2/16 + (5 + Sqrt[5])/2))/(5 + Sqrt[5])], 0},
{2*Cos[(71*Pi)/50] - (w*Cos[(71*Pi)/50])/Sqrt[Cos[(71*Pi)/50]^2 + 4*Sin[(71*Pi)/50]^2],
Sin[(71*Pi)/50] - (2*w*Sin[(71*Pi)/50])/Sqrt[Cos[(71*Pi)/50]^2 + 4*Sin[(71*Pi)/50]^2], 0},
{2*Cos[(36*Pi)/25] - (w*Cos[(36*Pi)/25])/Sqrt[Cos[(36*Pi)/25]^2 + 4*Sin[(36*Pi)/25]^2],
Sin[(36*Pi)/25] - (2*w*Sin[(36*Pi)/25])/Sqrt[Cos[(36*Pi)/25]^2 + 4*Sin[(36*Pi)/25]^2], 0},
{2*Cos[(73*Pi)/50] - (w*Cos[(73*Pi)/50])/Sqrt[Cos[(73*Pi)/50]^2 + 4*Sin[(73*Pi)/50]^2],
Sin[(73*Pi)/50] - (2*w*Sin[(73*Pi)/50])/Sqrt[Cos[(73*Pi)/50]^2 + 4*Sin[(73*Pi)/50]^2], 0},
{2*Cos[(37*Pi)/25] - (w*Cos[(37*Pi)/25])/Sqrt[Cos[(37*Pi)/25]^2 + 4*Sin[(37*Pi)/25]^2],
Sin[(37*Pi)/25] - (2*w*Sin[(37*Pi)/25])/Sqrt[Cos[(37*Pi)/25]^2 + 4*Sin[(37*Pi)/25]^2], 0},
{0, -1 + w, 0}, {2*Cos[(38*Pi)/25] - (w*Cos[(38*Pi)/25])/
Sqrt[Cos[(38*Pi)/25]^2 + 4*Sin[(38*Pi)/25]^2], Sin[(38*Pi)/25] -
(2*w*Sin[(38*Pi)/25])/Sqrt[Cos[(38*Pi)/25]^2 + 4*Sin[(38*Pi)/25]^2], 0},
{2*Cos[(77*Pi)/50] - (w*Cos[(77*Pi)/50])/Sqrt[Cos[(77*Pi)/50]^2 + 4*Sin[(77*Pi)/50]^2],
Sin[(77*Pi)/50] - (2*w*Sin[(77*Pi)/50])/Sqrt[Cos[(77*Pi)/50]^2 + 4*Sin[(77*Pi)/50]^2], 0},
{2*Cos[(39*Pi)/25] - (w*Cos[(39*Pi)/25])/Sqrt[Cos[(39*Pi)/25]^2 + 4*Sin[(39*Pi)/25]^2],
Sin[(39*Pi)/25] - (2*w*Sin[(39*Pi)/25])/Sqrt[Cos[(39*Pi)/25]^2 + 4*Sin[(39*Pi)/25]^2], 0},
{2*Cos[(79*Pi)/50] - (w*Cos[(79*Pi)/50])/Sqrt[Cos[(79*Pi)/50]^2 + 4*Sin[(79*Pi)/50]^2],
Sin[(79*Pi)/50] - (2*w*Sin[(79*Pi)/50])/Sqrt[Cos[(79*Pi)/50]^2 + 4*Sin[(79*Pi)/50]^2], 0},
{(-1 + Sqrt[5])/2 - ((-1 + Sqrt[5])*w)/(4*Sqrt[(-1 + Sqrt[5])^2/16 + (5 + Sqrt[5])/2]),
-Sqrt[(5 + Sqrt[5])/2]/2 + w/Sqrt[(2*((-1 + Sqrt[5])^2/16 + (5 + Sqrt[5])/2))/(5 + Sqrt[5])], 0},
{2*Cos[(81*Pi)/50] - (w*Cos[(81*Pi)/50])/Sqrt[Cos[(81*Pi)/50]^2 + 4*Sin[(81*Pi)/50]^2],
Sin[(81*Pi)/50] - (2*w*Sin[(81*Pi)/50])/Sqrt[Cos[(81*Pi)/50]^2 + 4*Sin[(81*Pi)/50]^2], 0},
{2*Cos[(41*Pi)/25] - (w*Cos[(41*Pi)/25])/Sqrt[Cos[(41*Pi)/25]^2 + 4*Sin[(41*Pi)/25]^2],
Sin[(41*Pi)/25] - (2*w*Sin[(41*Pi)/25])/Sqrt[Cos[(41*Pi)/25]^2 + 4*Sin[(41*Pi)/25]^2], 0},
{2*Cos[(83*Pi)/50] - (w*Cos[(83*Pi)/50])/Sqrt[Cos[(83*Pi)/50]^2 + 4*Sin[(83*Pi)/50]^2],
Sin[(83*Pi)/50] - (2*w*Sin[(83*Pi)/50])/Sqrt[Cos[(83*Pi)/50]^2 + 4*Sin[(83*Pi)/50]^2], 0},
{2*Cos[(42*Pi)/25] - (w*Cos[(42*Pi)/25])/Sqrt[Cos[(42*Pi)/25]^2 + 4*Sin[(42*Pi)/25]^2],
Sin[(42*Pi)/25] - (2*w*Sin[(42*Pi)/25])/Sqrt[Cos[(42*Pi)/25]^2 + 4*Sin[(42*Pi)/25]^2], 0},
{Sqrt[(5 - Sqrt[5])/2] - w/(2*Sqrt[(2*((-1 - Sqrt[5])^2/4 + (5 - Sqrt[5])/8))/(5 - Sqrt[5])]),
(-1 - Sqrt[5])/4 - ((-1 - Sqrt[5])*w)/(2*Sqrt[(-1 - Sqrt[5])^2/4 + (5 - Sqrt[5])/8]), 0},
{2*Cos[(43*Pi)/25] - (w*Cos[(43*Pi)/25])/Sqrt[Cos[(43*Pi)/25]^2 + 4*Sin[(43*Pi)/25]^2],
Sin[(43*Pi)/25] - (2*w*Sin[(43*Pi)/25])/Sqrt[Cos[(43*Pi)/25]^2 + 4*Sin[(43*Pi)/25]^2], 0},
{2*Cos[(87*Pi)/50] - (w*Cos[(87*Pi)/50])/Sqrt[Cos[(87*Pi)/50]^2 + 4*Sin[(87*Pi)/50]^2],
Sin[(87*Pi)/50] - (2*w*Sin[(87*Pi)/50])/Sqrt[Cos[(87*Pi)/50]^2 + 4*Sin[(87*Pi)/50]^2], 0},
{2*Cos[(44*Pi)/25] - (w*Cos[(44*Pi)/25])/Sqrt[Cos[(44*Pi)/25]^2 + 4*Sin[(44*Pi)/25]^2],
Sin[(44*Pi)/25] - (2*w*Sin[(44*Pi)/25])/Sqrt[Cos[(44*Pi)/25]^2 + 4*Sin[(44*Pi)/25]^2], 0},
{2*Cos[(89*Pi)/50] - (w*Cos[(89*Pi)/50])/Sqrt[Cos[(89*Pi)/50]^2 + 4*Sin[(89*Pi)/50]^2],
Sin[(89*Pi)/50] - (2*w*Sin[(89*Pi)/50])/Sqrt[Cos[(89*Pi)/50]^2 + 4*Sin[(89*Pi)/50]^2], 0},
{(1 + Sqrt[5])/2 - ((1 + Sqrt[5])*w)/(4*Sqrt[(5 - Sqrt[5])/2 + (1 + Sqrt[5])^2/16]),
-Sqrt[(5 - Sqrt[5])/2]/2 + w/Sqrt[(2*((5 - Sqrt[5])/2 + (1 + Sqrt[5])^2/16))/(5 - Sqrt[5])], 0},
{2*Cos[(91*Pi)/50] - (w*Cos[(91*Pi)/50])/Sqrt[Cos[(91*Pi)/50]^2 + 4*Sin[(91*Pi)/50]^2],
Sin[(91*Pi)/50] - (2*w*Sin[(91*Pi)/50])/Sqrt[Cos[(91*Pi)/50]^2 + 4*Sin[(91*Pi)/50]^2], 0},
{2*Cos[(46*Pi)/25] - (w*Cos[(46*Pi)/25])/Sqrt[Cos[(46*Pi)/25]^2 + 4*Sin[(46*Pi)/25]^2],
Sin[(46*Pi)/25] - (2*w*Sin[(46*Pi)/25])/Sqrt[Cos[(46*Pi)/25]^2 + 4*Sin[(46*Pi)/25]^2], 0},
{2*Cos[(93*Pi)/50] - (w*Cos[(93*Pi)/50])/Sqrt[Cos[(93*Pi)/50]^2 + 4*Sin[(93*Pi)/50]^2],
Sin[(93*Pi)/50] - (2*w*Sin[(93*Pi)/50])/Sqrt[Cos[(93*Pi)/50]^2 + 4*Sin[(93*Pi)/50]^2], 0},
{2*Cos[(47*Pi)/25] - (w*Cos[(47*Pi)/25])/Sqrt[Cos[(47*Pi)/25]^2 + 4*Sin[(47*Pi)/25]^2],
Sin[(47*Pi)/25] - (2*w*Sin[(47*Pi)/25])/Sqrt[Cos[(47*Pi)/25]^2 + 4*Sin[(47*Pi)/25]^2], 0},
{Sqrt[(5 + Sqrt[5])/2] - w/(2*Sqrt[(2*((1 - Sqrt[5])^2/4 + (5 + Sqrt[5])/8))/(5 + Sqrt[5])]),
(1 - Sqrt[5])/4 - ((1 - Sqrt[5])*w)/(2*Sqrt[(1 - Sqrt[5])^2/4 + (5 + Sqrt[5])/8]), 0},
{2*Cos[(48*Pi)/25] - (w*Cos[(48*Pi)/25])/Sqrt[Cos[(48*Pi)/25]^2 + 4*Sin[(48*Pi)/25]^2],
Sin[(48*Pi)/25] - (2*w*Sin[(48*Pi)/25])/Sqrt[Cos[(48*Pi)/25]^2 + 4*Sin[(48*Pi)/25]^2], 0},
{2*Cos[(97*Pi)/50] - (w*Cos[(97*Pi)/50])/Sqrt[Cos[(97*Pi)/50]^2 + 4*Sin[(97*Pi)/50]^2],
Sin[(97*Pi)/50] - (2*w*Sin[(97*Pi)/50])/Sqrt[Cos[(97*Pi)/50]^2 + 4*Sin[(97*Pi)/50]^2], 0},
{2*Cos[(49*Pi)/25] - (w*Cos[(49*Pi)/25])/Sqrt[Cos[(49*Pi)/25]^2 + 4*Sin[(49*Pi)/25]^2],
Sin[(49*Pi)/25] - (2*w*Sin[(49*Pi)/25])/Sqrt[Cos[(49*Pi)/25]^2 + 4*Sin[(49*Pi)/25]^2], 0},
{2*Cos[(99*Pi)/50] - (w*Cos[(99*Pi)/50])/Sqrt[Cos[(99*Pi)/50]^2 + 4*Sin[(99*Pi)/50]^2],
Sin[(99*Pi)/50] - (2*w*Sin[(99*Pi)/50])/Sqrt[Cos[(99*Pi)/50]^2 + 4*Sin[(99*Pi)/50]^2], 0},
{2 - w, 0, 0}}], Hue[0.6666666666666666],
Line[{{2 + w, 0, 0}, {2*Cos[Pi/50] + (w*Cos[Pi/50])/Sqrt[Cos[Pi/50]^2 + 4*Sin[Pi/50]^2],
Sin[Pi/50] + (2*w*Sin[Pi/50])/Sqrt[Cos[Pi/50]^2 + 4*Sin[Pi/50]^2], 0},
{2*Cos[Pi/25] + (w*Cos[Pi/25])/Sqrt[Cos[Pi/25]^2 + 4*Sin[Pi/25]^2],
Sin[Pi/25] + (2*w*Sin[Pi/25])/Sqrt[Cos[Pi/25]^2 + 4*Sin[Pi/25]^2], 0},
{2*Cos[(3*Pi)/50] + (w*Cos[(3*Pi)/50])/Sqrt[Cos[(3*Pi)/50]^2 + 4*Sin[(3*Pi)/50]^2],
Sin[(3*Pi)/50] + (2*w*Sin[(3*Pi)/50])/Sqrt[Cos[(3*Pi)/50]^2 + 4*Sin[(3*Pi)/50]^2], 0},
{2*Cos[(2*Pi)/25] + (w*Cos[(2*Pi)/25])/Sqrt[Cos[(2*Pi)/25]^2 + 4*Sin[(2*Pi)/25]^2],
Sin[(2*Pi)/25] + (2*w*Sin[(2*Pi)/25])/Sqrt[Cos[(2*Pi)/25]^2 + 4*Sin[(2*Pi)/25]^2], 0},
{Sqrt[(5 + Sqrt[5])/2] + w/(2*Sqrt[(2*((-1 + Sqrt[5])^2/4 + (5 + Sqrt[5])/8))/(5 + Sqrt[5])]),
(-1 + Sqrt[5])/4 + ((-1 + Sqrt[5])*w)/(2*Sqrt[(-1 + Sqrt[5])^2/4 + (5 + Sqrt[5])/8]), 0},
{2*Cos[(3*Pi)/25] + (w*Cos[(3*Pi)/25])/Sqrt[Cos[(3*Pi)/25]^2 + 4*Sin[(3*Pi)/25]^2],
Sin[(3*Pi)/25] + (2*w*Sin[(3*Pi)/25])/Sqrt[Cos[(3*Pi)/25]^2 + 4*Sin[(3*Pi)/25]^2], 0},
{2*Cos[(7*Pi)/50] + (w*Cos[(7*Pi)/50])/Sqrt[Cos[(7*Pi)/50]^2 + 4*Sin[(7*Pi)/50]^2],
Sin[(7*Pi)/50] + (2*w*Sin[(7*Pi)/50])/Sqrt[Cos[(7*Pi)/50]^2 + 4*Sin[(7*Pi)/50]^2], 0},
{2*Cos[(4*Pi)/25] + (w*Cos[(4*Pi)/25])/Sqrt[Cos[(4*Pi)/25]^2 + 4*Sin[(4*Pi)/25]^2],
Sin[(4*Pi)/25] + (2*w*Sin[(4*Pi)/25])/Sqrt[Cos[(4*Pi)/25]^2 + 4*Sin[(4*Pi)/25]^2], 0},
{2*Cos[(9*Pi)/50] + (w*Cos[(9*Pi)/50])/Sqrt[Cos[(9*Pi)/50]^2 + 4*Sin[(9*Pi)/50]^2],
Sin[(9*Pi)/50] + (2*w*Sin[(9*Pi)/50])/Sqrt[Cos[(9*Pi)/50]^2 + 4*Sin[(9*Pi)/50]^2], 0},
{(1 + Sqrt[5])/2 + ((1 + Sqrt[5])*w)/(4*Sqrt[(5 - Sqrt[5])/2 + (1 + Sqrt[5])^2/16]),
Sqrt[(5 - Sqrt[5])/2]/2 + w/Sqrt[(2*((5 - Sqrt[5])/2 + (1 + Sqrt[5])^2/16))/(5 - Sqrt[5])], 0},
{2*Cos[(11*Pi)/50] + (w*Cos[(11*Pi)/50])/Sqrt[Cos[(11*Pi)/50]^2 + 4*Sin[(11*Pi)/50]^2],
Sin[(11*Pi)/50] + (2*w*Sin[(11*Pi)/50])/Sqrt[Cos[(11*Pi)/50]^2 + 4*Sin[(11*Pi)/50]^2], 0},
{2*Cos[(6*Pi)/25] + (w*Cos[(6*Pi)/25])/Sqrt[Cos[(6*Pi)/25]^2 + 4*Sin[(6*Pi)/25]^2],
Sin[(6*Pi)/25] + (2*w*Sin[(6*Pi)/25])/Sqrt[Cos[(6*Pi)/25]^2 + 4*Sin[(6*Pi)/25]^2], 0},
{2*Cos[(13*Pi)/50] + (w*Cos[(13*Pi)/50])/Sqrt[Cos[(13*Pi)/50]^2 + 4*Sin[(13*Pi)/50]^2],
Sin[(13*Pi)/50] + (2*w*Sin[(13*Pi)/50])/Sqrt[Cos[(13*Pi)/50]^2 + 4*Sin[(13*Pi)/50]^2], 0},
{2*Cos[(7*Pi)/25] + (w*Cos[(7*Pi)/25])/Sqrt[Cos[(7*Pi)/25]^2 + 4*Sin[(7*Pi)/25]^2],
Sin[(7*Pi)/25] + (2*w*Sin[(7*Pi)/25])/Sqrt[Cos[(7*Pi)/25]^2 + 4*Sin[(7*Pi)/25]^2], 0},
{Sqrt[(5 - Sqrt[5])/2] + w/(2*Sqrt[(2*((5 - Sqrt[5])/8 + (1 + Sqrt[5])^2/4))/(5 - Sqrt[5])]),
(1 + Sqrt[5])/4 + ((1 + Sqrt[5])*w)/(2*Sqrt[(5 - Sqrt[5])/8 + (1 + Sqrt[5])^2/4]), 0},
{2*Cos[(8*Pi)/25] + (w*Cos[(8*Pi)/25])/Sqrt[Cos[(8*Pi)/25]^2 + 4*Sin[(8*Pi)/25]^2],
Sin[(8*Pi)/25] + (2*w*Sin[(8*Pi)/25])/Sqrt[Cos[(8*Pi)/25]^2 + 4*Sin[(8*Pi)/25]^2], 0},
{2*Cos[(17*Pi)/50] + (w*Cos[(17*Pi)/50])/Sqrt[Cos[(17*Pi)/50]^2 + 4*Sin[(17*Pi)/50]^2],
Sin[(17*Pi)/50] + (2*w*Sin[(17*Pi)/50])/Sqrt[Cos[(17*Pi)/50]^2 + 4*Sin[(17*Pi)/50]^2], 0},
{2*Cos[(9*Pi)/25] + (w*Cos[(9*Pi)/25])/Sqrt[Cos[(9*Pi)/25]^2 + 4*Sin[(9*Pi)/25]^2],
Sin[(9*Pi)/25] + (2*w*Sin[(9*Pi)/25])/Sqrt[Cos[(9*Pi)/25]^2 + 4*Sin[(9*Pi)/25]^2], 0},
{2*Cos[(19*Pi)/50] + (w*Cos[(19*Pi)/50])/Sqrt[Cos[(19*Pi)/50]^2 + 4*Sin[(19*Pi)/50]^2],
Sin[(19*Pi)/50] + (2*w*Sin[(19*Pi)/50])/Sqrt[Cos[(19*Pi)/50]^2 + 4*Sin[(19*Pi)/50]^2], 0},
{(-1 + Sqrt[5])/2 + ((-1 + Sqrt[5])*w)/(4*Sqrt[(-1 + Sqrt[5])^2/16 + (5 + Sqrt[5])/2]),
Sqrt[(5 + Sqrt[5])/2]/2 + w/Sqrt[(2*((-1 + Sqrt[5])^2/16 + (5 + Sqrt[5])/2))/(5 + Sqrt[5])], 0},
{2*Cos[(21*Pi)/50] + (w*Cos[(21*Pi)/50])/Sqrt[Cos[(21*Pi)/50]^2 + 4*Sin[(21*Pi)/50]^2],
Sin[(21*Pi)/50] + (2*w*Sin[(21*Pi)/50])/Sqrt[Cos[(21*Pi)/50]^2 + 4*Sin[(21*Pi)/50]^2], 0},
{2*Cos[(11*Pi)/25] + (w*Cos[(11*Pi)/25])/Sqrt[Cos[(11*Pi)/25]^2 + 4*Sin[(11*Pi)/25]^2],
Sin[(11*Pi)/25] + (2*w*Sin[(11*Pi)/25])/Sqrt[Cos[(11*Pi)/25]^2 + 4*Sin[(11*Pi)/25]^2], 0},
{2*Cos[(23*Pi)/50] + (w*Cos[(23*Pi)/50])/Sqrt[Cos[(23*Pi)/50]^2 + 4*Sin[(23*Pi)/50]^2],
Sin[(23*Pi)/50] + (2*w*Sin[(23*Pi)/50])/Sqrt[Cos[(23*Pi)/50]^2 + 4*Sin[(23*Pi)/50]^2], 0},
{2*Cos[(12*Pi)/25] + (w*Cos[(12*Pi)/25])/Sqrt[Cos[(12*Pi)/25]^2 + 4*Sin[(12*Pi)/25]^2],
Sin[(12*Pi)/25] + (2*w*Sin[(12*Pi)/25])/Sqrt[Cos[(12*Pi)/25]^2 + 4*Sin[(12*Pi)/25]^2], 0},
{0, 1 + w, 0}, {2*Cos[(13*Pi)/25] + (w*Cos[(13*Pi)/25])/
Sqrt[Cos[(13*Pi)/25]^2 + 4*Sin[(13*Pi)/25]^2], Sin[(13*Pi)/25] +
(2*w*Sin[(13*Pi)/25])/Sqrt[Cos[(13*Pi)/25]^2 + 4*Sin[(13*Pi)/25]^2], 0},
{2*Cos[(27*Pi)/50] + (w*Cos[(27*Pi)/50])/Sqrt[Cos[(27*Pi)/50]^2 + 4*Sin[(27*Pi)/50]^2],
Sin[(27*Pi)/50] + (2*w*Sin[(27*Pi)/50])/Sqrt[Cos[(27*Pi)/50]^2 + 4*Sin[(27*Pi)/50]^2], 0},
{2*Cos[(14*Pi)/25] + (w*Cos[(14*Pi)/25])/Sqrt[Cos[(14*Pi)/25]^2 + 4*Sin[(14*Pi)/25]^2],
Sin[(14*Pi)/25] + (2*w*Sin[(14*Pi)/25])/Sqrt[Cos[(14*Pi)/25]^2 + 4*Sin[(14*Pi)/25]^2], 0},
{2*Cos[(29*Pi)/50] + (w*Cos[(29*Pi)/50])/Sqrt[Cos[(29*Pi)/50]^2 + 4*Sin[(29*Pi)/50]^2],
Sin[(29*Pi)/50] + (2*w*Sin[(29*Pi)/50])/Sqrt[Cos[(29*Pi)/50]^2 + 4*Sin[(29*Pi)/50]^2], 0},
{(1 - Sqrt[5])/2 + ((1 - Sqrt[5])*w)/(4*Sqrt[(1 - Sqrt[5])^2/16 + (5 + Sqrt[5])/2]),
Sqrt[(5 + Sqrt[5])/2]/2 + w/Sqrt[(2*((1 - Sqrt[5])^2/16 + (5 + Sqrt[5])/2))/(5 + Sqrt[5])], 0},
{2*Cos[(31*Pi)/50] + (w*Cos[(31*Pi)/50])/Sqrt[Cos[(31*Pi)/50]^2 + 4*Sin[(31*Pi)/50]^2],
Sin[(31*Pi)/50] + (2*w*Sin[(31*Pi)/50])/Sqrt[Cos[(31*Pi)/50]^2 + 4*Sin[(31*Pi)/50]^2], 0},
{2*Cos[(16*Pi)/25] + (w*Cos[(16*Pi)/25])/Sqrt[Cos[(16*Pi)/25]^2 + 4*Sin[(16*Pi)/25]^2],
Sin[(16*Pi)/25] + (2*w*Sin[(16*Pi)/25])/Sqrt[Cos[(16*Pi)/25]^2 + 4*Sin[(16*Pi)/25]^2], 0},
{2*Cos[(33*Pi)/50] + (w*Cos[(33*Pi)/50])/Sqrt[Cos[(33*Pi)/50]^2 + 4*Sin[(33*Pi)/50]^2],
Sin[(33*Pi)/50] + (2*w*Sin[(33*Pi)/50])/Sqrt[Cos[(33*Pi)/50]^2 + 4*Sin[(33*Pi)/50]^2], 0},
{2*Cos[(17*Pi)/25] + (w*Cos[(17*Pi)/25])/Sqrt[Cos[(17*Pi)/25]^2 + 4*Sin[(17*Pi)/25]^2],
Sin[(17*Pi)/25] + (2*w*Sin[(17*Pi)/25])/Sqrt[Cos[(17*Pi)/25]^2 + 4*Sin[(17*Pi)/25]^2], 0},
{-Sqrt[(5 - Sqrt[5])/2] - w/(2*Sqrt[(2*((5 - Sqrt[5])/8 + (1 + Sqrt[5])^2/4))/(5 - Sqrt[5])]),
(1 + Sqrt[5])/4 + ((1 + Sqrt[5])*w)/(2*Sqrt[(5 - Sqrt[5])/8 + (1 + Sqrt[5])^2/4]), 0},
{2*Cos[(18*Pi)/25] + (w*Cos[(18*Pi)/25])/Sqrt[Cos[(18*Pi)/25]^2 + 4*Sin[(18*Pi)/25]^2],
Sin[(18*Pi)/25] + (2*w*Sin[(18*Pi)/25])/Sqrt[Cos[(18*Pi)/25]^2 + 4*Sin[(18*Pi)/25]^2], 0},
{2*Cos[(37*Pi)/50] + (w*Cos[(37*Pi)/50])/Sqrt[Cos[(37*Pi)/50]^2 + 4*Sin[(37*Pi)/50]^2],
Sin[(37*Pi)/50] + (2*w*Sin[(37*Pi)/50])/Sqrt[Cos[(37*Pi)/50]^2 + 4*Sin[(37*Pi)/50]^2], 0},
{2*Cos[(19*Pi)/25] + (w*Cos[(19*Pi)/25])/Sqrt[Cos[(19*Pi)/25]^2 + 4*Sin[(19*Pi)/25]^2],
Sin[(19*Pi)/25] + (2*w*Sin[(19*Pi)/25])/Sqrt[Cos[(19*Pi)/25]^2 + 4*Sin[(19*Pi)/25]^2], 0},
{2*Cos[(39*Pi)/50] + (w*Cos[(39*Pi)/50])/Sqrt[Cos[(39*Pi)/50]^2 + 4*Sin[(39*Pi)/50]^2],
Sin[(39*Pi)/50] + (2*w*Sin[(39*Pi)/50])/Sqrt[Cos[(39*Pi)/50]^2 + 4*Sin[(39*Pi)/50]^2], 0},
{(-1 - Sqrt[5])/2 + ((-1 - Sqrt[5])*w)/(4*Sqrt[(-1 - Sqrt[5])^2/16 + (5 - Sqrt[5])/2]),
Sqrt[(5 - Sqrt[5])/2]/2 + w/Sqrt[(2*((-1 - Sqrt[5])^2/16 + (5 - Sqrt[5])/2))/(5 - Sqrt[5])], 0},
{2*Cos[(41*Pi)/50] + (w*Cos[(41*Pi)/50])/Sqrt[Cos[(41*Pi)/50]^2 + 4*Sin[(41*Pi)/50]^2],
Sin[(41*Pi)/50] + (2*w*Sin[(41*Pi)/50])/Sqrt[Cos[(41*Pi)/50]^2 + 4*Sin[(41*Pi)/50]^2], 0},
{2*Cos[(21*Pi)/25] + (w*Cos[(21*Pi)/25])/Sqrt[Cos[(21*Pi)/25]^2 + 4*Sin[(21*Pi)/25]^2],
Sin[(21*Pi)/25] + (2*w*Sin[(21*Pi)/25])/Sqrt[Cos[(21*Pi)/25]^2 + 4*Sin[(21*Pi)/25]^2], 0},
{2*Cos[(43*Pi)/50] + (w*Cos[(43*Pi)/50])/Sqrt[Cos[(43*Pi)/50]^2 + 4*Sin[(43*Pi)/50]^2],
Sin[(43*Pi)/50] + (2*w*Sin[(43*Pi)/50])/Sqrt[Cos[(43*Pi)/50]^2 + 4*Sin[(43*Pi)/50]^2], 0},
{2*Cos[(22*Pi)/25] + (w*Cos[(22*Pi)/25])/Sqrt[Cos[(22*Pi)/25]^2 + 4*Sin[(22*Pi)/25]^2],
Sin[(22*Pi)/25] + (2*w*Sin[(22*Pi)/25])/Sqrt[Cos[(22*Pi)/25]^2 + 4*Sin[(22*Pi)/25]^2], 0},
{-Sqrt[(5 + Sqrt[5])/2] - w/(2*Sqrt[(2*((-1 + Sqrt[5])^2/4 + (5 + Sqrt[5])/8))/(5 + Sqrt[5])]),
(-1 + Sqrt[5])/4 + ((-1 + Sqrt[5])*w)/(2*Sqrt[(-1 + Sqrt[5])^2/4 + (5 + Sqrt[5])/8]), 0},
{2*Cos[(23*Pi)/25] + (w*Cos[(23*Pi)/25])/Sqrt[Cos[(23*Pi)/25]^2 + 4*Sin[(23*Pi)/25]^2],
Sin[(23*Pi)/25] + (2*w*Sin[(23*Pi)/25])/Sqrt[Cos[(23*Pi)/25]^2 + 4*Sin[(23*Pi)/25]^2], 0},
{2*Cos[(47*Pi)/50] + (w*Cos[(47*Pi)/50])/Sqrt[Cos[(47*Pi)/50]^2 + 4*Sin[(47*Pi)/50]^2],
Sin[(47*Pi)/50] + (2*w*Sin[(47*Pi)/50])/Sqrt[Cos[(47*Pi)/50]^2 + 4*Sin[(47*Pi)/50]^2], 0},
{2*Cos[(24*Pi)/25] + (w*Cos[(24*Pi)/25])/Sqrt[Cos[(24*Pi)/25]^2 + 4*Sin[(24*Pi)/25]^2],
Sin[(24*Pi)/25] + (2*w*Sin[(24*Pi)/25])/Sqrt[Cos[(24*Pi)/25]^2 + 4*Sin[(24*Pi)/25]^2], 0},
{2*Cos[(49*Pi)/50] + (w*Cos[(49*Pi)/50])/Sqrt[Cos[(49*Pi)/50]^2 + 4*Sin[(49*Pi)/50]^2],
Sin[(49*Pi)/50] + (2*w*Sin[(49*Pi)/50])/Sqrt[Cos[(49*Pi)/50]^2 + 4*Sin[(49*Pi)/50]^2], 0},
{-2 - w, 0, 0}, {2*Cos[(51*Pi)/50] + (w*Cos[(51*Pi)/50])/
Sqrt[Cos[(51*Pi)/50]^2 + 4*Sin[(51*Pi)/50]^2], Sin[(51*Pi)/50] +
(2*w*Sin[(51*Pi)/50])/Sqrt[Cos[(51*Pi)/50]^2 + 4*Sin[(51*Pi)/50]^2], 0},
{2*Cos[(26*Pi)/25] + (w*Cos[(26*Pi)/25])/Sqrt[Cos[(26*Pi)/25]^2 + 4*Sin[(26*Pi)/25]^2],
Sin[(26*Pi)/25] + (2*w*Sin[(26*Pi)/25])/Sqrt[Cos[(26*Pi)/25]^2 + 4*Sin[(26*Pi)/25]^2], 0},
{2*Cos[(53*Pi)/50] + (w*Cos[(53*Pi)/50])/Sqrt[Cos[(53*Pi)/50]^2 + 4*Sin[(53*Pi)/50]^2],
Sin[(53*Pi)/50] + (2*w*Sin[(53*Pi)/50])/Sqrt[Cos[(53*Pi)/50]^2 + 4*Sin[(53*Pi)/50]^2], 0},
{2*Cos[(27*Pi)/25] + (w*Cos[(27*Pi)/25])/Sqrt[Cos[(27*Pi)/25]^2 + 4*Sin[(27*Pi)/25]^2],
Sin[(27*Pi)/25] + (2*w*Sin[(27*Pi)/25])/Sqrt[Cos[(27*Pi)/25]^2 + 4*Sin[(27*Pi)/25]^2], 0},
{-Sqrt[(5 + Sqrt[5])/2] - w/(2*Sqrt[(2*((1 - Sqrt[5])^2/4 + (5 + Sqrt[5])/8))/(5 + Sqrt[5])]),
(1 - Sqrt[5])/4 + ((1 - Sqrt[5])*w)/(2*Sqrt[(1 - Sqrt[5])^2/4 + (5 + Sqrt[5])/8]), 0},
{2*Cos[(28*Pi)/25] + (w*Cos[(28*Pi)/25])/Sqrt[Cos[(28*Pi)/25]^2 + 4*Sin[(28*Pi)/25]^2],
Sin[(28*Pi)/25] + (2*w*Sin[(28*Pi)/25])/Sqrt[Cos[(28*Pi)/25]^2 + 4*Sin[(28*Pi)/25]^2], 0},
{2*Cos[(57*Pi)/50] + (w*Cos[(57*Pi)/50])/Sqrt[Cos[(57*Pi)/50]^2 + 4*Sin[(57*Pi)/50]^2],
Sin[(57*Pi)/50] + (2*w*Sin[(57*Pi)/50])/Sqrt[Cos[(57*Pi)/50]^2 + 4*Sin[(57*Pi)/50]^2], 0},
{2*Cos[(29*Pi)/25] + (w*Cos[(29*Pi)/25])/Sqrt[Cos[(29*Pi)/25]^2 + 4*Sin[(29*Pi)/25]^2],
Sin[(29*Pi)/25] + (2*w*Sin[(29*Pi)/25])/Sqrt[Cos[(29*Pi)/25]^2 + 4*Sin[(29*Pi)/25]^2], 0},
{2*Cos[(59*Pi)/50] + (w*Cos[(59*Pi)/50])/Sqrt[Cos[(59*Pi)/50]^2 + 4*Sin[(59*Pi)/50]^2],
Sin[(59*Pi)/50] + (2*w*Sin[(59*Pi)/50])/Sqrt[Cos[(59*Pi)/50]^2 + 4*Sin[(59*Pi)/50]^2], 0},
{(-1 - Sqrt[5])/2 + ((-1 - Sqrt[5])*w)/(4*Sqrt[(-1 - Sqrt[5])^2/16 + (5 - Sqrt[5])/2]),
-Sqrt[(5 - Sqrt[5])/2]/2 - w/Sqrt[(2*((-1 - Sqrt[5])^2/16 + (5 - Sqrt[5])/2))/(5 - Sqrt[5])], 0},
{2*Cos[(61*Pi)/50] + (w*Cos[(61*Pi)/50])/Sqrt[Cos[(61*Pi)/50]^2 + 4*Sin[(61*Pi)/50]^2],
Sin[(61*Pi)/50] + (2*w*Sin[(61*Pi)/50])/Sqrt[Cos[(61*Pi)/50]^2 + 4*Sin[(61*Pi)/50]^2], 0},
{2*Cos[(31*Pi)/25] + (w*Cos[(31*Pi)/25])/Sqrt[Cos[(31*Pi)/25]^2 + 4*Sin[(31*Pi)/25]^2],
Sin[(31*Pi)/25] + (2*w*Sin[(31*Pi)/25])/Sqrt[Cos[(31*Pi)/25]^2 + 4*Sin[(31*Pi)/25]^2], 0},
{2*Cos[(63*Pi)/50] + (w*Cos[(63*Pi)/50])/Sqrt[Cos[(63*Pi)/50]^2 + 4*Sin[(63*Pi)/50]^2],
Sin[(63*Pi)/50] + (2*w*Sin[(63*Pi)/50])/Sqrt[Cos[(63*Pi)/50]^2 + 4*Sin[(63*Pi)/50]^2], 0},
{2*Cos[(32*Pi)/25] + (w*Cos[(32*Pi)/25])/Sqrt[Cos[(32*Pi)/25]^2 + 4*Sin[(32*Pi)/25]^2],
Sin[(32*Pi)/25] + (2*w*Sin[(32*Pi)/25])/Sqrt[Cos[(32*Pi)/25]^2 + 4*Sin[(32*Pi)/25]^2], 0},
{-Sqrt[(5 - Sqrt[5])/2] - w/(2*Sqrt[(2*((-1 - Sqrt[5])^2/4 + (5 - Sqrt[5])/8))/(5 - Sqrt[5])]),
(-1 - Sqrt[5])/4 + ((-1 - Sqrt[5])*w)/(2*Sqrt[(-1 - Sqrt[5])^2/4 + (5 - Sqrt[5])/8]), 0},
{2*Cos[(33*Pi)/25] + (w*Cos[(33*Pi)/25])/Sqrt[Cos[(33*Pi)/25]^2 + 4*Sin[(33*Pi)/25]^2],
Sin[(33*Pi)/25] + (2*w*Sin[(33*Pi)/25])/Sqrt[Cos[(33*Pi)/25]^2 + 4*Sin[(33*Pi)/25]^2], 0},
{2*Cos[(67*Pi)/50] + (w*Cos[(67*Pi)/50])/Sqrt[Cos[(67*Pi)/50]^2 + 4*Sin[(67*Pi)/50]^2],
Sin[(67*Pi)/50] + (2*w*Sin[(67*Pi)/50])/Sqrt[Cos[(67*Pi)/50]^2 + 4*Sin[(67*Pi)/50]^2], 0},
{2*Cos[(34*Pi)/25] + (w*Cos[(34*Pi)/25])/Sqrt[Cos[(34*Pi)/25]^2 + 4*Sin[(34*Pi)/25]^2],
Sin[(34*Pi)/25] + (2*w*Sin[(34*Pi)/25])/Sqrt[Cos[(34*Pi)/25]^2 + 4*Sin[(34*Pi)/25]^2], 0},
{2*Cos[(69*Pi)/50] + (w*Cos[(69*Pi)/50])/Sqrt[Cos[(69*Pi)/50]^2 + 4*Sin[(69*Pi)/50]^2],
Sin[(69*Pi)/50] + (2*w*Sin[(69*Pi)/50])/Sqrt[Cos[(69*Pi)/50]^2 + 4*Sin[(69*Pi)/50]^2], 0},
{(1 - Sqrt[5])/2 + ((1 - Sqrt[5])*w)/(4*Sqrt[(1 - Sqrt[5])^2/16 + (5 + Sqrt[5])/2]),
-Sqrt[(5 + Sqrt[5])/2]/2 - w/Sqrt[(2*((1 - Sqrt[5])^2/16 + (5 + Sqrt[5])/2))/(5 + Sqrt[5])], 0},
{2*Cos[(71*Pi)/50] + (w*Cos[(71*Pi)/50])/Sqrt[Cos[(71*Pi)/50]^2 + 4*Sin[(71*Pi)/50]^2],
Sin[(71*Pi)/50] + (2*w*Sin[(71*Pi)/50])/Sqrt[Cos[(71*Pi)/50]^2 + 4*Sin[(71*Pi)/50]^2], 0},
{2*Cos[(36*Pi)/25] + (w*Cos[(36*Pi)/25])/Sqrt[Cos[(36*Pi)/25]^2 + 4*Sin[(36*Pi)/25]^2],
Sin[(36*Pi)/25] + (2*w*Sin[(36*Pi)/25])/Sqrt[Cos[(36*Pi)/25]^2 + 4*Sin[(36*Pi)/25]^2], 0},
{2*Cos[(73*Pi)/50] + (w*Cos[(73*Pi)/50])/Sqrt[Cos[(73*Pi)/50]^2 + 4*Sin[(73*Pi)/50]^2],
Sin[(73*Pi)/50] + (2*w*Sin[(73*Pi)/50])/Sqrt[Cos[(73*Pi)/50]^2 + 4*Sin[(73*Pi)/50]^2], 0},
{2*Cos[(37*Pi)/25] + (w*Cos[(37*Pi)/25])/Sqrt[Cos[(37*Pi)/25]^2 + 4*Sin[(37*Pi)/25]^2],
Sin[(37*Pi)/25] + (2*w*Sin[(37*Pi)/25])/Sqrt[Cos[(37*Pi)/25]^2 + 4*Sin[(37*Pi)/25]^2], 0},
{0, -1 - w, 0}, {2*Cos[(38*Pi)/25] + (w*Cos[(38*Pi)/25])/
Sqrt[Cos[(38*Pi)/25]^2 + 4*Sin[(38*Pi)/25]^2], Sin[(38*Pi)/25] +
(2*w*Sin[(38*Pi)/25])/Sqrt[Cos[(38*Pi)/25]^2 + 4*Sin[(38*Pi)/25]^2], 0},
{2*Cos[(77*Pi)/50] + (w*Cos[(77*Pi)/50])/Sqrt[Cos[(77*Pi)/50]^2 + 4*Sin[(77*Pi)/50]^2],
Sin[(77*Pi)/50] + (2*w*Sin[(77*Pi)/50])/Sqrt[Cos[(77*Pi)/50]^2 + 4*Sin[(77*Pi)/50]^2], 0},
{2*Cos[(39*Pi)/25] + (w*Cos[(39*Pi)/25])/Sqrt[Cos[(39*Pi)/25]^2 + 4*Sin[(39*Pi)/25]^2],
Sin[(39*Pi)/25] + (2*w*Sin[(39*Pi)/25])/Sqrt[Cos[(39*Pi)/25]^2 + 4*Sin[(39*Pi)/25]^2], 0},
{2*Cos[(79*Pi)/50] + (w*Cos[(79*Pi)/50])/Sqrt[Cos[(79*Pi)/50]^2 + 4*Sin[(79*Pi)/50]^2],
Sin[(79*Pi)/50] + (2*w*Sin[(79*Pi)/50])/Sqrt[Cos[(79*Pi)/50]^2 + 4*Sin[(79*Pi)/50]^2], 0},
{(-1 + Sqrt[5])/2 + ((-1 + Sqrt[5])*w)/(4*Sqrt[(-1 + Sqrt[5])^2/16 + (5 + Sqrt[5])/2]),
-Sqrt[(5 + Sqrt[5])/2]/2 - w/Sqrt[(2*((-1 + Sqrt[5])^2/16 + (5 + Sqrt[5])/2))/(5 + Sqrt[5])], 0},
{2*Cos[(81*Pi)/50] + (w*Cos[(81*Pi)/50])/Sqrt[Cos[(81*Pi)/50]^2 + 4*Sin[(81*Pi)/50]^2],
Sin[(81*Pi)/50] + (2*w*Sin[(81*Pi)/50])/Sqrt[Cos[(81*Pi)/50]^2 + 4*Sin[(81*Pi)/50]^2], 0},
{2*Cos[(41*Pi)/25] + (w*Cos[(41*Pi)/25])/Sqrt[Cos[(41*Pi)/25]^2 + 4*Sin[(41*Pi)/25]^2],
Sin[(41*Pi)/25] + (2*w*Sin[(41*Pi)/25])/Sqrt[Cos[(41*Pi)/25]^2 + 4*Sin[(41*Pi)/25]^2], 0},
{2*Cos[(83*Pi)/50] + (w*Cos[(83*Pi)/50])/Sqrt[Cos[(83*Pi)/50]^2 + 4*Sin[(83*Pi)/50]^2],
Sin[(83*Pi)/50] + (2*w*Sin[(83*Pi)/50])/Sqrt[Cos[(83*Pi)/50]^2 + 4*Sin[(83*Pi)/50]^2], 0},
{2*Cos[(42*Pi)/25] + (w*Cos[(42*Pi)/25])/Sqrt[Cos[(42*Pi)/25]^2 + 4*Sin[(42*Pi)/25]^2],
Sin[(42*Pi)/25] + (2*w*Sin[(42*Pi)/25])/Sqrt[Cos[(42*Pi)/25]^2 + 4*Sin[(42*Pi)/25]^2], 0},
{Sqrt[(5 - Sqrt[5])/2] + w/(2*Sqrt[(2*((-1 - Sqrt[5])^2/4 + (5 - Sqrt[5])/8))/(5 - Sqrt[5])]),
(-1 - Sqrt[5])/4 + ((-1 - Sqrt[5])*w)/(2*Sqrt[(-1 - Sqrt[5])^2/4 + (5 - Sqrt[5])/8]), 0},
{2*Cos[(43*Pi)/25] + (w*Cos[(43*Pi)/25])/Sqrt[Cos[(43*Pi)/25]^2 + 4*Sin[(43*Pi)/25]^2],
Sin[(43*Pi)/25] + (2*w*Sin[(43*Pi)/25])/Sqrt[Cos[(43*Pi)/25]^2 + 4*Sin[(43*Pi)/25]^2], 0},
{2*Cos[(87*Pi)/50] + (w*Cos[(87*Pi)/50])/Sqrt[Cos[(87*Pi)/50]^2 + 4*Sin[(87*Pi)/50]^2],
Sin[(87*Pi)/50] + (2*w*Sin[(87*Pi)/50])/Sqrt[Cos[(87*Pi)/50]^2 + 4*Sin[(87*Pi)/50]^2], 0},
{2*Cos[(44*Pi)/25] + (w*Cos[(44*Pi)/25])/Sqrt[Cos[(44*Pi)/25]^2 + 4*Sin[(44*Pi)/25]^2],
Sin[(44*Pi)/25] + (2*w*Sin[(44*Pi)/25])/Sqrt[Cos[(44*Pi)/25]^2 + 4*Sin[(44*Pi)/25]^2], 0},
{2*Cos[(89*Pi)/50] + (w*Cos[(89*Pi)/50])/Sqrt[Cos[(89*Pi)/50]^2 + 4*Sin[(89*Pi)/50]^2],
Sin[(89*Pi)/50] + (2*w*Sin[(89*Pi)/50])/Sqrt[Cos[(89*Pi)/50]^2 + 4*Sin[(89*Pi)/50]^2], 0},
{(1 + Sqrt[5])/2 + ((1 + Sqrt[5])*w)/(4*Sqrt[(5 - Sqrt[5])/2 + (1 + Sqrt[5])^2/16]),
-Sqrt[(5 - Sqrt[5])/2]/2 - w/Sqrt[(2*((5 - Sqrt[5])/2 + (1 + Sqrt[5])^2/16))/(5 - Sqrt[5])], 0},
{2*Cos[(91*Pi)/50] + (w*Cos[(91*Pi)/50])/Sqrt[Cos[(91*Pi)/50]^2 + 4*Sin[(91*Pi)/50]^2],
Sin[(91*Pi)/50] + (2*w*Sin[(91*Pi)/50])/Sqrt[Cos[(91*Pi)/50]^2 + 4*Sin[(91*Pi)/50]^2], 0},
{2*Cos[(46*Pi)/25] + (w*Cos[(46*Pi)/25])/Sqrt[Cos[(46*Pi)/25]^2 + 4*Sin[(46*Pi)/25]^2],
Sin[(46*Pi)/25] + (2*w*Sin[(46*Pi)/25])/Sqrt[Cos[(46*Pi)/25]^2 + 4*Sin[(46*Pi)/25]^2], 0},
{2*Cos[(93*Pi)/50] + (w*Cos[(93*Pi)/50])/Sqrt[Cos[(93*Pi)/50]^2 + 4*Sin[(93*Pi)/50]^2],
Sin[(93*Pi)/50] + (2*w*Sin[(93*Pi)/50])/Sqrt[Cos[(93*Pi)/50]^2 + 4*Sin[(93*Pi)/50]^2], 0},
{2*Cos[(47*Pi)/25] + (w*Cos[(47*Pi)/25])/Sqrt[Cos[(47*Pi)/25]^2 + 4*Sin[(47*Pi)/25]^2],
Sin[(47*Pi)/25] + (2*w*Sin[(47*Pi)/25])/Sqrt[Cos[(47*Pi)/25]^2 + 4*Sin[(47*Pi)/25]^2], 0},
{Sqrt[(5 + Sqrt[5])/2] + w/(2*Sqrt[(2*((1 - Sqrt[5])^2/4 + (5 + Sqrt[5])/8))/(5 + Sqrt[5])]),
(1 - Sqrt[5])/4 + ((1 - Sqrt[5])*w)/(2*Sqrt[(1 - Sqrt[5])^2/4 + (5 + Sqrt[5])/8]), 0},
{2*Cos[(48*Pi)/25] + (w*Cos[(48*Pi)/25])/Sqrt[Cos[(48*Pi)/25]^2 + 4*Sin[(48*Pi)/25]^2],
Sin[(48*Pi)/25] + (2*w*Sin[(48*Pi)/25])/Sqrt[Cos[(48*Pi)/25]^2 + 4*Sin[(48*Pi)/25]^2], 0},
{2*Cos[(97*Pi)/50] + (w*Cos[(97*Pi)/50])/Sqrt[Cos[(97*Pi)/50]^2 + 4*Sin[(97*Pi)/50]^2],
Sin[(97*Pi)/50] + (2*w*Sin[(97*Pi)/50])/Sqrt[Cos[(97*Pi)/50]^2 + 4*Sin[(97*Pi)/50]^2], 0},
{2*Cos[(49*Pi)/25] + (w*Cos[(49*Pi)/25])/Sqrt[Cos[(49*Pi)/25]^2 + 4*Sin[(49*Pi)/25]^2],
Sin[(49*Pi)/25] + (2*w*Sin[(49*Pi)/25])/Sqrt[Cos[(49*Pi)/25]^2 + 4*Sin[(49*Pi)/25]^2], 0},
{2*Cos[(99*Pi)/50] + (w*Cos[(99*Pi)/50])/Sqrt[Cos[(99*Pi)/50]^2 + 4*Sin[(99*Pi)/50]^2],
Sin[(99*Pi)/50] + (2*w*Sin[(99*Pi)/50])/Sqrt[Cos[(99*Pi)/50]^2 + 4*Sin[(99*Pi)/50]^2], 0},
{2 + w, 0, 0}}]}
Converted by Mathematica
November 7, 2001