概要
Source code in Mathematica
t = 3;
g2 = Plot[{Log[2, x], 2^x}, {x, -3, 5},
PlotRange -> {{-2, 4.5}, {-3, 5}}, AspectRatio -> 8/6.5,
ImageSize -> 240,
PlotStyle -> {{Thickness[0.007], Blue}, {Thickness[0.007],
Darker[Red]}},
AxesStyle ->
Directive[FontSize -> 12, FontFamily -> "Arial",
Thickness[0.003]],
AxesLabel -> {"x", None},
Ticks -> {{{Log[2, t], "\!\(\*SubscriptBox[\"log\", \"b\"]\)(\!\(\*
StyleBox[\"t\",\nFontSlant->\"Italic\"]\))"}, {t, "\!\(\*
StyleBox[\"t\",\nFontSlant->\"Italic\"]\)"}}, {{Log[2, t],
"\!\(\*SubscriptBox[\"log\", \"b\"]\)(\!\(\*
StyleBox[\"t\",\nFontSlant->\"Italic\"]\))"}, {t, "\!\(\*
StyleBox[\"t\",\nFontSlant->\"Italic\"]\)"}}},
Epilog -> {
Line[{{-2.3, -2.3}, {3.5, 3.5}}],
Line[{{t, Log[2, t]}, {Log[2, t], t}}],
Dotted, Gray,
Line[{{Log[2, t], 0}, {Log[2, t], 5}}],
Line[{{t, 0}, {t, Log[2, t]}}],
Line[{{0, Log[2, t]}, {4, Log[2, t]}}],
Line[{{0, t}, {Log[2, t], t}}],
Black, PointSize[Medium],
Point[{{t, Log[2, t]}, {Log[2, t], t}}],
FontSize -> 12, FontFamily -> "Arial",
Inset["\!\(\*SuperscriptBox[\"b\", \"x\"]\)", {2.5, 4.2}],
Inset[
"\!\(\*SubscriptBox[\"log\", \"b\"]\)\!\(\*AdjustmentBox[\"(\",\n\
BoxMargins->{{-0.12355212355212356`, 0.12355212355212356`}, {0., \
0.}}]\)\!\(\*AdjustmentBox[\"x\",\n\
BoxMargins->{{-0.12355212355212356`, 0.12355212355212356`}, {0., \
0.}}]\)\!\(\*AdjustmentBox[\")\",\n\
BoxMargins->{{-0.12355212355212356`, 0.12355212355212356`}, {0., \
0.}}]\)", {3.7, 2.3}]
}]
Export["Logarithm_inversefunctiontoexp.svg", g2]
ライセンス
この作品の著作権者である私は、この作品を以下のライセンスで提供します。
|
このファイルはクリエイティブ・コモンズ CC0 1.0 全世界 パブリック・ドメイン提供のもとで利用可能にされています。
|
| ある作品に本コモンズ証を関連づけた者は、その作品について世界全地域において著作権法上認められる、その者が持つすべての権利(その作品に関する権利や隣接する権利を含む。)を、法令上認められる最大限の範囲で放棄して、パブリック・ドメインに提供しています。
この作品は、たとえ営利目的であっても、許可を得ずに複製、改変・翻案、配布、上演・演奏することが出来ます。
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse
|