多項式割り算 - KeTCindyによる図入り教材の作成

多項式の割り算の図式を描く．

takousikiwarizan.zip

• dtに各行からなる（２重）リストを入れる．

dt=[
　["","","","","x^2","+","3x","+","4","",""],
　["x","-","2","","x^3","+","x^2","-","2x","-","5"],
　["","","","","x^3","-","2x^2","","","",""],
　["","","","","","","3x^2","-","2x","",""],
　["","","","","","","3x^2","-","6x","",""],
　["","","","","","","","","4x","-","5"],
　["","","","","","","","","4x","-","8"],
　["","","","","","","","","","","3"]
];
xLst=apply(1..11,6);
xLst_4=1.5;
yLst=apply(1..8,6);
rmvL=[];
Tabledatalight("",xLst,yLst,rmvL,["notex"]);
／／ オプションの"notex"は画面には表示するが，TeXには出力しない意味
／／ もし，画面に表示しないときは，"nodisp"とする．
Tlistplot("1",["c3r1","c11r1"]);
Tlistplot("2",["c4r3","c7r3"]);
Tlistplot("3",["c6r5","c9r5"]);
Tlistplot("4",["c8r7","c11r7"]);
／／ 計算の横線を描く
forall(1..8,
　Putrowexpr(#,"c",dt_#);
);
／／ 1から8行にデータを入れる
／／ #は無名のループ変数の値（１から８）を表す．
Paramplot("1","[-t^2,t]","t=[-0.3,0.3]",["notex"]);
／／ 原点で横向き放物線gp1を作っておく（TeXには出力しない）
tmp=Findcell("c3r1","c4r2");
／／ 括弧を入れるセルの中心，幅を取得
Translatedata("1","gp1",tmp_1);
／／ gp1を中心まで並行移動した曲線を描く