Cycloidの仲間たち


下図をクリックしてください(別タブに表示)。
図のA点を上下して曲線の変化を見てみましょう。


  • 円は半径1
  • A点は自由点で、ドラッグして上下に動かすことができる
  • 範囲はSlider("A",[0,-4],[0,4]);で設定している
Ketinit();
Setketcindyjs(["Label=[A]","Color=white"]);

Putpoint("A",[0,0],[0,A.y]);
Putpoint("C",[0,1]);
Slider("A",[0,-4],[0,4]);
Setpt(2);
Circledata("0",[C,C+[1,0]]);
Pointdata("0",[A],["Color=red"]);

nn=4*36;
forall(1..nn,
    t=4*pi/nn*#;
    Rotatedata("p","pt0",-t,[C,"nodisp"]);
    Translatedata("p"+text(#),"rtp",[t,0],["Color=red"]);
    Rotatedata("c","cr0",-t,[C,"nodisp"]);
    Translatedata(text(#),"rtc",[t,0],["dr,0.3"]);
);

Windispg();

at