円に内接する長方形 - KeTCindyによる図入り教材の作成

円に内接する長方形を描く．

#ref error ：ご指定のファイルが見つかりません。ファイル名を確認して、再度指定してください。 (title=)

inscribe.zip

Addax(0);
／／座標軸を描かないので Addax(0) にしておく．
／／「円を加える」ボタンを押してから，原点でクリックし(原点がAになる)，
／／そのまま適当なところまでドラッグする(その点がBになる)．
Circledata([A,B]);
PutonCurve("C","crAB");
／／円を描き，円上にCをとる．Cを適当なところに動かす．
Putpoint("D",[-C.x,C.y]);
Putpoint("E",[-C.x,-C.y]);
Putpoint("F",[C.x,-C.y]);
／／D,E,F を C と対称な点にとる．
Listplot([C,D,E,F,C,E]);
／／長方形と対角線(直径)を描く．
Bowdata([E,C],[1,1,"Expr=2a","dr","nodisp"]);
Bowdata([C,D],[1,1,"Expr=x","dr","nodisp"]);
／／弓形に入れる文字だけを書くため "nodisp" とする．(文字は黒で書きたい)
Setcolor([0,0,1]);
AddGraph("1",bwEC);
AddGraph("2",bwCD);
Setcolor([0,0,0]);
／／弓形を青色で描く．黒色に戻しておく．
Paramark([C,D,E],[0.5]);
／／直角マークを描く．
Ptsize(3);
Drawpoint([A]);
／／原点(点A)に大きめの点を打つ．
Letter([A,"se","O"]);
／／原点(点A)の右下に O と書く．

Figpdf();
／／描画領域の大きさでPDFを作成する．