不等式１ - KeTCindyによる図入り教材の作成

不等式の性質を数直線上に表す．

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

inequality1.zip

• 画面上に幾何点AからP4をとる．

１）a>b,b>cのとき，a>c
Addax(0);
Listplot([A,B]);
Htickmark([Q,"n","c",R,"n","b",S,"n","a"]);
Setcolor([0.8,0,0,0]);
／／色を指定する．
Bowdata([Q,R],[1.5,0]);
Bowdata([R,S],[1,0]);
／／２点の間に弓形を描く．オプション : 曲がり，空白サイズ，文字
Setcolor("black");
Letter([[(Q.x+R.x)/2,(Q.y+R.y)/2],"s6","$c<b$",[(R.x+S.x)/2,(R.y+S.y)/2],"s6","$b<a$"]);
２）a>bのとき，a+c>b+c
Listplot([C,D]);
Listplot([E,F]);
Htickmark([T,"n","b",U,"n","a",V,"s","b+4",W,"s","a+4"]);
Setcolor([0.8,0,0,0]);
Arrowdata(T,V);
Arrowdata(U,W);
／／矢印を描く．
Setcolor("black");
Letter([[(T.x+V.x)/2,(T.y+V.y)/2],"w5","$+4$",[(U.x+W.x)/2,(U.y+W.y)/2],"e4","$+4$"]);
同様に以下の図も描くことができる．
３）a>b,c>0のとき，ca>cb
４）a>b,c<0のとき，ca<cb