算術幾何平均

相加・相乗平均の関係を図で表す.

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

arithmetic-geometric-mean.zip

  • 画面上に2円の中心A,Bと通る点C,Dをとる.
 B,Dは適当にとる.
  • 線分EFを描く.
Addax(0);
a=2;
b=3;
//2円の半径を指定する.
Putpoint("B",[2*sqrt(a*b),b]);
Putpoint("D",[2*sqrt(a*b),0]);
//2円が接するように点B,Dの座標を指定する.
Circledata([A,C]);
Circledata([B,D]);
//接する円が描ける.
Listplot([A,C,D,B,A]);
Listplot([E,F]);
Setcolor([0.8,0,0,0]);
Bowdata([A,C],[1,0.5,"Expr=\color{black}a"]);
Bowdata([C,D],[0.8,1,"Expr=\color{black}2\sqrt{ab}"]);
Bowdata([D,B],[1,0.5,"Expr=\color{black}b"]);
Bowdata([B,G],[1,0.5,"Expr=\color{black}b"]);
Bowdata([G,A],[1,0.5,"Expr=\color{black}a"]);
Setcolor("black");
Paramark([A,C,D],[0.5]);
Paramark([B,D,C],[0.5]);
//垂直記号を描く.
Letter([A,"nw","O",B,"ne","O$`$",C,"s","A",D,"s","B"]);
最終更新:2016年10月30日 10:44
|新しいページ |検索 |ページ一覧 |RSS |@ウィキご利用ガイド |管理者にお問合せ
|ログイン|