ОписаниеSmoothed Octagon.svg	English: The construction of a smoothed octagon.
Дата	20 марта 2009
Источник	Own work by uploader, made in Mathematica, and heavy processing in Inkscape.
Автор	Inductiveload
Права (Повторное использование этого файла)	Public domainPublic domainfalsefalse Я, владелец авторских прав на это произведение, передаю его в общественное достояние. Это разрешение действует по всему миру. В некоторых странах это не может быть возможно юридически, в таком случае: Я даю право кому угодно использовать данное произведение в любых целях без каких-либо условий, за исключением таких условий, которые требуются по закону.

l = Sqrt[2] - 1;
m = Sqrt[6*Sqrt[2] - 8]*(Sqrt[2] + 1)/2;

hyper = ParametricPlot[
   {m/l * Cosh[t], 
    m * Sinh[t]},
   {t, -Pi, Pi}];

adj = Plot[
   {(Sqrt[2] + 1)*(x - 2),
    -(Sqrt[2] + 1)*(x - 2)},
   {x, 2, 10}];

asymp = Plot[
   {l*x, -l*x},
   {x, 0, 10}];

Show[
 {hyper,
  adj,
  asymp},
 AspectRatio -> Automatic,
 PlotRange -> {{0, 4}, {-2, 2}}
 ]