Testin character map

[Turtle]

Ă

ǺǽŴΔЉҖڭ۩۞₤╬☻♂♀

 

Ă

ǺǽŴΔЉҖڭ۩۞₤╬☻♂♀

[Turtle]

ﯣ

Σ

[Jay-qu]

hehe where did you pull those from? This just reminded me that I was going to ask if there is any other text entering methods with the sites software that would allow maths to be written easier and clearer.. one of the main things is just like in ms word you can have sub/super scripts and a variety of other mathmatical operators, some i think can be cut paste..

[InfiniteNow]

If you use Windows...

 

Programs --> Accessories --> System Tools --> Character Map

 

©

®

§

™

[Jay-qu]

yeah some stuff is in there but you still cant get things like 2^2 without having to do the ^ sign.. if it is in there and im just not seeing it, please direct me to it.

 

ﻑ

[Turtle]

hehe where did you pull those from? This just reminded me that I was going to ask if there is any other text entering methods with the sites software that would allow maths to be written easier and clearer.. one of the main things is just like in ms word you can have sub/super scripts and a variety of other mathmatical operators, some i think can be cut paste..

 

I pulled them from the 'Character Map' that comes with Windows; it is in the Accessories Menu.

I don't know yet about super/sub -scripting. The Character Map has some math, phoenetic, & language-specific characters. Just start it from Accessories, then Select the symbol you wanty, then click copyu. Now just paste it where you need it.

I learn something new every day!:hyper: :steering: :)

[Jay-qu]

I only wish to get rid of the caret for tidiness' sake :) its not really that bad.. funny how the character at the bottom of my post #5, when quoted comes up unknown as a square :xx:

[Queso]

What a bummer,

Mac doesn't support .executable files.

[Turtle]

What a bummer,

Mac doesn't support .executable files.

 

Warning! (again:doh: ) I forgot to specify this is DOS-PC-clone- whatever. Not Apple. Hope it didn't crash your fruit Orby:lol:

 

No more warnings until we need another warning. at ease.:esick: :hihi: smoke em if ya gottem.:hihi: ;)

[Turtle]

I do have the Basic source code. While it's an old & unusual version, it might be tweeked to work on any Basic equipped machine.

Warning! another chance to muck up your works for a pretty picture.:esick: :hihi: ;) :hihi:

[Turtle]

Basic file & you're ready to rcok & roll...hiccup...roll:eek2: ;)

 

' 3 cell 1 dimensional CA

 

DEFINT A-Z

CLS

SCREEN 12

'COLOR 0,0

 

DIM A(0:639) 'tested array/ 1 row

 

'.............. Set a:sets initial cells .................

A(6)=1:A(8)=1:A(10)=1

A(26)=1:A(29)=1:A(32)=1:A(35)=1

A(86)=1:A(90)=1:A(94)=1:A(98)=1

'A(120)=1:A(125)=1:A(130)=1:A(135)=1:A(140)=1

A(210)=1:A(216)=1:A(222)=1:A(228)=1:A(234)=1

A(386)=1:A(390)=1:A(394)=1:A(398)=1

A(523)=1:A(525)=1:A(530)=1:A(535)=1:A(541)=1

A(320)=1

 

'........................... initialize 1st row

CLS

FOR I = 0 TO 639

IF A(I) = 1 THEN PSET (I,0),1 else pset (I,0),0

NEXT I

 

'.......................... main loop

10 locate 1,5

print "F10 = End"

 

FOR J = 0 TO 479 'increments rows

DIM B(0:639,1:2)

FOR K = 0 TO 637 'increments columns

Q=K

R=K+1

S=K+2

TEST$=BIN$(A(Q))+BIN$(A®)+BIN$(A(S))

SELECT CASE TEST$

CASE "000" '1

B(R,1) = 0 'this entry turns on a cell;change the value after

'equal sign between 1 & 0 to change rules set; net 2^8 rule sets

B(R,2) = 1 'this entry colors it

CASE "100" '2

B(R,1) = 1

B(R,2) = 2

CASE "010" '3

B(R,1) = 0

B(R,2) = 3

CASE "001" '4

B(R,1) = 1

B(R,2) = 4

CASE "110" '5

B(R,1) = 0

B(R,2) = 5

CASE "101" '6

B(R,1) = 0

B(R,2) = 6

CASE "011" '7

B(R,1) = 0

B(R,2) = 7

CASE "111" '8

B(R,1) = 1

B(R,2) = 8

END SELECT

NEXT K

'****************** draw ********

 

FOR L = 0 TO 639

select case b(L,1)

case 0

preset (L,J)

case 1

select case b(l,2) 'b(R,2)

case 0

pset (l,j),0

case 1

pset (l,j),1

case 2

pset (l,j),2

case 3

pset (l,j),3

case 4

pset (l,j),4

case 5

pset (l,j),5

case 6

pset (l,j),6

case 7

pset (l,j),7

case 8

pset (l,j),8

end select

end select

NEXT L

if j < 477 then

p=j+1:q=p+5

line (0,p)-(639,q),0,bf

end if

 

ERASE A

DIM A(0:639)

FOR M = 0 TO 639

A(M) = B(M,1)

NEXT M

ERASE B

 

'.......................... trap F10 to interrupt program

$EVENT ON

ON KEY(10) GOSUB QUIT

KEY(10)ON

 

NEXT J

 

$event off

 

incr COUNT&

cycles&=count&*480

LOCATE 3,1

PRINT cycles&" cycles"

GOTO 10

 

END

 

QUIT:

KEY(10) OFF

END

RETURN

[Turtle]

Basic file attached as text file. Download, rename with .bas extension & you're ready to rcok & roll...hiccup...roll:eek2: ;)

 

Wow! I went off to wat the automaton run & it's so way faster than the last machine I ran it on (486 maybe?). I ran it to 7200 cycles in just a few minutes. Which brings the integer size limit of that Basic. Just over 2 billion, so if left alone, the thing will likely stop with an overflow error message.

I usually just ran it complied to memory when I wrote & experimented with it. It is technically, a one-by-three cellular automaton. That is all.:hihi: :hihi: :esick: :esick: :esick: :esick: :esick: :esick: :Waldo: :Waldo: :Waldo: :Waldo:

[Jay-qu]

Uhuh.. what is it doing exactly..

[Turtle]

Uhuh.. what is it doing exactly..

 

Following rules. Here's the down & dirty. Each row across is 640 cells (pixels it used to be on old screens:lol: ) the row, is the one dimension of 'one-by three'.

A cell can be on, or off. You pick some cells to turn on in the first row (the initial conditions). Then, you(the program) look at the first 3 cells in the row (the 3 part of one-by-three) Now you have 8 possible combinations of empty & full cells. all 3 empty, first full,& other 2 empty etc.

Following so far?

[Turtle]

Good. So you look at the first 3 cells, find which combination they are, then consult a table of rules as to wheter or not to turn on the first cell in the row you are growing. Then, you move over 1 cell in the initial row, & look at the 3 cells you have now. the first 2 are the old 2nd & 3rd, & the last is a new cells. Now you repeat by checking which combination pattern they make, consult the table, set the second cell(pixel) & move ahead by 1 cell again. When it reaches the end (on the right) it goes now to the new second row it just grew & apply the same rules.

By changing the initial condition and/or modifying the rules, you get different pattern that grow (or die in some cases)

With the exe file I didn't program a menu to change parameters.

Fianlly, there are 256 different rule sets for a 1X3 cellular automaton.

That is all ('cept the misspeelings:lol:) :confused:

[Turtle]

' 3 cell 1 dimensional CA

'.............. Set a:sets initial cells .................

A(6)=1:A(8)=1:A(10)=1

A(26)=1:A(29)=1:A(32)=1:A(35)=1

A(86)=1:A(90)=1:A(94)=1:A(98)=1

A(120)=1:A(125)=1:A(130)=1:A(135)=1:A(140)=1

A(210)=1:A(216)=1:A(222)=1:A(228)=1:A(234)=1

A(386)=1:A(390)=1:A(394)=1:A(398)=1

A(523)=1:A(525)=1:A(530)=1:A(535)=1:A(541)=1

A(320)=1

'........................... initialize 1st row

CLS

FOR I = 0 TO 639

IF A(I) = 1 THEN PSET (I,0),1 else pset (I,0),0

NEXT I

 

'.......................... main loop

10 locate 1,5

print "F10 = End"

 

FOR J = 0 TO 479 'increments rows

DIM B(0:639,1:2)

FOR K = 0 TO 637 'increments columns

Q=K

R=K+1

S=K+2

TEST$=BIN$(A(Q))+BIN$(A®)+BIN$(A(S))

SELECT CASE TEST$

CASE "000" '1

B(R,1) = 0

B(R,2) = 1

CASE "100" '2

B(R,1) = 1

B(R,2) = 2

CASE "010" '3

B(R,1) = 0

B(R,2) = 3

.

.

.

 

I clipped out the germain parts of the code. Initial condition switches in red; The rule set in blue; and in green the values you swith to change the rules set.

Very nostalgic.:eek2: :naughty: :confused:

[Jay-qu]

wow and all that produces a pretty light show :confused: what made you do it?