%
%	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}

%\setbeamercolor{frametitle}{use=structure,fg=white,bg=structure.fg}
%\setbeamercolor{palette primary}{use=structure,fg=white,bg=structure.fg}
%\setbeamercolor{frametitle}{bg=CUDOrange}
%\setbeamercolor{palette primary}{bg=CUDOrange}
%\setbeamercolor{frametitle}{bg=CUDCyan!25,fg=black}
%\setbeamercolor{palette primary}{bg=CUDCyan!25,fg=black}
%\setbeamercolor{frametitle}{bg=CUDCream!75,fg=black!80}
%\setbeamercolor{palette primary}{bg=CUDCream!75,fg=black!80}

\newcommand{\myfrac}[2]{\mathchoice%■ 修正 Oct 8,2023
	{%\fontsize{20}{20}\selectfont%	\displaystyle
		\frac{\raisebox{-.6ex}{\(#1\)}}{\raisebox{.4ex}{\(#2\)}}}%
	{\textstyle{\frac{#1}{#2}}}%	\textstyle
	{%\fontsize{13}{13}\selectfont%	\scriptstyle
		\frac{\raisebox{0ex}{\(#1\)}}{\raisebox{-.4ex}{\(#2\)}}}%
	{%\fontsize{11}{11}\selectfont%	\scriptscriptstyle
		\frac{\raisebox{0ex}{\(#1\)}}{\raisebox{-.4ex}{\(#2\)}}}%
	}


\begin{document}

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

%■ 本文と数式モードの間に挿入される空白スペース
%\mathsurround=0pt
%■ \( \log\log \)でlogとlogの間に挿入される細スペース（省略形は \,）
%\thinmuskip=3mu%■default
%■ \( a+b \)で+の前後に挿入される中スペース（省略形は \>）
%\medmuskip=4mu plus 2mu minus 4mu%■default
\medmuskip=2mu plus 1mu minus 1mu
%■ \( x=5 \)で=の前後に挿入される太スペース（省略形は \;）
%\thickmuskip=5mu plus 5mu%■default
%\thickmuskip=3mu plus 2mu minus 2mu
% mu は math units の省略で長さの単位

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


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

\begin{frame}[t]
\frametitle{次の数列の第\(n\)項を求めなさい（その$1$）}
\begin{tikzpicture}[>=stealth, line width=3pt,
	gbb/.style={fill=CUDCream,inner sep=1pt},
	baseline={([yshift=-2ex] current bounding box.north)}]
\visible<2->{{\footnotesize
	\foreach \x in {1,...,4}\draw(1.5*\x+0.3,1.8) node[CUDRed]{\(\x\)};
	\draw(11.8,1.8) node[CUDRed]{\( n \)};
		}
	}
\foreach \x/\y in {2/2, 3/3.5, 4/5, 5/6.5}
	\draw(\y,0) node{\(\myfrac{\,1\,}{\x}\, ,\)};
\draw(8,0) node{\(\cdots\)};
\only<2-4>{\draw(11.8,0) node[CUDRed]{\Huge ？};
	}
\visible<5->{\draw(12,0) node{\( \myfrac{1}{\,n+1\,} \)};}
\visible<3->{\foreach \x in {1,...,4}
		\draw[CUDBlue,->](1.5*\x+0.3,1.6) to[out=-120,in=150]
			node[pos=0.2, gbb]
			{\scriptsize\(+1\)} ++(-0.3,-1.8);%(1.5*\x,-0.5);
	}
\visible<4->{\draw[CUDBlue,->](11.8,1.6) to[out=-135,in=150]
		node[pos=0.2, gbb]
			{\scriptsize\(+1\)} ++(-0.8,-1.8);%(11,-0.5);
	}
\end{tikzpicture}

\vskip3ex
\visible<6->{\centerline{\□答\quad \( a_n=\myfrac{1}{\,n+1\,} \)}}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{次の数列の第\(n\)項を求めなさい（その$2$）}
\begin{tikzpicture}[>=stealth, line width=3pt,
	gbb/.style={fill=CUDCream,inner sep=1pt},
	baseline={([yshift=-2ex] current bounding box.north)}]
\visible<2->{{\footnotesize
	\foreach \x in {1,...,4}\draw(1.5*\x+0.3,1.8) node[CUDRed]{\(\x\)};
	\draw(11.8,1.8) node[CUDRed]{\( n \)};
		}
	}
\foreach \x/\y in {2/2, 4/3.5, 6/5, 8/6.5}
	\draw(\y,0) node{\(\myfrac{\,1\,}{\x}\, ,\)};
\draw(8,0) node{\(\cdots\)};
\only<2-4>{\draw(11.8,0) node[CUDRed]{\Huge ？};
	}
\visible<5->{\draw(12,0) node{\( \myfrac{1}{\,2n\,} \)};}
\visible<3->{\foreach \x in {1,...,4}
		\draw[CUDBlue,->](1.5*\x+0.3,1.6) to[out=-120,in=150]
			node[pos=0.2, gbb]
			{\scriptsize\(\times2\)} ++(-0.3,-1.8);%(1.5*\x,-0.5);
	}
\visible<4->{\draw[CUDBlue,->](11.8,1.6) to[out=-135,in=150]
		node[pos=0.2, gbb]
			{\scriptsize\(\times2\)} ++(-0.3,-1.8);%(11,-0.5);
	}
\end{tikzpicture}

\vskip3ex
\visible<6->{\centerline{\□答\quad \( a_n=\myfrac{1}{\,2n\,} \)}}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


\begin{frame}[t]
\frametitle{次の数列の第\(n\)項を求めなさい（その$3$）}
\begin{tikzpicture}[>=stealth, line width=3pt,
	gbb/.style={fill=CUDCream,inner sep=0pt},
	baseline={([yshift=-2ex] current bounding box.north)}]
\visible<2->{{\footnotesize
	\foreach \x in {1,...,5}\draw(1.5*\x+0.3,1.8) node[CUDRed]{\(\x\)};
	\draw(11.8,1.8) node[CUDRed]{\( n \)};
		}
	}
\foreach \x in {1,3,5,7,9}
	\draw(0.75*\x+1.25,0) node{\( \x\, ,\)};
\draw(9.5,0) node{\(\cdots\)};
\only<2-4>{\draw(11.8,0) node[CUDRed]{\Huge ？};
	}
\visible<3-4>{\foreach \x in {1,...,5}\draw[CUDBlue,->](1.5*\x+0.3,1.6)
			to[out=-120,in=150] node[pos=0.4,inner sep=0pt,
				fill=CUDCream]{？}(1.5*\x,0);
	\draw[CUDBlue,->](11.8,1.6) to[out=-135,in=150]
		node[pos=0.4,gbb]{？}(10.8,0);
	}
\visible<4->{\foreach \x in {1,...,4}
	\draw[CUDGreen,->,line width=2pt](1.5*\x+0.4,-0.4) to[out=-45,in=225]
		node[inner sep=1pt, fill=white]{\scriptsize\(+2\)} ++(1.3,0);
	}
\visible<5->{\foreach \x in {1,...,5} \draw[CUDBlue,->](1.5*\x+0.3,1.6)
		to[out=-120,in=150] node[pos=0.4,gbb,
			 text width=1.7em,align=center]
				{\tiny\(\times2\)\text{して}
			\\[-3ex]\(1\)\text{ひく}}(1.5*\x,0);
	\draw[CUDBlue,->](11.8,1.6) to[out=-135,in=150]
		node[pos=0.4,gbb,text width=1.7em,align=center]
		{\tiny\(\times2\)\text{して}\\[-3ex]\(1\)\text{ひく}}(10.8,0);
	}
\visible<6->{\draw(12,0) node{\( 2n-1 \)};}
\end{tikzpicture}

\vskip3ex
\visible<7->{\centerline{\□答\quad \( a_n=2n-1 \)}}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{次の数列の第\(n\)項を求めなさい（その$4$）}
\begin{tikzpicture}[>=stealth, line width=3pt,
	gbb/.style={fill=CUDCream,inner sep=0pt},
	baseline={([yshift=-2ex] current bounding box.north)}]
\visible<2->{{\footnotesize
	\foreach \x in {1,...,5}\draw(2*\x-1,1.8) node[CUDRed]{\(\x\)};
	\draw(13.2,1.8) node[CUDRed]{\( n \)};
		}
	}
\foreach \x in {-3,-7,...,-19}
	\draw({2*(\x-1)/(-4)-1},-1)node{\( \x \, , \)};
\draw(10.7,-1) node{\(\cdots\)};
\only<2-4>{\draw(13.3,-1) node[CUDRed]{\Huge ？};
	}
\visible<3-4>{\foreach \x in {1,...,5}\draw[CUDBlue,->](2*\x-1.4,1.5)
			to[out=-135,in=135] node[pos=0.4,inner sep=0pt,
				fill=CUDCream]{？} ++(0,-2.2);
	\draw[CUDBlue,->](12.7,1.5) to[out=-135,in=135]
		node[pos=0.4,gbb]{？}++(-1,-2.2);
	}
\visible<4->{\foreach \x in {1,...,4}
	\draw[CUDGreen,->,line width=2pt](2*\x-1,-1.4) to[out=-45,in=225]
		node[inner sep=1pt,fill=white,yshift=-1ex]
			{\scriptsize\(-4\)} ++(1.8,0);
	}
\visible<5->{\foreach \x in {1,...,5} \draw[CUDBlue,->](2*\x-1.4,1.5)
		to[out=-135,in=135] node[pos=0.4,gbb,
			text width=1.8em,align=center]
		{\tiny\(\times(-4)\)\text{して}
			\\[-2.4ex]\(1\)\text{たす}} ++(0,-2.2);
	\draw[CUDBlue,->](12.7,1.5) to[out=-135,in=135]
		node[pos=0.4,inner sep=0pt,fill=CUDCream,
			text width=1.8em, align=center]
			{\tiny\(\times(-4)\)\text{して}
			\\[-2.4ex]\(1\)\text{たす}}++(-1,-2.2);
	}
\visible<6->{\draw(13,-1) node{\( -4n\!+\!1 \)};}
\end{tikzpicture}

\vskip2ex
\visible<7->{\centerline{\□答\quad \( a_n=-4n+1 \)}}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{次の数列の第\(n\)項を求めなさい（その$5$）}
\begin{tikzpicture}[>=stealth, line width=3pt, anchor=base,
	gbb/.style={fill=CUDCream,inner sep=0pt},
	baseline={([yshift=-2ex] current bounding box.north)}]
%\draw[help lines] (0,-1.5) grid (15,2.4);
\useasboundingbox (0,-1.5) rectangle (15,2.4);

\foreach \x in {1,...,4}\draw(2*\x-.5,-1) node{\( , \)};
\draw(9.7,-1) node{\( , \)};

\visible<2->{{\footnotesize
	\foreach \x in {1,...,5}\draw(2*\x-1.1,1.8) node[CUDRed]{\(\x\)};
	\draw(13.2,1.8) node[CUDRed]{\( n \)};
		}
	}
\alt<4->{\foreach \x/\a in {1/3^1,3/3^2,5/3^3,7/3^4,9/3^5}
		\draw(\x,-1)node{\( \a \)};}
	{\foreach \x/\a in {1/3,3/9,5/27,7/81,9/243}
		\draw(\x-.14,-1)node{\( \a \)};
	}
\draw(10.7,-1) node{\(\cdots\)};
\only<2-4>{\draw(13.3,-1) node[CUDRed]{\Huge ？};
	}
\visible<3>{\foreach \x in {1,...,5}
		\draw[CUDBlue,->](2*\x-0.8,1.7)	to[out=-45,in=45]
		node[pos=0.5,gbb]{？} ++(0.2,-2);
	\draw[CUDBlue,->](13.6,1.7) to[out=-45,in=45]
		node[pos=0.5,gbb]{？} ++(0.2,-2);
	}
\visible<4->{\foreach \x in {1,...,5}
		\draw[CUDBlue,->](2*\x-0.8,1.7)	to[out=-45,in=45] ++(0.2,-2);
	\draw[CUDBlue,->](13.6,1.7) to[out=-45,in=45] ++(0.2,-2);
	}
\visible<5->{\draw(13.4,-1) node{\( 3^n \)};}
\end{tikzpicture}

\vskip2ex
\visible<6->{\centerline{\□答\quad \( a_n=3^n \)}}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{次の数列の第\(n\)項を求めなさい（その$6$）}
\begin{tikzpicture}[>=stealth, line width=3pt, anchor=base,
	gbb/.style={fill=CUDCream,inner sep=0pt},
	baseline={([yshift=-2ex] current bounding box.north)}]
%\draw[help lines] (0,-1.5) grid (15,2.4);
\useasboundingbox (0,-1.5) rectangle (15,2.4);

\foreach \x in {1,...,4}\draw(2*\x+.4,-1) node{\( , \)};
%\draw(9.7,-1) node{\( , \)};

\visible<2->{{\footnotesize
	\foreach \x in {1,...,4}\draw(2*\x-0.5,1.8) node[CUDRed]{\(\x\)};
	\draw(13.2,1.8) node[CUDRed]{\( n \)};
		}
	}
\alt<4->{\foreach \x/\a in {1.5/5\!\times\!\textcolor{CUDRed}{1},
		3.5/5\!\times\!\textcolor{CUDRed}{2},
		5.5/5\!\times\!\textcolor{CUDRed}{3},
		7.5/5\!\times\!\textcolor{CUDRed}{4}}
			\draw(\x,-1)node{\( \a \)};
	}
	{\foreach \x/\a in {1.5/5,3.5/10,5.5/15,7.5/20}
		\draw(\x-.14,-1)node{\( \a \)};
	}%■ \alt<4->の終わり
\draw(10.7,-1) node{\(\cdots\)};
\only<2-4>{\draw(13.3,-1) node[CUDRed]{\Huge ？};
	}
\visible<3>{\foreach \x in {1,...,4}
		\draw[CUDBlue,->](2*\x-0.3,1.7)	to[out=-45,in=45]
		node[pos=0.5,gbb]{？} ++(0,-2.1);
	\draw[CUDBlue,->](13.6,1.7) to[out=-45,in=45]
		node[pos=0.5,gbb]{？} ++(0.5,-2.1);
	}
\visible<4->{\foreach \x in {1,...,4}
		\draw[CUDBlue,->](2*\x-0.3,1.7)	to[out=-45,in=45] ++(0.5,-2.1);
	\draw[CUDBlue,->](13.6,1.7) to[out=-45,in=45] ++(0.5,-2.1);
	}
\visible<5->{\draw(13.4,-1) node{\( 5\!\times\!\textcolor{CUDRed}{n} \)};}
\end{tikzpicture}

\vskip2ex
\visible<6->{\centerline{\□答\quad \( a_n=5n \)}}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



\end{document}

