Jump to content
Science Forums

Testin character map


Turtle

Recommended Posts

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..

Link to comment
Share on other sites

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: :)

Link to comment
Share on other sites

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: ;)

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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:

Link to comment
Share on other sites

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?

Link to comment
Share on other sites

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:

Link to comment
Share on other sites

' 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:

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...
×
×
  • Create New...