#+header-args: :cache yes :session power
(import (scheme base))
(define *btu-per-watt* (/ 3412 1000))
(define *watt-per-btu* (/ 1 *btu-per-watt*))
`(()
(btu watt)
()
(1 ,(string-copy (number->string (exact->inexact *watt-per-btu*))
0 5))
(,(number->string (exact->inexact *btu-per-watt*)) 1)
())
btu | watt |
---|---|
1 | 0.293 |
3.412 | 1 |
Data sourced from the U.S. Energy Information Administration. Rougly 92.94 quadrillion BTU.
(define *us-energy-consumption*
(* 9294/100
1000 1000 1000 1000))
*us-energy-consumption*
92940000000000
<<units>>
<<us-energy-consumption>>
(define *usec-watt* (* *us-energy-consumption* *watt-per-btu*))
(round *usec-watt*)
27239155920281
<<usec-watt>>
(round (/ *usec-watt*
(* 1000 1000 1000 1000)))
27
Also per the EIA, renewables made up about 11,59 quadrillion BTU of the U.S. expenditures in 2020.
<<units>>
(round (* 1159/100 *watt-per-btu*))
3