Re: Wahrheitswerte

[Wouter Meeussen <eu000949@XXXXXXX.be>]

At 17:13 19/07/00 +0200, 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
>
>

Wie Thomas Hahn, schöner etwa :

In[42]:=
Aus[p_, m_, n_] := p == ! m && m == ! n && n == (! m && ! p)

In[45]:=
(Flatten[
        Outer[{#1, #2, #3, Aus[#1, #2, #3]} &, {False, True}, {False, 
              True}, {False, True}],
          2] /. {True -> 1, False -> 0})~
    Prepend~{p, m, n, Aussage} // ColumnForm

Out[45]=
{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}

Dr. Wouter L. J. MEEUSSEN
w.meeussen.vdmcc@XXXXXXX.be
eu000949@XXXXXXX.be