\newcommand{\Sommet}{1.4142135623730951}
\newcommand{\PosFoyer}{2}
\newcommand{\HypAngle}{0}
\setcounter{i}{1}
\newcounter{CoefDiv}\setcounter{CoefDiv}{20}
\newcounter{Inc}\setcounter{Inc}{2}
\newcounter{n}\setcounter{n}{2}
%% радиус на концентрични кръгове, използвани за намиране на точки от H
%% избираме \Rii=\Ri+2\Sommet (дефиниция на хипербола)
\newcommand{\Ri}{% кодът е postscript
  \PosFoyer\space\Sommet\space sub \arabic{i}\space\arabic{CoefDiv}\space div add}
\newcommand{\Rii}{\Ri\space\Sommet\space 2 mul add}
\pstGeonode[PosAngle=90]{O}(\PosFoyer,\HypAngle){F}
\pstSymO[PosAngle=180]{O}{F}\pstLineAB{F}{F'}
%% Следа на асимптотите
\pstCircleOA{O}{F}
%% определяне на двата върха на H
\pstGeonode[PosAngle=-135](\Sommet,\HypAngle){S}
\pstGeonode[PosAngle=-45](-\Sommet,\HypAngle){S'}
%% правата, перпендикуляра на (FF') през S, пресича асимптотата в точка 
%% от окръжността с диаметър [FF'] (тази права е допирателна към H)
\pstRotation[RotAngle=90, PointSymbol=none]{S}{O}[B]
\pstInterLC[PosAngleA=90, PosAngleB=-90]{S}{B}{O}{F}{A_1}{A_2}
\pstLineAB[nodesepA=-3,nodesepB=-5]{A_1}{O}
\pstLineAB[nodesepA=-3,nodesepB=-5]{A_2}{O}
%% cos(\Psi)=OS/OF (c-a-d \Sommet/\PosFoyer)
%% тук \sqrt(2)/2, следователно \Psi=45 => hyperbole equilatere
\pstMarkAngle[LabelSep=.8, MarkAngleRadius=.7, arrows=->,
  LabelSep=1.1]{F}{O}{A_1}{$\Psi$}
\ncline[linecolor=red]{A_1}{A_2}
\pstRightAngle[RightAngleSize=.15]{A_1}{S}{O}
\psset{PointName=none}
\whiledo{\value{n}<8}{%
  \psset{RadiusA=\pstDistVal{\Ri},RadiusB=\pstDistVal{\Rii},PointSymbol=none}
  \pstInterCC{F}{}{F'}{}{M\arabic{n}}{P\arabic{n}}
  \pstInterCC{F'}{}{F}{}{M'\arabic{n}}{P'\arabic{n}}
  %% bcp точки в началото
  %% n -> номер на точката, i -> размер на окръжностите
  %% Inc -> нарастване на i (2^n)
  \stepcounter{n}\addtocounter{i}{\value{Inc}}
  \addtocounter{Inc}{\value{Inc}}}%% fin de whiledo
\psset{linecolor=blue}
%% изчертаване на клоновете на хиперболата
\pstGenericCurve[GenCurvFirst=S]{M}{2}{7}
\pstGenericCurve[GenCurvFirst=S]{P}{2}{7}
\pstGenericCurve[GenCurvFirst=S']{M'}{2}{7}
\pstGenericCurve[GenCurvFirst=S']{P'}{2}{7}
%% за проверка на параметрите
%\parametricplot[linecolor=black, linewidth=.25\pslinewidth]{-1}{1}
%  {t dup tx@EcldDict begin sh exch ch end \Sommet\space mul exch
%   \PosFoyer\space dup mul \Sommet\space dup mul sub sqrt mul}
%\parametricplot[linecolor=black, linewidth=.25\pslinewidth]{-1}{1}
%  {t dup tx@EcldDict begin sh exch ch end neg \Sommet\space mul exch
%    \PosFoyer\space dup mul \Sommet\space dup mul sub sqrt mul}