Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11) Software Libre para la Enseñanza y el Aprendizaje de las Matemáticas (2010-11)

Enunciado Calcular el área de un triángulo y el baricentro de un conjunto de puntos de R2 , dados. Además, si los puntos son colineales, devuelve el mensaje: Los puntos son colineales.

---

Solución (Máximo García Márquez)

(%i59)

      triangulo(pts) :=
      block([f : lambda([h], endcons(1, h)), pts1, M, d, a],
      pts1 : map(f, pts),
      M : apply(matrix, pts1),
      d : determinant(M),
      a : abs(d/2),
      if d = 0 then string("Los puntos son colineales")
      else
      (b : apply("+", pts)/3,
      [sconcat(Area," : ", a,"", u^2),
      sconcat(Baricentro," : ",b)])
      ) $

(%i60)

      p : [ [1,2], [3,-1], [2,3] ] $

(%i61)

      triangulo(p);

(%o61)

      ["Area : 5/2u^2","Baricentro : [2,4/3]"]

---

(%i41)

      p : [ [1; 1]; [2; 2]; [3; 3] ] $

(%i42)

     triangulo(p);

(%o42)

     Los puntos son colineales