Re: Is it doable in Mathematica? How?
- To: mathgroup at smc.vnet.net
- Subject: [mg39734] Re: [mg39704] Is it doable in Mathematica? How?
- From: Sseziwa Mukasa <mukasa at jeol.com>
- Date: Mon, 3 Mar 2003 23:51:30 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
On Monday, March 3, 2003, at 04:25 AM, Konrad Den Ende 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?
>
>
generatetruthtable[numvars_Integer, expr_] :=
TableForm[Table[Block[{tvalues = IntegerDigits[i,
2, numvars] /. {1 ->True, 0 ->False}}, Append[tvalues, expr @@
tvalues]], {i, 0, 2\^numvars - 1}], TableHeadings ->
{None,
Append[Table["v" <> ToString[i], {
i, numvars}], ToString[Part[expr, 1]]]}]
Try generatetruthtable[3, #1 && #2 && #3 &] to get A&&B&&C.
Regards,
Sseziwa