Merlin
So you try to confuse me with fiction he, Watch and wonder as the Confusee confuses the confuser using merely the facts.(and maybe some brackets.)
Let's Start at the Start, (for as I say (and say Well) I am using nought but Facts and Brackets, (Starting at the end would be unnecessery(and unfair))) Think of 2 boxes, each with lots of apples in them, your job is to check that both boxes have the same number of apples in them, you have 2 empty boxes to aid you. What's the best way of checking. Easy, you take one apple from each box and put it into one of the other boxes, making sure all the apples from one box go into one empty box and all the apples in the other go into the other. You keep doing this one pair of apples at a time until one box runs out of apples, if there are the same number of apples in each box then both boxes will be empty, if there are not the same number in each box then one of the boxes will have some left over. and vice versa.
What did we actually do here, we proved that if we have2 sets of objects and we can match each object in set A with a unique object in set B with none left over Then Set A and Set B have the Same number of Things in them, or more usefully.
2 Sets A and B have the same order(number of elements) iff each member of Set A can be mached with a unique element of set B and each element in set B an be matched with a unique element in set A Hope you're with me so far, this is the easy bit.
Now Let's imagine 2 Sets with an infinite number of elements, let's say the Set of Natrual Numbers(1,2,3,4,....) (call this N) And The Set Of Even Numbers,(2,4,6,8,....) (Call This E) Which has More elements? E you Cry E, But Let's Put this to Our Test,
Every Element In N Can Be Matched With A Unique Element in E, and Every Element in E can be Matched with a unique Element in N. (1,2) (2,4) (3,6), .... (N,2N).
What About Fractions, Surely There Are More Fractions than Whole Numbers,
Every whole Number Definatly Matches With a Fraction, a whole number N Matches With N/1.
But What about Matching the Fractions With whole Numbers
Let's write Some Code
If We Pretend There's not Going to be an Overflow Error when VB runs out of integers, then Ther is No Fraction We Won't Get Eventually Matched up to a unique whole Number.Code:Public Sub ListFractions()
Dim i As Integer
Dim j As Integer
Dim n As Integer
i = 2
n = 2
MsgBox "1/1 Matches With 1"
Do While True
For j = 1 To i - 1
MsgBox j & "/" & i & " Matches With " & n
n = n + 1
MsgBox i & "/" & j & " Matches With " & n
n = n + 1
Next j
MsgBox i & "/" & i & " Matches With " & n
n = n + 1
i = i + 1
Loop
End Sub
So there are the Same Amount of Whole Numbers as there are Fractions.
There aren't very many numbers left, How about Irrational Numbers, These are numbers that Can't be expressed as Fractions, They are infinite Strings of Decimals that go on forever without Repeating, like pi or sqr(2). Are there more of These than there are Whole Numbers?
[you - No, I'm Sensing a pattern here, you're going to find a clever way of listing them all]
[Me - Wrong , Ha Ha Ha Fooled You, There's no way of listing them all]
[you - Proove it]
[me - I'm glad you asked]
Imagine I found a way of listing all the irrational numbers between 0 and 1.
OK, now I'm going to think of one that's not on the list, take the first digit of the first number(4) and add 1(5) now take the second digit of the Second number (9) and add 1, in this case it's 10 so we'll make it 0, then the 3rd digit of the 3rd number and keep going for all the numbers on the list (you won't reach the end of the list but there's an infinite number of digits so we can match each digit with a number on our list.Code:1 - 0.45789274894209347207937394720......
2 - 0.89024652934520349572034572394......
3 - 0.03462945239475620873456023456......
4 - 0.34987234785203456238452346529......
5 - 0.34753745629834562934759232373......
etc
so we get the number 0.50594........
it's not the first number because the first digit is different, it's not the second number because the second digit is different, it's not the 3rd number because the third digit is different, and so on all down the list.
So whatever way you find of listing the irrational numbers I can show you a number you've missed out. So there are more irrational numbers than whole numbers.
So What about the Numbers between 0 and 1 and all Numbers(Rational and Irrational (including -ve ones) Are there more irrational Numbers in total than there are between 0 and 1
Of Course, take any number between 0 and 1, subtract 0.5
take the inverse and then if it's +ve subtract one, if it's -ve add one, there we go, every real number has a unique partner between 0 and 1. and Vice Versa.
Now, Any Point on a line Can be Identified by a Number the Distance From it's end, Or the Distace Form a particular point if it's infintely long. So the number of points on a line Is always the Same, No matter How Long it is.
A Line is a one Dimension al Space. I Can't remember the proof but there are more points on a plane than there are in a line, In Fact.
There are more points in an x dimensional Space than there are in a y dimensional space iff x>y
It can also be shown that
any 2 x Dimensional Spaces Contain the same number of points and for any 2 spaces containing the same number of points if one is x dimensional so is the other
Now we've got that sorted (there'll be proofs somewhere on the web if you're desperate) we can Go on to what a Dimension is.
Take an X Dimensional Object, transform it so that you can split it up into n Equal sized pieces all the same shape as the original (for example a square can be split up into four smaller squares.
Now, Measure the length of one of the Sides of these objects (If it's a square take one of the sides, a cube one of the edges etc) find the ratio of the same length on the original shape / the new length
Eg if you split a square into 4 small squares the original sides will be twice the length
so for the squares the ratio of the sides is 2 and the shape was divided into 4 pieces
. take natrual logs of both sides and divide the 2 to get the number of Dimensions
Code:NumberOfDimensions = Log(NumberOfPieces) / Log(RatioOfLengths)
This Is How We Define Dimensions
OK, That's Enough BackGround, Let's Look at Fractals and Why They're nothing like the universe.
Let's look at a very simple fractal, A Spvenski Gasket (I don't know If I spelt it right)
Start a new project, Add a little Command button to your form, and a Text Box, set the AutoRedraw Property to true and text1.Text to 5
now add thisHit the CommandButton, and You Get a Gasket, If you wanna make the form big you can increce the number in the Text box for more detail.Code:Option Explicit
Private Sub DrawGasket(x1 As Single, y1 As Single, theta As Single, Length As Single, depth As Single)
Dim x2 As Single
Dim y2 As Single
x2 = x1 + (Length * Cos(theta))
y2 = y1 - (Length * Sin(theta))
Form1.Refresh
DoEvents
If depth = 0 Then
Form1.Line (x1, y1)-(x2, y2)
Else
Call DrawGasket(x1, y1, theta, Length / 3, depth - 1)
Call DrawGasket(x1, y1, theta + 1.0471975511966, Length / 3, depth - 1)
Call DrawGasket(x1, y1, theta - 1.0471975511966, Length / 3, depth - 1)
Call DrawGasket(x1, y1, theta, Length / 3, depth - 1)
End If
x1 = x2
y1 = y2
End Sub
Private Sub Command1_Click()
Form1.Cls
Form1.ForeColor = vbBlack
Call DrawGasket(0, Form1.Height / 2, 0, Form1.Width, Text1.Text)
'Form1.ForeColor = vbRed
'Call DrawGasket(0, Form1.Height / 2, 0, Form1.Width, 1)
End Sub
Now Imagine it in infinite detail, the Closer you zoom in on the Line the More detail you get, following that set pattern.
Now You Can Divide this shape into Four Seperate Bits of the Same Shape (UnComment the Commented lines and you'll get some red lines to help.)
So, If We Divide the Shape up into 4 pieces each one 1/3 of the Length of the Original from end to end.
this gives us Log(4)/Log(3) = 1.2618595 Dimensions?
As you can See, There's not as many points as in a plane, But More than in a line If you tried to map all the Points in it onto a line, you couldn't. In Order to beable to get all these points into the 2D Space you Have to Leave a lot of Space but it must be to Complex to be a line, to accomidate this exta part we need it to be infinitly Complex, The Universe isn't infinitley Complex, It's Very Complex But not infinatley, which makes it Exactly 3 Dimensions (Or 4, 5 or 10 depending on what book you read I use 3 because it's easier to visualize)
This is why the Universe is nothing like a fractal And You know what A Dimension Is And What A fractal is. (if you Look at the About Creation and AI and Evolution For those who Care threads between me and Gen-x you'll se why I think it's neccesery to get the big guns out first on the Dimension issue)
Zaphod, When We Say the Universe is expanding it means that all the Stuff in it Is Flying appart, The Space itself isn't expanding, and the Universe Isn't infinate as such, but it is flying appart at the Speed of light at the edges so we can never get to nor see the end, so for all intents and purposes it is infinite, but there's only a finite amount of stuff in it.
