「多項式割り算」の編集履歴(バックアップ)一覧はこちら
「多項式割り算」(2016/10/30 (日) 10:24:31) の最新版変更点
追加された行は緑色になります。
削除された行は赤色になります。
多項式の割り算の図式を描く.
&ref(takousikiwarizan.png,,title=完成図,width=400,)
//&ref(takousikiwarizan.zip)
・dtに各行からなる(2重)リストを入れる.
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行にデータを入れる
// #は無名のループ変数の値(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を中心まで並行移動した曲線を描く
多項式の割り算の図式を描く.
&ref(takousikiwarizan.png,,title=完成図,width=400,)
&ref(takousikiwarizan.zip)
・dtに各行からなる(2重)リストを入れる.
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行にデータを入れる
// #は無名のループ変数の値(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を中心まで並行移動した曲線を描く