【LaTeX】 案例分析 (8) - 高等数学分析 Mathematica 实验报告

这是 SEU 高等数学分析的 Mathematica 实验报告。

---

链接

【Mathematica】 Mathematica 的安装
【Mathematica】 数列极限的观察 - 实验一
【Mathematica】 函数性态的观察 - 实验二
【Mathematica】 函数的积分
【Mathematica】 泰勒展开 - 实验三
【Mathematica】 定积分的近似计算 - 实验四

代码

\documentclass{article}

\usepackage{ctex} % 使用中文
\usepackage{fancyhdr}
\usepackage{graphicx}
\usepackage{titlesec}
\usepackage{titletoc}
\usepackage{listings}
\usepackage{appendix}
\usepackage{bm, amsmath, amsfonts}
\usepackage{amssymb}
\usepackage{amsthm}
\usepackage{multirow}
\usepackage{hyperref}
\usepackage{subfig}
\usepackage{url}
\usepackage{cite}
\usepackage[a4paper, left=2.5cm, right=2.5cm, top=2.65cm, bottom=2.54cm]{geometry}

\pagestyle{fancy}
\fancyhf{}
\cfoot{\thepage}
\lhead{XX大学实验报告}

% set the code style
\RequirePackage{listings}
\RequirePackage{xcolor}
\definecolor{dkgreen}{rgb}{0,0.6,0}
\definecolor{gray}{rgb}{0.5,0.5,0.5}
\definecolor{mauve}{rgb}{0.58,0,0.82}
\lstset{
	numbers=left,  
	frame=tb,
	aboveskip=3mm,
	belowskip=3mm,
	showstringspaces=false,
	columns=flexible,
	framerule=1pt,
	rulecolor=\color{gray!35},
	backgroundcolor=\color{gray!5},
	basicstyle={\ttfamily},
	numberstyle=\tiny\color{gray},
	keywordstyle=\color{blue},
	commentstyle=\color{dkgreen},
	stringstyle=\color{mauve},
	breaklines=true,
	breakatwhitespace=true,
	tabsize=3,
}

\begin{document}

    {
        \Huge \bfseries
        ~高等数学分析数学实验报告\\
    }

    {
        \Large
        \noindent % 取消首行缩进
        {\bfseries 实验人员：}
        院（系）:\ XXX学院\ \ 
        学号:\ XXXXXXXX\ \ 
        姓名:\ Teddy van Jerry

        \noindent % 取消首行缩进
        {\bfseries 实验地点：}
        计算机中心机房
    }

    \section{实验一}
        \subsection{实验题目}
            通过绘图，观察下面的重要极限：
            $$\lim\limits_{n\rightarrow \infty }\left(1+\frac{1}{n}\right)^n=e$$
        \subsection{实验目的和意义}
            本实验的目的是利用数学软件Mathematica绘制数列点集图像来加深对数列极限概念的理解。

        \subsection{计算公式}
            和题目中一致。

        \subsection{程序设计}
            \begin{lstlisting}[language=Mathematica,escapeinside=``]
an = {(1 + 1/1)^1, (1 + 1/2)^2, (1 + 1/3)^3};
Do[an = Append[an, (1 + 1/i)^i];
 t = ListPlot[an, PlotRange -> {1.8, 2.8},
   PlotStyle -> PointSize[0.015]]; Print[t], {i, 4, 20}
 ]
            \end{l