%
%	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,tsayusen,shiika,sfkanbun,jdkintou,plext}
\usepackage{type1cm,furikana}
\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}

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

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



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

\begin{frame}[t]
\frametitle{角柱の体積}
\vspace*{-6pt}
\begin{minipage}[t]{0.36\textwidth}
\begin{tikzpicture}[rotate=0, scale=1, very thick, >=stealth,
	baseline={([yshift=-16pt] current bounding box.north)}]
\useasboundingbox (-2.6,-1) rectangle (2.6,5.2);
\coordinate (O) at (0,0);
\coordinate (LF) at (-2.5,-0.5);
\coordinate (LB) at (-1.5,0.5);
\coordinate (RF) at (1.5,-0.5);
\coordinate (RB) at (2.5,0.5);
\fill[CUDCream,line join=round](LF)--(RF)--(RB)--(LB)--cycle;
\draw[line join=round]($ (LF)+(0,4) $)--($ (RF)+(0,4) $)
	--($ (RB)+(0,4) $)--($ (LB)+(0,4) $)--cycle
	(LF)--(RF)--(RB);
%\draw[line join=round](LF)--(RF)--(RB);
\draw[dashed](LF)--(LB)--(RB)
	(LB)--++(0,4);
\draw(LF)--++(0,4)
	(RF)--++(0,4)
	(RB)--++(0,4);
%\draw[dashed](LB)--++(0,4);
%\draw(RF)--++(0,4);
%\draw(RB)--++(0,4);
\draw[thick,CUDBlue,{Stealth[length=1ex]}-{Stealth[length=1ex]}](O)--
	node[fill=white,inner sep=3pt,rotate=90]{\footnotesize 高さ} (0,4);
\draw[thick](O)++(0,0.36)--++(-0.36,0)--++(0,-0.36);
\end{tikzpicture}
\end{minipage}
\hfill%■■■■■
\begin{minipage}[t]{0.55\textwidth}
角柱の体積

\bigskip
\centerline{\( =\colorbox{CUDCream}{底面積}\times
	\mbox{\textcolor{CUDBlue}{高さ}} \)}
\end{minipage}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


\begin{frame}[t]
\frametitle{円柱の体積}
\vspace*{-6pt}
\begin{minipage}[t]{0.36\textwidth}
\begin{tikzpicture}[rotate=0, scale=1, very thick, >=stealth,
	baseline={([yshift=-16pt] current bounding box.north)}]
\useasboundingbox (-2.6,-1) rectangle (2.6,5.2);
\coordinate (O) at (0,0);
\fill[CUDCream](2.4,0)
	arc [start angle=0, end angle=360,x radius=2.4, y radius=0.8];
\draw[dashed](2.4,0)
	arc [start angle=0, end angle=182,x radius=2.4, y radius=0.8];
\draw(-2.4,0)
	arc [start angle=-180, end angle=0,x radius=2.4, y radius=0.8];
\draw(2.4,4)
	arc [start angle=0, end angle=360,x radius=2.4, y radius=0.8];
\draw(2.4,0)--++(0,4);
\draw(-2.4,0)--++(0,4);
\draw[thick,CUDBlue,{Stealth[length=1ex]}-{Stealth[length=1ex]}](O)--
	node[fill=white,inner sep=3pt,rotate=90]{\footnotesize 高さ} (0,4);
\draw[thick,CUDRed,{Stealth[length=1ex]}-{Stealth[length=1ex]}](O)--
	node[fill=white,inner sep=3pt]{\footnotesize 半径} (2.4,0);
\draw[thick](O)++(0,0.5)--++(-0.5,0)--++(0,-0.5);
\end{tikzpicture}
\end{minipage}
\hfill%■■■■■
\begin{minipage}[t]{0.55\textwidth}
円柱の体積

\bigskip
\centerline{\( =\colorbox{CUDCream}{\makebox[10ex][c]{底面積}}\times
	\mbox{\textcolor{CUDBlue}{高さ}} \)}

\bigskip
\centerline{\( =\textcolor{CUDRed}{\mbox{\Large $\pi$}\times\mbox{半径}^2}
	\times\mbox{\textcolor{CUDBlue}{高さ}} \)}

\bigskip
\centerline{（{\Large $\pi$}は円周率）}
\end{minipage}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{角錐の体積}
\vspace*{-6pt}
\begin{minipage}[t]{0.36\textwidth}
\begin{tikzpicture}[rotate=0, scale=1, very thick, >=stealth,
	baseline={([yshift=-16pt] current bounding box.north)}]
\useasboundingbox (-2.6,-1) rectangle (2.6,5.2);
\coordinate (O) at (0,0);
\coordinate (LF) at (-2.5,-0.5);
\coordinate (LB) at (-1.5,0.5);
\coordinate (RF) at (1.5,-0.5);
\coordinate (RB) at (2.5,0.5);
%\filldraw[fill=CUDCream,draw=black,line join=round]
%	(-2.3,-0.5)--++(4,0)--++(0.6,1)--++(-4,0)--cycle;
\fill[CUDCream,line join=round]
	(LF)--(RF)--(RB)--(LB)--cycle;
\draw[line join=round](LF)--(0,4)--(RB)--(RF)--cycle;
\draw(0,4)--(RF);
\draw[dashed](LB)--(0,4);
\draw[dashed](LF)--(LB)--(RB);
\draw[thick,CUDBlue,{Stealth[length=1ex]}-{Stealth[length=1ex,angle=20:2ex]}](O)--
	node[fill=white,inner sep=3pt,rotate=90]{\footnotesize 高さ} (0,4);
%\draw[thick,CUDRed,{Stealth[length=1ex]}-{Stealth[length=1ex]}](O)--
%	node[fill=white,inner sep=3pt]{\footnotesize 半径} (2,0);
\draw[thick](O)++(0,0.36)--++(-0.36,0)--++(0,-0.36);
\end{tikzpicture}
\end{minipage}
\hfill%■■■■■
\begin{minipage}[t]{0.55\textwidth}
角錐の体積

\bigskip
\centerline{\( =\myfrac{\,1\,}{3}\times
	\colorbox{CUDCream}{底面積}\times
	\mbox{\textcolor{CUDBlue}{高さ}} \)}
\end{minipage}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


\begin{frame}[t]
\frametitle{円錐の体積}
\vspace*{-6pt}
\begin{minipage}[t]{0.36\textwidth}
\begin{tikzpicture}[rotate=0, scale=1, very thick, >=stealth,
	baseline={([yshift=-16pt] current bounding box.north)}]
\useasboundingbox (-2.6,-1) rectangle (2.6,5.2);
\coordinate (O) at (0,0);
\coordinate (T) at (0,5);
%■昔は知識が乏しかったので ↓こんなコードを書いたが、円に接線を引く方法を
\coordinate (L) at ($ (-2.4,0)+(0.03ex,0.26ex) $);% 応用するとよいかも
\coordinate (R) at ($ (2.4,0)+(-0.03ex,0.26ex) $);% pdfmanual.pdf p143(13.2.4)
				% 2022 May 19	■挑戦したがよくわからん
%円錐の底面
\fill[CUDCream](2.4,0)
	arc [start angle=0, end angle=360,x radius=2.4, y radius=0.8];
\draw[dashed](2.4,0)
	arc [start angle=0, end angle=182,x radius=2.4, y radius=0.8];
\draw(-2.4,0)
	arc [start angle=-180, end angle=0,x radius=2.4, y radius=0.8];
%円錐の側面
\draw[line cap=round](L)--(T)--(R);
\draw[thick,CUDBlue,{Stealth[length=1ex]}-{Stealth[length=1ex,angle=20:2ex]}](O)--
	node[fill=white,inner sep=3pt,rotate=90]{\footnotesize 高さ} (T);
\draw[thick,CUDRed,{Stealth[length=1ex]}-{Stealth[length=1ex]}](O)--
	node[fill=white,inner sep=3pt]{\footnotesize 半径} (2.4,0);
\draw[thick](O)++(0,0.5)--++(-0.5,0)--++(0,-0.5);
\end{tikzpicture}
\end{minipage}
\hfill%■■■■■
\begin{minipage}[t]{0.55\textwidth}
円錐の体積

\bigskip
\centerline{\( =\myfrac{\,1\,}{3}\times
	\colorbox{CUDCream}{\makebox[10ex][c]{底面積}}\times
	\mbox{\textcolor{CUDBlue}{高さ}} \)}

\bigskip
\centerline{\( =\myfrac{\,1\,}{3}\times
	\textcolor{CUDRed}{\mbox{\Large $\pi$}\times\mbox{半径}^2}
	\times\mbox{\textcolor{CUDBlue}{高さ}} \)}

\bigskip
\centerline{（{\Large $\pi$}は円周率）}
\end{minipage}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{球の体積}
\vspace*{-6pt}
\begin{minipage}[t]{0.36\textwidth}
\begin{tikzpicture}[rotate=0, scale=1, very thick, >=stealth,
	baseline={([yshift=-16pt] current bounding box.north)}]
\useasboundingbox (-2.6,-1) rectangle (2.6,5.2);
%\coordinate (O) at (0,0);
\draw[dashed](2.4,2.4)
	arc [start angle=0, end angle=180,x radius=2.4, y radius=0.8];
\draw(-2.4,2.4)
	arc [start angle=-180, end angle=0,x radius=2.4, y radius=0.8];
\draw(0,2.4) circle(2.4);
\fill(0,2.4) circle(2pt);
\draw[thick,CUDRed,{Stealth[length=1ex]}-{Stealth[length=1ex]}](0,2.4)--
	node[fill=white,inner sep=3pt]{\footnotesize 半径$r$} ++(2.4,0);
\end{tikzpicture}
\end{minipage}
\hfill%■■■■■
\begin{minipage}[t]{0.55\textwidth}
球の体積

%■　色の見え方は多様性があるので、色だけに頼らない工夫をしてみた
\bigskip
\( = \textcolor{CUDBlue}{\myfrac{\text{\ \textcolor{CUDGreen}{\kana{\(4\)}{★}\kana{\(\pi\vphantom{4}\)}{★}}}
	\text{\textcolor{CUDRed}{\kana{\(r\vphantom{4}\)}{▼}}}
	{}^{\text{\textcolor{CUDOrange}{\kana{\(\mathstrut{3}\)}{\fontsize{6}{6}\selectfont ◆}}}}}{3}} \)\hfill
	（\raisebox{0.2ex}{$\pi$} は円周率）

%\bigskip
{\footnotesize （暗記法）\textcolor{CUDBlue}{身の上}に
\textcolor{CUDGreen}{\Kana[3]{心,配}{★,★}}
		\textcolor{CUDRed}{\kana{ある}{▼}}ので
		\textcolor{CUDOrange}{\kana{参上}{◆}}}
%\textcolor{CUDGreen}{心配}\textcolor{CUDRed}{ある}ので
%\textcolor{CUDOrange}{参上}}

\bigskip
\( = \textcolor{CUDBlue}{\myfrac{\ \textcolor{CUDGreen}{4\pi}
	\textcolor{black}{\times}
	\mbox{\textcolor{CUDRed}{半径}}^{\textcolor{CUDOrange}{3}}}
	{3}} \)
\end{minipage}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{ついでに\quad 球の表面積}
\vspace*{-6pt}
\begin{minipage}[t]{0.36\textwidth}
\begin{tikzpicture}[rotate=0, scale=1, very thick, >=stealth,
	baseline={([yshift=-16pt] current bounding box.north)}]
\useasboundingbox (-2.6,-1) rectangle (2.6,5.2);
%\coordinate (O) at (0,0);
\draw[dashed](2.4,2.4)
	arc [start angle=0, end angle=180,x radius=2.4, y radius=0.8];
\draw(-2.4,2.4)
	arc [start angle=-180, end angle=0,x radius=2.4, y radius=0.8];
\draw(0,2.4) circle(2.4);
\fill(0,2.4) circle(2pt);
\draw[thick,CUDRed,{Stealth[length=1ex]}-{Stealth[length=1ex]}](0,2.4)--
	node[fill=white,inner sep=3pt]{\footnotesize 半径$r$} ++(2.4,0);
\end{tikzpicture}
\end{minipage}
\hfill%■■■■■
\begin{minipage}[t]{0.55\textwidth}
球の表面積

%■　色の見え方は多様性があるので、色だけに頼らない工夫をしてみた
\bigskip
\( = \text{\textcolor{CUDGreen}{\kana{\(4\)}{★}\kana{\(\pi\vphantom{4}\)}{★}}}
	\text{\textcolor{CUDRed}{\kana{\(r\vphantom{4}\)}{▼}}}
	{}^{\text{\textcolor{CUDOrange}{\kana{\(\mathstrut{2}\)}{\fontsize{6}{6}\selectfont ◆}}}} \)\hfill
	（\raisebox{0.2ex}{$\pi$} は円周率）

\bigskip
{\footnotesize （暗記法）\textcolor{CUDGreen}{\Kana[3]{心,配}{★,★}}
		\textcolor{CUDRed}{\kana{ある}{▼}}
		\textcolor{CUDOrange}{\kana{事情}{◆}}}

\bigskip
\( = \textcolor{CUDGreen}{4\pi}\times
	\mbox{\textcolor{CUDRed}{半径}}^{\textcolor{CUDOrange}{2}} \)
\end{minipage}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%







\end{document}
