Re: Is it doable in Mathematica? How?
- To: mathgroup at smc.vnet.net
- Subject: [mg39719] Re: [mg39704] Is it doable in Mathematica? How?
- From: Helge Andersson <helge at envic.chalmers.se>
- Date: Mon, 3 Mar 2003 23:48:57 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
Konrad,
Use ReplaceAll and Rule to a table of zeros and ones. Here is an example of
your first example.
tab=Flatten[Table[{i,j,k},{i,0,1},{j,0,1},{k,0,1}],2]/.{0->False,1->True};
och=And[Evaluate[Sequence@@tab[[#]]]]&/@Range[Length[tab]];
eller=Or[Evaluate[Sequence@@tab[[#]]]]&/@Range[Length[tab]];
TableForm[Fold[Append,Transpose[tab],{{},och,eller}],TableHeadings->{{"A","B","C","
","And","Or"},Range[Length[tab]]}]
/Helge Andersson
Chalmers
Sweden
At 04:25 2003-03-03 -0500, you wrote:
>I'd like to create a truth table for, say, A, B and C, as
>well as two different expression, say, A&&B&&C and
>(A||B) -> C. How do i go about that?
>
>I have tried Table, but since True/False are not allowed
>there i got stuck. The help in Mathematica was of little
>help in this case. Any hints or suggestions?
>
>--
>
>Vänligen
>Konrad
>---------------------------------------------------
>phone #1: (+46/0) 708 - 70 73 92
>phone #2: (+46/0) 704 - 79 96 95
>url: http://konrads.webbsida.com
>e-mail: chamsterkonrad at bigfoot.com
>-----------------------------------
>
>Sleep - thing used by ineffective people
> as a substitute for coffee
>
>Ambition - a poor excuse for not having
> enough sence to be lazy
>---------------------------------------------------