%
%	gbb60166@gmail.com	https://unilab.gbb60166.jp/prekou/prekou.htm
%
% aspectratio= は 1610, 169, 149, 54, 32 の中から選べる（省略時は 43）
% C:\texlive\2024\texmf-dist\tex\latex\beamer\beamer.cls
%\documentclass[20pt,dvipdfmx,usepdftitle=false,hyperref={pdfpagemode=FullScreen},aspectratio=169]{beamer}
%\documentclass[20pt,dvipdfmx,usepdftitle=false,hyperref={pdfstartview={XYZ null null 8.00}},aspectratio=169]{beamer}
\documentclass[20pt,dvipdfmx,usepdftitle=false,aspectratio=169]{beamer}
% pdfの栞の字化けを防ぐ
%\AtBeginDvi{\special{pdf:tounicode EUC-UCS2}}
% テーマ
\usetheme{Copenhagen}
% navi. symbolsは目立たないが，dvipdfmxを使うと機能しないので非表示に
\setbeamertemplate{navigation symbols}{} 
\usepackage{bxdpx-beamer,pxjahyper,minijs}
%\usepackage{graphicx}
%\usepackage{tkokugo,furikana,tsayusen,shiika,sfkanbun,jdkintou,plext}
\usepackage{type1cm}
\usepackage[deluxe]{otf}
%\usepackage{tikzsymbols}
%\usepackage[dvipdfmx]{graphicx}%
\def\pgfsysdriver{pgfsys-dvipdfmx.def}%（graphicxパッケージを使用しない場合はこの行を有効に）
%\def\pgfsysdriver{pgfsys-dvips.def}%デフォルト
%\usepackage[e]{esvect}
\usepackage{tikz}%（これで、pgfとpgfforが読み込まれます。）
%\usepackage{tikz-3dplot}
%\usetikzlibrary{calc}
%\usetikzlibrary{arrows.meta,patterns,angles,intersections,backgrounds}
%\usepackage{animate}
%\usepackage{pgfplots}
%\pgfplotsset{compat=newest}
%\pgfplotsset{compat=newest, every axis/.append style={line width=1pt}}
%\PassOptionsToPackage{dvipdfmx}{graphicx}
\nofiles

\hypersetup{% Jul 18 2023
	pdftitle={プレ高数学科（LaTeX Beamer で汎用PDFプレゼンを作る）},
	pdfauthor={gbb60166@gmail.com},
	pdfsubject={https://unilab.gbb60166.jp/prekou/prekou.htm}
	}

% フォントはお好みで
%\usepackage{txfonts}

\mathversion{bold}
\renewcommand{\familydefault}{\sfdefault}
\renewcommand{\seriesdefault}{bx}
\renewcommand{\kanjifamilydefault}{\gtdefault}
\renewcommand{\kanjiseriesdefault}{bx}
\setbeamerfont{title}{size=\normalsize,series=\bfseries}
\setbeamerfont{frametitle}{size=\normalsize,series=\bfseries}
\setbeamertemplate{frametitle}[default][center]
\usefonttheme{professionalfonts}

% 参考にしたURL
% http://windom.phys.hirosaki-u.ac.jp/fswiki/wiki.cgi?page=LaTeX+Beamer%A4%C7%A5%D7%A5%EC%A5%BC%A5%F3%A5%C6%A1%BC%A5%B7%A5%E7%A5%F3

\newcommand{\Slash}[1]{\ooalign{\hfil\kern-3pt／\hfil\crcr$#1$}}
\everymath{\displaystyle}

\newcommand{\maruwaku}[1]{\begin{tikzpicture}[scale=0.7, baseline={([yshift=-22pt] current bounding box.north)}]
\filldraw[color=CUDBlue, line width=1pt, rounded corners=2pt] (-0.1,0)--(2.1,0)--(2.1,1.1)--(-0.1,1.1)--cycle;
\draw(1,0.5) node[white]{#1};
\end{tikzpicture}
}

\setbeamersize{text margin left=5mm,text margin right=5mm}
\fboxrule=0.8pt

\makeatletter
\newcommand{\hooklen}[2]{\settowidth{\@tempdima}{\(#1\)}
%\advance\@tempdima by.3ex
% ↑ 数式モードで式の前後に入るスペースを制御したかったが、
%    難しいのでやめた。段々難解なコードになっているのでやめた方がよい？
\hbox to\@tempdima{\hfil \(#2\)\hfil}}
%■等号付き不等号 by 美文書作成入門
\newcommand{\myleqq}{\mathrel{\mathpalette\gl@align<}}
\newcommand{\mygeqq}{\mathrel{\mathpalette\gl@align>}}
\newcommand{\gl@align}[2]{\lower.6ex\vbox{\baselineskip\z@skip\lineskip\z@
	\ialign{$\m@th#1\hfil##\hfil$\crcr#2\crcr=\crcr}}}
\makeatother

% カラーユニバーサルデザインを調べたつもりだがあまり自信がありません
% http://www.fukushihoken.metro.tokyo.jp/kiban/machizukuri/kanren/color.files/colorudguideline.pdf
% http://jfly.iam.u-tokyo.ac.jp/colorset/

% ■ アクセントカラー小面積を目立たせる高彩度色
\definecolor{CUDRed}{RGB}{255,75,0}
\definecolor{CUDGreen}{RGB}{3,175,122}
\definecolor{CUDBlue}{RGB}{0,90,255}
\definecolor{CUDCyan}{RGB}{77,196,255}
\definecolor{CUDMagenta}{RGB}{153,0,153}
\definecolor{CUDYellow}{RGB}{255,241,0}
\definecolor{CUDBrown}{RGB}{128,64,0}

\definecolor{CUDOrange}{RGB}{246,170,0}

% ■ ベースカラー広い面積の塗り分けに用いる低・中彩度色
\definecolor{CUDPink}{RGB}{255,202,191}
\definecolor{CUDBrightGreen}{RGB}{119,217,168}
\definecolor{CUDLime}{RGB}{216,242,85}
\definecolor{CUDCream}{RGB}{255,255,128}
\definecolor{CUDBrightCyan}{RGB}{191,228,255}
%\definecolor{CUD}{RGB}{}%

\setbeamercolor{CUDBrightGreen}{fg=black,bg=CUDBrightGreen!50}
\setbeamercolor{CUDBrightCyan}{fg=black,bg=CUDBrightCyan}
\setbeamercolor{CUDCream}{fg=black,bg=CUDCream!75}


\begin{document}

\title{プレ高数学科}\author{gbb60166}

%■■■■■■■■■■■■■　テスト領域　■■■■■■■■■■■■■■



%\end{document}
%■■■■■■■■■■■■■　完成品　■■■■■■■■■■■■■■

\begin{frame}[t]
\frametitle{就職数学（規則的な数の並び）その$1$}
\vskip-2ex
\begin{tikzpicture}[scale=1, >=stealth, ultra thick, 
	baseline=(current bounding box.north)]
%\draw[help lines] (-0.5,-5) grid (14.5,1);
\useasboundingbox (-0.5,-5) grid (14.5,1);
\Large
\foreach \x/\y in {0/2, 2.5/4, 5/8, 7.5/16}
	{\draw(\x,0) node[inner sep=1pt]{$\y$};}
\draw(10,0)+(-0.8,-0.8) rectangle ++(.8,.8);
\visible<2->{\foreach \x in {0,...,3}{%
	\draw[CUDBlue, ->, line width=3pt](2.5*\x+0.1,-2ex) 
	to[out=-45,in=225] node[inner sep=2pt, fill=CUDCream]
		{\( \scriptstyle \times2 \)} ++(2.3,0);}
	%https://www.nig.ac.jp/color/guideline_kanagawa.pdf
	}
\visible<3>{\draw(10,0) node[inner sep=1pt]{$32$};
	\draw(6,-3.6) node[CUDRed, inner sep=1pt]{等比数列};
	}
\end{tikzpicture}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{就職数学（規則的な数の並び）その$2$}
\vskip-2ex
\begin{tikzpicture}[scale=1, >=stealth, ultra thick, 
	baseline=(current bounding box.north)]
%\draw[help lines] (-0.5,-5) grid (14.5,1);
\useasboundingbox (-0.5,-5) grid (14.5,1);
\Large
\foreach \x/\y in {0/3, 2.5/15, 5/35, 7.5/63}{
	\draw(\x,0) node[inner sep=1pt]{$\y$};}
\draw(10,0)+(-0.8,-0.8) rectangle ++(.8,.8);
\visible<2->{\foreach \x/\y/\z in {0/1/3, 2.5/3/5, 5/5/7, 7.5/7/9, 10/9/11}
	{\draw(\x,-4ex) node[CUDRed,inner sep=1pt]
		{\( \scriptstyle \y\times\z \)};}
	}
\visible<3>{\draw(10,0) node[inner sep=1pt]{$99$};}
\end{tikzpicture}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{就職数学（規則的な数の並び）その$3$}
\vskip-2ex
\begin{tikzpicture}[scale=1, >=stealth, ultra thick, 
	baseline=(current bounding box.north)]
%\draw[help lines] (-0.5,-5) grid (14.5,1);
\useasboundingbox (-0.5,-5) grid (14.5,1);
\Large
\foreach \x/\y in {0/2, 2.5/6, 5/10, 7.5/14}
	{\draw(\x,0) node[inner sep=1pt]{$\y$};}
\draw(10,0)+(-0.8,-0.8) rectangle ++(.8,.8);
\visible<2->{\foreach \x in {0,...,3}{
	\draw[CUDBlue, ->, line width=3pt](2.5*\x+0.1,-2ex) 
	to[out=-45,in=225] node[inner sep=2pt, fill=CUDCream]
		{\( \scriptstyle +4 \)} ++(2.3,0);}
	}
\visible<3>{\draw(10,0) node[inner sep=1pt]{$18$};
	\draw(6,-3.6) node[CUDRed, inner sep=1pt]{等差数列};
	}
\end{tikzpicture}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{就職数学（規則的な数の並び）その$4$}
\vskip-2ex
\begin{tikzpicture}[scale=1, >=stealth, ultra thick, 
	baseline=(current bounding box.north)]
%\draw[help lines] (-0.5,-5) grid (14.5,1);
\useasboundingbox (-0.5,-5) grid (14.5,1);
\Large
\foreach \x/\y in {0/1, 2/3, 4/5, 6/7, 8/9, 10/11}
	{\draw(\x,0) node[inner sep=1pt]{$\y$};}
\draw(12,0)+(-0.8,-0.8) rectangle ++(.8,.8);
%\draw(11.5,-0.5) rectangle (12.5,0.5);
\visible<2->{\foreach \x in {0,...,5}{%
	\draw[CUDBlue, ->, line width=3pt](2*\x+0.1,-2ex) 
	to[out=-45,in=225] node[inner sep=2pt, fill=CUDCream]
		{\( \scriptstyle +2 \)} ++(1.8,0);}
	}
\visible<3>{\draw(12,0) node[inner sep=1pt]{$13$};
	\draw(6,-3.6) node[CUDRed, inner sep=1pt]{等差数列};
	}
\end{tikzpicture}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{就職数学（規則的な数の並び）その$5$}
\vskip-2ex
\begin{tikzpicture}[scale=1, >=stealth, ultra thick, 
	baseline=(current bounding box.north)]
%\draw[help lines] (-0.5,-5) grid (14.5,1);
\useasboundingbox (-0.5,-5) grid (14.5,1);
\Large
\visible<2->{\foreach \x in {0,...,3}
	\fill[CUDPink](4*\x,0)+(-0.8,-0.8) rectangle ++(.8,.8);
	\foreach \x in {0,...,2}
		\fill[CUDBrightCyan](4*\x+2,0)+(-0.6,-0.6) rectangle ++(.6,.6);
	\foreach \x in {0,1,2}
	\draw[CUDBlue, ->, line width=3pt](4*\x+0.1,-2ex) 
		to[out=-45,in=225] node[inner sep=2pt, fill=CUDCream]
			{\( \scriptstyle +6 \)} ++(3.8,0);
	}
\foreach \x/\y in {0/3, 2/2, 4/9, 6/4, 8/15, 10/6}
	{\draw(\x,0) node[inner sep=1pt]{$\y$};}
\draw(12,0)+(-0.8,-0.8) rectangle ++(.8,.8);
\visible<3>{\draw(12,0) node[inner sep=1pt]{$21$};}
\end{tikzpicture}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{就職数学（規則的な数の並び）その$6$}
\vskip-2ex
\begin{tikzpicture}[scale=1, >=stealth, ultra thick, 
	baseline=(current bounding box.north)]
%\draw[help lines] (-0.5,-5) grid (14.5,1);
\useasboundingbox (-0.5,-5) grid (14.5,1);
\Large
\foreach \x/\y in {0/1, 2.2/3, 4.4/4, 6.6/7, 8.8/11}
	\draw(\x,0) node[inner sep=1pt]{$\y$};
\draw(11,0)+(-0.8,-0.8) rectangle ++(.8,.8);
\visible<2->{\draw(4,-2) node[CUDRed,inner sep=1pt]
	{\normalsize 前の$2$つをたし算すると次};
	}
\foreach \x in {3,4,5}{\large
	\visible<\x>{\draw(2.2*\x-5.5,0) node[CUDRed,inner sep=1pt]{\(+\)};
		\draw(2.2*\x-3.3,0) node[CUDRed,inner sep=1pt]{\(=\)};}
	}
\visible<6->{\draw(7.6,0) node[CUDRed, inner sep=1pt]{\large\( + \)};
	\draw(9.7,0) node[CUDRed, inner sep=1pt]{\large\( = \)};}

\visible<7->{\draw(11,0) node[inner sep=1pt]{$18$};}
\visible<8>{\draw(6,-3.6)
	node[CUDRed, inner sep=1pt]{フィボナッチ数列もどき？};}
\end{tikzpicture}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{就職数学（規則的な数の並び）その$7$}
\vskip-2ex
\begin{tikzpicture}[scale=1, >=stealth, ultra thick, 
	baseline=(current bounding box.north)]
%\draw[help lines] (-0.5,-5) grid (14.5,1);
\useasboundingbox (-0.5,-5) grid (14.5,1);
\Large
\foreach \x/\y in {0/5, 2.5/10, 5/17, 7.5/26}
	\draw(\x,0) node[inner sep=1pt]{$\y$};
\draw(10,0)+(-0.8,-0.8) rectangle ++(.8,.8);

\visible<2->{\foreach \x/\y in {0/5, 2/7, 4/9, 6/11}{%
	\draw[CUDBlue, ->, line width=3pt](1.25*\x+0.1,-2ex) 
	to[out=-45,in=225] node[inner sep=2pt, fill=CUDCream]
		{\( \scriptstyle +\y \)} ++(2.3,0);}
	}
\visible<3>{\draw(10,0) node[inner sep=1pt]{$37$};}
\end{tikzpicture}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{就職数学（規則的な数の並び）その$8$}
\vskip-2ex
\begin{tikzpicture}[scale=1, >=stealth, ultra thick, 
	baseline=(current bounding box.north)]
%\draw[help lines] (-0.5,-5) grid (14.5,1);
\useasboundingbox (-0.5,-5) grid (14.5,1);
\Large
\foreach \x/\y in {0/1, 2.2/3, 4.4/6, 6.6/10, 8.8/15}
	\draw(\x,0) node[inner sep=1pt]{$\y$};
\draw(11,0)+(-0.8,-0.8) rectangle ++(.8,.8);
\visible<2->{\foreach \x/\y in {0/2, 2.2/3, 4.4/4, 6.6/5, 8.8/6}{%
	\draw[CUDBlue, ->, line width=3pt](\x+0.1,-2ex) 
	to[out=-45,in=225] node[inner sep=2pt, fill=CUDCream]
		{\( \scriptstyle +\y \)} ++(2,0);}
	}
\visible<3>{\draw(11,0) node[inner sep=1pt]{$21$};}
\end{tikzpicture}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{就職数学（規則的な数の並び）その$9$}
\vskip-2ex
\begin{tikzpicture}[scale=1, >=stealth, ultra thick, 
	baseline=(current bounding box.north)]
%\draw[help lines] (-0.5,-5) grid (14.5,1);
\useasboundingbox (-0.5,-5) grid (14.5,1);
\Large
\visible<2->{\foreach \x in {0,...,3}
	\fill[CUDPink](4*\x,0)+(-0.8,-0.8) rectangle ++(.8,.8);
	\foreach \x in {0,...,2}
		\fill[CUDBrightCyan](4*\x+2,0)+(-0.6,-0.6) rectangle ++(.6,.6);
	\foreach \x/\y in {0/3^1, 4/3^2, 8/3^3, 12/3^4}
		\draw(\x,-1.6) node[CUDRed, inner sep=1pt]
			{\( \scriptstyle \y \)};
	}
\foreach \x/\y in {0/3, 2/6, 4/9, 6/8, 8/27, 10/10}
	{\draw(\x,0) node[inner sep=1pt]{$\y$};}
\draw(12,0)+(-0.8,-0.8) rectangle ++(.8,.8);
\visible<3>{\draw(12,0) node[inner sep=1pt]{$81$};}
\end{tikzpicture}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{就職数学（規則的な数の並び）その$10$}
\vskip-2ex
\begin{tikzpicture}[scale=1, >=stealth, ultra thick, 
	baseline=(current bounding box.north)]
%\draw[help lines] (-0.5,-5) grid (14.5,1);
\useasboundingbox (-0.5,-5) grid (14.5,1);
\Large
\foreach \x/\y in {0/1, 2.2/4, 4.4/9, 6.6/16, 8.8/25}
	\draw(\x,0) node[inner sep=1pt]{$\y$};
\draw(11,0)+(-0.8,-0.8) rectangle ++(.8,.8);
\visible<2->{\foreach \x/\y in
		{0/1^2, 2.2/2^2, 4.4/3^2, 6.6/4^2, 8.8/5^2, 11/6^2}
		\draw(\x,-1.6) node[CUDRed, inner sep=1pt]
			{\( \scriptstyle \y \)};
	}
\visible<3>{\draw(11,0) node[inner sep=1pt]{$36$};}
\end{tikzpicture}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{就職数学（規則的な数の並び）その$11$}
\vskip-2ex
\begin{tikzpicture}[scale=1, >=stealth, ultra thick, 
	baseline=(current bounding box.north)]
%\draw[help lines] (-0.5,-5) grid (14.5,1);
\useasboundingbox (-0.5,-5) grid (14.5,1);
\Large
\foreach \x/\y in {0/0, 2/2, 4/7, 6/17, 8/34, 10/60}
	{\draw(\x,0) node[inner sep=1pt]{$\y$};}
\draw(12,0)+(-0.8,-0.8) rectangle ++(.8,.8);
\visible<2->{\foreach \x/\y in {0/2, 2/5, 4/10, 6/17, 8/26}
	\draw[CUDBlue,->,line width=3pt](\x+0.1,-2ex) 
	to[out=-45,in=225] node[inner sep=2pt, fill=CUDCream]
		{\( \scriptscriptstyle +\y \)} ++(1.8,0);
	}
\visible<3->{\foreach \x/\y in {1/3, 3/5, 5/7, 7/9, 9/11}
	\draw[CUDGreen,->,line width=3pt](\x+0.1,-4ex) 
	to[out=-45,in=225] node[inner sep=2pt, fill=CUDBrightGreen!30,text=black]
		{\( \scriptscriptstyle +\y \)} ++(1.8,0);
	}
\visible<4->{\draw[CUDBlue,->,line width=3pt](10.1,-2ex) 
	to[out=-45,in=225] node[inner sep=2pt, fill=CUDCream]
		{\( \scriptscriptstyle +37 \)} ++(1.8,0);
	}
\visible<5->{\draw(12,0) node[inner sep=1pt]{$97$};
	\draw(13,-1.3) node[CUDRed, inner sep=1pt]{\scriptsize 第一階差};
	\draw(13,-2.3) node[CUDRed, inner sep=1pt]{\scriptsize 第二階差};
	}
\end{tikzpicture}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{就職数学（規則的な数の並び）その$12$}
\vskip-2ex
\begin{tikzpicture}[scale=1, >=stealth, ultra thick, 
	baseline=(current bounding box.north)]
%\draw[help lines] (-0.5,-5) grid (14.5,1);
\useasboundingbox (-0.5,-5) grid (14.5,1);
\Large
\foreach \x/\y in {0/4, 2/5, 4/7, 6/11, 8/19, 10/35}
	{\draw(\x,0) node[inner sep=1pt]{$\y$};}
\draw(12,0)+(-0.8,-0.8) rectangle ++(.8,.8);
\visible<2->{\foreach \x/\y in {0/1, 2/2, 4/4, 6/8, 8/16}
	\draw[CUDBlue, ->, line width=3pt](\x+0.1,-2ex) 
	to[out=-45,in=225] node[inner sep=2pt, fill=CUDCream]
		{\( \scriptscriptstyle +\y \)} ++(1.8,0);
	}
\visible<3->{\foreach \x in {0,...,4}
	\draw[CUDBlue, ->, line width=3pt](2*\x+1,-6ex) 
		node[inner sep=2pt, fill=CUDCream]
		{\( \scriptstyle 2^{\x} \)};
	}
\visible<4->{\draw[CUDBlue](11,-6ex)
		node[inner sep=2pt, fill=CUDCream]{\( \scriptstyle 2^5 \)};
	\draw[CUDBlue, ->, line width=3pt](10.1,-2ex) 
		to[out=-45,in=225] node[inner sep=2pt, fill=CUDCream]
			{\( \scriptscriptstyle +32 \)} ++(1.8,0);
	}
\visible<5>{\draw(12,0) node[inner sep=1pt]{$67$};}
\end{tikzpicture}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%






\end{document}

\textcolor{CUDRed}{

