LA17) 직교(orthogonal),직교여공간(orthogonal complement)

#R코드를 첨부하겠다.
> f <- function(x) 3*exp(-x)
> g <- function(x) x^7 +5*x^6 +4*x -10
> h <- function(x) log(3*x)^2
> library(pracma)
> integral(fun =function(x) f(x)*g(x),xmin = 0,xmax = 1)
[1] -14.73875
> integral(fun =function(x) g(x)*h(x),xmin = 0,xmax = 1)
[1] -8.093073
> integral(fun =function(x) f(x)*h(x),xmin = 0,xmax = 1)
[1] 2.385164