|
553 | 553 | "}\n", |
554 | 554 | "\n", |
555 | 555 | "## Construct the data frame.\n", |
556 | | - "df19= data.frame(x = seq(-20,20))\n", |
| 556 | + "df19= data.frame(x = seq(-20,20,by=0.1))\n", |
557 | 557 | "df19$y = k(df19$x) ## Call g(x) with the vector df2$x\n", |
558 | 558 | "\n", |
559 | 559 | "## data frames to marker points\n", |
560 | | - "df20 = data.frame(x = c(-15, -10, -5, 0, 4, 6, 10, 15, 20))\n", |
| 560 | + "df20 = data.frame(x = c(-15, -10, -5, 0, 0.001, 6, 10, 15, 20))\n", |
561 | 561 | "df20$y = k(df20$x)\n", |
562 | | - "df21 = data.frame(x = 5, y = k(5))\n", |
| 562 | + "df21 = data.frame(x = c(0,0), y = k(c(0.0,0.01)))\n", |
563 | 563 | "\n", |
564 | 564 | "## Make the plot\n", |
565 | 565 | "ggplot(df19, aes(x,y)) + geom_line(color = 'green', size = 1) +\n", |
|
576 | 576 | "cell_type": "markdown", |
577 | 577 | "metadata": {}, |
578 | 578 | "source": [ |
579 | | - "The plot of the function shows a line in which the *c(x)* value increases towards 25 as *x* approaches 5 from the negative side:\n", |
| 579 | + "The plot of the function shows a line in which the *c(x)* value increases towards 20 as *x* approaches 0 from the negative side:\n", |
580 | 580 | "\n", |
581 | | - "\\begin{equation}\\lim_{x \\to 5^{-}} c(x) = 25 \\end{equation}\n", |
| 581 | + "\\begin{equation}\\lim_{x \\to 0^{-}} c(x) = 20 \\end{equation}\n", |
582 | 582 | "\n", |
583 | | - "However, the *c(x)* value decreases towards -95 as *x* approaches 5 from the positive side:\n", |
| 583 | + "However, the *c(x)* value decreases towards -100 as *x* approaches 0 from the positive side:\n", |
584 | 584 | "\n", |
585 | | - "\\begin{equation}\\lim_{x \\to 5^{+}} c(x) = -95 \\end{equation}\n", |
| 585 | + "\\begin{equation}\\lim_{x \\to 0^{+}} c(x) = -100 \\end{equation}\n", |
586 | 586 | "\n", |
587 | 587 | "So what can we say about the two-sided limit of this function at x = 0?\n", |
588 | 588 | "\n", |
589 | | - "The limit as we approach x = 5 from the negative side is *not* equal to the limit as we approach x = 5 from the positive side, so no two-sided limit exists for this function at that point:\n", |
| 589 | + "The limit as we approach x = 0 from the negative side is *not* equal to the limit as we approach x = 0 from the positive side, so no two-sided limit exists for this function at that point:\n", |
590 | 590 | "\n", |
591 | | - "\\begin{equation}\\lim_{x \\to 5} \\text{does not exist} \\end{equation}" |
| 591 | + "\\begin{equation}\\lim_{x \\to 0} \\text{does not exist} \\end{equation}" |
592 | 592 | ] |
593 | 593 | }, |
594 | 594 | { |
|
1122 | 1122 | "mimetype": "text/x-r-source", |
1123 | 1123 | "name": "R", |
1124 | 1124 | "pygments_lexer": "r", |
1125 | | - "version": "3.6.0" |
| 1125 | + "version": "3.6.3" |
1126 | 1126 | } |
1127 | 1127 | }, |
1128 | 1128 | "nbformat": 4, |
|
0 commit comments