%
%	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,compat/show suggested version=false}
%\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!75}
%\setbeamercolor{palette primary}{bg=CUDOrange!75}
%\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}

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

%\newcommand{\aki}{\phantom{\scriptsize ああ}}

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


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

\begin{frame}[t]
\frametitle{一日のスマートフォン使用時間}
\vskip-3ex
\begin{tikzpicture}[scale=1, semithick, >=stealth,
	gbb/.style={fill=white,inner sep=1pt},
	baseline={([yshift=0pt] current bounding box.north)}]
%\draw[help lines] (0,0) grid (15,7);
\useasboundingbox (0,0) rectangle (15,7);

\begin{scope}[CUDCream,line width=2ex,text=CUDRed]
\small
\visible<2>{\draw(5.5,{0.45*(8-0)+1.9})--++(0,-1.25)
		-- node[pos=0.45,yshift=-0.1ex]{\(=\)}++(2.4,0);
	}
\visible<3>{\draw(5.5,{0.45*(8-0)+1.9})--++(0,-2.15)
		-- node[pos=0.45,yshift=-0.1ex]{\(=\)}++(2.4,0);
	}
\visible<4>{\draw(5.5,{0.45*(8-0)+1.9})--++(0,-3.05)
		-- node[pos=0.45,yshift=-0.1ex]{\(=\)}++(2.4,0);
	}
\visible<5>{\draw(5.5,{0.45*(8-0)+1.9})--++(0,-3.95)
		-- node[pos=0.45,yshift=-0.1ex]{\(=\)}++(2.4,0);
	}
\visible<2-5>{\draw(5.1,4.9) node{\(+\)};}
\visible<3-5>{\draw(5.1,4) node{\(+\)};}
\visible<4-5>{\draw(5.1,3.1) node{\(+\)};}
\visible<5>{\draw(5.1,2.2) node{\(+\)};}
\end{scope}

\foreach \y in {0,...,6}
	\draw(0,0.9*\y+0.2)--++(8.4,0);
\foreach \x in {0, 3.1, 4.8, 6.2, 8.4}
	\draw(\x,0.2)--++(0,6.6);
\draw(0,6.8)--++(8.4,0);

\foreach \x/\a/\b in {1.55/時間の階級/時間, 3.95/階級値/時間, 5.5/度数/人,
		7.3/\alt<2-5>{\textcolor{CUDRed}{累積度数}}{累積度数}/人}
	\draw(\x,6.4) node{\footnotesize \a}
		+(0,-0.5) node{\tiny （\b）};
%\draw(1.55,6.4) node{\footnotesize 時間の階級}
%	+(0,-0.5) node{\tiny （時間）};
%\draw(3.95,6.4) node{\footnotesize 階級値}
%	+(0,-0.5) node{\tiny （時間）};
%\draw(5.5,6.4) node{\footnotesize 度数}
%	+(0,-0.5) node{\tiny （人）};
%\draw(7.3,6.4) node{\footnotesize 累積度数}
%	+(0,-0.5) node{\tiny （人）};

\foreach \i/\a/\b/\c in {0/1/5/5, 2/3/9/14, 4/5/3/17, 6/7/1/18, 8/9/2/20}
	\draw(3.95,{0.45*(8-\i)+1.55}) node{\(\a\)}
		++(1.55,0) node{\(\b\)}
		++(1.8,0) node{\(\c\)};

\foreach \i in {0,2,4,6,8}
	\draw(0.3,{0.45*(8-\i)+1.55}) node{\(\i\)}++(1,0) node{\textrm{～}};

\draw(0.9,{0.45*8+1.3}) node{\tiny 以上}
	++(1.8,0) node{\tiny 未満};

\foreach \i in {2,4,6,8,10}
	\draw(2.6,{0.45*(10-\i)+1.55}) node[left]{\(\i\)};
\draw(1.55,{0.45*(8-10)+1.55}) node{\footnotesize 計}
	+(3.95,0) node{\(20\)};
\draw(3.1,0.2)--(4.8,1.1)
	(6.2,0.2)--(8.4,1.1);

\visible<6->{\begin{scope}[xshift=0.62\textwidth, yshift=0.15\textheight]
	\draw[CUDRed](2.8,5.5) node{ヒストグラム};
	\foreach \y in {1,...,9}\draw[CUDCyan](0,0.5*\y)--++(5.5,0);
	\draw[CUDCyan](0,5)--++(5.5,0)--++(0,-5);

	\draw(0,5)--(0,0)--(5.5,0);

	\foreach \a/\b in {{(0,0)}/{(1,2.5)},
			{(1,0)}/{(2,4.5)},
			{(2,0)}/{(3,1.5)},
			{(3,0)}/{(4,0.5)},
			{(4,0)}/{(5,1)}}
		\filldraw[fill=CUDCream,draw=black]\a rectangle \b;

	\scriptsize
	\draw(-0.1,-0.3) node{$0$};
	\foreach \x in {2,4,6,8,10}\draw(0.5*\x,-0.3) node{\(\x\)};
	\draw(5,-0.7) node{（時間）};

	\draw(0,2.5) node[left]{$5$}
		(0,5) node[left]{$10$}
		(-0.3,5.5) node{（人）};
	\end{scope}
	}
\end{tikzpicture}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

%■このコードはボツになりました
%\begin{frame}[t]
%\frametitle{一日のスマートフォン使用時間}
%\vskip-2ex
%%\renewcommand{\arraystretch}{1.2}
%\small
%\centerline{
%\begin{tabular}[t]{|c|c|c|c|} \hline
%時間の階級{\tiny （時間）} & 階級値{\tiny （時間）}
%	 & 度数{\tiny （人）} &
%	\alt<2->{\textcolor{CUDRed}{累積度数}}{累積度数}{\tiny （人）}\\\hline
%\(0\){\scriptsize 以上}\textrm{～}\(\phantom{0}2\){\scriptsize 未満}
%	& \(1\) & \(5\) & \(5\) \\ \hline
%\(2\)\,\aki\textrm{～}\(\phantom{0}4\)\;\aki
%	& \(3\) & \(9\) & \(14\) \\ \hline
%\(4\)\,\aki\textrm{～}\(\phantom{0}6\)\;\aki
%	& \(5\) & \(3\) & \(17\) \\ \hline
%\(6\)\,\aki\textrm{～}\(\phantom{0}8\)\;\aki
%	& \(7\) & \(1\) & \(18\) \\ \hline
%\(8\)\,\aki\textrm{～}\(10\)\;\aki
%	& \(9\) & \(2\) & \(20\) \\ \hline
%計	& %■ tabular環境を使わず全部TikZで描いた方がよいと思う
%%■ https://zrbabbler.hatenablog.com/entry/20150630/1435621044
%	\tikz[baseline=0pt,thin]{\useasboundingbox(0,0);% 斜線%縦0横0の描画領域
%    \draw(-1.6,-0.24)--(1.6,0.54);}%試行錯誤して合わせた
%% boxの長さを測定して　というのは無理だと思う
%	& \(20\) &
%	\begin{tikzpicture}[baseline=0pt,thin]
%		\useasboundingbox(0,0);
%    \draw(-1.75,-0.24)--(1.75,0.54);
%\visible<2>{\draw[CUDRed,opacity=0.5,line width=2.2ex,text=black,
%		line cap=round,line join=round]
%		(-2.9,4.2)-- node[xshift=-1em,opacity=1]{\(+\)}++(0,-0.9)
%			-- node[opacity=1]{\(=\)}++(3.2,0);
%	}
%\visible<3>{\draw[CUDRed,opacity=0.5,line width=2.2ex,text=black,
%		line cap=round,line join=round]
%		(-2.9,4.2)-- node[pos=1/4,xshift=-1em,opacity=1]{\(+\)}
%			 node[pos=3/4,xshift=-1em,opacity=1]{\(+\)}++(0,-1.68)
%				-- node[opacity=1]{\(=\)}++(3.2,0);
%	}
%\visible<4>{\draw[CUDRed,opacity=0.5,line width=2.2ex,text=black,
%		line cap=round,line join=round]
%		(-2.9,4.2)-- node[pos=1/6,xshift=-1em,opacity=1]{\(+\)}
%			 node[pos=3/6,xshift=-1em,opacity=1]{\(+\)}
%			 node[pos=5/6,xshift=-1em,opacity=1]{\(+\)}++(0,-2.47)
%				-- node[opacity=1]{\(=\)}++(3.2,0);
%	}
%\visible<5>{\draw[CUDRed,opacity=0.5,line width=2.2ex,text=black,
%		line cap=round,line join=round]
%		(-2.9,4.2)-- node[pos=1/8,xshift=-1em,opacity=1]{\(+\)}
%			 node[pos=3/8,xshift=-1em,opacity=1]{\(+\)}
%			 node[pos=5/8,xshift=-1em,opacity=1]{\(+\)}
%			 node[pos=7/8,xshift=-1em,opacity=1]{\(+\)}++(0,-3.25)
%				-- node[opacity=1]{\(=\)}++(3.2,0);
%	}
%	\end{tikzpicture}
%	\\ \hline
%\end{tabular}
%}
%\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%



\end{document}
