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


\begin{document}

\title{プレ高数学科}\author{gbb60166}
% 流用したコードなので変な個所が多い
\newcommand{\drawarrow}{\draw[CUDLime](\i)++(-0.25,0.35)--++(0,-1.5)
			--++(-0.2,0)--++(0.45,-0.5)--++(0.45,0.5)
			--++(-0.2,0)--++(0,1.5)--cycle;
	\draw(\i)++(0,-0.25) node{\small\( \times \)}
		(\i)++(0,-0.85) node{\small\( \times \)};
	}

\newcommand{\drawpascal}{
	\begin{scope}
		\small
		\draw[line width=16pt,CUDBrightGreen!75,
			line cap=round,	text=black]
		($ ({4*sqrt(2)/2},{4*sqrt(2)/2}) $)--($ (13,{4*sqrt(2)/2}) $)
			node[xshift=-2.2em]{\( (\kern1.3em)^2 \)に対応}
		($ ({3*sqrt(2)/2},{3*sqrt(2)/2}) $)--($ (13,{3*sqrt(2)/2}) $)
			node[xshift=-2.2em]{\( (\kern1.3em)^3 \)に対応}
		($ ({2*sqrt(2)/2},{2*sqrt(2)/2}) $)--($ (13,{2*sqrt(2)/2}) $)
			node[xshift=-2.2em]{\( (\kern1.3em)^4 \)に対応}
		($ ({sqrt(2)/2},{sqrt(2)/2}) $)--($ (13,{sqrt(2)/2}) $)
			node[xshift=-2.2em]{\( (\kern1.3em)^5 \)に対応}
		(0,0)--(13,0) node[xshift=-2.2em]{\( (\kern1.3em)^6 \)に対応};
		\end{scope}
	\draw[CUDYellow](0,0)--($ ({3*sqrt(2)},{3*sqrt(2)}) $)
			--($ ({6*sqrt(2)},0) $);
	\foreach \i in {1,...,5}{
		\draw[CUDYellow]($ ({\i*sqrt(2)/2},{\i*sqrt(2)/2}) $)
			--($ ({\i*sqrt(2)},0) $)
			--($ ({(\i+6)*sqrt(2)/2},{(6-\i)*sqrt(2)/2}) $);
		}
%	\begin{scope}[CUDBlue]
	\foreach \i in {0,...,6}
		{\draw($ ({\i*sqrt(2)/2},{\i*sqrt(2)/2}) $) node{$1$};}
	\foreach \i in {7,...,12}
		{\draw($ ({\i*sqrt(2)/2},{(12-\i)*sqrt(2)/2}) $) node{$1$};}
	%\draw($ ({6*sqrt(2)/2},{5*sqrt(2)/2}) $) node{$+$};
	\draw($ ({6*sqrt(2)/2},{4*sqrt(2)/2}) $) node{$2$};
	%\draw($ ({5*sqrt(2)/2},{4*sqrt(2)/2}) $) node{$+$};
	\draw($ ({5*sqrt(2)/2},{3*sqrt(2)/2}) $) node{$3$};
	%\draw($ ({7*sqrt(2)/2},{4*sqrt(2)/2}) $) node{$+$};
	\draw($ ({7*sqrt(2)/2},{3*sqrt(2)/2}) $) node{$3$};
	%\draw($ ({4*sqrt(2)/2},{3*sqrt(2)/2}) $) node{$+$};
	\draw($ ({4*sqrt(2)/2},{2*sqrt(2)/2}) $) node{$4$};
	%\draw($ ({6*sqrt(2)/2},{3*sqrt(2)/2}) $) node{$+$};
	\draw($ ({6*sqrt(2)/2},{2*sqrt(2)/2}) $) node{$6$};
	\draw($ ({8*sqrt(2)/2},{2*sqrt(2)/2}) $) node{$4$}
		($ ({3*sqrt(2)/2},{sqrt(2)/2}) $) node{$5$}
		($ ({5*sqrt(2)/2},{sqrt(2)/2}) $) node{$10$}
		($ ({7*sqrt(2)/2},{sqrt(2)/2}) $) node{$10$}
		($ ({9*sqrt(2)/2},{sqrt(2)/2}) $) node{$5$}
		($ ({2*sqrt(2)/2},0) $) node{$6$}
		($ ({4*sqrt(2)/2},0) $) node{$15$}
		($ ({6*sqrt(2)/2},0) $) node{$20$}
		($ ({8*sqrt(2)/2},0) $) node{$15$}
		($ ({10*sqrt(2)/2},0) $) node{$6$};
%	\end{scope}
	}

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



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

\begin{frame}[t]
\frametitle{独自のやり方です}
\Large
\centerline{\href{https://unilab.gbb60166.jp/prekou/pdf/m2-nikoteiri3.pdf}{%
	\textcolor{CUDBlue}{二項定理（その\(3\)）}\ \beamergotobutton{web}}
	}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{パスカルの三角形}
\begin{tikzpicture}[rotate=0,scale=1,line width=2pt]
%\draw[help lines] (-1,-1) grid (14,5);
\useasboundingbox (-1,-1) rectangle (14,5);

\drawpascal
\end{tikzpicture}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{\( (a+b)^6 \)の展開式の\( a^4b^2 \)の係数？
	\ \#\(3\)\ajKaku{3}{\tiny or}\ajKaku{4}}
\begin{tikzpicture}[scale=2.1, line width=2pt, anchor=base, >=stealth]
\coordinate (A) at (0,3);
%\coordinate (B) at (1,3);
%\coordinate (C) at (2,3);
%\coordinate (D) at (3,3);
%\coordinate (E) at (4,3);
%\coordinate (F) at (5,3);
%\coordinate (G) at (6,3);

\visible<3->{\foreach \i in {{2,3}}{\drawarrow}}

\draw(A) node{\( 1 \)}
	++(1,0) node{\( 6 \)}
	++(1,0) node{\( 15 \)}
	++(1,0) node{\( 20 \)}
	++(1,0) node{\( 15 \)}
	++(1,0) node{\( 6 \)}
	++(1,0) node{\( 1 \)};
\visible<2>{\begin{scope}
	\footnotesize
	\fill[CUDCream](-0.2,1.7) rectangle ++(0.4,0.4)
		(5.8,2.3) rectangle ++(0.4,0.4);
	\foreach \x in {1,2,3,4}{
		\draw[->,CUDRed](6.9-\x,2.75) to[out=150,in=30]
			node[midway,fill=white,inner sep=0pt,yshift=1ex]
				{\(\times a\)}++(-0.8,0);
		}
	\foreach \x in {1,2}{
		\draw[->,CUDGreen](\x-0.9,1.7) to[out=-30,in=-150]
			node[midway,fill=white,inner sep=0pt,yshift=-2ex]
			{\(\times b\)}++(0.8,0);
		}
	\end{scope}
	}
\visible<2->{\draw(A)++(2,-0.6) node{\( a^4 \)}
			++(1,0) node{\( a^3 \)}
			++(1,0) node{\( a^2 \)}
			++(1,0) node{\( a \)}
			++(1,0) node{\( 1 \)};
	\draw(A)++(0,-1.2) node{\( 1 \)}
		++(1,0) node{\( b \)}
		++(1,0) node{\( b^2 \)};
	}
\visible<3->{\draw(A)++(2,-2) node{\( 15a^4b^2 \)}
		++(0,-0.5) node[CUDRed]{\( 15 \)\ \□答};
	}
\end{tikzpicture}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{パスカルの三角形}
\begin{tikzpicture}[rotate=0,scale=1,line width=2pt]
%\draw[help lines] (-1,-1) grid (14,5);
\useasboundingbox (-1,-1) rectangle (14,5);

\drawpascal
\draw($ ({-1*sqrt(2)/2},{-1*sqrt(2)/2}) $) node{\(1\)}
	++($ ({sqrt(2)},0) $) node{\( 7 \)}
	++($ ({sqrt(2)},0) $) node{\( 21 \)}
	++($ ({sqrt(2)},0) $) node{\( 35 \)}
	++($ ({sqrt(2)},0) $) node{\( 35 \)}
	++($ ({sqrt(2)},0) $) node{\( 21 \)}
	++($ ({sqrt(2)},0) $) node{\( 7 \)}
	++($ ({sqrt(2)},0) $) node{\( 1 \)};
\end{tikzpicture}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

\begin{frame}[t]
\frametitle{\( (x-2)^7 \)の展開式の\( x^4 \)の係数？
	\ \#\(3\)\ajKaku{4}{\tiny or}\ajKaku{5}}
\begin{tikzpicture}[scale=1.9, line width=2pt, anchor=base, >=stealth]
\coordinate (A) at (0,3);
%\coordinate (B) at (1,3);
%\coordinate (C) at (2,3);
%\coordinate (D) at (3,3);
%\coordinate (E) at (4,3);
%\coordinate (F) at (5,3);
%\coordinate (G) at (6,3);

\visible<3->{\foreach \i in {{3,3}}{\drawarrow}}

\draw(A) node{\( 1 \)}
	++(1,0) node{\( 7 \)}
	++(1,0) node{\( 21 \)}
	++(1,0) node{\( 35 \)}
	++(1,0) node{\( 35 \)}
	++(1,0) node{\( 21 \)}
	++(1,0) node{\( 7 \)}
	++(1,0) node{\( 1 \)};
\visible<2>{\begin{scope}
	\footnotesize
	\fill[CUDCream](-0.2,1.7) rectangle ++(0.4,0.4)
		(6.8,2.3) rectangle ++(0.4,0.4);
	\foreach \x in {1,2,3,4}{
		\draw[->,CUDRed](7.9-\x,2.8) to[out=150,in=30]
			node[midway,fill=white,inner sep=0pt,yshift=0.5ex]
				{\(\times x\)}++(-0.8,0);
		}
	\foreach \x in {1,2,3}{
		\draw[->,CUDGreen](\x-0.9,1.7) to[out=-30,in=-150]
			node[midway,fill=white,inner sep=0pt,yshift=-2ex]
			{\(\times(-2)\)}++(0.8,0);
		}
	\end{scope}
	}
\visible<2->{\draw(A)++(3,-0.6) node{\( x^4 \)}
			++(1,0) node{\( x^3 \)}
			++(1,0) node{\( x^2 \)}
			++(1,0) node{\( x \)}
			++(1,0) node{\( 1 \)};
	\draw(A)++(0,-1.2) node{\( 1 \)}
		++(1,0) node{\( -2 \)}
		++(1,0) node{\( 4 \)}
		++(1,0) node{\( -8 \)};
	}
\visible<3->{\draw(A)++(3,-2) node{\( -280x^4 \)}
		++(0,-0.8) node[CUDRed]{\( -280 \)\ \□答};
	}
\end{tikzpicture}
\end{frame}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%


\end{document}

