凹凸を含めた増減表 - KeTCindyによる図入り教材の作成

凹凸を含めた増減表を作成する．

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

Table_IncDec.zip

DecUC(nm,szmm):=(
／／　減少で上に凸の矢印を作成表示するサブルーチン（関数定義）
　regional(name,c1,c2,sz,tmp,tmp1,tmp2);
　name="a"+nm;
　sz=szmm/10;
　c1="c"+nm+"r3";
　c2="c"+Text(parse(nm)+1)+"r4";
　tmp=Findcell(c1,c2);
　tmp1=tmp_1+[-sz/2,-sz/2];
　tmp2=tmp1+[sz,0];
　Circledata(name,[tmp1,tmp2],["Rng=[0,pi/2]"]);
　Invert(name,"cr"+name);
　tmp1=Ptend("inv"+name);
　tmp=Arrowheaddata(tmp1,"inv"+name);
　Listplot(name,tmp);
);
DecDC(nm,szmm):=(
／／　減少で下に凸の矢印を作成表示するサブルーチン（関数定義）
　regional(name,c1,c2,sz,tmp,tmp1,tmp2);
　name="a"+nm;
　sz=szmm/10;
　c1="c"+nm+"r3";
　c2="c"+Text(parse(nm)+1)+"r4";
　tmp=Findcell(c1,c2);
　tmp1=tmp_1+[sz/2,sz/2];
　tmp2=tmp1+[sz,0];
　Circledata(name,[tmp1,tmp2],["Rng=[pi,3*pi/2]"]);
　tmp1=Ptend("cr"+name);
　tmp=Arrowheaddata(tmp1,"cr"+name);
　Listplot(name,tmp);
);
IncUC(nm,szmm):=(
／／　増加で上に凸の矢印を作成表示するサブルーチン（関数定義）
　regional(name,c1,c2,sz,tmp,tmp1,tmp2);
　name="a"+nm;
　sz=szmm/10;
　c1="c"+nm+"r3";
　c2="c"+Text(parse(nm)+1)+"r4";
　tmp=Findcell(c1,c2);
　tmp1=tmp_1+[sz/2,-sz/2];
　tmp2=tmp1+[sz,0];
　Circledata(name,[tmp1,tmp2],["Rng=[pi/2,pi]"]);
　Invert(name,"cr"+name);
　tmp1=Ptend("inv"+name);
　tmp=Arrowheaddata(tmp1,"inv"+name);
　Listplot(name,tmp);
);
IncDC(nm,szmm):=(
／／　増加で下に凸の矢印を作成表示するサブルーチン（関数定義）
　regional(name,c1,c2,sz,tmp,tmp1,tmp2);
　name="a"+nm;
　sz=szmm/10;
　c1="c"+nm+"r3";
　c2="c"+Text(parse(nm)+1)+"r4";
　tmp=Findcell(c1,c2);
　tmp1=tmp_1+[-sz/2,sz/2];
　tmp2=tmp1+[sz,0];
　Circledata(name,[tmp1,tmp2],["Rng=[-pi/2,0]"]);
　tmp1=Ptend("cr"+name);
　tmp=Arrowheaddata(tmp1,"cr"+name);
　Listplot(name,tmp);
);
Addcolor("Shade(['fr1'],[])",[0.2,0,0,0]);
Addcolor("Shade(['fr2'],[])",[0.2,0,0,0]);
／／　fr1とfr2をShadeする．
xLst=flatten(apply(1..3,[9,8]));
／／　9,8],[9,8],[9,8というリストを作成し(apply)，[9,8,9,8,9,8]にする(flatten)．
xLst=prepend(7,xLst);
／／　xLstの先頭に7を追加　[7,9,8,9,8,9,8]
xLst=append(xLst,9);
／／　xLstの最後に9を追加　[7,9,8,9,8,9,8,9]
yLst=apply(1..3,7);
／／　[7,7,7]というリストを作成する．
yLst=append(yLst,9);
／／　yLstの最後に9を追加　[7,7,7,9]
rmvL=[];
／／　表示しない罫線はない．
Tabledatalight("",xLst,yLst,rmvL);
／／　作表
Framedata2("1",[Tgrid("c0r1"),Tgrid("c8r0")],["nodisp"]);
／／　c0r1の格子点とc8r0の格子点を対角線とする長方形を作成し表示しない．
Framedata2("2",[Tgrid("c0r4"),Tgrid("c1r0")],["nodisp"]);
／／　c0r4の格子点とc1r0の格子点を対角線とする長方形を作成し表示しない．
Fontsize("s");
／／　フォントサイズ"s"で各行のデータを表示する．
Putrowexpr(1,"c",["x","\cdots","-1","\cdots","0","\cdots","1","\cdots"]);
Putrowexpr(2,"c",["y^{\prime}","+","+","+","0","-","-","-"]);
Putrowexpr(3,"c",["y^{\prime\prime}","+","0","-","-","-","0","+"]);
Putrowexpr(4,"c",["y","","\dfrac{1}{\sqrt{e}}","","1","","\dfrac{1}{\sqrt{e}}",""]);

IncDC("1",4);
／／　yの欄（最下行）の1番目に大きさ4mmの増加・下に凸の矢印を表示する．
IncUC("3",4);
／／　yの欄（最下行）の3番目に大きさ4mmの増加・上に凸の矢印を表示する．
DecUC("5",4);
／／　yの欄（最下行）の5番目に大きさ4mmの減少・上に凸の矢印を表示する．
DecDC("7",4);
／／　yの欄（最下行）の7番目に大きさ4mmの減少・下に凸の矢印を表示する．
Expr(Tgrid("c4r0"),"n2e","y=e^{-\tfrac{\,x^2}{2}}");
／／　関数名の表示