「凹凸を含めた増減表」の編集履歴（バックアップ）一覧はこちら
凹凸を含めた増減表 - (2016/10/30 (日) 14:06:13) の１つ前との変更点
追加された行は緑色になります。
削除された行は赤色になります。
凹凸を含めた増減表を作成する．
&ref(Table_IncDec.png,,title=,width=400,)
&ref(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}}");
／／ 関数名の表示
凹凸を含めた増減表を作成する．
&ref(Table_IncDec.png,,title=,width=400,)
//&ref(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}}");
／／ 関数名の表示
