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

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

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


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

\begin{frame}[t]
\frametitle{\only<1>{鈍角\( (\theta>90^\circ) \)の三角比を決めたい}
	\only<2>{\(xy\)座標で考えます}
	}
\vspace*{-4ex}
\centerline{%
\begin{tikzpicture}[scale=3, ultra thick, >=stealth, line join=round,
	gbb/.style={fill=white,inner sep=1pt},
	baseline={([yshift=0pt] current bounding box.north)}]
%\draw[help lines] (-2.5,-0.2) grid (2.5,2.1);
\useasboundingbox(-2.5,-0.2) rectangle (2.5,2.1);

\coordinate(O) at (0,0);
\coordinate(A) at ({sqrt(3)},1);
%\coordinate(P) at (120:2);
\foreach \l in {A}%%%%%,P}
	\path let \p0=(\l) in coordinate(\l') at (\x0,0);

\visible<1>{\begin{scope}[right]
	\draw(-2.2,1.5) node{\( \makebox[3em]{\(
		\sin\textcolor{CUDRed}{30^\circ} \)}=\ \myfrac{\,1\,}{2} \)};
	\draw(-2.2,1) node{\( \makebox[3em]{\(
		\cos\textcolor{CUDRed}{30^\circ} \)}=\myfrac{\sqrt{3}}{2} \)};
	\draw(-2.2,0.4) node{\( \makebox[3em]{\(
		\tan\textcolor{CUDRed}{30^\circ} \)}=\myfrac{1}{\sqrt{3}} \)};
	\end{scope}
	}

\visible<-2>{\filldraw[fill=CUDCream](A)--(A')--(O)--cycle;
	\draw(A') rectangle ++(-0.5ex,0.5ex);
	\draw[CUDRed](0.5,0) arc[start angle=0,end angle=30, radius=0.5]
		node[pos=30/200,above right]{\(30^\circ\)};
	\draw[bend left=25,dashed,semithick](O)
		to node[gbb,circle]{\(2\)}(A)
		to node[gbb]{\(1\)}(A')
		to node[gbb]{\(\sqrt{3}\)} cycle;
	}
\visible<2->{\draw[-{Stealth[length=1ex]},thick]
		(-2.4,0)--(2.4,0) node[below]{\footnotesize\(x\)};
	\draw[-{Stealth[length=1ex]},thick]
		(0,-0.2)--(0,2) node[below left]{\footnotesize\(y\)};
	}
\visible<2>{\fill[CUDBlue](A) circle(1.4pt) node[above]{\( (\sqrt{3},1) \)};
	\draw[CUDBlue,line width=0.3ex](O)--(A);
	}
\end{tikzpicture}
}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{時計の針のようなものを考える}
\vspace*{-4ex}
\centerline{%
\begin{animateinline}[autoplay]{2}
% ■アニメを動かすには２回以上コンパイルが必要
\multiframe{10}{iAngle=30+10}{%
\begin{tikzpicture}[scale=3, ultra thick, >=stealth, line join=round,
	gbb/.style={fill=white,inner sep=1pt},
	baseline={([yshift=0pt] current bounding box.north)}]
%\draw[help lines] (-2.5,-0.2) grid (2.5,2.1);
\useasboundingbox(-2.5,-0.2) rectangle (2.5,2.1);

\coordinate(O) at (0,0);
\coordinate(P) at (\iAngle:2);

\draw[CUDRed](0.5,0)
	arc[start angle=0,end angle=\iAngle, radius=0.5]
	node[pos=\iAngle/200,above right]{\(\iAngle^\circ\)};
\fill[CUDBlue](P) circle(1.4pt);
\draw[CUDBlue,line width=0.3ex](O)--(P);


\draw[-{Stealth[length=1ex]},thick]
		(-2.4,0)--(2.4,0) node[below]{\footnotesize\(x\)};
	\draw[-{Stealth[length=1ex]},thick]
		(0,-0.2)--(0,2) node[below left]{\footnotesize\(y\)};
\end{tikzpicture}
}
\end{animateinline}
}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{\(x\)座標\(,\ y\)座標は}
\vspace*{-4ex}
\centerline{%
\begin{tikzpicture}[scale=3, ultra thick, >=stealth, line join=round,
	gbb/.style={fill=white,inner sep=1pt},
	baseline={([yshift=0pt] current bounding box.north)}]
%\draw[help lines] (-2.5,-0.2) grid (2.5,2.1);
\useasboundingbox(-2.5,-0.2) rectangle (2.5,2.1);

\coordinate(O) at (0,0);
%\coordinate(A) at ({sqrt(3)},1);
\coordinate(P) at (120:2);
%\foreach \l in {P}
	\path let \p0=(P) in coordinate(P') at (\x0,0);

\visible<2->{\fill[fill=CUDBrightGreen!50](P)--(P')--(O)--cycle;}

\draw[-{Stealth[length=1ex]},thick]
	(-2.4,0)--(2.4,0) node[below]{\footnotesize\(x\)};
\draw[-{Stealth[length=1ex]},thick]
	(0,-0.2)--(0,2) node[below left]{\footnotesize\(y\)};

\visible<2->{\draw(P)|-(O)
		(P') rectangle ++(0.5ex,0.5ex);
	\draw[bend left=28,dashed,semithick,CUDBlue](O)
		to node[gbb]{★}(P')
		to node[gbb]{▲}(P);
	}
\draw[CUDRed](0.5,0) arc[start angle=0,end angle=120, radius=0.5]
		node[pos=120/200,above right]{\(120^\circ\)};
	\fill[CUDBlue](P) circle(1.4pt)
		node[yshift=1.6ex]{\( (\text{★},\text{▲}) \)};
	\draw[CUDBlue,line width=0.3ex](O)--(P);
\end{tikzpicture}
}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{To Be Continued}
\textcolor{CUDBlue}{\url{https://unilab.gbb60166.jp/prekou/pdf/m1-120135150.pdf}}\ \beamergotobutton{web}


\vskip3ex
\textcolor{CUDBlue}{\url{https://unilab.gbb60166.jp/prekou/pdf/m1-090180270.pdf}}\ \beamergotobutton{web}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%




\end{document}

