行列の対角成分 - KeTCindyによる図入り教材の作成

行列の対角成分を角丸長方形で囲み，塗る．

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

diagonal_element.zip

Putpoint("A",[2,2]);
Putpoint("B",Rotatepoint(A,pi/4,[0,0]));
Putpoint("C",[B.x+2*sqrt(2)-0.3,B.y-sqrt(2)/4]);
Ovaldata("1",[B,C],["nodisp",1.7]);
／／　点Bを中心として，点Cを右下端とする角丸長方形を作る．
Rotatedata("1","ov1",-pi/4);
／／　角丸長方形を原点を中心として-pi/4だけ回転させる．
Setcolor([0.1,0,0,0]);
Shade(["rt1"]);
／／　角丸長方形の内部を塗りつぶす．
Setcolor([0,0,0,1]);
Putpoint("D",[2,2]);
Putpoint("E",[-0.1,3.9]);
Ovaldata("2",[D,E],["nodisp"]);
／／　点Dを中心として，点Eを左上端とする角丸長方形を作る．
PutonCurve("F","ov2");
Putpoint("F",[E.x,4-E.y]);
／／　角丸長方形の左下端の点をとる．
Partcrv("1",E,F,"ov2");
／／　角丸長方形の左側の部分曲線を描く．
PutonCurve("G","ov2");
Putpoint("G",[2*D.x-F.x,F.y]);
PutonCurve("H","ov2");
Putpoint("H",[G.x,E.y]);
Partcrv("2",G,H,"ov2");
／／　角丸長方形の左側の部分曲線を描く．
PutonCurve("I","ov2");
I.y=2;
Expr(["I","w","A="]);
／／　"A="を書く．
xLst=[10,10,10,10];
yLst=[10,10,10,10];
rmvL=["c0r0r4","c1r0r4","c2r0r4","c3r0r4","c4r0r4","r0c0c4","r1c0c4","r2c0c4","r3c0c4","r4c0c4"];
Tabledata("",xLst,yLst,rmvL);
Putrowexpr(1,"c",["a_{11}","a_{12}","\cdots","a_{1n}"]);
Putrowexpr(2,"c",["a_{21}","a_{22}","\cdots","a_{2n}"]);
Putrowexpr(3,"c",["\vdots","\vdots","\ddots","\vdots"]);
Putrowexpr(4,"c",["a_{n1}","a_{n2}","\cdots","a_{nn}"]);
／／　行列を作る．
Setwindow([-1,4.2],[-0.2,4.2]);