%
%	gbb60166@gmail.com	https://unilab.gbb60166.jp/prekou/prekou.htm
%
% aspectratio= は 1610, 169, 149, 54, 32 の中から選べる（省略時は 43）
% C:\texlive\2022\texmf-dist\tex\latex\beamer\beamer.cls
%\documentclass[20pt,dvipdfmx,hyperref={pdfpagemode=FullScreen},aspectratio=169]{beamer}
%\documentclass[20pt,dvipdfmx,hyperref={pdfstartview={XYZ null null 8.00}},aspectratio=169]{beamer}
\documentclass[20pt,dvipdfmx,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

% フォントはお好みで
%\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}

\def\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
\def\hooklen#1#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{CUDCream}{fg=black,bg=CUDCream!75}


\begin{document}

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

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

% ■■ 変数 yurika を定義する	2021 Feb 19
\newif\ifyurika
% \yurikatrue は有理化された答えが表示（\yurikafalse は有理化されない答え）
%\yurikatrue
\yurikafalse

%\def\mypm{\:\raise.6ex\hbox{$+$}\kern-1.9ex\raise-.5ex\hbox{$-$}\:}
%\def\smallmypm{\:\raise.4ex\hbox{$\scriptstyle+$}
%	\kern-1.3ex\raise-.3ex\hbox{$\scriptstyle-$}\:}
\def\mypm{\mathchoice{\,\raise.6ex\hbox{$+$}\kern-0.8em\raise-.5ex\hbox{$-$}\,}
	{\,\raise.6ex\hbox{$+$}\kern-0.8em\raise-.5ex\hbox{$-$}\,}
	{\,\raise.4ex\hbox{$\scriptstyle+$}\kern-0.55em\raise-.3ex\hbox{$\scriptstyle-$}\,}
	{\,\raise.4ex\hbox{$\scriptscriptstyle+$}\kern-0.46em\raise-.3ex\hbox{$\scriptscriptstyle-$}\,}}


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


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


\begin{frame}[t]
\frametitle{\( \sin A,\ \cos A,\ \tan A \)を求めよ（その$1$）}
\vspace*{-1ex}
\begin{tikzpicture}[rotate=0, very thick, scale=1,
	baseline={( [yshift=-12pt] current bounding box.north)}]
%\draw[help lines](-0.7,-1) rectangle(3.4,5);
\useasboundingbox(-0.7,-1) rectangle(3.4,5);
\footnotesize
\coordinate [label=left:{\textcolor{CUDRed}{$A$}}] (A) at (0,0);
\coordinate(B) at ($ (2,{sqrt(21)}) $);
\coordinate(C) at (2,0);
\begin{scope}
\clip(A)--(B)--(C)--cycle;
\fill[CUDRed](A) circle(12pt);
\end{scope}
\draw[line join=round](A)--(B)--(C)--cycle;
\alt<3->{\draw[dashed](A) to[out=90,in=210]
		node[inner sep=8pt,fill=CUDBrightGreen]{$5$} (B);}
	{\draw[dashed](A) to[out=90,in=210]
			node[inner sep=8pt,fill=white]{$5$} (B);}
\draw[dashed](A) to[out=-40,in=220]
		node[inner sep=4pt,fill=white]{$2$} (C);
\draw[CUDRed](C)++(-0.4,0)--++(0,0.4)--++(0.4,0);
\visible<2->{
\draw[dashed](B) to[out=-60,in=60] node[inner sep=3pt,fill=white]
		{\temporal<3-9>{？}{$x$}
			{\textcolor{CUDBlue}{\(\sqrt{21}\)}}} (C);
	}
\end{tikzpicture}
\begin{minipage}[t]{0.7\textwidth}
\only<2>{\vskip-2ex
	\[ \cos A=\frac{\text{横}}{\text{斜め}}
		=\frac{\,2\,}{5}\ \text{\□答} \]
	は分かるけど、縦の長さが書かれていない
	ので\( \sin A, \tan A \)が分からない。

	\bigskip
	\centerline{だから長さを計算するぞ！}
	}
\only<3-4>{三平方の定理を使う。

	\bigskip
	\centerline{\colorbox{CUDCream}{\(\text{\LARGE
		\textcolor{CUDGreen}{斜め}}^2=\text{○}^2+\text{△}^2  \)}}
	}
\only<4>{\[ \makebox[2.7em][c]{\(5^2\)}=2^2+x^2 \]
	}
\only<5-10>{\vspace*{-4ex}
	\begin{eqnarray*}
	\hooklen{25-4}{5^2} &=& 2^2+x^2 \\
	\visible<6->{\hooklen{25-4}{25} &=& \hooklen{2^2}{4}+x^2} \\
	\visible<7->{25-4 &=& \phantom{2^2+{}} x^2 } \\
	\visible<8->{\hooklen{25-4}{21} &=& \hooklen{2^2+x^2}{x^2} } \\
	\visible<9->{\mypm\sqrt{21} &=& \ \sqrt{x^2} } \\
	\visible<10->{\text{\footnotesize\( x>0 \)なので} & & \\
		\textcolor{CUDBlue}{\sqrt{21}} &=& \quad x
		}
	\end{eqnarray*}
	}
\only<11>{よって

	\vspace*{-5ex}
	\[ \sin A=\frac{\text{縦}}{\text{斜め}}
		=\frac{\,\sqrt{21}\,}{5}\ \text{\□答} \]

	\vspace*{-2ex}
	\[ \tan A=\frac{\text{縦}}{\text{\ 横\ }}
		=\frac{\,\sqrt{21}\,}{2}\ \text{\□答} \]
	}
\end{minipage}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{\( \sin A,\ \cos A,\ \tan A \)を求めよ（その$2$）}
\vspace*{-1ex}
\begin{tikzpicture}[rotate=0, very thick, scale=0.8,
	baseline={( [yshift=-12pt] current bounding box.north)}]
%\draw[help lines](-0.7,-1) rectangle(3.4,6);
\useasboundingbox(-0.5,-1) rectangle(3.7,6);
\footnotesize
\coordinate [label=left:{\textcolor{CUDRed}{$A$}}] (A) at (0,0);
\coordinate(B) at (3,5);
\coordinate(C) at (3,0);
\begin{scope}
\clip(A)--(B)--(C)--cycle;
\fill[CUDRed](A) circle(12pt);
\end{scope}
\draw[line join=round](A)--(B)--(C)--cycle;
\temporal<3-5>{}
	{\draw[dashed](A) to[out=90,in=210]
			node[inner sep=4pt,fill=CUDBrightGreen]{$x$}(B);}
	{\draw[dashed](A) to[out=90,in=210]
			node[inner sep=4pt,fill=CUDBrightGreen]
			{\textcolor{CUDBlue}{\(\sqrt{34}\)}}(B);}
\draw[dashed](A) to[out=-40,in=220]
		node[inner sep=4pt,fill=white]{$3$} (C);
\draw[CUDRed](C)++(-0.4,0)--++(0,0.4)--++(0.4,0);
\draw[dashed](B) to[out=-60,in=60]
	node[inner sep=3pt,fill=white]{$5$} (C);
\end{tikzpicture}
\hfill
\begin{minipage}[t]{0.7\textwidth}
\only<2>{\vskip-2ex
	\[ \tan A=\frac{\text{縦}}{\text{\ 横\ }}
		=\frac{\,5\,}{3}\ \text{\□答} \]
	は分かるけど、斜めの長さが書かれていない
	ので\( \sin A, \cos A \)が分からない。

	\bigskip
	\centerline{だから長さを計算するぞ！}
	}
\only<3-4>{三平方の定理を使う。

	\bigskip
	\centerline{\colorbox{CUDCream}{\(\text{\LARGE
		\textcolor{CUDGreen}{斜め}}^2=\text{○}^2+\text{△}^2  \)}}
	}
\only<4>{\[ \makebox[2.7em][c]{\(x^2\)}=3^2+5^2 \]
	}
\only<5-6>{\vspace*{-4ex}
	\begin{eqnarray*}
	x^2 &=& 3^2+\hooklen{25}{5^2} \\
	x^2 &=& \hooklen{3^2}{9}+25 \\
	x^2 &=& \hooklen{9+25}{34} \\
	\sqrt{x^2} &=& \mypm\sqrt{34} \\
	\text{\footnotesize\( x>0 \)なので} & & \\
	x &=& \textcolor{CUDBlue}{\sqrt{34}}
	\end{eqnarray*}
	}
\only<7>{よって\quad
	\ifyurika
		\textcolor{CUDRed}{\footnotesize （有理化する教科書もある）}
	\fi

	\vspace*{-4ex}
	\[ \sin A=\frac{\text{縦}}{\text{斜め}}
		=\frac{5}{\sqrt{34}}
		\ifyurika
			=\frac{5\sqrt{34}}{34}
		\fi
		\ \text{\□答} \]

	\vspace*{-2ex}
	\[ \cos A=\frac{\text{横}}{\text{斜め}}
		=\frac{3}{\sqrt{34}}
		\ifyurika
			=\frac{3\sqrt{34}}{34}
		\fi
		\ \text{\□答} \]
	}
\end{minipage}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



\end{document}
