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

%　斜線（１文字を消す）x
\def\sshasen{\kern-0.6em\tikz[baseline=2pt]
	\draw[line width=2pt, CUDRed](0,0.55)--++(0.5,-0.5);}

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



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

\begin{frame}[t]
\frametitle{正弦定理}
%\vspace*{-2ex}
\centerline{%
\begin{minipage}[c]{0.7\textwidth}
\begin{beamercolorbox}[wd=\textwidth,ht=4ex,dp=3ex,shadow=true,
	rounded=true, center]{CUDCream}
\( \myfrac{a}{\sin A} =\myfrac{b}{\sin B} =\myfrac{c}{\sin C} =2R \)
\end{beamercolorbox}
\end{minipage}
}

\bigskip
\[ (R \text{は外接円の半径}) \]
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{正弦定理}
こっちの方がいいと思うよ

\bigskip
\centerline{%
\begin{minipage}[c]{0.96\textwidth}
\begin{beamercolorbox}[wd=\textwidth,ht=4ex,dp=3ex,shadow=true,
	rounded=true, center]{CUDCream}
\( \myfrac{\text{\textcolor{CUDBlue}{\small 角度の向かいの辺}}}{
	\sin\text{\textcolor{CUDBlue}{角度}}} =
	\myfrac{\text{\textcolor{CUDRed}{\small 角度の向かいの辺}}}{
		\sin\text{\textcolor{CUDRed}{角度}}}
 =2\!\times\!\raisebox{-1ex}{{\small\shortstack{外接円\\[1pt]の半径}}} \)
\end{beamercolorbox}
\end{minipage}
}

\vskip3ex
\centerline{\textcolor{CUDBlue}{角度}と
	\textcolor{CUDBlue}{向かいの辺}をペアにする}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{辺$x$の長さを求めなさい}
\begin{minipage}[t]{0.5\textwidth}
\begin{tikzpicture}[rotate=0, line width=1pt, line join=round,
	scale=0.5, >=stealth, baseline=(current bounding box.north)]
\coordinate (A) at (0,0);
\coordinate (B) at ($ ({8/sin(45)*sin(75)},0) $);
\coordinate (C) at ($ ({8/sin(45)*sin(75)-8*cos(60)},{8*sin(60)}) $);
\draw (A)--(B)--(C)--cycle;
\begin{scope}
\clip (A)--(B)--(C)--cycle;
\draw (A) circle (36pt);
\draw (B) circle (36pt);
\end{scope}
\visible<1>{\draw[dashed] (A) to[out=80,in=190]	node[line width=1pt, 
		fill=white](lengthx){\small $x$} (C);
	\draw[dashed] (C) to[out=-30,in=90] node[line width=1pt,
		fill=white,inner sep=2pt](length8){\small $8$} (B);

	\draw(A) +(64pt,18pt) node[circle, line width=2pt]
		(angle45){\footnotesize $45^\circ$};
	\draw(B) +(-64pt,18pt) node[circle, line width=2pt]
		(angle60){\footnotesize $60^\circ$};
	}
\visible<2->{\draw[dashed](A) to[out=80,in=190]
		node[circle,solid,draw=CUDBlue,
		line width=2pt, fill=white](lengthx){\small $x$} (C);
	\draw[dashed] (C) to[out=-30,in=90] node[circle, solid, draw=CUDRed,
		line width=2pt, fill=white](length8){\small $8$} (B);
	\draw(A) +(64pt,18pt) node[circle, draw=CUDRed, line width=2pt]
		(angle45){\footnotesize $45^\circ$};
	\draw(B) +(-64pt,18pt) node[circle, draw=CUDBlue, line width=2pt]
		(angle60){\footnotesize $60^\circ$};
	\draw[->, CUDRed, line width=2pt] (angle45)--(length8);
	\draw[->, CUDBlue, line width=2pt] (angle60)--(lengthx);
	}
\end{tikzpicture}
\end{minipage}
\pause
\pause
\begin{minipage}[t]{0.45\textwidth}
\vspace*{1ex}
\( \myfrac{\textcolor{CUDBlue}{x}}{\sin\textcolor{CUDBlue}{60^\circ}}
	=\myfrac{\textcolor{CUDRed}{8}}{\sin\textcolor{CUDRed}{45^\circ}}\)

\vskip4ex
\hfill から\textcolor{CUDGreen}{スタート！}
\end{minipage}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{辺$x$の長さを求めなさい}
\vspace*{-3.3ex}
\begin{tikzpicture}[thick,right,scale=1,>=stealth,inner sep=1pt,
	baseline=(current bounding box.north)]
%\draw[help lines] (0,0) grid (15,7);
\useasboundingbox (0,0) rectangle (15,7);
\draw(3.3,6) node{\( \myfrac{x }{\sin60^\circ}\, 
			=\, \myfrac{8}{\sin45^\circ} \)};
\visible<2>{\draw[CUDBlue,->,line width=3pt](6,3)
		node[below]{$x$を出すにはこれが邪魔} --++(-1,1.7);
	\draw[CUDBlue,ultra thick](3.3,5.2) rectangle ++(2.5,1);
	}
\visible<3>{\draw(2.7,4) node[CUDRed]{両辺に\( \sin60^\circ \)をかけ算する};}
\visible<3-6>{\draw[CUDRed](0.2,6) node{\( \sin60^\circ\times \)}
			(9.7,6) node{\( \times\sin60^\circ \)};
	}
\visible<4-6>{\draw[CUDGreen,line width=3pt](0.2,6.3)--++(2,-0.5)
					(3.4,5.9)--++(2,-0.5);
	}
\visible<5>{\draw(4.5,4) node{\( x \quad = 
%		\vphantom{8\div\sin45^\circ}\)\quad が計算できる};
		\vphantom{\myfrac{8}{\sin45^\circ}}\)\quad が計算できる};
	}
\visible<6->{\draw(4.5,4)
	node{{\( x \quad 
		= \hooklen{8\div\sin45^\circ}{\myfrac{8}{\sin45^\circ}}
			\times\sin60^\circ \)}};
	}
\visible<7->{\draw(4.5,2.5)
		node{{\( x \quad = 8\div\sin45^\circ \times\sin60^\circ \)}};
	}
\visible<9->{\draw(4.5,1)
		node{{\( x \quad = 8\div 
			\hooklen{\sin45^\circ}{\myfrac{1}{\sqrt{2}}}\times
			\hooklen{\sin60^\circ}{\myfrac{\sqrt{3}}{2}} \)}};
	}
\visible<8->{\begin{scope}[scale=0.8,xshift=13.5cm,yshift=6.5cm]
	\fill[CUDCream!75](-1,-0.3) rectangle ++(5.8,2.2);
	\draw[text=CUDRed,rounded corners=.3pt](0,0)--
		node[fill=white]{\tiny$1$}
		(1,0)-- node[fill=white]{\tiny$1$}
		(1,1)-- node[fill=white,xshift=-16pt,yshift=6pt]
				{\tiny$\sqrt{2}$} cycle;
	\draw(10pt,0) arc [start angle=0, end angle=45,radius=10pt];
	\draw(-20pt,6pt) node{\tiny\( 45^\circ \)};
	\begin{scope}[xshift=8ex]
	\draw[text=CUDRed,rounded corners=.3pt](0,0)--
		node[fill=white]{\tiny$1$}
		(1,0)-- node[fill=white]{\tiny$\sqrt{3}$}
		(1,{sqrt(3)})-- node[fill=white,xshift=-1ex]{\tiny$2$}
				cycle;
	\draw(10pt,0) arc [start angle=0, end angle=60,radius=10pt];
	\draw(-20pt,6pt) node{\tiny\( 60^\circ \)};
	\end{scope}
	\end{scope}
	}
\end{tikzpicture}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{辺$x$の長さを求めなさい}
\vskip-2.4zh
\begin{eqnarray*}
x &=& 8 \alt<2->{\textcolor{CUDBlue}{{}\div\myfrac{1}{\sqrt{2}}}}
						{\div\myfrac{1}{\sqrt{2}}}
		\times \myfrac{\sqrt{3}}{2} \\\pause
	 &=& 8 \textcolor{CUDBlue}{{}\times\myfrac{\sqrt{2}}{1}}
		\times \myfrac{\sqrt{3}}{2}
		\qquad
		\textcolor{CUDBlue}{
		\shortstack{\footnotesize $\div$を$\times$
			にする代わりに\\[2pt]
		\footnotesize 分子・分母を逆にする}}\\ \pause
	 &=& \kern-10pt
%		\raisebox{10pt}{$4$}\Slash{8}\times\myfrac{\sqrt{2}}{1}\times
		\raisebox{10pt}{$4$}8\sshasen
			\times\myfrac{\sqrt{2}}{1}\times
		\myfrac{\sqrt{3}}{2\sshasen\raisebox{-4pt}{$1$}} \\ \pause
	 &=& 4\times\sqrt{2}\times\sqrt{3} \pause =4\sqrt{6}
		\quad\text{\□答}
\end{eqnarray*}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


\end{document}

