rm WeaveSupport

quarto/derivatives/curve_sketching.qmd

@@ -14,19 +14,6 @@ using Roots
 using Polynomials # some name clash with SymPy
 ```
 
-```{julia}
-#| echo: false
-#| results: "hidden"
-using CalculusWithJulia.WeaveSupport
-
-fig_size=(800, 600)
-const frontmatter = (
-        title = "Curve Sketching",
-        description = "Calculus with Julia: Curve Sketching",
-        tags = ["CalculusWithJulia", "derivatives", "curve sketching"],
-);
-nothing
-```
 
 ---
 
@@ -611,4 +598,3 @@ choices = [
 answ = 1
 radioq(choices, answ)
 ```
-

quarto/derivatives/derivatives.qmd

@@ -15,17 +15,7 @@ using SymPy
 ```{julia}
 #| echo: false
 #| results: "hidden"
-using CalculusWithJulia.WeaveSupport
 using DataFrames
-
-const frontmatter = (
-        title = "Derivatives",
-        description = "Calculus with Julia: Derivatives",
-        tags = ["CalculusWithJulia", "derivatives", "derivatives"],
-);
-
-fig_size=(800, 600)
-
 nothing
 ```
 
@@ -1645,4 +1635,3 @@ The limit of a composition (under assumptions on ``v``):
 ]
 radioq(choices, 3, keep_order=true)
 ```
-

quarto/derivatives/first_second_derivatives.qmd

@@ -13,19 +13,6 @@ using SymPy
 using Roots
 ```
 
-```{julia}
-#| echo: false
-#| results: "hidden"
-using CalculusWithJulia.WeaveSupport
-
-const frontmatter = (
-        title = "The first and second derivatives",
-        description = "Calculus with Julia: The first and second derivatives",
-        tags = ["CalculusWithJulia", "derivatives", "the first and second derivatives"],
-);
-
-nothing
-```
 
 ---
 
@@ -1048,4 +1035,3 @@ choices = ["As ``x^3`` has no extrema at ``x=0``, neither will ``f``",
            "As ``x^4`` is of higher degree than ``x^3``, ``f`` will be ``U``-shaped, as ``x^4`` is."]
 radioq(choices, 1)
 ```
-

quarto/derivatives/implicit_differentiation.qmd

@@ -13,18 +13,6 @@ using Roots
 using SymPy
 ```
 
-```{julia}
-#| echo: false
-#| results: "hidden"
-using CalculusWithJulia.WeaveSupport
-
-const frontmatter = (
-        title = "Implicit Differentiation",
-        description = "Calculus with Julia: Implicit Differentiation",
-        tags = ["CalculusWithJulia", "derivatives", "implicit differentiation"],
-);
-nothing
-```
 
 ---
 

quarto/derivatives/lhospitals_rule.qmd

@@ -13,21 +13,6 @@ using SymPy
 
 ```
 
-```{julia}
-#| echo: false
-#| results: "hidden"
-using CalculusWithJulia.WeaveSupport
-using Roots
-
-fig_size=(800, 600)
-const frontmatter = (
-        title = "L'Hospital's Rule",
-        description = "Calculus with Julia: L'Hospital's Rule",
-        tags = ["CalculusWithJulia", "derivatives", "l'hospital's rule"],
-);
-
-nothing
-```
 
 ---
 
@@ -259,6 +244,7 @@ A first proof of L'Hospital's rule takes advantage of Cauchy's [generalization](
 ```{julia}
 #| echo: false
 #| cache: true
+using Roots
 let
 ## {{{lhopitals_picture}}}
 
@@ -836,4 +822,3 @@ choices = [
 answ = 1
 radioq(choices, answ)
 ```
-

quarto/derivatives/linearization.qmd

@@ -14,19 +14,6 @@ using TaylorSeries
 using DualNumbers
 ```
 
-```{julia}
-#| echo: false
-#| results: "hidden"
-using CalculusWithJulia.WeaveSupport
-
-const frontmatter = (
-        title = "Linearization",
-        description = "Calculus with Julia: Linearization",
-        tags = ["CalculusWithJulia", "derivatives", "linearization"],
-);
-
-nothing
-```
 
 ---
 
@@ -861,4 +848,3 @@ n=100
 val = exp(-n*(n-1)/2/365)
 numericq(val, 1e-2)
 ```
-

quarto/derivatives/mean_value_theorem.qmd

@@ -16,18 +16,8 @@ using Roots
 ```{julia}
 #| echo: false
 #| results: "hidden"
-using CalculusWithJulia.WeaveSupport
 using Printf
 using SymPy
-
-fig_size = (800, 600)
-
-const frontmatter = (
-        title = "The mean value theorem for differentiable functions.",
-        description = "Calculus with Julia: The mean value theorem for differentiable functions.",
-        tags = ["CalculusWithJulia", "derivatives", "the mean value theorem for differentiable functions."],
-);
-
 nothing
 ```
 
@@ -707,4 +697,3 @@ L"The squeeze theorem applies, as $0 < g(x) < x$",
 answ = 3
 radioq(choices, answ)
 ```
-

quarto/derivatives/more_zeros.qmd

@@ -14,19 +14,6 @@ using Roots
 using SymPy
 ```
 
-```{julia}
-#| echo: false
-#| results: "hidden"
-using CalculusWithJulia.WeaveSupport
-const frontmatter = (
-        title = "Derivative-free alternatives to Newton's method",
-        description = "Calculus with Julia: Derivative-free alternatives to Newton's method",
-        tags = ["CalculusWithJulia", "derivatives", "derivative-free alternatives to newton's method"],
-);
-
-nothing
-```
-
 ---
 
 
@@ -614,4 +601,3 @@ choices = [
 answ = 3
 radioq(choices, answ, keep_order=true)
 ```
-

quarto/derivatives/newtons_method.qmd

@@ -13,20 +13,6 @@ using SymPy
 using Roots
 ```
 
-```{julia}
-#| echo: false
-#| results: "hidden"
-using CalculusWithJulia.WeaveSupport
-
-fig_size = (800, 600)
-const frontmatter = (
-        title = "Newton's method",
-        description = "Calculus with Julia: Newton's method",
-        tags = ["CalculusWithJulia", "derivatives", "newton's method"],
-);
-
-nothing
-```
 
 ---
 

quarto/derivatives/numeric_derivatives.qmd

@@ -14,18 +14,6 @@ using SymPy
 using Roots
 ```
 
-```{julia}
-#| echo: false
-#| results: "hidden"
-using CalculusWithJulia.WeaveSupport
-
-const frontmatter = (
-        title = "Numeric derivatives",
-        description = "Calculus with Julia: Numeric derivatives",
-        tags = ["CalculusWithJulia", "derivatives", "numeric derivatives"],
-);
-nothing
-```
 
 ---
 
@@ -383,4 +371,3 @@ fp_(h) = 3*32h^2 - 62
 c = 2
 numericq(fp_(2))
 ```
-

quarto/derivatives/optimization.qmd

@@ -13,20 +13,6 @@ using Roots
 using SymPy
 ```
 
-```{julia}
-#| echo: false
-#| results: "hidden"
-using CalculusWithJulia.WeaveSupport
-
-fig_size = (800, 600)
-frontmatter = (
-    title = "Optimization",
-    description = "Calculus with Julia: Optimization",
-    tags = ["CalculusWithJulia", "derivatives", "optimization"],
-);
-
-nothing
-```
 
 ---
 
@@ -1478,4 +1464,3 @@ d(a) = (a-x(a))^2 + (a^2 - x(a)^2)^2
 a = find_zero(d', 1)
 numericq(a)
 ```
-

quarto/derivatives/related_rates.qmd

@@ -13,19 +13,6 @@ using Roots
 using SymPy
 ```
 
-```{julia}
-#| echo: false
-#| results: "hidden"
-using CalculusWithJulia.WeaveSupport
-
-fig_size=(800, 600)
-const frontmatter = (
-        title = "Related rates",
-        description = "Calculus with Julia: Related rates",
-        tags = ["CalculusWithJulia", "derivatives", "related rates"],
-);
-nothing
-```
 
 ---
 
@@ -814,4 +801,3 @@ choices = [
 answ=1
 radioq(choices, answ)
 ```
-

quarto/derivatives/taylor_series_polynomials.qmd

@@ -16,15 +16,7 @@ using Unitful
 ```{julia}
 #| echo: false
 #| results: "hidden"
-using CalculusWithJulia.WeaveSupport
 using Roots
-
-fig_size = (800, 600)
-const frontmatter = (
-        title = "Taylor Polynomials and other Approximating Polynomials",
-        description = "Calculus with Julia: Taylor Polynomials and other Approximating Polynomials",
-        tags = ["CalculusWithJulia", "derivatives", "taylor polynomials and other approximating polynomials"],
-);
 nothing
 ```
 
@@ -1259,5 +1251,3 @@ scatter!(cps, h1.(cps), markersize=5, marker=:square)
 ```
 
 Again by Rolle's theorem, between any pair of adjacent zeros $\xi^1_i, \xi^1_{i+1}$ there must be a zero $\xi^2_i$ of $h''(x)$. So there are $n-1$ zeros of $h''(x)$. Continuing, we see that there will be $n+1-3$ zeros of $h^{(3)}(x)$, $n+1-4$ zeros of $h^{4}(x)$, $\dots$, $n+1-(n-1)$ zeros of $h^{n-1}(x)$, and finally $n+1-n$ ($1$) zeros of $h^{(n)}(x)$. Call this last zero $\xi$. It satisfies $x_0 \leq \xi \leq x_n$. Further, $0 = h^{(n)}(\xi) = f^{(n)}(\xi)  - g^{(n)}(\xi)$. But $g$ is a degree $n$ polynomial, so the $n$th derivative is the coefficient of $x^n$ times $n!$. In this case we have $0 = f^{(n)}(\xi) - f[x_0, \dots, x_n] n!$. Rearranging yields the result.
-
-