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に置いてある。