数体系 - KeTCindyによる図入り教材の作成

数体系の拡大の表を作成する．

suutaikei.zip

１）表の作成
xLst=[10,4,10,12,12,48];
yLst=[10,5,5,10,10];
rmvL=["c1r1r5","c2r1r5","c3r3r5","c4r3r5"];
rmvL=concat(rmvL,["c4r0r2","r0c3c6","r1c5c6"]);
rmvL=concat(rmvL,["c5r0r1","c6r0r3","r2c5c6"]);
rmvL=concat(rmvL,["r2c0c3","c5r4r5"]);
／／ concat は２つのリストを結合するコマンド
　（rmvLの要素が多いので分けた）
Tabledatalight("",xLst,yLst,rmvL);
／／ 罫線の端点を幾何点としない作表
Fontsize("s");
／／ フォントサイズをsmallにする
Putrow(1,"c",["自然数","0","負整数"]);
Putcell("c0r1","c3r3","c","整数$n$");
Putcell("c3r1","c5r2","c","非整数");
Putcell("c3r2","c4r3","c","\scriptsize 有限小数");
Putcell("c4r2","c5r3","c","\scriptsize 循環小数");
Putcell("c0r3","c5r4","c","有理数$\dfrac{n}{m}$");
Putcell("c5r3","c6r4","c","無理数（循環しない小数）");
Putcell("c0r4","c6r5","c","実　数");
／／ 行またはセルに文字を入れていく．

２）網かけをするとき，

suutaikei2.zip

• 以下の命令を入れる．

　　注）sg1の定義は後でしてよい（Shadeは前の方におく）
Shade(["sg1"],0.2);
Tlistplot("1",["c0r0","c1r0","c1r1","c3r1","c3r3","c5r3","c5r4","c6r4","c6r5","c0r5","c0r0"],["nodisp"]);
／／ Shadeをかける閉折れ線を表示しないで作成