双曲線の定義 &ref(hyperbola-definition.png,,title=,width=400,) &ref(hyperbola-definition.zip) // 原点(Aになる)と焦点(B,Cになる)に点を置く Hyperbolaplot("1",[C,B,3]); // 点B,C を焦点とし,焦点からの距離の差が3 の双曲線を描く Letter([A,"sw","O"]); Letter([B,"ne","F",B,"s","$c$"]); Letter([C,"nw","F$^\prime$",C,"s","$-c$"]); // 点の名前や座標を書く // 双曲線上に点をおく(Dになる) Letter([D,"nw","P"]); // 点の名前を書く // 座標を表示する場所に点をとる Expr([E,"s","-a"]); Expr([F,"s","a"]); // 座標を書く Setcolor("navyblue"); Listplot([C,D,B]); Pointdata("1",[D],["Size=4"]); Pointdata("2",[C],["Size=4"]); Pointdata("3",[B],["Size=4"]); // 色を変えて線分と点を描く Setcolor("black"); // 黒色に戻しておく