「確率の加法定理」の編集履歴（バックアップ）一覧はこちら

「確率の加法定理」(2016/10/30 (日) 15:53:58) の最新版変更点

追加された行は緑色になります。

削除された行は赤色になります。

確率の加法定理 $p(A \cup B)=p(A)+p(B)-p(C)=p(D)+P(E)$ を説明する．

&ref(additiverulefig.png,,title=,width=800,)
//&ref(additiverule.zip)

・画面上に幾何点A,Bをとり，円を書く．
・幾何点C,D,E,Fをとり，長方形を書き，幾何点G,Hをとる．
・幾何点K,Lをとり，円を書き，2つの円の交点として幾何点M,Nをとる．

Addax(0);

Setcolor([0.2,0,0,0]);
Shade(["join1"]);
／／join1の内部を塗る
Setcolor("black");

Circledata("1",[A,B]);
／／中心A，点Bを通る円cr1を書く
Circledata("2",[K,L]);
Listplot("1",[C,D,E,F,C]);
Partcrv("1",N,M,"cr1");
／／円cr1のNからMまでの部分曲線データpart1を作成
Partcrv("2",M,N,"cr2");
Joincrvs("1",["part1","part2"]);
／／部分曲線part1, part2を加えて1つの曲線データjoin1を作成
PutonCurve("Q","cr1"); 
／／円cr1上に幾何点Qを作成
PutonCurve("S","cr2"); 
PutonCurve("R","cr1"); 
PutonCurve("T","cr2"); 

Setcolor([0,0,0,0]);
Listplot("2",[G,H]);
Partcrv("3",R,Q,"cr1");
Partcrv("4",T,S,"cr2");
Setcolor([0,0,0,1]);

Letter([A,"ne2","$E$",
(G+H)/2,"c","$\Omega$",(M+N)/2,"c","$C$",O,"c","$D$"]);
Letter([(Q+R)/2,"c","$B$",(S+T)/2,"n","$A$"]);

確率の加法定理 $p(A \cup B)=p(A)+p(B)-p(C)=p(D)+P(E)$ を説明する．

&ref(additiverulefig.png,,title=,width=800,)
&ref(additiverule.zip)

・画面上に幾何点A,Bをとり，円を書く．
・幾何点C,D,E,Fをとり，長方形を書き，幾何点G,Hをとる．
・幾何点K,Lをとり，円を書き，2つの円の交点として幾何点M,Nをとる．

Addax(0);

Setcolor([0.2,0,0,0]);
Shade(["join1"]);
／／join1の内部を塗る
Setcolor("black");

Circledata("1",[A,B]);
／／中心A，点Bを通る円cr1を書く
Circledata("2",[K,L]);
Listplot("1",[C,D,E,F,C]);
Partcrv("1",N,M,"cr1");
／／円cr1のNからMまでの部分曲線データpart1を作成
Partcrv("2",M,N,"cr2");
Joincrvs("1",["part1","part2"]);
／／部分曲線part1, part2を加えて1つの曲線データjoin1を作成
PutonCurve("Q","cr1"); 
／／円cr1上に幾何点Qを作成
PutonCurve("S","cr2"); 
PutonCurve("R","cr1"); 
PutonCurve("T","cr2"); 

Setcolor([0,0,0,0]);
Listplot("2",[G,H]);
Partcrv("3",R,Q,"cr1");
Partcrv("4",T,S,"cr2");
Setcolor([0,0,0,1]);

Letter([A,"ne2","$E$",
(G+H)/2,"c","$\Omega$",(M+N)/2,"c","$C$",O,"c","$D$"]);
Letter([(Q+R)/2,"c","$B$",(S+T)/2,"n","$A$"]);