library(audio)
x <-load.wave("aah1sec.wav")
head(x)
sample rate: 44100Hz, mono, 16-bits
[1] -0.03848384 -0.03360088 -0.02908414 -0.02600177 -0.02514725 -0.02630696
plot(x[1:20])
plot(c[1:500])
c(max(c[1:500]), which.max(c[1:500]))
[1] 0.01767538 82.00000000
(n <- length(x))
[1] 44032
c(n^2, n*log(n))
[1] 1938817024.0 470819.7
\[ \begin{aligned} \mathbf{u} & = \begin{bmatrix} u_1, & u_2, & \ldots, & u_n \end{bmatrix} \\ \mathbf{v} & = \begin{bmatrix} v_1, & v_2, & \ldots, & v_n \end{bmatrix} \end{aligned} \]
\[ \mathbf{u} = \begin{bmatrix} u_1 \\ u_2 \\ \vdots \\ u_n \end{bmatrix}, ~~ \mathbf{v} = \begin{bmatrix} v_1 \\ v_2 \\ \vdots \\ v_n \end{bmatrix} \]
\[ \mathbf{u} + \mathbf{v} = \begin{bmatrix} u_1 \\ u_2 \\ \vdots \\ u_n \end{bmatrix} + \begin{bmatrix} v_1 \\ v_2 \\ \vdots \\ v_n \end{bmatrix} =\begin{bmatrix} u_1 + v_1 \\ u_2 + v_2 \\ \vdots \\ u_n + v_n \end{bmatrix} \]
\[ \mathbf{u} + \mathbf{v} = \begin{bmatrix} 3 \\ 1 \\ -2 \\ 0 \end{bmatrix} + \begin{bmatrix} 4 \\ -4 \\ 3 \\ 1 \end{bmatrix} = ~~? \]
\[ \mathbf{u} + \mathbf{v} = \begin{bmatrix} 3 \\ 1 \\ -2 \\ 0 \end{bmatrix} + \begin{bmatrix} 4 \\ -4 \\ 3 \\ 1 \end{bmatrix} =\begin{bmatrix} 7 \\ -3 \\ 1 \\ 1 \end{bmatrix} \]
u <- c(3,1,-2,0)
plot(u)
v <- c(4,-4,3,1)
plot(v)
u <- c(3,1,-2,0)
plot(u,type="l",col="blue")
v <- c(4,-4,3,1)
plot(v,type="l",col="red")
\[ x \mathbf{u} = x \begin{bmatrix} u_1 \\ u_2 \\ \vdots \\ u_n \end{bmatrix} =\begin{bmatrix} x u_1 \\ x u_2 \\ \vdots \\ x u_n \end{bmatrix} \]
\[ 4 \mathbf{u} = 4 \begin{bmatrix} 3 \\ 1 \\ -2 \\ 0 \end{bmatrix} = ~~? \]
u <- c(3,1,-2,0)
plot(u)
\[ 4 \mathbf{u} = 4 \begin{bmatrix} 3 \\ 1 \\ -2 \\ 0 \end{bmatrix} =\begin{bmatrix} 12 \\ 4 \\ -8 \\ 0 \end{bmatrix} \]
v <- c(12,4,-8,0)
plot(v)
plot(u,type="l",col="blue")
plot(v,type="l",col="red")
\[ \mathbf{u} + x = \begin{bmatrix} u_1 \\ u_2 \\ \vdots \\ u_n \end{bmatrix} + x =\begin{bmatrix} u_1 + x \\ u_2 +x \\ \vdots \\ u_n +x \end{bmatrix} \]
\[ \begin{aligned} \mathbf{u} + x & = \begin{bmatrix} u_1 \\ u_2 \\ \vdots \\ u_n \end{bmatrix} + x = \begin{bmatrix} u_1 \\ u_2 \\ \vdots \\ u_n \end{bmatrix} + x \begin{bmatrix} 1 \\ 1 \\ \vdots \\ 1 \end{bmatrix} = \begin{bmatrix} u_1 \\ u_2 \\ \vdots \\ u_n \end{bmatrix} + \begin{bmatrix} x \\ x \\ \vdots \\ x \end{bmatrix} \\ \\ & =\begin{bmatrix} u_1 + x \\ u_2 +x \\ \vdots \\ u_n +x \end{bmatrix} \end{aligned} \]
\[ \mathbf{u} + x = \begin{bmatrix} 3 \\ 1 \\ -2 \\ 0 \end{bmatrix} + 4 = ~~? \]
\[ \mathbf{u} + x = \begin{bmatrix} 3 \\ 1 \\ -2 \\ 0 \end{bmatrix} + 4 =\begin{bmatrix} 7 \\ 5 \\ 2 \\ 4 \end{bmatrix} \]
u <- c(3,1,-2,0)
plot(u,type="l",col="blue")
v <- c(7,5,2,4)
plot(v,type="l",col="red")
u <- c(3, -1 , 2); v <- c(1, 6, 0); x <- 4
u
[1] 3 -1 2
v
[1] 1 6 0
u <- c(3, -1 , 2); v <- c(1, 6, 0); x <- 4
u + v
[1] 4 5 2
u + x
[1] 7 3 6
\[ \mathbf{u} + \mathbf{v} = \begin{bmatrix} u_1 \\ u_2 \\ u_3 \end{bmatrix} + \begin{bmatrix} v_1 \\ v_2 \end{bmatrix} = \mathrm{Dimension ~Error} \]
u <- c(1,1,1,1); v <- c(1,6)
u + v
[1] 2 7 2 7
\[ \begin{bmatrix} 1 \\ 1 \\ 1 \\ 1 \end{bmatrix} + \begin{bmatrix} 1 \\ 6 \end{bmatrix} = \mathrm{~Error} \]
u <- c(1,1,1,1); v <- c(1,6)
u + v
[1] 2 7 2 7
\[ \begin{bmatrix} 1 \\ 2 \\ 0 \end{bmatrix} + \begin{bmatrix} 3 \\ 6 \end{bmatrix} = \mathrm{~Error} \]
u <- c(1,2,0); v <- c(3,6)
u + v = ?
Your Answer Here!
\[ \begin{bmatrix} 1 \\ 2 \\ 0 \end{bmatrix} + \begin{bmatrix} 3 \\ 6 \end{bmatrix} = \mathrm{~Error} \]
u <- c(1,2,0); v <- c(3,6)
u + v
[1] 4 8 3
\[ \begin{bmatrix} 0 \\ 2 \\ 1 \end{bmatrix} + \begin{bmatrix} 3 \\ 6 \\ 4 \\ 10 \end{bmatrix} = \mathrm{~Error} \]
u <- c(0,2,1); v <- c(3,6,4,10)
u + v = ?
Your Answer Here!
\[ \begin{bmatrix} 0 \\ 2 \\ 1 \end{bmatrix} + \begin{bmatrix} 3 \\ 6 \\ 4 \\ 10 \end{bmatrix} = \mathrm{~Error} \]
u <- c(0,2,1); v <- c(3,6,4,10)
u + v
[1] 3 8 5 10
u <- c(1,1,1); v <- c(1,6)
u + v
[1] 2 7 2
u <- c(1,1,1); v <- c(1,6,0)
u + v
[1] 2 7 1
\[ \begin{bmatrix} a_{11} & a_{12} & \cdots & a_{1n} \\ a_{21} & a_{22} & \cdots & a_{2n} \\ \vdots & \vdots & \ddots & \vdots \\ a_{m1} & a_{m2} & \cdots & a_{mn} \\ \end{bmatrix} \]
u <- c(2,1,4,1,0,3)
(A <- matrix(u,3))
[,1] [,2]
[1,] 2 1
[2,] 1 0
[3,] 4 3