多項式割り算

※上記の広告は60日以上更新のないWIKIに表示されています。更新することで広告が下部へ移動します。

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


  • 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を中心まで並行移動した曲線を描く
|新しいページ|検索|ページ一覧|RSS|@ウィキご利用ガイド | 管理者にお問合せ
|ログイン|