Calculadora Binomial

Un simple script en Mathematica que calcula la "Distribución Binomial", básica la sumatoria aún no esta terminada. 



Panel[DynamicModule[{r = (n1!/(x1! (n1 - x1)!)*(p1^x1) (q1^(n1 - x1))),
   n1 = 1, x1 = 1, p1 = 1, q1 = 1},
  Panel[Grid[{{Style["Distribución Binomial", Bold],
      SpanFromLeft}, {Grid[{{"Escribe N:",
         InputField[Dynamic[n1], FieldSize -> 4], "Escribe X",
         InputField[Dynamic[x1], FieldSize -> 4]}, {"Valor de P:",
         InputField[Dynamic[p1], FieldSize -> 4], "Valor de Q:",
         InputField[Dynamic[q1], FieldSize -> 4]}, {"Resultado:",
         InputField[Dynamic[r], FieldSize -> 6]}}]}}]]]]