Advanced Search

Question: Create a triangle with its sides

Question:Create a triangle with its sides

toandhsp 305
September 15 2012
0

I want to make a triangle with its sides: 3, 4, 5. My code can not  run. Please help me. 

> restart:

ListTools[Categorize]:

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((x2-x1)^2 + (y2-y1)^2 + (z2-z1)^2):

if a = 3 and b = 4  and c = 5 then L:=[op(L), [[0, 0, 0], [x1, y1, z1], [x2, y2, z2]]]: fi:

od: od: od: od: od: od:

nops(L);

L;

L[10];

 
Please Wait...