restart;
with(geometry):
with(plots):
_EnvHorizontalName = 'x':
_EnvVerticalName = 'y':
Vdot := proc(U, V) local i; add(U[i]*V[i], i = 1 .. 2); end proc:
R := 5:
ang := [2/3*Pi, -3*Pi*1/4, -Pi*1/6]:
seq(point(`||`(P, i), [R*cos(ang[i]), R*sin(ang[i])]), i = 1 .. 3):
seq(dsegment(`||`(seg, i), [`||`(P, i), `||`(P, irem(i, 3) + 1)]), i = 1 .. 3):
circle(cir, [point(OO, [0, 0]), R]):
dist := proc(M, N) sqrt(Vdot(M - N, M - N)); end proc:
display*([draw*[P1(color = black, symbol = solidcircle, symbolsize = 12),
P2(color = black, symbol = solidcircle, symbolsize = 12),
P3(color = black, symbol = solidcircle, symbolsize = 12),
cir(color = blue)],
textplot*([[coordinates(P1)[], "P1"],
[coordinates(P2)[], "P2"],
[coordinates(P3)[], "P3"]], align = [above, right])], axes = none);
/[
plots:-display |[geometry:-draw [
\[
P1(color = black, symbol = solidcircle, symbolsize = 12),
P2(color = black, symbol = solidcircle, symbolsize = 12),
P3(color = black, symbol = solidcircle, symbolsize = 12),
/[[-5 5 (1/2) ]
cir(color = blue)], plots:-textplot |[[--, - 3 , "P1"],
\[[2 2 ]
[ 5 (1/2) 5 (1/2) ] [5 (1/2) -5 ]]
[- - 2 , - - 2 , "P2"], [- 3 , --, "P3"]],
[ 2 2 ] [2 2 ]]
\] \
align = [above, right]|], axes = none|
/] /
no figure drawn, Why? Thank you