「補集合」の編集履歴（バックアップ）一覧に戻る

補集合 - (2016/01/30 (土) 13:21:26) のソース

補集合のベン図を描く．

&ref(venn-zu4.png,,title=,width=400,)
&ref(venn-zu4.cdy)

・画面上に円と四角形CDEFを描く．
・点G,Hをとる．
Addax(0);
if(1==1,
Setcolor([0.2,0,0,0]);
Shade(["sg1"],[]); 
／／四角形の内部を色を指定して塗りつぶす．
Setcolor([0,0,0,0]);
Shade(["cr1"],[]); 
／／円の内部を白くする．
Setcolor([0,0,0,1]);
／／色を黒に戻す．
);
Circledata("1",[A,B]);
Listplot("1",[C,D,E,F,C]);
Setcolor([0,0,0,0]);
Listplot("2",[G,H]);
線分GHを白くする．
Setcolor([0,0,0,1]);
Letter([[-3,0],"c","$\overline{A}$",A,"c","$A$",
(G.xy+H.xy)/2,"c","$U$"]);
／／Uは線分GHの中点にかく．




Addax(0);

if(1==1,

Setcolor([0.2,0,0,0]);
Shade(["cr1"],[]); 
Shade(["cr2"],[]); 

//２つの円の内部を色を指定して塗りつぶす．

Setcolor([0,0,0,1]);


);

Circledata("1",[A,B]);
Circledata("2",[C,D]);


//円を塗りつぶしの後に描くことによって，共通部分の円弧が消えない．

Letter([B,"w","$A$",D,"e","$B$",E,"s15","$A\cup B$"]);