組合せ - KeTCindyによる図入り教材の作成

組合せと順列の違いを表す図を描く．

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

combination.zip

xLst=[10,3,10,3,10,3,10,3,10,3,10,3,10,3,10,3,10,3,10];
yLst=[10,10,10,10,10,10];
rmvL=[];
Tabledata("",xLst,yLst,rmvL,["nodisp"]);
PutcoLexpr(1,"c",["abc","acb","bac","bca","cab","cba"]);
PutcoLexpr(3,"c",["abd","adb","bad","bda","dab","dba"]);
PutcoLexpr(5,"c",["abe","aeb","bae","bea","eab","eba"]);
PutcoLexpr(7,"c",["acd","adc","cad","cda","dac","dca"]);
PutcoLexpr(9,"c",["ace","aec","cae","cea","eac","eca"]);
PutcoLexpr(11,"c",["ade","aed","dae","dea","ead","eda"]);
PutcoLexpr(13,"c",["bcd","bdc","cbd","cdb","dbc","dcb"]);
PutcoLexpr(15,"c",["bce","bec","cbe","ceb","ebc","ecb"]);
PutcoLexpr(17,"c",["bde","bed","dbe","deb","ebd","edb"]);
PutcoLexpr(19,"c",["cde","ced","dce","dec","ecd","edc"]);
／／表を作る．
Putpoint("A",[0,3]);
Putpoint("B",[A.x-0.5,2*A.y]);
Ovaldata("1",[A,B],[2.5,"nodisp"]);
／／内側の角丸長方形を作る．
Putpoint("C",[5+0.3*4+0.3/2,3]);
Putpoint("D",[-0.5,6.5]);
Ovaldata("2",[C,D],[2.5]);
／／外側の角丸長方形を描く．
Setcolor([1,0,0,0]);
repeat(10,n,
Translatedata(text(n),["ov1"],[0.5+1.3*(n-1),0]);
);
／／内側の１０個の角丸長方形を描く．
Setwindow([-1,14],[-0.5,6.5]);
ウィンドウの範囲は表の範囲だから，外側の角丸長方形が入るように変更する．