Re: Pascal's Triangle
- To: mathgroup at smc.vnet.net
- Subject: [mg37356] Re: Pascal's Triangle
- From: "Borut L" <gollum at email.si>
- Date: Fri, 25 Oct 2002 02:46:40 -0400 (EDT)
- References: <ap86hf$554$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Helo,
I should thank you for this pleasent mind excercise, though not tough, it
was just basic geometry.
$TextStyle={FontFamily->Verdana,FontSize->10};
(* first create a basic object, a colored triangle with text inscribed, note
that the height of the triangle is a unit *)
Triangle[j_,i_]:=
Module[
{
x0=(i-.5 j)2/Sqrt[3],y0=-j,a=2/Sqrt[3]
},
{
If[EvenQ[Binomial[j,i]],Hue[0,.5,1],Hue[.55,.5,1]],
Polygon[{{x0,y0},{x0-.5 a,y0-1},{x0+.5 a,y0-1}}],
GrayLevel[0],Text[ToString[Binomial[j,i]],{x0,y0-.5},{0,1}]
}
]
(* the following command will show the agglomerate, note that it doesn't
draw each of the triangles having no text, instead it draws a big triagle as
a background and puts the numbered ones onto it *)
ShowBigTriangle[jmax_]:=
Show[
Graphics[
Prepend[
Table[Triangle[j,i],{j,0,jmax},{i,0,j}],
{Hue[0,.5,1],
Polygon[{{0,0},{-(jmax+1)/Sqrt[3],-(jmax+1)},{(jmax+1)/Sqrt[3],-(jmax+1)}}]}
]
]
,AspectRatio->Automatic
]
ShowBigTriangle[33]//Timing
(1.3 sec on my P2-350, how's your timming?)
p.s. : According to S. Wolfram and his new kind of science, the solution to
your problem is just a simple program. He ilustrates this in 2nd Chapter. It
may be worthy to take a peak.
Bye,
Borut
"Al Mannon" <almannon at attbi.com> wrote in message
news:ap86hf$554$1 at smc.vnet.net...
| I want to write a program that will create an array of equilateral
triangles
| such that in the first row there is 1 triangle, in the second row there is
3
| triangles, in the third row there will be 5 triangles...in the nth row
there
| will be 2n - 1 triangles. Putting all of these triangles together and
| calling the first row, row 0, we would have a large triangle with n + 1
rows
| along the side of the large triangle and 2n - 1 columns along the base of
| the triangle.
|
| This would be phase one of the project.
|
| Phase 2: Fill in the binomial coefficients into the triangle.
| Phase 3: Color all odd numbered triangles blue.
| Phase 4: Color all even numbered triangles red.
| Phase 5: Any triangle that shares an edge with a red triangle, color red.
|
| The result is Zierpinski's Triangle! I have done this by hand for a
triangle
| with 16 rows. Needless to say the work was tedious. The result, however,
is
| quite satisfying and remarkable. I would like to be able to use this as a
| tool to teach some of the other derivations that are possible from
Pascal's
| triangle other than binomial coefficients and combinations. Therefore it
| would be beneficial to be able to reproduce this work at will.
|
| Since my Mathematica programming skills are practically nil, any help
would
| be appreciated.
|
| I can be reached directly by electronic mail by deleting "the" in the
| following:
|
| althemannon at attbi.com
|
|