ビビアニの曲線の縮閉線

　【式】　α(t)=β(t)+e2(t)/κ(t)　　　( -2π≦t＜2π)
　　　　　e2(t)=(β'(t)×β''(t))×β'(t)/‖(β'(t)×β''(t))×β'(t)‖
　　　　　κ(t)=‖β'(t)×β''(t)‖/pow(‖β'(t)‖,3)
　　　　　β(t)=R( 1+cos t, sin t, 2 sin t/2 ) , R=2

　媒介変数表示のビビアニの曲線から、縮閉線を描いています。