Re: Wahrheitswerte

[Jens-Peer Kuska <kuska@XXXXXXX.de>]

Hallo,

man kann ja auch nicht von True bis False z"ahlen oder ist
von False bis True richtig, ist True+1==False oder True+1==True ?
Egal, die einfache Variante w"are

Flatten[
  Table[
    {p, n, m} = If[0 == #, False, True] & /@ {i, j, k};
    {p, m, n, p == ! m && m == ! n && n == (! m && ! p)}, 
    {k, 0, 1}, 
    {j, 0, 1}, 
    {i, 0, 1}
   ], 
 2] // TableForm

die delux Ausf"uhrung

Prepend[
  Flatten[
    Table[
      {p, n, m} = If[0 == #, False, True] & /@ {i, j, k};
      {p, m, n, p == ! m && m == ! n && n == (! m && ! p)}, 
      {k, 0, 1}, 
      {j, 0, 1}, 
      {i, 0, 1}
     ], 
   2], 
  {
    HoldForm[p], 
    HoldForm[m], 
    HoldForm[n], 
    HoldForm[p == ! m && m == ! n && n == (! m && ! p)]
   }
 ] // GridBox[#, RowLines -> True, ColumnLines -> True, GridFrame ->
True] & // 
DisplayForm

Gruss
  Jens

Michael Suesserott wrote:
> 
> Hallo!
> 
> Wie kann man für folgende Aussage:
> 
> p==!m  &&  m==!n  &&  n==(!m && !p)
> 
> folgende Wahrheitstafel erzeugen?
> 
>  p    m    n    Aussage
>  0    0    0      0
>  0    0    1      0
>  0    1    0      1
>  0    1    1      0
>  1    0    0      0
>  1    0    1      0
>  1    1    0      0
>  1    1    1      0
> 
> Schleifen mit True/False-Laufindex scheinen nicht zu funktionieren.
> 
> Danke, Michael Suesserott