The Best of Creative Computing Volume 1 (published 1976)

Page 233 << PREVIOUS >> NEXT Jump to page:
Go to contents Go to thumbnails

People-picture of megalopolis (graph of northeastern United States population densities)

graphic of page

1900 PRINT
1910 LET V=0
1920 FOR J=1 TS 50
1930 FOR M=1 TS 6
1940 LET E(M)=0
1950 NEXT N
1960
1970 REM PUT THE CONTEXT LETTERS IN RANDOM ORDER IN THE E ARRAYS
1905 FOR M=1 TO 6
1990 LET A=FNA(6)
2000 IF E(A)<>0 THEN 1990
2010 LET E(A)=C(M)
2020 LET ES(A)=CS(M)
2030 NEXT N
2040 REM IN CASE THERE IS NO TARGET LETTER IN THIS SET OF SIX
2050 REM PANDEMOIUM MUST CHECK SIX
2060 LET A=6
2070
2080 REM NEW STICK IN A TARGET IF APPROPRIATE
2090 IF T7=1 THEN 2120
2100 IF S(I)-J THEN 2170
2110 GSTS 2130
2120 IF S(I)<>J THEN 2170
2130 LET A-FNA(6)
2140 LET A1=FNA(T9)
2150 LET ES(A)=LS(A1)
2160 LET E(A)=L(A1)
21070 IF Z4=1 THEN 2240
2160 FOR M=1 TS 6
2190 PRINT ES(M);
2200 NEXT M
2210 PRINT " ";
2220 IF J/10 <> INT (J/10) THEN 2240
2230 PRINT
2240 IF J.S(I) THEN 2330
2250 IF Z6<>Z THEN 2300
2260 LET A=6
2270
2280 REM ADD ON THE TIMES FOR ALL THE UP TO AND
2290 REM INCLUDING THE TARGET LETTER
2300 FOR M=1 TO A
2310 LET V=V+(E)M))
2320 NEXT M
2330 NEXT J
2340 IF Z4=1 THEN 2430
2350 PRINT
2350 REM NEW TYPE A QUESTION MARK AND WAIT FOR THE USER TO PUSH 'RETURN'

2370  INPUT Z9S
2380 LET TO=FNT
2390  INPUT Z9S
2400 LET TO=FNT=TO
2410 PRINT
2420 PRINT "LINE";S(I);"SUBJECTTIME";TO
2430 PRINT
2440 PRINT"LINE"S(i);"SIMULATED TIME";V*10
2250 NEXT I
2460 
2470 DATA "A","B","C","D","E","F","G","H","I","J","K","L","M","N","O"

2480 DATA "P","Q","R","S","T","U","V","W","X","Y","Z"

2490
2500 DATA 3,23,126,7,35,220,4,16,53,7,35,135
2510 DATA 3,17,123,3,17,102,7,35,105,	3,17,117
2520 DATA 3,17,122,5,21,61,3,29,134,3,17,58
2530 DATA 3,21,136,3,21,96,4,16,46,7,35,155
2540 DATA 7,35,130,7,41,176,4,15,55,3,17,72
2550 DATA 5,21,66,3,19,74,3,19,154,3,19,99
2560 DATA 3,21,81,3,23,108
2570
2580 DATA "E","I","M","V","W',"X"

2590 DATA "C","D","G","S","R","U"

2600 DATA 5,6,,25,30,45,46,9,11,14,16,19,21,24,26,29,31,34,36,39,41,
2610
2620 END

REFERENCES

Neisser, U. "Decision-Time without reaction-time: Experiments in visual
scanning." American Journal of Psychology, 1963, 76, 376-385.

Neisser, U. "Visual search." Scientific American, 1964, 210, 94-102.

Selfridge, O. "Pandemonium: A paradigm for learning." Symposium on the
Mechanization of Thought Processes; London: HM Stationery Office, 1959.

People-picture of megalopolis

Fed a meal of geography and census figures, a computer prints out a diagram of
the northeastern United States showing densities as mountain peaks identified in
the insert sketch: the graphic demonstrates how the computer can transform naked
numbers into meaningful displays.

KEY TO COMPUTER DRAWN PICTURE

WASHINGTON
BALTIMORE 
CHESAPEAKE BAY
PHILADELPHIA
NEW YORK
LONG ISLAND
BOSTON 
CAPE COD
ATLANTIC OCEAN

233

Page 233 << PREVIOUS >> NEXT Jump to page:
Go to contents Go to thumbnails