N:=10:

L:=[]:

for x1 to N do

for y1 from x1 to N do

for z1 from y1 to N do

for x2 to N do

for y2 to N do

for z2 to N do

a:=sqrt((x2-x1)^2+(y2-y1)^2+(z2-z1)^2):

if type(a, positive) and type(sqrt(x1^2+y1^2+z1^2)+ sqrt(x2^2+y2^2+z2^2)+a, integer) then L:=...

I want to make triangle oAB with the angle AoB equal to 2*Pi/3. The following code is not right.

> restart:

N:=10:

L:=[]:

for x1 to N do

for y1 from x1 to N do

 for z1 from y1 to N do

 for x2 to N do

 for y2 to N do

 for z2 to N do

 a:=sqrt(x1^2+y1^2+z1^2):

b:=sqrt(x2^2+y2^2+z2^2):

c:=sqrt(a^2+b^2-2*a*b*cos(2*Pi/3)):

In geom3d, how do i choose the coordinates of the vertices A, B, C of the triangle ABC so that perimeter of  triangle ABC is an integer? Please help me.

How do i find coordinates of the vertices of a square in Maple which coordinates of the vertices are integer numbers? Please help me. Thank you.

I want to find coordinates M of the bisector of the interior angle at the vertex A of the triangle ABC.

with(LinearAlgebra):

A:=<1,-1,-3>:

B:=<2,1,-2>:

C:=<-5,2,-6>:

CrossProduct(B-A,C-B);

M:=<x,y,z>:

AB:=Norm(B-A,2):

AC:=Norm(C-A,2):

k:=AB/AC: