q := (rn-2をrn-1で割った商); rn := rn-2-q*rn-1 (=rn-2をrn-1で割った余り); xn := xn-2-q*xn-1; yn := yn-2-q*yn-1; (n=2,3,...)
次回のプリントへ