%
%	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,intersections}
%\usetikzlibrary{arrows.meta,patterns,angles,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}



\begin{document}

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

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

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

\begin{frame}[t]
\frametitle{定義域が変化する場合の最大値・最小値}
\( a>0 \)のとき、\( 0\myleqq x \myleqq a \)における
\(2\)次関数\( f(x)=x^2-6x+7 \)の最大値と最小値、および
そのときの\( x \)の値を求めなさい。
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

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


\begin{frame}[t]
\frametitle{\hskip6zw \( a \)を動かすとこうなる}
\vskip-6ex
\begin{animateinline}[autoplay]{1.5}
% ■アニメを動かすには２回以上コンパイルが必要
\multiframe{27}{ix=1+1}{%
\begin{tikzpicture}[scale=0.5,thick, >=stealth,line join=round,
	gbb/.style={fill=white,inner sep=1pt},
	baseline={([yshift=-8ex] current bounding box.north)}]
\draw[help lines](-3,-3) grid (7,10);
\useasboundingbox(-4,-3.2) grid (7,14);

\scriptsize
\draw[->](-3,0)--(7,0);
\draw[->](0,-3)--(0,10);

\draw[dashed](-1,{(-1)^2-6*(-1)+7}) parabola
	bend (3,-2)(7,{(7)^2-6*7+7});
\draw[CUDRed,line width=0.6ex,samples=60, domain=0:\ix/4]
	plot (\x,{(\x)^2-6*\x+7});
\draw(0,7) node[left]{\(7\)};
%■　点線と a を表示
\draw[dashed,semithick](\ix/4,{(\ix/4)^2-6*\ix/4+7})--(\ix/4,0);

\ifnum\ix<7
	\draw(\ix/4,0) node[below]{\( a \)};
\fi

\ifnum\ix>17
	\draw(\ix/4,0) node[below]{\( a \)};
\fi

\ifnum\ix>6
	\ifnum\ix<18
		\draw(\ix/4,0) node[above]{\( a \)};
	\fi
\fi

%■最大値・最小値を表示
\ifnum\ix<25
	\fill[CUDBlue](0,7) circle(1ex) node[above right]{最大値};
\else
	\fill[CUDBlue](\ix/4,{(\ix/4)^2-6*\ix/4+7}) circle(1ex)
				node[above left]{最大値};
\fi

\ifnum\ix=24
	\fill[CUDBlue](6,7) circle(1ex) node[above left]{最大値};
\fi

\ifnum\ix<13
	\fill[CUDGreen](\ix/4,{(\ix/4)^2-6*\ix/4+7}) circle(1ex)
				node[below right]{最小値};
\else
	\fill[CUDGreen](3,-2) circle(1ex) node[below right]{最小値};
\fi
\end{tikzpicture}
}
\end{animateinline}
\quad
\begin{minipage}[t]{0.55\textwidth}
\end{minipage}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{\hskip6zw\ajKakkoKata{1}\quad\( 0<a<3 \)のとき}
\vskip-6ex
%\begin{animateinline}[autoplay]{1}
%\multiframe{27}{ix=1+1}{%
\begin{tikzpicture}[scale=0.5,thick, >=stealth,line join=round,
	gbb/.style={fill=white,inner sep=1pt},
	baseline={([yshift=-8ex] current bounding box.north)}]
\draw[help lines](-3,-3) grid (7,10);
\useasboundingbox(-4,-3.2) grid (7,14);

\scriptsize
\draw[->](-3,0)--(7,0);
\draw[->](0,-3)--(0,10);

\draw[dashed](-1,{(-1)^2-6*(-1)+7}) parabola
	bend (3,-2)(7,{(7)^2-6*7+7});
\draw[CUDRed,line width=0.6ex,samples=60, domain=0:9/4]
	plot (\x,{(\x)^2-6*\x+7});
\draw(0,7) node[left]{\(7\)};
%■　点線
\draw[dashed,semithick](9/4,0) node[above]{\(a\)}
	|-(0,{(9/4)^2-6*9/4+7}) node[xshift=-2.6em,gbb]{\( a^2-6a+7 \)};
%%■最大値・最小値を表示
\fill[CUDBlue](0,7) circle(1ex) node[above right]{最大値};
\fill[CUDGreen](9/4,{(9/4)^2-6*9/4+7}) circle(1ex) node[below right]{最小値};
\end{tikzpicture}
%}
%\end{animateinline}
\quad
\begin{minipage}[t]{0.55\textwidth}
\( x=0 \)のとき\quad 最大値\( 7 \)

\vskip2ex
\( x=a \)のとき

\hfill 最小値\( a^2-6a+7 \)
\end{minipage}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{\hskip6zw\ajKakkoKata{2}\quad\( 3\myleqq a<6 \)のとき}
\vskip-6ex
%\begin{animateinline}[autoplay]{1}
%\multiframe{27}{ix=1+1}{%
\begin{tikzpicture}[scale=0.5,thick, >=stealth,line join=round,
	gbb/.style={fill=white,inner sep=1pt},
	baseline={([yshift=-8ex] current bounding box.north)}]
\draw[help lines](-3,-3) grid (7,10);
\useasboundingbox(-4,-3.2) grid (7,14);

\scriptsize
\draw[->](-3,0)--(7,0);
\draw[->](0,-3)--(0,10);

\draw[dashed](-1,{(-1)^2-6*(-1)+7}) parabola
	bend (3,-2)(7,{(7)^2-6*7+7});
\draw[CUDRed,line width=0.6ex,samples=60, domain=0:5]
	plot (\x,{(\x)^2-6*\x+7});
\draw(0,7) node[left]{\(7\)};
%■　点線
\draw[dashed,semithick](5,0) node[below]{\(a\)}--(5,{(5)^2-6*5+7});
\draw[dashed,semithick](3,0) node[above]{\(3\)}
	|-(0,-2) node[xshift=-1em,gbb]{\( -2 \)};
%%■最大値・最小値を表示
\fill[CUDBlue](0,7) circle(1ex) node[above right]{最大値};
\fill[CUDGreen](3,-2) circle(1ex) node[below right]{最小値};
\end{tikzpicture}
%}
%\end{animateinline}
\quad
\begin{minipage}[t]{0.55\textwidth}
\( x=0 \)のとき\quad 最大値\( 7 \)

\vskip2ex
\( x=3 \)のとき\quad 最小値\( -2 \)
\end{minipage}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{\hskip6zw\ajKakkoKata{3}\quad\( a=6 \)のとき}
\vskip-6ex
%\begin{animateinline}[autoplay]{1}
%\multiframe{27}{ix=1+1}{%
\begin{tikzpicture}[scale=0.5,thick, >=stealth,line join=round,
	gbb/.style={fill=white,inner sep=1pt},
	baseline={([yshift=-8ex] current bounding box.north)}]
\draw[help lines](-3,-3) grid (7,10);
\useasboundingbox(-4,-3.2) grid (7,14);

\scriptsize
\draw[->](-3,0)--(7,0);
\draw[->](0,-3)--(0,10);

\draw[dashed](-1,{(-1)^2-6*(-1)+7}) parabola
	bend (3,-2)(7,{(7)^2-6*7+7});
\draw[CUDRed,line width=0.6ex,samples=60, domain=0:6]
	plot (\x,{(\x)^2-6*\x+7});
\draw(0,7) node[left]{\(7\)};
%■　点線
\draw[dashed,semithick](6,0) node[below]{\(a\)}|-(0,7);
\draw[dashed,semithick](3,0) node[above]{\(3\)}
	|-(0,-2) node[xshift=-1em,fill=white,inner sep=1pt]{\( -2 \)};
%%■最大値・最小値を表示
\fill[CUDBlue](0,7) circle(1ex) node[above right]{最大値}
		(6,7) circle(1ex) node[above left]{最大値};
\fill[CUDGreen](3,-2) circle(1ex) node[below right]{最小値};
\end{tikzpicture}
%}
%\end{animateinline}
\quad
\begin{minipage}[t]{0.55\textwidth}
\( x=0,6 \)のとき\quad 最大値\( 7 \)

\vskip2ex
\( x=3 \)のとき\quad 最小値\( -2 \)
\end{minipage}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{\hskip6zw\ajKakkoKata{4}\quad\( 6<a \)のとき}
\vskip-6ex
%\begin{animateinline}[autoplay]{1}
%\multiframe{27}{ix=1+1}{%
\begin{tikzpicture}[scale=0.5,thick, >=stealth,line join=round,
	gbb/.style={fill=white,inner sep=1pt},
	baseline={([yshift=-8ex] current bounding box.north)}]
\draw[help lines](-3,-3) grid (7,10);
\useasboundingbox(-4,-3.2) grid (7,14);

\scriptsize
\draw[->](-3,0)--(7,0);
\draw[->](0,-3)--(0,10);

\draw[dashed](-1,{(-1)^2-6*(-1)+7}) parabola
	bend (3,-2)(7,{(7)^2-6*7+7});
\draw[CUDRed,line width=0.6ex,samples=60, domain=0:6.4]
	plot (\x,{(\x)^2-6*\x+7});
\draw(0,7) node[left]{\(7\)};
%■　点線
\draw[dashed,semithick](6.4,0) node[below]{\(a\)}
	|-(0,{(6.4)^2-6*6.4+7}) node[xshift=-2.6em,gbb]{\( a^2-6a+7 \)};
\draw[dashed,semithick](3,0) node[above]{\(3\)}
	|-(0,-2) node[xshift=-1em,fill=white,inner sep=1pt]{\( -2 \)};
%%■最大値・最小値を表示
\fill[CUDBlue](6.4,{(6.4)^2-6*6.4+7}) circle(1ex) node[above left]{最大値};
\fill[CUDGreen](3,-2) circle(1ex) node[below right]{最小値};
\end{tikzpicture}
%}
%\end{animateinline}
\quad
\begin{minipage}[t]{0.55\textwidth}
\( x=a \)のとき

\hfill 最大値\( a^2-6a+7 \)

\vskip2ex
\( x=3 \)のとき\quad 最小値\( -2 \)
\end{minipage}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%





\end{document}

