n = 3

v = 2*pi/n

distance_x = 1-cos(v)

distance_y = -sin(v)

grundflade = (distance_x^2+distance_y^2)^(1/2)


cirkel_vek = seq(0, 2*pi, 0.1)

x_vek = cos(cirkel_vek)

y_vek = sin(cirkel_vek)

c_vek_linje = seq(0, 2*pi, v)

x_vek_linje = cos(c_vek_linje)

y_vek_linje = sin(c_vek_linje)

plot(x_vek, y_vek, col = "red")

trekant_areal = grundflade*(x_vek_linje[1]-x_vek_linje[2])/2

print(trekant_areal)

cirkel_areal = 1^2*pi

procent_areal = trekant_areal/cirkel_areal*100

print(procent_areal)


for(i in 1:length(c_vek_linje)){

  arrows(0, 0, x_vek_linje[i], y_vek_linje[i], length = 0.01, col="green")

}


for(i in 2:length(c_vek_linje)){

  arrows(x_vek_linje[i-1], y_vek_linje[i-1], x_vek_linje[i], y_vek_linje[i], length = 0.01, col="blue")

}