Mathematica で
f1={-Sqrt[3],0}; f2={Sqrt[3],0}; p={2 Cos[Pi/4],Sin[Pi/4]};o={0,0};
$F1=Point[f1]; $F2=Point[f2]; $P=Point[p];
$F1P=Line[{f1,p}]; $F2P=Line[{f2,p}];
r=2; $C=Circle[o,r];
g1=Graphics[{$F1, $F2, $P, $F1P, $F2P, $C}, Axes->True]
g2=ParametricPlot[{2 Cos[t], Sin[t]}, {t, 0, 2 Pi}];
g=Show[g1, g2, PlotRange -> All]
|
Export["Documents/graph.pdf", g] |
TeXShop を使って、次のような TEX ファイルを作ってみよう。
| myreport.tex |
\documentclass[12pt]{jarticle}
\usepackage[a4paper]{geometry}
\usepackage[dvipdfmx]{graphicx}
\begin{document}
\title{総合数理ゼミナール レポート}
\author{自分の氏名}
\date{2013年7月30日 (変更するかも)}
\maketitle
\section{はじめに}
ゼミでは、中村 \cite{中村} の輪講を行った。
\begin{figure}[htbp]
\centering
\includegraphics[width=10cm]{graph.pdf}
\caption{$\mathrm{F_1P}=\mathrm{F_2P}$ を満たす点 $\mathrm{P}$ の軌跡は楕円}
\end{figure}
\begin{thebibliography}{9}
\bibitem{中村}
中村 滋, 円錐曲線 --- 歴史とその数理 ---, 共立出版 (2011).
\end{thebibliography}
\end{document}
|
この TEX 文書で作った PDF は、 http://www.math.meiji.ac.jp/~mk/zemi2013/myreport.pdfに置いてある。