用R语言写一个函数: regular_polygon(n, x, y, col, border), 能绘制出正n边形, 且多边形中心默认在原点, 通过col和border可以设置正多边形内部和边框的颜色
时间: 2023-06-23 13:09:40 浏览: 56
以下是使用R语言编写的函数 `regular_polygon()`:
```r
regular_polygon <- function(n, x=0, y=0, col="black", border="white") {
angles <- seq(0, 2*pi, length.out = n+1)[-1]
vertices <- cbind(x + cos(angles), y + sin(angles))
polygon(vertices, col=col, border=border)
}
```
这个函数接受五个参数:
- `n`: 正多边形的边数
- `x`: 多边形中心的x坐标,默认为0
- `y`: 多边形中心的y坐标,默认为0
- `col`: 多边形内部的颜色,默认为黑色
- `border`: 多边形边框的颜色,默认为白色
该函数首先计算出正n边形各个顶点的坐标,然后使用 `polygon()` 函数绘制出多边形。`polygon()` 函数会自动将第一个顶点和最后一个顶点相连,因此在计算顶点坐标时,需要在正n边形的角度序列中去掉第一个元素。
例如,要绘制一个红色的边框、蓝色的内部的正五边形,可以这样调用 `regular_polygon()` 函数:
```r
regular_polygon(n=5, col="blue", border="red")
```
相关问题
写一个函数: regular_polygon(n, x, y, col, border), 能绘制出正n边形, 且多边形中心默认在原点, 通过col和border可以设置正多边形内部和边框的颜色,在调用画出图形
下面是使用Python的turtle库实现的代码:
```python
import turtle
def regular_polygon(n, x, y, col, border):
turtle.penup()
turtle.goto(x, y)
turtle.pendown()
turtle.fillcolor(col)
turtle.begin_fill()
for i in range(n):
turtle.forward(100)
turtle.right(360 / n)
turtle.end_fill()
turtle.pencolor(border)
for i in range(n):
turtle.forward(100)
turtle.right(360 / n)
turtle.done()
# 测试代码
regular_polygon(5, 0, 0, 'red', 'blue')
```
函数接受五个参数,分别为多边形边数n、中心点坐标x和y、内部填充颜色col、边框颜色border。
在函数内部,我们使用turtle库来绘制多边形。首先把画笔移动到中心点,然后开始填充内部颜色,接着绘制多边形的边界。
最后,我们调用turtle.done()函数来保持窗口打开状态,直到手动关闭。测试代码中,我们绘制了一个5边形,并设置了红色填充和蓝色边框。
用R语言写一个函数: f_area(f, interval), 能绘制出一个连续函数下方的面积图像, 参数interval代表了自变量的取值区间
以下是用R语言实现的函数f_area(f, interval),用于绘制一个连续函数下方的面积图像:
```r
f_area <- function(f, interval) {
x <- seq(interval[1], interval[2], length.out = 1000) # 生成自变量取值序列
y <- f(x) # 根据自变量取值序列计算因变量取值序列
plot(x, y, type = "l", xlab = "x", ylab = "y") # 绘制连续函数的图像
polygon(c(x, rev(x)), c(y, rep(0, length(y))), col = "gray90") # 绘制下方面积的多边形
}
```
其中,参数f表示连续函数,可以是一个R语言函数或表达式;参数interval是一个包含两个元素的向量,分别表示自变量的取值区间的起点和终点。
函数首先在自变量取值区间内生成一组等距的自变量取值序列x,然后计算出对应的因变量取值序列y,并用plot函数绘制连续函数的图像。最后,函数使用polygon函数绘制下方面积的多边形,并给多边形填充灰色。
相关推荐
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![zip](https://img-home.csdnimg.cn/images/20210720083736.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)
![](https://csdnimg.cn/download_wenku/file_type_ask_c1.png)