概要
Animation created with the following SageMath code:
f(x)=1/x
C = plot(f,.4,7,color='black', xmin=0, figsize=6.5)
A2 = plot(f,1,3,fill=True,color='black',fillcolor=hue(.3),figsize=6.5)
o = point((0,0), size=.00001)
B = C+A2+o
def A(s,t,a,b,fillcolor=hue(.6),fillalpha=.5):
f(x) = s/(t*x)
Cst = plot(f,.4/t,7/t,color='blue', xmin=0,ymax=2.5)
Ast = plot(f,a/t,b/t,fill=True,color='blue',fillcolor=fillcolor,fillalpha=fillalpha,xmin=0,ymax=2.5)
T = text("f(x) = {:.3f}/({:.3f} x)".format(float(s),float(t)),(2,2), fontsize='large')
T += text("A(1,6) = A(1,3) + A(3,6)", (4,1.2), fontsize='x-large')
if t == 3 and s == 3:
T += text("A(1,3) + A(1,2)", (4.665,.9), fontsize='x-large')
return Cst + Ast + T
areas1 = [B+A(1,t,3,6)+line([(3,1/3),(3/t,1/3)],alpha=.4,color='black')+line([(6,1/6),(6/t,1/6)],alpha=.4,color='black') for t in list(sxrange(1,3,.162841))+[3]]
areas2 = [B+A(s,3,3,6) for s in list(sxrange(1,3,.162841))+[3]]
M = animate(areas1+areas2+10*[areas2[-1]])
M.save('log.gif')
ライセンス
この作品の著作権者である私は、この作品を以下のライセンスで提供します。
|
このファイルはクリエイティブ・コモンズ CC0 1.0 全世界 パブリック・ドメイン提供のもとで利用可能にされています。
|
| ある作品に本コモンズ証を関連づけた者は、その作品について世界全地域において著作権法上認められる、その者が持つすべての権利(その作品に関する権利や隣接する権利を含む。)を、法令上認められる最大限の範囲で放棄して、パブリック・ドメインに提供しています。
この作品は、たとえ営利目的であっても、許可を得ずに複製、改変・翻案、配布、上演・演奏することが出来ます。
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse
|