Proceso de Adquisición de Imágenes Color
Proceso de Adquisición de Imágenes Color
Noviembre, 1.983
\'.''3;:>CÍ;;I>I..!,) ,
A Angela
AGIÍADECII'.ISXTOS
fianza en mí depositados.
valiosas sugerencias.
IHDICE GEHtRAL
RESUMEN.
1 . 1 Introducción .,..>, 16
2. 1 Introducción. ,61
I NT. m e - 1
2.6. 1 Plant-eo general del problema. ..............113
3 • 1 Preproceso . ,..,... , 1 S4
,2 Seamentación, . ci^'b
INDICE-2
3.2.1 Definición y aplicaciones primarias. ...... .256
V. REFERENCIAS,
VI. APÉNDICES.
6.1.3 Resultados
IHDTCE-:
RESUMEN
RESUMEN-1
encuent-ran aquellos sist-etnas diseñados de acuerdo con
circunstancias diversas.
RESUMEN-2
normalizada. Para realizar las dJ f-s rentes toma- se
RE3ÜMEM-.3
Para presentación d*i imágenes se utiliza una
s i gn i f i c a t i v-'as ,
RESUMEN-4
cuant-iradas en pocos niveles. Ademas de los p~oqramas
[Link] medida.
RESUriEH-5
"average" no lineal y los filtros mediana. En escsnas
de la misma.
RESUMEN-6
ixponsn las conclusiones dsl presente trabajo.
RESUMEN-7
I, FORMULfHíriON Y CLASIFICACIÓN CROMATICAS
1. 1 IHTRGDUCCIOH
milimicras.
16
e l e m e n t a Iroent-s en c a d a c a s o por;
< 1= 1>
17
los impulsos nerviosos motivados por la ^xitacion
receptoras.
18
brevemente la naturaleza de esta energía luminosa. Un
la ley de Planck;
x"(X)=2.39 10'^/X^(exp ( 1 . 4 3 2 / x T ) - 1)
7.8 10~^
E^= / X"(X) dX
3.5 1 0 ~ ^
Sin embargo de toda esta energía sólo una
1?
condiciones de iluminación '-'fot-ópica y escotopica> y
7.8 10 _
K = (64.77/T^) / _,- Y(X)/X- (exp(1.432/x T)-l) dX
3.5 10
E = 0.36 L S T,
r X
20
factor espectral de transmisión de los medios
21
dist-rib'jciones distintas: Se ha podido con-probar la
22
En el centro de la retina esta la zons foveal
temperatura ( 2 K )
hv
lili
RHODOPSINA
.
^ \
Recomposición
ciclo : _,rápida.
RETIMAL CIS + RETINAL TRANS +
corto i
OPSIHA OPSINA
,1 largo
'
KEl INOL Clb RETINOL TRANS
Í5
f^( x,y,x,t )-l(x,y,x,t) R(x,y,x,t)
O <I(x,y,x,t)< «:
Y = p fy \
xyt aBXx ' < 1 .3>
Donde F representa la acción ejercida por el
estímulo incidente;
Y ^= F ^(0) + r W ^ „, X „, +
xyt xyt , xytctBXT aBXx
«3 X T
+ Z Z W ^ X X
xyt; aBXx ; OIBXT OBXT CXBXT
aBXx aBXx
+ ....
< 1. 4?
Donde;
8 F ,
xyt
W
xyt
3 X
aBXx X =0
aBXx
Los distintos sumandos globales de la ecuación
conocidos;
t ^^
Y(x,y,t) = F(x,Y,t)+ ; j ;j W(x,y,t;a,6,X,T)X(a,e,X,x)
— XI ^
t An xn
d ' o d B d X d x +ffff ¡ S I S W( x , y , t ; a , 6, X, x; a, 3 , X, x)
_ >^X-,R 'oX, R
<1 . 5 >
siguiente expresión;
xn
Y(x,y,t) = F(x,y,t) + / // W(x,y;a,6,X)X(a,6,X,t)da
X,R
xn xn
dSdXd + /// ;// W(x,y;a,3,X;a,6,X) .
Xj^R X,R
< 1, 6 >
como:
Xn
Y(x,y)= F(x,y) + / // W(x,y;a,B,X)X(a,B,X)dadgdx +
X R
Xn Xn
+ / / / / / / W(x,y;a;.B,X;a,e,X)X(ct,B,X) dadgdX
X R X R
áadBdX +
•: 1 . 7 >
se simplifica at
Xn
Y(x,y)=F(x,y)+ / // W(x,y) ;ci, 6 , X )X(a, B ,X ) dadfidx
X R
< 1 , 3 .1
29
Xn
Y^(x,y)=F(x,y)+ / // W.. (x,y; a , 6 , X )X( a , B , X )dcid6dX
V I O C1 .9 >
K=i,¿,...m
<1. 1 O>
manera que;
<1 . 11 >
expresión;
1
'•': 1 , 1 2 )
K=l,2...m
30
serie de fenómenos a nivel ret-inal £ Z51 ^l 3-,l, que
parecen indicar que exist-e un alto grado de
31
Donde los Yk son las coordenadas de este blanco e
n
k ckj j v 1 . 1 1 .-I
^"-'- k=l,2...m
con el sonido.
cumplira:
n
W
k ckj j < 1 . 1D>
-' k=:l, 2 . . .m
32
forma discreta puede expresarse como;
n
E = J: X. -CI . 16 >
n
E-, = E. K- nK < 1 . 17 >
2 ni n 1 ^ "^ ?
s. = Z i Z VI , .X.- - L W , . z X.)
k=l j=l ^'^^ ^ ^ j=l ^^^ i=l ^
n
s2 = z
. s,2
< 1 . 19 >
Donde
1 "
kj ckj n cki
j=l <1,21>
Y entonces;
_ ra n y
s^= z ( z e x )^
k=l j=l ^^ ^
P m n n
s = E ( 2 C, . X. Z C, . X. )
k=l 3=1 -^ 1=1
De donde t
„ n n m
s = z . 2 ( z C, . C, . ) X. X. < 1 .22>
• T • 1 1 T k] ki ] 1
j=l 1=1 k=l -^ -^
Generalizando al cont-inuo resul-ta
Xn Xn
;^= / / W ^(X ,X • ) X(X) X(X ' ) dX dX ' <1.23>
sat
^1 ^1
Donde;
k=l
<1 .24 >
34
Xn
FUENTE L-J>;[Link]
I(x,y,X .:)
R(x,y,A.t)
f, (x,y,;^ ,t)
ESPACIO DE
ENTRADAS X„
ELEMENTO SENSOR
V-y-t) V(x,y,t)
m
d (A)
E
% Amp. relativa
06
La sensación de "claridad" o "brillo" de una
k=l ^ ^
<1.27 >
Siendo:
k=l
<1 .23 >
la saturación.
Este espacio de color ím—dimensional> se produce
discreto:
n
Y, = Z W , . X.
<1.29>
k=l,2,. . .m
m << n
n n
Y, = Z W,.X. = E W,.(ze-,X.,)
k j^^L ^^^ =" j=l ^^J 1=1 ^ ^^
< 1 ,30>
k=l,2,...m ; m<<n
<1.31>
w
Siendo Yl< las coordenadas del blanco
genérico en cuestión.
39
de la Zona de Percepción, Sin emb-ar'CiO pensanos que el
aoartados•
40
1.3 T E O R Í A C L A S I C I H Y S I S T E M H S DE REFERENCIA
manera que:
H
X (X) "es equivalente a" z X^Cj^ (x)
(a [Link].) h=l
<1 .33 >
41
haciendo H=3 y entendiendo <1.33> en el sentido de la
escribir
concepto .
h <1.35>
4Í'
C determinado con los Vk correspondíent-es,
3 Xn
\(x,Y)= S X^^J" RJ" Xg(a,e) W^(x,y;«,6)
h=l X
C^( X) W^j^( X) dX da de
3 X
k=l,2,3
K1 .37 >
Si hacemos:
X
a =/^ C (X) W .(X) dX
\
i=l,2,3
j=l,2,3
<1 ,33 >
43
Wj^ 0 0
^11^12^13
0 W2 0
^1^22^23 < 1 .. 3 9 >
0 0 W
^31^32^33
O abrsviadament-e
Y = [A][W] Z
f
w
w <1.40>
Z^+ Z2+ Z3 w=l,2,3
estos!
a = Z Zh ''h
h=l <1.41?
44
la de los tres primarios comput-abies a partir de:
Xn
a j^= / ^h "^h^^^ ^^^^ ^^ < 1 .42:
X
1
expresable """or ;
3 Xn
a = Z Z, W, / C, (X) E(X) dX
h=l XT
1 <1 .43 >
1j 2^ ° La Comisión Internationale de L^
3 i qv! entes ;
: =R ; ^ =7 00 nm.
1 R
Z y =G j ^ =546 nm.
B
Z T =B ; ^ =435.8 nm.
C
45
correspondiente usando coordenadas normal ir-sdas r , g
j b j con;
r + b + g = i <:i>44>
46
cooordenadas cromatico es que un cambio dado en la
dada por;
4X
U=
-2X+ 12Y+ 3
V=
-2X+ 12Y+ 3
<1 .45 j
[351 .
47
Sist=e.T,3 Y-I-Q
43
geométrica de colores que va en el diagrama polar B-Y
Sistema L-a-b
triestímulos¡
L= 25 (lOOY/Y^)"*-/^ - 16
< 1 . 47 )
* * *
Sist-ema U - V - W
U*= W*{U-UQ)
V*= W*(V-VQ)
W*= 25 (lOOY)-'-'^- 17
<1 .48 >
20
ri
bi
n
ti
\ \ 1.0 y' r
400
CIE-RCB
I
3
cé
\
SOO
i
O
\V e
8
700
(nm)
CTE-iyz
fy
SOO 600 700
(nn)
50
-ds'-
R: X e. f^ V = 0. 35
C: X - 0.2 = y = [Link]
S: X = 0. • 5 y = 0. 06
IC
PECTRUM LOCUS
0 9
52oV
oa
N^540nir
/-5I0
0^7 • \^330
-303
C \ r 560 TRIAMCULO V UlXWFt i
3 —0-6
/S.^'^CsTO
LANCKIAN LOCUS
fS90
0-4
. y*95
^
03
02
• VAÍO
VABÍ
ir
/
^
^'"''^
0-1
¥480 \^
47Ó\
Internacionales.
1.4 BASES TEÓRICAS DE LA CLASIFICACIOH CROMATICA
descr i ptores.
<F1G. I,9>
51
FIG, 1.9. Estructura de un sist-ema de reconocimiento .
52
embargo, las diferencias psicológicas y del mecanismo
m
g. (9)= K. + T. K. , 9,
^ 1 l O1 = 1 l l 1 "^ ^ •'^^^
53
VECTOR DE PROPIEDADES
' 9)
t • . Tt t . _LÍ_Í
rUÜCIONES DISCRIMINANTES
g
in
'1
" t • • •'
decisión
(9)
definida por:
m
(K.^-K.,)e,+(K. -K. )
il jl 1 lo 30 < 1.51 :>
1=1
54
funciones discriminantes. Un caso interesante por su
_ m m m
z K..e.+
g.(e)=[Link] + .^^ E
i: :, ^^^
T. K.T,e,e,
^^^ iih 1 h
< 1 ,52)
m m m
Z Z (K.,, -K.^. )eTe, + Z (K. ,-K., )e, + (K. -K. )=0
•,_-, , _-• xln ]lh 1 h -._, il jl 1 lo jo'
"^F¡
C.i I Considisrap^EHios por uitimo t-srnbien ccr>ocid5 1 =
p(0/c,) p;c)
p(c./e)= ^ '
J
J P(e/c^) P(c^) ,^5,,^
k=l
_ N
R(A^/e)= Z L(A^/C^) P(Cj^/e)
k=l
<1 . 5 5 >
g^(e)- - R(A^/ e )
<1 .56>
definida por;
están:
exprés ion•
••: 1 . 5 9 >
•jf
coordenadasj que puede expeciTicarse a priori o ser
forma;
P(G)= i exp(-(?5(é-p)^C^-^(e-M))
a
a .6o>
d- ( (G-M)*" C ^ (e-p) )^
a
discriminante se reduce a!
<1.63}
:iendo;
S.,=
il
- h C~^
ax
S i2
. _— Ca. u.
1 '^x
59
Donde se observa que l^s superficies de decisión
cromático elegido.
t-H
II. ADQUISICIÓN Y PRESENTACIÓN DE IMÁGENES
EN B/H Y COLOR
2,1 INTRODUCCIÓN
3 i o n i f i c a t i ••..•o .
61
Con el auc'H de la t-ecnoiooia de r~bot-s la
y circunst-ancias divers-as.
figura II.1-2.
Microscope
Lenser,
LSI Chip
1
~I 1 re cotnition devic e 1 cassette
. --Í t>i-dtion rrl tape
recorder
c pre-
integrations
procesBing
n •
,
'
noiee
elicination cassette
tape
1 > recorder
O VD
o pattern a
measurir.g Etation ,"?2 1 -^> matching
o u < -H
1 4-»
E-l J3
OJ c • n vo
white área
—» •H EU tH cassette
counters #1 tape
>•
•- — i " * •
registerB cassette
measurir.^ station -—
for selector tape
recorder
L. ;
64
V IMAGEN EtlTRADA
suBsi£rH:;-:A D E
SEGMENTACIÓN
Segmentación Y REG:ÍTHO DE
1 IMAGEMS.
Registro
SUBSISTEMA DE
Transformación INSPECCIÓN
VISUAL.
Detección de defectos
Identificación
PRODUCTO RECHAZANDO
O A REVISAR. ^ Clai:if icación
PRODUCTO ACEPTADO.
SITEMA DE EMPAQUETAMIENTO
FINAL.
PRODUCTO
i ACABADO.
Inspección.
65
erapiea como única forma la iluminación para rsducir
host computer.
66
constituyen los sistemas de visión generales., por
puede vt^r-si^ en C 8 3
67
paralelo^ que permite digital izar una imacen cis
en un monitor de video.
-Host Computer
68
COLOR TV
MONITOR
STAHOARO
PERIPHERALS
UNE
PRINTEn
CONSOLÉ CRT
PARALLEL
\r
N GENERAL-PURPOSE INTERFACES
INTERFACE
VIDEO
Z80 MICRO- INTERFACE
PROCESSOR
COLOR TV
LSI-ti CAMERA
MONITOR
CONTROLLER CONTROLLER
MIRHOR SCANNER
LÁSER RANGE
FINDER
COLOR
CAMERA
SCENE
OSJECTS PAN/TILT MOUNT
ROTATING TABLES
69
Video Gut
DisK
10 Mb. • • •
Digitali-jador
í
NOVA
4 :sz:
Interface
16 bits
<1 / Control
z\ SZ
Impresor-i
sz
H P
i\ Impresora
color
3 0 0 0
de imaqenes en color
70
2.2 niNIORDEHADOR Y SUBSISTEMA DE DISPLAY
71
s<:>ffi.-!^r^ mu !+:• i tarea y la opción de trat-amiento en
ttsmpo real.
periférico seleccionado.
72
la operación en [Link] señal esta relacionada con
interrumpido,
74
2.3 SUBSISTEMA DE ADQUISICIÓN DE IMAGEHES
a) Digitalizador.
b ) ínterface de Control.
2,3.1 DIGITALIZADOR
4ub
STATUS MUlJü Ready
LAT;.TI
busy
de 6ijb a 1/30 s e g .
STATUS HUbOS ready
[Link] + OHERAC10N
busy
iV
.25 ns
Pulso
PULSO ÜE de
S'l'A'l US ready
120 ns
STKOBE'
SALIDA DIGITAL
DIGITAL D E V^DEO
800 ns
77
cada una de las cuales- se explica a continuación.
75
iUlIORDEtlADOR
DIGITALIZADOR
R/W
L/O
:XYZ -^—
IN9
IH8
IN7
IN6
IN5
IN4
IN3
IN2
INI
INO
OUTja
0UT1
0UT2
0UT3
0UT4
0UT5
0UT6
0UT7
DAT IA
1 k -p-ln
id
DSI -[>•
DS2
DS3 •í>>- >
DS4 -I>
DS5 > •
[Link]
-O- <]= STATUS
O
ÜATOA
STROBE
""X-'"
FIG. II . Circuit-eria de comunicación
Diqitalizadoi—Miniordenador.
p.n
del color deseado mediants una instrucción ds DOA se
•^ 1
• 5V
MtílIORDENADOR
':.^curtos DE ADAPTACIOII
unidad.
INTERFACE
VIDEO OUT
34
ohmios j de 1 Vpp^ con la subportadora de color
iuminancia.
adicionarlos posteriormente.
as
mantenerse constante en el transcurso del proceso
de adqu i s i c i on.
^6
2,4 PROCESO DE HDQUISICICH
Fase A
£1 . /
programa de control mediante una instrucción
momocromática.
1 00 ns.
DATAl5-DATA13
DS0 - DS5
DATOA
150 ns.
Fase B
microsegundos,
dato obtenido.
al acumulador eleqido.
90
ESCRITURA EN EL D I G I T A L I Z A D O R DESDE EL C O M P U T A D O R
X DS3-DS5
DATA2-DATA1I
DATOA
STROBE
4 US inin.
t
TEST DE FIN CE OPERACIÓN
-B«»- STATUS
STATUS
•<h-
DS0-DS5
SELD
LECTURADEDATOS^DEL DIGITALIZADOR
I I 800 ns.
L_ -ÍH
STATUS
•-N -il
DATAOUT 0-7
-ih--
H DS0-DS5
DATIA
-ÍV-
comunicación D i q i t a l I z a d o r - Miniordenador.
•31
2.5 S Ú F F U H R E D E C Ú H T R Ü L Y ADQUISICIÓN
significativas están;
cámara
b> Distorsiones.
92
a> Perturbaciones de Cámara
93
espacial se supone de la forma:
H^(x,y)=l/H(x,y) <2.2>
definida por;
•34
N-1 M-1
E(k,A,B,i ,j )= r Z (f^.-k(l+A(i-i )^+B(j-j^)^)
i=0 j=0 -'
< 2 .3 >
N-lM-1
^1= 2 Z (-2)(l+A(i-i^)^+B{j-j^)^) W(i,j)= O
^^ i=Oj=0 ° °
N-lM-1
—= r Z (-2k)(i-i ) ^ W(i,j)= O
8A i=Oj=0
N-lM-1
3^= 2 2 (-2k)(j-j^)^ W(i,j)= O
^ i=Oj=0 °
N-lM-1
^ = 2 S (Í-ÍQ^ 4kA W(i,j)= O
"O i=Oj=0
N-lM-1
^= 2 2 (Í-JQ) 4kB W(i,j)= O
-"o i=Oj=0
95
Formas de. onda
barrido horizontal
ídem después de
corregida
imagen blanca.
.
N-Negro £Ax,y)
ó-Blanco 1 I
i
1 x-y
Ennegrecimiento
x-y
ajuste parabólico.
36
La resolución ó'~. este sistema y el proc-rama que
- (N z i-^-(zi) (si^) ) ( N z i f - z i z f )
< 2 . 4>
A =
37
coeficientes consitio en realizar una •boma de una
•33
w^u
; .:;A.=:
- . - • • , . 1 rV.-.V--'-.V
•" V' • }í ^ - . , - . - . i - j - , : . - i ' .••i
•^^>:-'v:\:fi
\:-Í--^ WM
•
• t•^x¡>^
-..".-.r. -.i,-í.^:í';a
.ÍÁijfíffc
- ^¡; :V^ i''/"-..-:tíq;'.';:i
• í ' - í : ^ jsj'í[Link]
:Í-!<SÍ:; -!"~'r*v':''*'í^?
f¿í--; /';-:í'?:4^
Üí:i;í:ixh:[Link]íi¿:: i«7Stv^> "••ptííSií
S«;í&':- .i-íiSiíM»
SSI l i s
*;.;' :|^ '•^'^!;;¿
r--r:líí
SiSi
- • • • • • - : : - "^ V '
:S-ia
99
v^;^'
opt-ica de la izÁm^r-^,
1 00
* í*
*Jv-»^ ^
i*!-
r,."ikr~i f - ?HÍ«lífe
1 01
b> Distorsiones
1 02
2,5,2 PROGRAMAS DE ADQUISICIÓN
mantenimiento de ficheros,
tomas ert-ón^as,
1 03
Una vez creado FOTO se purgan los ficheros
1 04
correspondientes a la zona central de la imagen.
105
se obtengan corresponderán a campos de la misma
1 06
puntos por columna adquiridos por GTCOL se hsce igual
107
siguiente coordenada X el sistema espera a que se
al programa principal.
108
START'
CREA FOTO
V Cre
]J
(COLOR)= 1
(CONCOL)^ 3
AC3= (COLOR)
Envía AC3
Puerto 2 (40)
Nx= 128.
Ny= 116.
IMCX= 2.
INCY= 2.
X0= 130.
Y0= 112.
I
i y retorna.
^TESTI \
í END )
AC0= (COLOR)
(COLOR)=AC0+1
(C0NC0L)=(C0NCÜL-1)
positivo
Negativo
O
[Link].15. Organigrama a e l programa P r i n c i p a l de
Adquisición [Link].
1 09
^TART)
Almac. Retorno
AC3= (COLOR)
AC0=(FOTOD)+AC3
(CANAL)=AC0
Rename FOTO,
(CANAL)
^ETUR^
110
^TARTJ
Almacena Retorno
, Impar,
(CNY)=(NY)
(CINCY)=(INCY)
ACT=(CY)=(Y0)+
(MASKY)
(CX)=(X0)+(MASKX)
RTER=(NX)
AC0= 128.
PTER=AC2=IMAGE
c
GTCOL
>
(CX)=(CX)+(INCX)
(PTER)=AC2=PTER+1
XC1=(CY)
(PCTER)=PCTER-1
Retorna
CY=í5
[Link]
1 1 1
^START)
Almac. Retorno
Envia AC3 al
Digitalizador
(CTER)=(CNY)
-^»
Envía AC1 Dig.
(AC2)=AC3
AC2=AC2+AC0
(CTER) = (CTER)-1
/ o
acsf-
RETORNA
11
2,6, SISTEMAS DE PRESENTACIÓN
^ n ^ = ^ i ^ ^ ^ r va /^Y } ^2.6)
D
Construyamos la función discreta f <x,y.') a
1 13
partir de las muestras anteriores como sigue;
oo co
f (x,y)= Ax Ay z z f„^ .
n=-™' m=- °°
.6(x- n Ax) 6(y- m Ay)
D
Sea F < "AIX .''•••'y •' i= transformada de Fcurier de la
F (w^,w,)= // exp(-j(xw + yw )) dx dy =
Ax Ay z E f exp(-j,(nAxw + mAyw )
<2.8>
1 14
=e obtendría a partir de este filtrado sobre r "^'•••'•''•••')
es decir
<2,9?
sustituimos en <2.9>
F'. w • w > por su valor^ podemos
X y
encontrar una expresión para f'<x,y>!
• TT/AX ir/Ay
f'(x,Y) = (Ax Ay/(2Tr ) ) / ./ exp{j (xw + yw ) )
X y
-ií/AX-ir/Ay
2 E 2
n m f nm e x fp^( jJ ^ (nAxw x + rtiAywY ) dwx dwy =(AxAy/Tri f ')
11
oo oo
. SINC(Tr(y-mAy)/AY)
la red , es decir:
X = k Ax
y = h Ay
f. 2. n >
<2,12>
0 para k^ n
1 si k= n
1 16
E ident-icamente para SIHCE .F < h-m >] j terrdremcs
ent-oncss qus ;
ejemplo si suponemos:
X = k Ax/ 4
y = h Ay/ 4
1 17
£' = E Z f SINC(Tr(k-4n)/4) SINC ( TT (h-4m}/4 )
Kh nm
n m
< 2 . } 5 ;•
realizado es
f _, , sinc3Tr/4 sinc3-iT/4
subpixel en cuestión.
1)
peso que resultan de aproximaciones interpolativas de
soluciones óptimas.
2 2
f'(x,Y)= E E f^^ Kp exp(-( (x-nAx)/a^) - ( (y-iiiAy)/a ) )
n m
<[Link].20>
f ,kh
,= i: Z K F f nm exp-
"^ ((n-k/4)^+ (m-h/4)^)/4
/ / //
n m
<2. 16>
1 1
/
120
n/Ax /AX
F< w^, í w Y ) .
• •
(-1.1) (0,1) (1 , 1 )
(-1 ,0)
w
"c
"B
"D
(1 , 0 )
•
(-1 . - 1 ) (0,-1) (1.1)
pixel particular.
121
-:.csu -:..;'.-. . . . •
^ j
0.2-
0.81
-0.162 -0.-. 62 m
lo. 81
0.;-
b .81
•0.162 -0.162 0.;-
[Link] W
-0.054 0.27 0.0?
0.09 0.27 -0.054
^^^
0.11 ^ 0.005 0.005 ^ 0.11
0.77 ^.77
1
n.77
0.11 0.005 0.005 0.11
»•"
w
0.03 0.11 0.0 0.0 0.11 0.03
12:
2,6.-2 ERRORES
2 2
E„=// F. (w , w ) | l - R ( w ,w )I dw dw
R 1 ^ x' y ' X y ' X y
R
de resolución como:
^M //F^(w ,w ) dw dw
j^ 1 x' y' X y
<2.18)
2
e _= // 11 -R(w ,w ) i dw dw / (4w w )
R ' X y X y' ^ OX oy'
R
<2 • J 9>
124
d e f i n i d a en •::2,10>j es d e c i r si empleamos:
SI w = w„„; w - w
' X ox y oy
R . (w ,w ) =
smc X y
O en V otro caso
es:
125
e =(4 w w ) - 2 J"/exp(-(w^^+w„^)a /2) dw dw +
Rgauss "• ox oy "^' ' x y x y
R'
2 2 2
+ // exp(-(wy. +w )a ) dwx dwy =
R'
< 2 . 2 O .1
12r
F_(w ,w ) 7 (w ,w )
I x' y o x' y
Rl(w^.Wy)
Error
valores de .....
127
2,6.3 SOFFUñRE DE PRESENTACIÓN
muestras.
analizaremos a continuación.
129
FIG. 11,25. Impresión de una imagen en 36
6x6.
130
:T. - £ÍT< , ^ — ~TrF=£=} ^ ^
m. ~.^r 9-
:^í^*
i^^m-2-
m ^:^%
'I
131
¿
Z. -í
132
En general al cuant-lficar en pocos niveles una
anal izar.
la forma:
r.
1
-. (f-r. )^ P(f) df
j=0 j ^ <2.21
133
Donde J representa el numero de niveles de
< 2.23 )
134
con el nivel de cuant-izacion
135
cosasj realiza en una de sus primeras etapas de
2 2, 2
SI W +W < W
X y o
H(W ,W ) =
X y
2 2 2
O V w ,X v ;y ; w X + w y > wo
<2.24)
.2, .2^h
Wj J-^í WQ (i + j ) )
h(i,j)^
2 TT (1 + 3 )
136
Es un hecho conocido que el observar una imagen
sigue!
137
cuant-izacion N que se emplee en cada caso, La etapa
116 128
3=1 x=l
<2.25>
139
I(t)
Hecho risico
(t)
Hecho Perceptivo
g, (x,y) E
Cuantificador -i
(N niveles)
F( X,y)
g^/x.y)
E
Cuancifi cador
ti(x,y)
140
FIG. 11.30. Imagen aleatoria empleada.
141
lÜiiiülifapiS
-iliÜliüliS
142
«i^frM
B ^ ^ -fe "-J
^ ^ ^ ^ • a
*S»fif^^^
143
i^s»s»
144
I
¡I !
llUlll
145
. .
-1 •
j •
J. • 1 • !
?5É||fÉÉBí^^^=5^
^46
i i
* • • -
147
FIG. 11.33d. Imagen cuantizada en 3 niveles y
148
Error
Cuadra ti co
300
NIVELES DE
CUA.-iTIZACION
100 4
2 2.5
nivel ruido (q)
imagen original
14-3
2.6,3.1 PPsOGRAMA PRTFOTO , SR
150
<ERMES> que se enc-arga de enviar un mer^aje a la
programa PICGN.5R,
151
tercer termino de la tabla XY2 cuyo puntero ha de
evi
152
tonos. Una vez cedido control a esta subrutina se
153
•tendrá 6 lineas de alto. Es decir obtendremos
1-54
132 códigos ds la línea horizontal completa,
155
START
PICGEN
Ret.S.O,
END
A iiacicerid kec .
IFIXE
I
(CTk'Y)i- 1 2 0 .
(V)-0
1
1 {c:n<A)-- ^ i 3 2 .
(X)--U
!
^c2•-•{•Á\••/Jr^B)
PICFM
PTXEL
i
(X)=(X)+1
(CTRX) = (CTI«)-1
(Y)=(Y)+1
;CTkY)=( C T R Y ) - !
-«o-
157
Q IPIXEL J
•'
alm, rat.
!•
ACl=NBZN
LEE TABÚ KERMES)
AC2=-8
srror / \,
CIERRA TABLA >( ERMES )
CRASA ZONA ' " " > ( ERMES ) i
error ^/ \
ABRE PICTURE K ERMES > AC2=AC2+1
/O
ACU-NBZN/2
(ZONA)=0
AC2=BL0CK/2
f retorna )
(AC2)=blan.
AC2=AC2+1
AC1=ACl+l
15S
í PICFN J
olm. rotorno
olm. XYZPTR
ACO=X
> XMAX
<XMAX c i e r r a FOTO
AC1=Y
ACO=X
>YMAX ACl=Y
<YMAX
1=0
AC2=IMAGE+X+128xY
-G
AC1 =Y+F1IAG GE)
AC0=(AC2)
AC1 ^
< YMED
*•
Q 37xAC0
* ' - ' = 25á
>YMED
(nj«3)=-YMED
Z=AC1
GCHN AC2
'r ( ratomo )
ABRÉ FOTO
' '•
é
FIG, 11.33. OrQaniqrama de [Link]
159
(PIXELj
I •"'
olmac. rotorno
olmac. XYZPTR G> (TBPTR)=TABLA+<5XZ
CY=1ZQ0A/DRCHA
AC2=BL0CK/2+X/2+NWLNx6x(YPTR)
calcula poaCZONA)
{ZOHA)=ZPOS
error / \
POSICIOfW
error / \
-grabcj: la zono ——*\ ERMES^
calcula dirección
en disco de ZPOS
srror / \
POSICIONA — — » ^ ERMES )
error / \
lea nuevo zona ——n ERMES ^
160
"^ í FPIXE
almacena retorno
calcula dir. en
disco de la
zona en memoria
error W •. ERMES
posiciona
I
graba zona error
->< ERMES
error
cierra fichero -M ERMES
retorna
161
(iMPIC J
olmoeena
retorno escribe línea puntos •^•^^-*/ ERMEs\
(.PTR) = (.PTR)-i-132.
(CHPIC)= canol
libre
line feed ' " " >(ERMES)
obre PICTURE '-^IRt^ES )
(LINCTR)=;(L1NCTR)-1
(CHLPT)= canal
libre
/O
B ^
(ZONCTR) = (Z»JCn?)-l
(ZONCTR)=NZON
(LINCTR)=NLIN
cierra PICTURE ^ ERI«s\
(.PTR)=BLOCK
c i e r r a impresora '"V/ERHES \
162
2,6,3.2 PROGRAMAS [Link] Y [Link]
163
indicara la porción de la imagen que estemos
164
división seguida de una comparación con ZONA. En caso
165
PICTURE, Seguidamente se ret-orna al programa
166
<™1>
Zrror
Abre ?IC-
y XI- STCP
©
Lee 5 Tmager. en IH
id
!ZONA)=
(G£:TFL)=O
í YT)=0
"r-
(CTRYT)=0
AC:=(ZCNA)
(XT)=0 Error
(CTRXT)=0 Posiciona en PIC-
TURE y escribe út STOP
tima ZONA ^
\ CONV />
Cierra PICTURE
y XIMA STC
<li—>
T
•; X T =
<X"
í XT; *
"3X7;-i
<ZiZ>
"" SET'JRN
STOP
Almacena Retorno
;:<T.i )=;xT¡--;
(YT.1)=(YT)-1
©
CTRAD=4
?TRAD=3 ^ O
-€)
O
1
• "" \
;CTSYM)=3.
(VM)=3
(WORD 1=3 AC1=WORD/256-
:.-.WORD)=PTRAD + Almacena AC1 en IWORD
. -IWORD
?TRAD=?TRAD+1
<=) .:T?,AD=CTRAD-I
!C?SXM)=3.
XM=fl
.GETYM)=YT-1^YM
:GETXM)=XT-I+XM
< "" y
(VCRD)=(WORD)-AC-*í .? .PT?.AD = ? T R A D 3 ( 9 . +IFTS
! .FT?.AD; = ': .?T?.AD;-;
( XM ) = í XM ) -f 1
Í C T S X M i ^ ' CTRX.M)-:
' Y M ' =í Y M ) *;
( -T-Y.-Ds' C T S X M ) - -
16!
START
Almacena Retorno
1
(ATAa) = (ITA8)+(HEt)
AC3 = (( AWORD) ) » 3
ACIí» : ATAB)*AC3) )
AC1=AC1 . A N D . M i i S K l
ACi=ÍYT)/i5. {AWORD)=(AWORD)^1
(vpTR)=Resto AC3=(ÍAWORD))M3
AC2 = ( ( A T A B ) * - A C 3 )
ACa=ACl+AC2
CAC0) = ( A C 3 ) * 1 0 0
Enmascara « AC2=[Link];
A C 1 = ( 3 J ! ( S P I X ) + ( P T R X ) )« Jt66+(PTRBLK)
í Z0NA)=AC1
Posiciona en PICTU-
RE,Crea nueva ZONA Graba en SLOCK
en .5L0CK
{PTRX)=(PTRX>+1
CFTRX=CPTRX-1
Par
?í9
<t)
Ca.-Tibia Mascara
TW0RD=TW0RD-i-2
(3P:X) = (SP!X)Í-1
';;?IX!=(CSP:X;-I
(rTSBL:<)=BLOCK + (YPTR)t
(3PIX)=0
(CSPIX)=2.
{TWORD)=IWORD
(?TRX)=0
'CPTRX ^ =J
169
Almacena Retorne
Retorna
Retorna
AC1=(GETYM)J£128.
=0
AC1=Zíx.y)
Posiciona en XIMA
Lee i Imagen y aC'
tualiza GETFL
170
2,6.4 DIAGRAMAS DE FRECUENCIA DE OCURRENCIAS
representación de ima'genes E 3 5 ] ,
171
n n
— 1. T D = 2
estas circunstancias!
H = lg2 n c; 2 . 2 7 >
I.=IF(Z.)/NM <2.29>
1 m z 1
172
Es decir realizamos una transformación es manera
imagen.
sensación visual.
173
Analizaremos a continuación el caso de las
Lg< 1+1 L'^Io >.. y que nos pueda interesar que ssa máxima
';FIG. II.47>
lg(l+ I V I ^ )
F (I )= N M ^-=F(Z.) <2.30>
lg(l+ V I ^ )
174
F (Z.)/NM
I.= I ((l+I /I ) ^ ^ - 1 )
l o m o ''
< 3 . 31 >
(1-F^(Z.)/NM)
H= Io( (l+V^o) -1 )
< 2.32 >
correspondiente de negros,
175
señal .
responde a:
<2,30>
Y la transformación correspondiente es
F (Z. )
I. = I^ ( I /I ) ^ ^
1 o m o
<2.31 >
17é
FIG. 11.46. Transformación de [Link]
LCJ( ] t l / lo]
IMAÜliN CERLBRO
Lg(lrlm/Io)
li
HIPERBCLIZACION RETINA
t-i ( T i ) N(Ji J
Xn Xi Ii
1o 1,11
177
FIG. 11.50a. Imagen ejemplo
173
El ' ^^ -* ¿ S í , * I*
•••¡^•¡•^
iiiHIlili
i
FIG. 11.51 a. Imagen Ejemplo.
179
FIG. 11.51b. Histoqrama de la imagen anterior,
con 10=0.5.
130
FIG. I I . 5 1 d H i s t o g r a m a d e l a imagen anterior.
iiliiii!*iéSS!^E
\:;: :;j:;::;::;i;:i::::v::::i>¿Í '"•n "
ililli
181
FIG. [Link]. Resultado de la transformación
132
2,6,5 IMPRESIÓN EN COLOR
impresa.
1 84
imagen incident-e ai sistema visual humano sera
1 Sí
A ^ "^^ M PIXEL
A:Amarillo
\^ l\ M'.Magenta
C: Ciari
c\.
el problema!
8
Y = K Z S. Y.
i =l ^ ^
8
R = K Z S. R.
1=1 ^ ^
; s^^ o
B = K £ S. B.
1 1
1=1
K = 1/ S = 1 / Z S.
1=1
<2.35>
186
cuestión. Asi por €.-,1 inmolo para la Luminancia SÍ
tiene:
+q Y + <^ Y
AAM-N AAM N N
componentes R y B.
M M W M
C2.37)
S= ^ (VA- V e ) ^ ^ ( V e - V A ^ ^ ^^ Ve'VA^
Cc= R ( V M - V A ^ + ^ ( V A - V M ) + «( V M - V A ^
<:2.3S>
138
Mientras que los coeficientes /\i <i=H..M..C>
W M C ^A ^W ^C
Y Y Y ^M== Y Y Y
W M C A W C
^W ^M ^C ^A ^W ^C
RA R,« RT7
^A «M ^C
A • M W
Y Y Y A= Y Y Y
A M W A ""M C
\ ^M ^W ^A ^M ^C
Í2,39>
regmento de la recta:
^"A-^A _ ^"C-^C ./"M-^M ,2.40>
'A 'C V
Comprendido sn el prirriar oct-ante del espacio a,
de color.
1 9O
El organigrama del programa principal puede
cero.
191
ñ continuación cuando ya se ha generado PIXE
horizontales de la imaaen.
19;
FIG. 11.53. Representación espacial
óptimo
programación lineal.
19:
III. PROCESO Y RECONOCIMIENTO EH ESPACIOS CRCr^ATICOS
3.1 PREPROCESO
:. 1 . 1 INTRODUCCIÓN
194
en los conductores se solventa con el adecuado
195
3.1.2 UNBRALIZ.^CIO.N
como sigue;
f(x,y) si f(x,y) y U
g (x,y) =
en V otro caso
1 si U2 - f(x,y) ^ U^
g (x,y) =
O en V otro caso
< 3. 2)
lyfo
Si ss emplean umbrales como en <3,1 >.. seguidos,
rrias- simpies.
U = Fy ( f^(x,y), f2(x,y) )
< 3 , 3>
empleado es el siquiente;
198
DATOS:
técnicas.
199
Supóngase qus se tiene un conjunto de n muestras
•°\ .• "2 • "3 •• ' ' '"n •^'' '^'^^ -'^ quier-e realizar una
muestras es entonces;
p(x/e)= z p{x/x^;
j=i :
e^)
:
p(x^)
:
<3. 4j
;=:uu
PíX/&> es identificabie si se verifica
Donde A+B=l
componentes .•
e= (M^,y2'^l'''2' ^) <3.7:>
N
2
E^= (1/N) 2 (p(x^)-h(x^))
<3.-3-:>
i=l
siauientes condiciones;
;E, N
= O ; Z RW^ RW^ =0 ; RW^= p{x^)- h(x^)
?A 1
-"^h = O ; ^I (x^-pj^)^RW^RW2=0;
2 2 2
RW2-exp(-}5(x^-yj^)7o^)
K -L
202
3 E, N
= O ; Z (x^-Pj^)RWj^RW2 = 0 ; k-1,2
^^k 1
De donde se obtienen 5 ecuaciones transcendentes
i
I
La probabilidad de clasificar a Jjn punto como |
a
oscuro siendo claro es: ®
•.US
V l a p r o b a b i l i d a d de e r r o r es:
haci endo;
CT
= O í3,12)
8 U
Obtenemos
c:3, 13>
S i mp1 i f• i c a n d o
2 2
2
^ 2 ~ ^ ^^1 °2 ~ ^2 ''l ^
2 pp2 + o_2 n^2
A^= a, + 2 a,2 a_2 In (Ao„/Ba,)
20-:
dü.[Link].3d de probabilidad P< .SV& >.. entre ellas la
ta1 como!
p(x.) 4 +. B^x"'
= B,x" „ 3 +. B^x"
„ 2 + B,x + B
f ^ 2. 1 -I- W "V -»- l-í
<3 . 1 5 >
p (X . ) = O x < X
m
Con
p(x^)= O X > X^
C — ( B-j / B- / B_ , B. , Bj- )
e c u a c i o n e s de l a forma
a F N
h S-k
'- = Z x.^ ^ (p(x ) - h ( x . ))
3 B, ,
k 1 < 3 . 16 >
k= 1..5
z x . h í x . ) = B , z x . 4-B„5:x. +B^rx^+B^zx^
1 1 1 1 2 i 3 i 4 i
3 4 3 2
z x . h ( x . ) = B , 2 X. + B _ 2 : x . +B^Zx +B.2;x.
1 1 1 1 2 i 3 i 4 i
205
íh(x^) = B-,^ ^^i"''^2 ^^J+B^2:x^+ B^N
< 3 .1 7 •;
¡T.a;< irnos < >^:Mr 1 ,rtMr2 > relativos ÍFIG. [Link]. Existen
U = - ^ 3 / 4 B^ ^3^ ^.5^
206
un máximo y un mínimo KMr1 y Xmrl. Es dacir
p(x.)
' ^ x = C,x^
l i +C_x^
2 i +C^x.
3 x +C,
4
<3.2i)>
p(x.)=0 Vx. 0 O^x. ¿XM
20^
el mi nime Xmr del polinomio de cuarto orden < para el
III.13).
208
FIG. 111.1 Ajuste de un histograma por dos
gausianas"-.
•4 3 2
Bx +Cx -i-Dx +EX+F
2 09
FIG. 1 1 1 . 3 . Imagen e j e m p l o ,
21 O
'¡=^ií^ ll^tííj f - ' t l í ^ ' "
anterior.
!1 1
FIG, 111,5. Resultado de la aplicación del umbral
definido por <3.1>.
:12
í ' í
"< )
•<-•
<^^ •ir
Xv^
y*- r
i
FIG. 111,6.
:i3
A^smíiiíix^u I jiiiíH %iáiu[kMM
FlG. III.7
214
5|gpaa
ilÜfi
FIG. III.8
:15
i
FIG. I I I .9 .
216
FIG. 111,10.
21
FIG. I I I , 11.
218
FIG. 111,12.
21 "3
FIG . I I I .13.
i ü U
1,3 FILTROS LINEALES ESPACIALES
f (n,m)= Z 2 f (i,j)6(n-iAx)ó(m-jAy)
a a
i=r-ooj=-a. Í:3.22>
221
g^(n,m) = T { f^(n,m) ) c3.23>
00 os
A l c o n . i u n t o de p u n t o s a l o s c u a l e s e x t e n d e m o s la
02í>
sumatoria lo deriominaremos región de soporte del
fTianera que;
Rjj={ (k,l) I 0^ k ^I ; 0^ 1 ^J }
< 3.27 >
OO 00
223
variables e ;>•• e -^ ., que es una función puramente
*
h (-n , -m) = h (n,m)
< 3.29 )
siguiente;
K-eaies. Es decir:
H ^{ wX ; wy) = H ( | w |X , | w y| ) ^_..
K ^ ^•S^ 3
224
;s en sste caso [Link] por;
I
H{w ,w ) = h(0,0) +2 T. h(n,0) (cos(nw )+cos(nw ) ) +
^ y _|. n=l ^
<3.32)
emoleados son:
225
a> Los rectarigulares., definidos como resultado
sigue:
1 ; -1/2 ¿ n ^ 1/2 y -J/2 ¿ m ¿J/2
W^{n,m) =
O ; V otro (n,m)
22b
para ei caso de filtro ventana <zircL.l5f-, la
T\ =pcos 9
Wc(Wx,^y)= //exp(-j(w^n+ w^p) d^dn^í }
X y
R M =psen 9
2 2«
w =(w +w ísení 2ir-i')
R X X y
c
= (5/ exp(-j(w pCOs9 +w psen9) d9dp = {
^ y 2 2%
O w =(w +w ;cos(2iT->t')
y X y
R
c
W (w ,w )= (5/ expj(w 2...
+w 2,35
) ^ sen('i'-e) pdp d9
c X y X y
k=-oo
así resultara:
R
W^(w^,w^)- z exp(jk(y-9) d9 / Jj^( (w^+wj)'^) pdp
k=-o° O
R
c
2.„ 2,Í5
W (w ,w ) - 2-n f J (p (w +w ) ) pdp =
C X y O X y /^'^'
R O
-27r / (pj'(p(w^^+w^,^)^ ) + J . (píw^^+w^^)*^)) do = {z=p(w^+w,^)'^}
o
2 ,..2,% „ , 2 , 2,^5
R ^ í w " H-w")'^ R (w^-i-w"^)
- j p c x y e x y'
= (2Tr/ (w +w )) (zJ (z)| - / J (z)dz
^ 0 O
2 2 k
R (w +w ) '
e x y
+ / J^(z) dz )
O
^c("x'-y)= ¡ ^ ^ ,3.36>
(wX +wy )
h_(n,m)
1
= (l/4^ ) ^ ^ H{w^,w
A y
)exp (jwA n+wy m) dwA ¿wy
C3.37)
es.33)
la expresión siguiente;
co oo
2 ^
H-,(w^,w,)= s £ { (l/4Tr ) / / W(p,n)exp(j (pn+nm) dpdn }
ts. X. y
m=—oon=—oo
h^(n,m)exp(-j(nw^+mw, )
^ X Y .;3.39>
Es decir
Í29
ÍFIG . III , 14 >. Cuanto mas grande sean Re o < I.. J > tanto
1. Paso—bajo
H^(w ,w ) -
I x' y'
O ; V otro w ,w
X y
<3.41>
i3.0
2
h (n,m) = (l/4Tr ) / exp (j (nw^^+mw ) dWj^ dw
<3.42>
de variables!
w =w cos9 ; n=(n 2+m 2 )% senY
X
2 2 Í5
w =w sen9 ; m=(n +m ) cosí»
Y
k=-» O
= (l/2Tr) /^ J (w (n^+m^)'^ w dw =
O
R
(1/ 2Tr) / (w J|( w(n^+m^)'^ + J^ (w(n^+m^) ^) ) dw
O
Resultando
2.2.^,
^ , , ^w "Jl^^wí" +"^ )
h^(n,m)=
^ ' 2. (n^+m^)^ <3.43>
231
correspondiente es
< 3.44 ?
[Link]-Banda
H(w ,w )=
X y
O ; V otro w ,w <3.45)
h^(n,m)=
2= (n^+m^)*^ 2^ (n^+rn^)^
•C3.4é>
h ( n , m ) = h (n,m) W(n,in)
'-. 3 . 4 7 >
Í32
3. Paso—alto
2 2 h /
O ; (w +w )^ ^ R
X y w
H(w ,w )=
X y
C 3.43 >
1 ; V otro w ,w
X y
233
( I + 1 )(J4-1 )
oxI+1
I _J_ !
.v\»-.
[Link]
R ,=1
R"Í=2
w2
234
3.1.4 TRANSFORM.'iíCIONES CROMATICAS ELEMENTALES
f^^(x,y)= (fY(x,y)-0.3fj^(x,Y)-0.11fg{x,Y))/0.59
c" 3 . 5 2 >
235
mencionados.. junto con la luminanciaj. son ds gran
mismos.
SAT(p)= 1- min(r ,g ,b )
p'^p' p'
236
Esta expresión sstá just.i+''icaída por su
dada por;
(2r - g -b ) / 6 ^
P ^P P
TON(p)=arcose= arcos
((rp-1/3)^+(gp-1/3)^+(b^-l/S)^)^
< 3 , 5 5 .)
particularmente interesante la c o d i f i c a c i ó n en e s t a s
simplemente:
Y=0.3R+0.11B+0.59G
U=B-Y
V=R-Y .-,-,-,
En e s t e r - e r e r e n c i a l , l o s p i a n o s de i g u a l energía
constante. E l p u n t o de i n t e r s e c c i ó n de e s t o s planos
tiene;
Esto es!
233
[Link] compirendida ds^de el blanco al negro
atiso I u t o s .
(I.('."'
5 (l„.il..l' )
(0,1,0)
P7-=r
3.4.5 DETECTORES CROMATICOÍ
24 0
operaciones no lineales que acentúen la select-ividad.
2 2 k
A« =( Aai + Aa2 )
241
aplicación del mismo. La primer-a usando una mascara
E= M a - d i ^ + |b-c|^
a
'•: 3.58)
a=R,G,B
1 ; E ^ T
E(i,j)=
o ; V otro E
E^ = |a-d| + |b-c|
"^ a a <3.59>
ci=R,G,B
0; V otro caso
242
se encuentra el de Sobel C 2'5 ] . Por extrapolación del
donde Sj^= a + a + a
ka k+la
k+2a
T]^= a + a H-a + a + a
k+3a k+4a K-t5x k+6a k+7a
243
Exist-en ot-ros op6:r"-adore3 de contorno como el
medio de:
<3,Ó3>
-1 -1
H.,
ik
= -1
-1 -1 -1
í e g u i d o de una o p e r a c i ó n no l i n e a l de l a forma:
245
permite obtener para cada punto.. Aa. '•2-- q u '
po^iD i 1 i t a n la gene-Kaciori de l a fnatr-iz de s a l i d a
convolución responden a:
- 1 0 2 -1 •2 -1
Hi l -2 0 2
«12=
- 1 0 1
246
i A • 1
2 1
j .- r
1
A
3
^ 1
/ • !
1 1
^ 1
: ^
0C=1 1 1
1 ^
1
0C=2 I
CC=3
a b e a a a
1«. 2o(
d e • f a
"7^ 3*
a h i
V a a
-ex
M Roberts
a b
c d
Í4?
^::C*.-Sv-'o;c-7"-fl
:< - • •
|v-
:Í:Í-
•:Í
^-t
w-
.•Sí;á:i™üu-.:i-
243
aliB«*s»'lí;i::
fllIBi mm-
«fP*^ •(.."^ÍÍ:-. -
r-K:V.c;-.
-••;ÍIÍ-'
Sobel L .3.
>[Link]
3.4.6 TRATAMIENTO DE IMÁGENES RUIDOSAS
K L
g(n,m)=(l/4KL) Z z f(n+i,m+j)=f(n,m)
i=-K j=-L <3.64>
25 0
difunden los bordes y los cont-ornos de las formas
dec i r:
f (n,m) si f (n,m) -y U
g(n,m)=
f {n,in) en V otro caso
aproximadamente.
251
Tukey C~v3 como herr3rriient.a en el análisis de series
252
dit'"icult.a su expresión cuant-itat-i va. Sin embargo
253
var (y) = 1/ 4 (n+2) < 3 . 69 )
varianza:
A
m
^WílP'**^
filtro mediana.
255
3.2 SEGMENTACIOH
256
puedan encontrarse soluciones de tipo heurístico.
C87 3.
propiedades:
1 . - o 1 =£.
la partición. "
el mismo".
Pf=iñ
algunas: iiiedidas corr-sspondisn a local ilaciones
9 = I e^ I = i f I ^3,7,_,
239
la distancia euclidea a dos puntos fijes en el
2éO
con él • En el caso ds queu lo hubisr-a se aafagara 5
261
sin tener sn cuenta la saturación. Esto es, solo se
262
FIG. 111.25, Clustering mediante histogramas,
Regiones—Conexas.
263
1 No
Asigna Cluster Fl=FI+20
1
K=K+1
264
FIG. III Imagen original a Segmentar
265
FIG. 111.29, Resultado segmentación tipo umbral
FIG. III.30a.
266
FIG. III,30b,
FIG. 111.30c,
267
W^:M
263
FIG. I I I . 3 1 b . Segmentación t i p o Umbral.
MÉEM^ú'^k^hjÉiú&jií¿^úimMlÉlÉ teik
FIG. 111.31c.
269
FIG. III.31d,
FIG. III.31e.
270
FIG. III.31f.
FIG. III,31.g
271
FIG. III.323. Componente: Y Imagen Ejemplo
FIG. 111.32b. Componente R Imagen Ejemplo,
273
;: . ••.••.•t:tf§Jíi:í::::--
.v-«lü-.:::: :••• :i-:• • :-: ':
••.[Link]--
•:Hi«:ñÍ7:' •
• • « : ; • • . : • •
. *
...•¡Ví«S|¡jS.
••••;i;i|p~- •• •
iü^-
274
X/^
273
FIG. I I I , 3 4 b , C l u s t - e r num. 2 ,
FIG. 1 1 1 . 3 4 c . C l u s t e r num. 3
276
L
.üillllyÉiijiliáálcl.
FIG. 1 1 1 , 3 5 . H i s t o g r a m a g r i s e s C l u s t e r num. 0.
FIG. 1 1 1 , 3 6 . O b j e t o r e l e s / a n t e C l u s t - e r O,
3.3,2 ESTRUCTURAS DE DHTOS
la misma.
27!=!
111.37^ los nodos de grado uno corrssporKien a regiones
segmentación.
279
[Link] PIRÁMIDES V ARBOLES
siguientes:
230
De esta definicidrí de corte resulta que una
Piramide-M
Piramide-T
281
corresponde a las rriat rices indi vi duales de una
i
Si el filtro paso bajo es ideal.. aparecen |
I
espúreos de baja frecuencia espacial como ^
233
1 1
1 1
la forma i
284
FIG. 111.37. Grafo de regiones adyacentes,
A^^.^íx.y)
^o'^-y'^ Aj^tx.y;
t , h(x,y)
^
S(x,y)
283
3.2.3 SEGMENTACIÓN JERÁRQUICA
236
conjunto F . De-Pinimos una r e l a c i ó n da c o n t - i n u i d a d en
t r a s m i s i b l e R^ q u s s a t i s f a c e las propiedades:
a) Simetría
231
Q. es el umbral de continuidad e indica la
s
máxima distancia a partir de la cual los objetos no
239
en relación con otras propiedades y magnitudes de la
imagen.
23 0
NIVEL ESPACIAL
NIVEL CROMATICO
U = B-Y
291
3,3 RECONOCIMIENTO
292
coeficientes de fourisr-, momentos.. descriptores
293
del segmento., una vez conocido el ángulo 9 r-especto
cambio de coordenadas:
x' = (D /D ) X + (1-(D /D ) X
o max o max o
Análogamente para y'. Algunas propiedades como
294
propiedades normalizadas, por- medio del representante
según:
C' = C
kj kcosO+jsen9,-ksenG+JCOS 9
por!
i Y k f(x,y) dx dy
m., = f f X-'
29Ó
c.d.m. de la imagen son invariantes frente a
traslaciones!
i k
"^cjk"^-''^^"^o^ ^^"^o^ f (x,y) dx dy
cjk cjk
237
rotaciones y traslaciones,lo son también ante
citados.
n , m= 0,1,2 ...
Donde jnm son los ceros de las funciones de
Bessel y Jn la función de Bessel de orden n. Estos
293
3.3.2 ENMASCARAMIENTO
formas cromaticas.
299
establecer:
la expresión!
3
^ . z «i ^(fi(x,y)-g^(^y))'dA,3 .,^^
3
I f f°° f . (x,y )g(x+u,y+v)dxdy <3.75>
i=l '" ^
g^(k,l)=f^^(k,l)+ n(k,l)
g^(k,l)=f2i(k,l)+ n(k,l)
301
desviación o ^ Como se trata de sucesos-
independientes y n-: k, 1 > se disti^ibu^^e de forma
tiene:
^ "^A ""A
T f T exp(-(g.(k,l)-f .(k,l))^/2 a^)
1 k=l 1=1
Para comparar el grado de similaridad entre g y
3 n iti
z z^ z^ g^{k,l) fj_{k,l)
i=l k=l 1=1
Así pues, evaluando este coeficiente para todas
302
máxima correlaci<ín nos indican las zonas de máxima
por la expresión:
3 n m
f f í 9^(1^'™) fj^(n-i,m-j)
Cfg(i,j)=
2 Z Z g (n,m) Z Z Z f (n,m)
k n m k n m
, ,. ., k n m ^k^"'"^^ f],(n-i,m-j)
'fg^ '-" ZZZ gj^(n,m)
Sin embargo estas expresiones presentan la
303
error se evalúa por medio de:
3 n m
E(i,j)= 2 2 J: |gj^(n,m)- f j^(n-i ,m-j ) |
k=l n=l m=l
Estas técnicas exigen un posterior tratamiento
O ; en V otro caso
Donde Uf se fija de acuerdo con las condiciones
304
cuales corresponde a un tamaño de imagen dada. Solo
3 03
IV. COHCLÜSIONES Y PRINCIPALES APORTACIONES
"software" de control.
3 06
a 1 ternat- i vas .
histogramas.
asnera1izaciones necesarias•
30S
visual . fj~imi=mc-^ la mebologia seguida indica varias
3 09
los espacios de descriptores de nivel ma's- alto
31 O
'I , REFERENCIAS
Zaragoza.
31 1
REFERENCIAS
313
REFERENCIAS
314
REFERENCIAS
315
REFERENCIAS
316
REFERENCIAS
62.- MASSOF, R. W. j BIRD, -J. F, < 1 .978 >! "A General Zone
Theory of Color and Brigtness Vision. I, Basic
Formulation" , .Journal of the Opt i cal Society of
America, vol, 68, numero 11, Noviembre, pp.
1465-1470.
317
Rtt-tREHCIAS
72.- MORENO-DIAZ, R.; RUB10, E. < 1 .979 >: "A Theoret ica1
Model for Layered Visual Processing" Int. J.
Bio-Medical Computing, <10>j pp. 231-243.
318
REFERENCIAS
319
REFERENCIAS
85.- PRATT,. i.'.i: '.'.I. 'í 1 .• 978 > ! "DiQit-al Iroaae Processing".
•John '.".'il'sy and Sons. Heu' York,
\.' C 'J
REFERENCIAS
321
REFERENCIAS
322
REFERENCIAS
Noviembre, 1.983
VI. APÉNDICES
324
6.1 ECUACIONES Y RESULTADOS
325
6.1,1 DEMOSTRKCICNES
326
a ) O b t e n c i ó n de l a c c i u i c i ó n (2.4)
.N=128
M=116
ÍE
-= :_ ¿ . 2(-kB) (-2)(j-i ) W(i,j)=0
^'0.
W(i,j)= f^^-k(A(i-i^)2+B(j-j^)^+l)
^•G(i,j)= A(i-i^)2+B(ó-j^)^+ 1
^^W(i,j)=0
327
i)p A . 3 , A . n y A.8 r e s u l t a :
4 ,v-/ . . ^2^2,
( N 2 ( i - i ^ ) f - i ( i - i ^ ) z : f).iNZ(i-i^r-(Y:(i-i^)'^) )=
=(Nzr(i-i^)^f-z(ixi^)^z:z-f)(Nríi-i^)^-r(i-io)ni-i^)^) ([Link]
rüembro 1 = 1 , • Ip
iacmbro I I = I . I
De A.11 s e o b t i e n e :
I„= i^(4Nri^-4(ri)^)+i„(4Ii(ri^)-4Nli^)+
+ (N^i^-Í^i^)^) (A.13)
i_-i ( 2 ( i i ) ( r z f ) - 2 r ; z i i f ) + ( N r z : i ^ f - ( ; ! : i ) ^ S £ f ) (A.M)
i^=i^(2CEi)''-2Nri'')+(N?i^'-i:ii:i'') (A.15)
üe l a i g u a l d a d : I , I_= I „ I .
^ 1 2 o 4
i e s u l t a (2 4)
328
b) Cüof i c i o n t o s f1p (2 ,1)
a22=128(RRj^ D3-RHj^.D^)
bj=116(RRj^ D2-128D^)
b^=128(RRj^ D^-llGD^)
Ri4^=V (i-i^)4
VL>_(i-i^)2fia
V'^lí^-Jo^^^ij
329
c) Influencia de las rotaciones en los coeficientes de Fouricr
C = i i exp (-2ri(jx+ky))f(x,y)dz dy
'^- 2írL
f (r , ^ )rdr ds" =
f{r, ^)rdr df = C. ., , , . ^ , ,.
/ i jcos>c-+ksen>9, -gsen0+kcos0
330
6.1.2 INVARIANTES
331
a) I n v a r i a n t e s frente a rotaciones
^1= '"20'"'"02
Ig= ( ni20-"'02^ ^ ^ ' " 3 0 ' ' ' " l 2 ^ ^ - ^'"21-'"'o3^2 ^ "^
-(m3Q-3m^2^^"'21-'"'03^^^^'"30-*^'"l2^^-^"'21-''"03^^ )
^3= ^4 / H
332
6.1.3 RESULTADOS
333
íjfffai,
ili i-=á-
.¿BU*!.. :
•iag^
K5Si,p?syísji •iívílt^^í^-'*^'";
334
fe:
mm^l
:.:mm •mm
¡»
335
'^mr^ >
WilKÍíi;^
:'r-i^¥:
336
FIG. A,7, Resultado de una operación de enmascaramiento
337
FIG. A,9, Componente Y imagen ejemplo.
338
;;«;::i!::2:iíí!!'*;:: '
• •v:;iS;:ji;:;i!:i:!r;iiM:::!i;-:rv;iiJi;ííS:í:;;lf '
•í5fc3í::S:i:!:;:::5::::;í::.;.:::::::í:::::::jiü¡,,
:.;Í:)SJÜ.U:;ÍS!:::J.\::ÍÍMVVVVV
•3.l4:"-v5r'iv;'-sy;":;"á:';*:í-'
•""••'••••!.:!: Ji
339
•s
FIG. A , 1 3 , C l u s t e r núm. 1 ,
" ^
FIG. A . 1 4 . C l u s t e r núm. 2,
340
FIG. A.15. C l u s t e r núm. 3 .
341
6,2 PROGRñMñí
342
C'PERrtCIüit: GEÍHEKH E IrlPRlriE 'JÍÍH F Ü H C i Ori 2 = 2'.'/.,'i''}, DÜML'E
.••: E ¿ LR C Ü D R Ú E . M H C ' H H O R I Z Ü r l T p . L '.UE'lvE O A 131 , ),
'í' E 3 L H CÜ üR D E í<H f'H '•/ E R T I C HL 'i í>Eo DE O A 1 1 9 . ^J Y
2 ES E L H I '•,•'EL C'E GR I S •:' [ ' E 3 O E ú . HE GRO . A 3£• . ..
GLrtt-iCO > .
LA F ü H C I Ü H Z';.... V ' VIEH.E S u r l I M I STRAL'i^ POR LA
SUBRUTIM.A P I C F H ,
; 3UBRUTINHS UTILIZADAS;
.EXTH PIXEL ; CÜLOCA UN P I X E L EN P I C T Ü R E
.[Link] IPIXEL j INICIALIZA P I C T Ü R E
.EXTN FPIXEL j F I H A L I Z A C I O H DE P I C T Ü R E
,EXTN IMPIC ; IflPRIME P I C T Ü R E
,EKTN PICFH ; GENERA Z = Z < X , Y >
.TITL PICGH
.ENT PICGH
HKtL
PICGH S iA -i / SVHCO DIRECCIÜH oE RETÜRr-JÜ
3UBZL \> y = 1, Nú INICIAL ICE "'PICTU
.J3R M PIXEL IHICIALIZACION
LDH ú H\20 NO . V
3TÁ ú CTRY , INICIALIZA
3ÜB ú. 0 0
3TA 0, Y INICIALIZA
i LOÜP LOA 0 H132 HG . X
SI A Cl, CTRX I NIC I AL IZA•
SUá Ü. Ú 0
3TA 0. j<; INICIHLIZH
.LOUf- LDH 2 ^X Y Z T B PTR XYZ
JSR y PICFH C A L C U L A Z E N F ü H CI Ü N D E X . Y'
JSR 1? PIXEL COLOCA PUNTO
I3Z J<¡ SIGUIENTE X
DSZ cz•RX ULTIMA X •'>
JPl? [Link]ÜP HUEVA X
ISZ 1 SIGUIENTE Y
DSZ CTRY ULTIMA Y ?
JHP YLÜÜP HUEVH Y
JSR [Link]
JSR y,IMPIC
JriP eSVACS ; RETORNA
•'r-lCj' ; U
IPIXEL; IPIXEL
PIXEL: PIXEL
343
FPL•^EL FPí^^:EL
i f'í t^ 1 G '. I rl P IC
P 1 CFH: PI CFr^
; CÜÍ-ITHDÜR X
LTftY: Ú j CÜMTADÜR V
:;vZTB; .+i ; FÜHTERÚ DE LM T A B L H H Y Z
; C O Ú R D E H H D H H O R Í Z Ü N T A L <Ú A 13!
; COORDEHADA VERTICAL <O A 1 1 y. )
; TÜHÚ DE GRIS <ü A 36.)
,EHD
344
.: I M P R E S I D M DIRECTH L'E FUTO
; üPERrtCIÚH; L E E E L F I C H E R O ">^ÜTÜ" S O B R E M E H Ü R I H , C R E M E L
F I C H E R O "PICTURE" L O R R E S R ü H D I E H T E r LO IMPRÍMh
C O H E S C A L M D O D E £• R L I D H R R •"! P O R C IO M H L A L C' E
ENTRrtDri.
.EHT IMAÜ[Link]
.HREL
345
+1 f J ti I I c H Ic h
O T P H r l E ü l H IrlRGEiJ ÜbA r^ríKH
G E tí £ R R R P I C T ü R £ .'
t-'Aü STHRT
346
h I N H L I ^ H L lüM Dt LH SÜBKÜIÍMH PD'.i
'PICTüRh
LO CIERRA,
Í'HTÜS üh hH I RHL'H ;
.EKTN HBZM ; Hü , OE E:VTES POR 2ÜHH
.E-<TN BLÜCK ; DIRECCÍÚN INICIAL DE L M Z Ü H R
; MENOR IH
,E.-<;TN ZONrt j NUMERO (DE O A ? .> DE LA ZONA DE
; "PICTURE" EN MEMORIA
DATOS DE SALIDA: FICHERO "PICTURE"
SUBRUTIHHS UTILIZADAS;
ERMES ; SUBRUTINA DE PRESENTACIÓN
.TITL FPIXEL
.ENT FPIXEL
. EXTD ERMES
.EXTD MPVU
•TKTM 1
CANAL DE -PICTüRE" = ú
LHPÍC = U
NREL
3TA 3 , S V A C 3 .; DIRÉ C C I O N D E R E T ü R H O
LDA 1,y,ZONA ; ZONA A ESCRIBIR
LDA 2..HBZH ; NÚ, oE B Y T E S POR ZONA
JSR iJnPYÜ ; ACú,.^C1 = 3VTE PTER EN FILE
,SY STM
. 3P CHPIC .; PÜSICIOHA
JMP ERRÚ1
LDA Ü,tí.BLÜCK .1 BYTE PTER
MOV 2,t .; Nü , DE BYTES POR ZONA
. SY TM
. yRS CHPIC ; ESCRIBt ULTIMA ZONA
JMP ERRÜ2
.SVS
.CLD CHPIC CIERRA "PICTURE"
JMP ERRO3
tfSVACo ; RETORNA
JMP
t i P R i'.n : JSR •i E ,•<h b S ; P R h •;• t ti I ,A C I O h Db M b r-í S fí J c. D fc b Rf-í OK
.TXT "ERROR SPOS< 1 5 :• "
ES.R 02 : JSR yERMES
,TKT "ERROR iiJRS< t 5 > "
ERR03; JSR INERMES
.TKT "ERROR CLÚ3E<15>"
. END
348
CÜLÜCH U N PII'ÍEL L'HLiAS LHS C O Ú R D b H H D H S ?<.. Y Y t L T O H Ü Dt
G R I S Z.
DrtTÜS D E E N T R A D A ;
.EXTN NLZN NUMERO DE LINEAS POR ZONA
•EMTN NBZN NUMERO DE BYTES POR ZONA
NUMERO DE UORDS POR ZONA
.EMTH HULH TABLA DE TONOS DE GRIS
.Eí<TH TABLA DIRECCIÓN INICIAL DE LA ZONA EN
.EXTH BLOCK MEMORIA
AC2 = XYZPTR
.XYZPTR; X COORDENADA HORIZONTAL
(DE O H 131,)
COORDENADA VERTICAL
CDE O A 191 . )
TONO GRIS
<DE ú A 36. >
DATOS DE SALIDA; FICHERO "PICTURE"
FORMATO DE LLAMADA: .PIAEL; PIXEL
J3R [Link]
TITL PIXEL
E'AT PIXEL
,EKTD ERMES
,E:aD DIVI,MPYÜ
, ENTN MPY
. T rí I M 1
C A N A L Dt. P I C I Ü R L = O
NLINTABLrt = d
D H I Ü S : ^ C 2 = P T E R T A B L A ;<:YZ
DESPLAZHMIENTDS EN._LA TABLA XYZ
ü =< X =< 1 3 1 , H O R Z Z ü N í A L
ú = •^i Y = <i 1 1 "3 . V E .R TI C H L
O =< Z =< 3b ,
NIVEL DE GRIS;
ü => NEGRO, 3 ó . => BLANCO
C H P IC
. NREL
349
P I X E L : OTH 3,3VAC3 DIRECCIÓN DE RETOñí-lü
3TA ¿L, XY2P PUNTERO DE LA TABL.M XYZ
LOA 1 Y ^ AC1 = V
LOA 2, ,ML2N Nü . DE LINEAS EN UNA ZONA
JSR C-DIVI AC1=ZPÜS, ACü=LINEA
LDA [Link] .: ZONA ACTUAL EN MEMORIA
STR Ú,YPTR SAVE LINEA
•5UB# 3.1,3NR C O M P H R A ZPÜ3 Y ZONA
JMP MEMPIX IGUALES
STA 1 , L" . ZOHA ; SAVE NUEVA ZONA
MÜV 3, 1 ZONA ANTIGUA
LDA 2..HB2H NÚ. DE BYTES POR ZONA
JSR L-MPYU ACÚ,AC1=BVTE P T E K EN FILE
,3Y3TN
,3P03 CHPIC POSICIÓNA
JMP ERRÚ1
LDA [Link] j BYTE PTER
NOV
.SY3TM 2,1 ; NO, DE BYTES POR ZONA
.UR3 CHPIC ; ESCRIBE ZONA ANTIGUA
JMP ERR02
LDA 1,ü,2ÚNA ; HUEVA ZONA
JSR eClPYU ; AeO,AC1=BYTE PTER NUEVA ZOHA EN FIL
.3Y3TM
.SPÜS CHPIC j P03ICIONÁ
JMP EP>RÜ1
LDA [Link] j BYTE PTER
MOV 2,1 ; NO, DE BYTES POR ZONA
.3Y3TN
.SDo CHPIC ; LEE: NUEVA ZONA
JMP ERRÚ3
MhHPIX LDA 2, XVZP ; AC2 =* PUNTERO TABLA XYZ
LDA 0,Z,2 TONA Z
MOVZL 0, 1 AC1 = 2=«Z
ADDZL 1,0 ACÓ = Ó*Z <HLINTAeLA:)
.LDA 1 , I?. TABLA
MOVZR ; BYTE PTER
1.1 UORD PTER
HDD 1 ,0
STA PTER P I X E L . E H TABLA
O^TBPTR ALMACENA PUNTERO
LDA 1,YPTR
MOVZL LINEA
1, O ACÚ = 2*LINEA
ADDZL Ú. 1
LDA 6+LINEA •
0 , .^, 2 TOMA í<
LDA 2,[Link]
MOVZR ; BYTE PTER
2,2 WORD PTER
MOVZR 0, O UORD PTER, CY=1 => BYTE MENOS
SIGNIFICATIVO ES PIXEL
ADD 2, O OFFSET EN ZOHA
LDA Z, .NULN NO. UIORDS POR LINEA <=bó,>
MPY MANTIENE EL VALOR DEL CARRV
MOV 1 ,2 AC2 = PTER WORD DE PIXEL EN ZONA
LDA 1,MA3K 37?
MOV 1,1,3ZC CY=1 => BYTE MENOS SIGNIF.
COM 1, 1 MA3K=177400 => BYTE MENOS SIGNIF
LDA 0,N6 6
STA 0,CTER 6 BYTES POR PIXEL
LüúP : LDH u. U , i ; iJúRD EN Z Ü H H
HND t, 0 ; ENMASCARADA
LDA 3, yTBPTR ¡ WÜRD EN TABLH
ISZ TBPTR S I G U I E N T E CÜC'IGÜ EN TAbLA
CÜM 1 .1 C O M P L E M E N T A MASK
AND 1 ,3 BORRA BYTE ANTERIOR
CÜM
AHÜ 3. Ü
ADC >i / ü AC3 OR ACÓ => A C Ó : COLOCA
NUEVO CÓDIGO
3TA 0, 0,2 ESCRIBE UúRD EN ZONA
CÜM 1 ,1 REPONE MASK
LDA 3, , NldLN ; INCREMENTO DEL PUNTERO EN LA
3, .NldLN
ZONA EN M E M O R I A
ADD 3, 2 S I G U I E N T E LINEA DENTRO P I X E L
DSZ CTER FIN DEL B U C L E ?
JMP LOOP N O . E J E C U T A DE NUEVO
JMP QISVAC3 RETORNA
EHD
351
; CALCULÜ DE TONO DE GRIS P H R A I M P K E S Ü R H
ÜPERHCIÜH: C H L C U L A 2 = Z'; X ..
V .) TOMO DE GRIS COMPRENDIDO
ENTRE O Y 30, H PARTIR DE UNA IMAGEN EN
MEMORIA DE TONÜS DE GRIS CüMPREHDIDÜS ENTRE
O Y 37?, ALrIACENADA A PARTIR DE "It-'.AGE".
RETORNA EL MISMO AC2 DE ENTRADA,
.TITL PICFN
.ENT PICFN,FLAG
352
3UB 1,1 J
LDR O, , FFÜTü ; BYTE PTER DE "FOTO"
,3Y3TN
.ÜPEH 77 .; ABRE "FOTO"
JMP j 31 ERROR, PARh
LDH 1 , NBYTE ; MEDIO "FOTO"
3UB ü, O ; O
.3Y3TM
, 3PÜ3 77 POSICIONA tH LA MITAD Db. "FOTO"
JMP ; SI ERROR. PARA
LDA 0>.IMAGE .: UÜRD PTER DE LA ZONA DE MEMORIA
ADD 0.0 ; BYTE PTER
.SY3TM
, RD3 77 ; LEE SEGUNDA MITAD DE "FOTO"
JMP ; 31 ERROR, PARA
.SY3TM
. CLÜSE 77 ; CIERRA "FÜTQ"
JMP ; 31 ERROR., PARA
LDA [Link]
LDH Ú, Ú , 2 ; X
LDH 1,1,2 ; Y
OH TI M0''/3 1.1 ; Y*4 0 0
MÜVZR 1.2 j Y*2úO
ADD 0,2 ; K+2 0 0*Y
LDA O,,IMAGE
ADD 0,2 ; ADDRES3 (í<!,Y>
LDA 1,0,2 ; Z <EHTRE O Y 377!)
LDH 2,H37
J3R GMPYU ; AGÍ = Z*4ÜÚ í Z' ENTRE O Y 3Ó. >
LDA 0,MA3K
AND Ú,i ; ELIMINA "DECIMALES"
M0V3 1,1 ; Z
LDA 2,.MYZPTR
3TA
1,2,2 ; GRABA Z
JMP
eSVACS ; RETORNA
:2£R0: LDA 2,KY2?TR
3U8 O, O ; Z = 0 31 ?< O Y EXCEDEN LOS LIMITE;
3TA 0,2,2 ; GRABA Z
JMP e3VAC3 ; RETORNA
.TííTM 1
FFDTÜ: , + t •+ 2
. T:-ÍT "FOTO" ; FICHERO EN EL QUE SE ENCUENTRAN
; LOS PIKEL3 DE VALORES ENTRE O Y 255,
rrihD; lié, /2 ; VALOR MEDIO Í'E LA COORDENADA
; VERTICAL Y DENTRO DE "FOTO"
rJ&'í'TE: 11b.* 123 ; HUMERü DE BYTES DE L H HITAD
; DE "FUTO"
.END
354
5ÜBRUTIHA DE I NICIAL I2HCÍOH DE L H S Ü B R Ü T I N H P I X E L .
ÜPERHCICIN: L E E " T H B L H " DE NIVELES DE GRIS,.
I H I D I H L I Z A " P I C T Ü R E " A BLANCOS SI A.C2=0.
LEE LA ZUNA ú, INICIALI2A ZONA=0
DATOS DE ENTRADA: AC2
.TITL PIXEL
.EKTN BLÜCK
.EHT I PIXEL
.EfíT NLZN,NBZH.. NULN
.EHT TALBA,ZÜNA
.EXTD EftMES
. TMThí 1
NREL
.PICTURE: . + 1=*2
.TXT "PICTURE" ; FICHERO DE CÓDIGOS DE
IMPRE30RH QUE COMPONEN
UNA IMAGEN <DIVIDIDA EN
3 ZONAS DE NBZH BVTES>
,EHD
357
ÜPERACIÚN: A D Q U I E R E R TRAVÉS DEL DIÜI TAL!ZADOR DE
IMÁGENES 2b ÚA. UNA P O R O I OH DE LA IrtAGEM
T R A N S M I T I D A POR LA C A M A R H , ESPECIFICHDA
POR LOS D A T O S DE E N T R A D A , úüE PERilITEN
DEFINIR L A P O S I C I Ó N , N ' J M E R Ü DE P I X E L S Y
R E S O L U C I Ó N DE LA IMAGEN R A D Q U I R I R ,
DATOS DE ENTRADA:
ENT KU COORDENADA HÜRIZONTftL DEL
LADO IZQUIERDO DE LA
IMAGEN A ADQUIRIR
<ENTRE Ú Y 5 1 1 . )
.ENT YO COORDENADA V E R T I C A L
DEL LADO SUPERIOR
(ENTRE O Y 579.>
.ENT NX NO, DE C O L U M N A S
.EHT NY NO. DE LINEAS H O R I Z .
.ENT INCX DISTANCIA .X E N T R E DOS
PUNTOS S U C E S I V O S
.ENT INCY ÍDEM PARA Y
.TITL GZONA
.EHTN IMAGE,MP Y
.ENT GZONA
, NREL
358
JHP RtT 51 HY IMPHK.
DEVUELVE CY=i
HÚVZL O, 1
LC>H [Link]
LDA Ú, Y ú
2, Ú VÜ-IHCY
SUB
A C 1 = r-i Y -^ I N C \' + Y O - 1 r^ C 'r =
HPY
= '. N Y - 1 >-t-INCY + Y O
LDH <53O , )
RDCÜ 1,0,SZC
JMP R E T 5 1 A C 1 > = 5 8 Ci . .
DEVUELVE CY=1
MÜVZR# 2,[Link] SK'IP 31 C H S Ü INCS" PAR
JMP IMPAR CASO IMPAR
r MK •• LÚA 0,NY
3TA Ú,CNY ; INICIAL IZA
LDA O,IHCY
3TA
LDA Ü.CINCY ¡ INIC
1 .O
LDA
ADD 3,NA£KY ; MASK COÜRD. Y
3TA 3. 1
LDA 1,CY ; INIC. AC1 Y CY
LDA Ü,KÚ
HDD 3/mSKK : MASK COÜRD. X
3TA 3. O
LDA Ú,Ci<. ; INIC, a< i VARIA)
STA 2,.IMAGE
LDH
2,PTEK ; INIC, AC2 Y PTER <VARIA)
STA
LDA [Link]
PLÜÜP: J3R Ü^.í^CTER j INIC, PCTER
CKHAK .1 ACO=INC. PTER
LDA GTCÜL ; TOrlA UNA COLUMNA
LDH ; DE LA IMAGEN
ADD 3, C"-. NUEVO C.H
STA [Link] NUEVO PTER
LDA 3,2 AC2=PTER
LDA 2,0;-; AC1=CY
D3Z 2,PTER ; CUENTA COLUMNAS
JMP 1 , CY
PCTER ; O.K,> CY=0
MÜV; PLÜÜP
¿SVAC3 ; RETORNA
JNP ü, O
SVAC3 ; A L M A C E H Á M I E H T Q TE.f'IPORHL
.; DE LA DIRECCIÓN DE RETORNO
359
Vrt«',<; 5-30. .: ÍDEM PÜR LlfJEA VERTI CR'.
.'.i' ; U
'V 1.' ; 0
ij
M': : 0
IriCK ; 0
IriCY; 0
. INRGE: IHAGE
PCTER; O
IMPAR: L D R ú,HY
MÜVZR O, O
STH 0,CHY I í( I C
LDA O,IHCY
flOVZL 0.0 ; 2*IHCY
3TA Ü.CINCY ; INIC
LDA 1 , YO
LDÁ 3,NASKY
ADD
3TA 3. 1 INIC, AC1 Y CY
LDA 1 , CY
LDA O, X O
ADD 3,XNAK
3TA 3.0 IHIC, ex <VARIA)
LDA O, ex
3TA INIC. Ae2 Y PTER OVARÍA)
LDA 2,. ZMAGE
3TA 2,PTER
LDA Ú,NX
MCiVZL Ü,PCTER ; ACÚ
IHIC = IHC, PTER
ILDOP; J3R O,XMAX TOrlH UHA MEDIA COLUMNA
0.. O • DE U.H CAMPO DE LA IMAGEH
LDA
GTCOL
LDA
AD D 3,XMAX PTER SEGUNDA MEDIA C Ú L U M N A
LDA [Link]
'Z' V
LDA 2,IHCY
ADD 1 Y INICIAL ScGUí-ÍDA
1 , CY ; MEDIA C O L U M N A
J3R 3, í ; TOMA S E G U N D A MEDIA
GTCÜL ; COLUMNA D E L OTRO C A M P O .
; C O M P L E T A N D O UNA C O L U . M N K
o n Q 1^ 11 ¿j r, o r¡
LDA 3, ex
LDA 2.. IHCX
ADD 3,2 ; HUEVO ex
STA 2 C X!
I3Z PTER ; HUEVO PTER
LDA 2,PTER ; AC2=PTER
LDA 1 ,CY ; AC1=CY
D32 PCTER
; CUENT.A C O L U M N A S
JMP ILOÜP
MOVZ 0, 0 .! O.K. = !> C Y = O
JMP as\'üC3
'i'.fT«.Ti--rr^—íC',7^-'_*tfT;r^ jíi-v-.-íTS-**--*
360
TÜMA UHA C Ü L U H H H
DHTÚS: C H V , C I H C Y , OÍS. H C 1 = C Y , A C 2 = FT£F: EN IrJHGEM
HCÚ=INC. PTER
u
GTCOL STH 3. ,-1 ; HLHACtHA M R , R E T O K N D
LDH 3,CK
DOH 3,56 j E N V Í A ;Í
LDH 3, CNV
STH 3,CTER
CLüOP DÜA 1 , 56 ; EHVIA Y
LDH 3,CINCV
3, 1 j NUEVA Y
HDD 5Ó
SKPDH .-1 .; BUCLE DE ESPERA A
JMP .; QUE EL DIG [Link]ÜK
j REALICE LA ADQUISICIÓN
DIH 3, 5ó ; TOMA EL TONO DE GRIS i
3TA 3.0,2 ; ALMACENA EN IMAGEN
HDD 0,2 INC, PTER
D3Z CTER
JMP CLÜÜP
JMP yGTCOL-1 ; RETORNA
CÑV: Ü
CIHCY: Ü
ÜK : Ü
CV; Ü
CTER; 0 ; CÚNTAL.
TER: PUNTERO
END
:;t;^•-v•^-^^:;¿•í^r.;••; "••'
STURH sue 1,1
LDA Ü. .FOTO .; BYTE PTER
.3V9TM
.UPE ti U HbRE "FüTü"
JrtP CREAR SI E R R O R , LQ CREA
LDH ü. . IMAGE
HDD Ú, fJ ; BYTE PTER FI LEÑAME
LDA 1,HBYTE ; IMAGEN C O M P L E T A
.SYSTM
. WRS ú j GRABA EN " F O T O " LA
.: IMAGEN A D Q U I R I D A
JMP
.SYSTM
.RESET ; CIERRA FICHEROS
JMP
•SYSTM
.RTH ; RETORNA
JMP , ; SI ERROR.. PARA
JMP . ; STOP
CREAR .SYSTM
.CRAND ; CREA EL FICHERO " F O T O "
; Y ENTRA DE NUEVO
JMP .: SI ERROR, PARA
JMP RETIJRN ; VUELVE A ABRIR "FOTO"
DBIr-i DBIH
BIHD Bli-iD
,TXTM u
Crí ; .1X1
LF ; ,TXT "<12>"
ESC;,TKT " < 2 2 > ''
k ; ,TXT "R"
IMAGE IMAGE
GZOHK GZONA ; SÜBRUTIHA QUE TONH
; UNA ZONA DE LA IMAGEN
. rí u ; xa
. -r' 0 ; YO
. INCÍs: IHCX
. I N C Y ; I HOY
, HK : NX
. HY : NY
,TXTM 1
TTÜ: . + 1*2
. TXT "JTTO" .; NühBRt: A S O C I A D O A LA
.; P H N T H L L A DE LA CONSOL,^
: MENSriJE DE P E T I C I Ó N DE P A R Á M E T R O S :
. nSG ; . •>• 1 + 2
,TXT •'< ! 5 > < Í2>XiJ, Y O , I H C X , INCY, N X , H Y •?<15> ••. 'I '¿ > '
7.f,9
.NHSG: 32. HUMERO DE [Link]
.FOTÜ! .+1+2
.TKT "FUTO"
N3VTE: Í29,*115,*2 ; NO, DE BVTES IMAÜE.'^
.END START
363
; IMPRIME "PICTURE"
j ÜPERACIOH: IMPRIME LOS CÓDIGOS DE PUNTOS ALMs^CEHADOS EN EL
j FICHERO "PICTÜRE"
; DATOS DE ENTRADA;
,E}<TH BLüCK ; DIRECCIÓN DEL COMIENZO DEL
; ÁREA C^PñZ PARA UNA DE LAS
; N20N ZONAS DE "PICTURE"
FICHERO "PICTURE" <EL FORMATO HA DE SER DE 66.
U0RD3 CONTENIENDO LOS CÓDIGOS DE IMPRESORA DE
.; t32,*ó PUNTOS POR LINEA HORIZONTAL;.
.: DATOS DE SALIDA: NINGUNO
; FORMATO DE LLAMADA: .IMPIC: IMPIC
; JSR [Link]
.1.
; 3UBRUTINA3 UTILIZADAS; ERMES ; PRE:5ENTA MENSAJES DE ERROR
([Link]> ; LIBRERÍA MATEMÁTICA
.TITL IMPIC
,ENT IMPIC
.EXTD ERMES
.TXTM 1
.NREL
365
:HPIL;: ú ; CHNHL DE PICTÜRE
CHLPT: Ú ; CHNrtL DE IMPRESÚRtí
CHUS . +1 *2
.TXT "<5>" ; CÓDIGO QUE PONE LA IMPRESORA
; PRIHTRONIX EN MODO PLOTTER
LF . + t*2
.TXT "<r2>" ; CÓDIGO DE LINE-FEED < AVANCE DE
; LINEA>
.PICTURE: . +1 *2
.TXT "PICTURE" ; FICHERO QUE CONTIENE LOS
; CÓDIGOS A IMPRIMIR
LPT . + t *2
.TXT "ÍLPT" NEMOTSCNICÜ EMPLEADO POR EL
SISTEMA OPERATIVO PARA DESIGNAR
LA IMPRESORA
.EHD
366
OPERHCIOHÍ MUUÜ.IERE Y ALMACENA EH EL h'ICHERÜ
"FOTO".. POR MEDIO DEL APARATO
DIGITALIZADOR DE IMÁGENES 26OA.
IJhH PORGIQH DE LA IMAGEN TRANSMITIDA
POR LA CÁMARA. ESPECIFICADA POR LOS
DATOS ENTRADOS DESDE EL TECLADO.
CON LOS QUE SE PUEDEN DEFINIR LA
POSICIÓN. NUMERO DE PIÍ\ELS Y
RESOLUCIÓN DE LA IMAGEN A ADQUIRIR.
SUBRUTIÑAS UTILIZADAS:
MPY. .eIND. .DBIN ; < MATH,LB )
i NOTA: EL DIGITALIZADOR DEBERÁ TENER EL INTERRUPTOR
i EN POSICIÓN "RUN"
.EXTN GZONA
. EXTN X O. Y O. Nh'. N Y. INCX. INC Y
•ENT .GTCH..PTCH ; NECESARIOS PARA
; .DBIN Y .BIND
• ZREL
.GTCHi GETCH
.PTCHi PUTCH
, HREL
368
KtTUKH; bUt. 1 , 1
LDA 0..FOTO j BYTE PTER
.SYSTM
. OPEN O : ABRE "FOTO"
JMP CREAR SI ERROR, LO CREA
LDA O,.IMAGE
ADD 0. O BYTE PTER FILEÑAME
LDA [Link] . IMAGEN COMPLETA
.SYSTM
. I..IRS n GRABA EN "FOTO" LA
IMAGEN ADQUIRIDA
JNP
.SYSTM
.RESET CIERRA FICHEROS
JMP
. SYSTM
• RTN } RETORNA
JMP SI ERROR, PARA
JMP STOP
CREAR . SYSTM
.CRAND ; CREA EL FICHERO "FOTO"
; Y ENTRA DE HUEVO
JMP ; SI ERROR, PARA
JMP RETURN i VUELVE A ABRIR "FOTO'
DBINi .DBIN
BIND: .BIND
. TXTM
:IMAGE! IMAGE
• XOi XO
,YOi YO
.INCX; INCX
,INCY: INCY
.NX; NX
.NY i NY
. TXTM
, TTO; . + 1*2
. TXT 'ÍTTO" j NOMBRE ASOCIADO A LA
¡ PANTALLA DE LA CONSOLA
; MENSAJE DE PETICIÓN DE PARÁMETROS;
.MSG i . + 1*2
.TXT "<15><12>X0, YO, INCX, INCY, NX, NY ?<15><12>"
369
; NUMERO DE CARACTERES.
.FOTO; ,+1*2
.ThT "FOTO"
HBYTE ¡ 1 28 , * n 6 , *2 i NO , DE BYTES IPIñGEN
,END START
370
P0SICI014r-,Dl POR EL MAIN EN XT. YT. REALIZA LA CONVOLUCION DE UNA r*
DE 3 X 3 EN ^- CASOS DIFERENTES, PARA OBTENER L O S VALORES DE ILUMIN»?^
EN PUNTOS '4) EN QUE SE SUBDIVIDE EL PIXEL.
GETXM, QEFV i. SON LAS CORDENADAS DEL PUNTO M A S LOS DESPLAZAMIENTOS
DENTRO DE LA MATRIX.
3/4/82
EN IPTR SE ALMACENAN LOS COEFICIENTES * 256.
. TLTL CONV
NñrX
LDA í,PTRAD
LDA [Link]
ADD 1,3
STA 3,AWQRD ACTUALIZA AWORD DENTRO DEL BLK IWORD
MOV í,2
ADD 1, 1
ADDZL 1,1 AC1= PTRAD # 9.
ADD 2, 1
LDA 2, . IPTR ADRESS INICIAL DE COEFICIENTES
ADD 2, 1
STA I, . PTRAD . PTRAD= IPTR + PTRAD * 9.
L0ÜP2: LDA O, N3
STA O. CTRXM
SUB 1,1
STA 1,XM / INICIALIZA XM Y CTRXK.
L00P3: LDA 1, YM
LDA O, YT. 1
ADD O» 1
STA [Link] ; GETYf1= YT - 1 + YK
LDA 1< Xfl
LOA O, XT. 1
AOD OI 1
STA Í,GETXM ;GETXM= XT - 1 + YM
ISI .PTRAD
laz XH
DSZ CTRXM
JMP LOOP3
ISZ YH
DSZ CTRYM
Jl'iP LOOP 2
LDA [Link]
HOVL 1.2 SZC
SUS 1. 1 SI NEGATIVO ENTONCES CERO
LDA O.N377
HOVS i,1
AND 0,1 iACl = WORD / 256.
LDA O. N U
SUB 1.O
MGVL 0,0 SZC
LDA [Link] SI MAYOR QUE 11 ENTONCES 11
Jf'lP eSVAC3
. XT: XT
. Y1 : YT
XT. i : 0
372
.MPYU: MFVU
YT. 1: O
CTRAD: O CTR TABLA DIRECCI0h4ES 4-1
PTRAD: O PTR TABLA DE DIRECCIONES 0-3 OFFSET
.PTRAD O IDEK REAL
YM: O DESPLAZAMIENTO DENTRO DE MATRIZ
XH: o ÍDEM
CTRYH: o
C1RXH; o i ALMACENAMIENTO DE CONVQLUCION PARCIAL
WORD: o
. GtTXY: GETX /VALORES QUE USA GETXY REFERIDOS A LA IMAGEN (XT)
GETXri: O ;ÍDEM (YT)
GE Vvri: OIUÍOKD
W377: . D_Á ^ i BL¡\ DONDE SE ALMACENA LOS 4 VALORES ASOCIADOS A C
NI WORD: O
IWORD: O iPTR, AWaRD=IWORD+PTRAD
SVAC3: 4.
AWORD: 3.
N4: 11
N3:
IFTR
Nll: 22.
.IPTR: 69.
IP1R; -15.
A12: ¿9.
A13: 2G.5.
A14 — tj.
A15: -15.
A16: -43.
7.
Al?
-1-5.
AlB:
69.
A19:
22.
A21
— 43.
A22: 205.
A23: 69.
A24 y
A25: -43.
A2Ó -15.
A27: -15.
A28: -43.
A29: 7.
A3Í: 69.
A32: 205.
A33: -43.
A34: 22.
A35: 69.
A36: -Í5.
A37: 7.
A3S: -43.
A3V: -15
A4Í -43
A^2: 205.
A43: 69.
A44 -15-
A45: 69
A46
A47
A4S: 373
A49:
iPaSICIOHADl POR EL MAIN EN XT,YT. REALIZA LA CONVOLUCION DE UNA MAl
DE 3X3 F''. f CASOS DIFERENTES. PARA OBTENER LOS VALORES DE ILUMINACÍ
EN PUNTOr: <4> EN QUE SE SUBDIVIDE EL PIXEL.
GFTXH, GET,' 1, SON LAS CQRDENADAS DEL PUNTO MAS LOS DESPLAZAMIENTOS (
DENTRO DE LA MATRIX.
3/4/82
EN IPTR ALMACENAN LOS COEFICIENTES * 256.
. rí.TL CONV
. EfjT CONV, GETYM, GETXM, IWORD
. NREL
CONV: STA 3,SVAC3
LDA O, e. XT
NEG O, O
COM 0/ O
STA O, XT. 1 ; XT. 1= XT - 1
LDA Í/@. YT
NEG I,1
COM 1, 1
STA 1. YT. 1 i YT. 1= YT - 1
LDA O, N4
STA O,CTRAD
SUS í.1
STA [Link] i INICIALIZA CTRAD Y PTRAD
LOQPl: LDA O. N3
STA [Link]
SU8 1, 1
STA 1, YM iINICIALIZA CTRYM E YM
SUS O, O
STA O. WORD
LDA i,PTRAD
LDA 3,NIWORD
ADD 1.3
¡ACTUALIZA AWORD DENTRO DEL BLK IWORD
STA [Link]
MGV 1.2
ADD 1.1
ADDZL 1.1 iACl= PTRAD * 9.
ADD 2. 1
LDA 2, . IPTR ÍADRESS INICIAL D E COEFICIENTES
ADD 2, 1
; . PTRAD^ IPTR -»• PTRAD * 9.
STA 1. . PTRAD
L0QP2: LDA 0 . N 3
374
STA O,CTRXM
SÜB 1,1
STA 1, XM ¡INICIALIZA XM Y CTRXM
ÍSZ . PTRAD
ISI XM
D3Z CTRXM
JKP LQ0P3
ISI YM
DSZ CTRYM
JñP LOOP2
LDA 1,W0RD
HOVL 1,2 SZC
SUB 1, 1 i SI NEGATIVO ENTONCES CERO
LDA O,N377
rtOVS í,i
AND O, 1 i ACl = WORD / 256.
LDA 0,N1Í
SUB 1,O
HQVL O,O SZC
LDA 1,N11 fSI MAYOR QUE 11 ENTONCES 11
Ji-IP eSVAC3
. XT: XT
. Yl: YT
XT. 1: O
375
. MPYU: MPYU
YT. 1; 0
CTRAD: 0 CTR TABLA DIRECCIONES 4-1
PTRAD: 0 PTR TABLA DE DIRECCIONES 0-3 OFFSET
. PTRAD: 0 ÍDEM REAL
YM: 0 DESPLAZAMIENTO DENTRO DE MATRIZ
XM: 0 I DEM
CTRYM: 0
CTRXM: 0
WORD: 0 i ALMACENAMIENTO DE CONVOLUCION PARCIAL
.GFTXY: GET'XY
GEIXM: 0 ¡VALORES QUE USA GETXY REFERIDOS A LA IMAGEN (XT
GETYM: 0 ; IDEM {YT)
N377: 377
NIWORD. iKiQRD
IWQRD: . }:._:•;. 4 iBLK DONDE SE ALMACENA LOS 4 VALORES ASOCIADOS A
SVAC3: 0
AWQRD: 0 ;PTR, AWORD=IWQRD+PTRAD
N4: 4.
N3; •Ú.
Nll: 11
. IPTR: IPTñ
IPTR: 4.
A12 27
A13 0.
A14 27.
A15 197.
A16 1.
A17 0.
A18 i.
A19 0.
A31 0.
A22 27.
A23 4.
A?4 1.
A?5 197.
A26 27.
A20 0.
Asa 1.
A29 0.
A31 0.
A3? 1.
A33 0.
A34 27.
A3b 197.
A36 1.
A3? 4.
A3B 27.
A39 0.
A41 0.
A42 1.
A43 0.
A44 1.
A45 197.
A46 27.
A47 0.
A48 27.
A4? 4.
376
TOMA El- VALOR DE Z CORRESPONDIENTE A LAS COORDENADAS GETXM E GETYM t
MANTIENc LA MITAD DE LA IMAGEN EN MEMORIA. SON POSIBLES 3 ZONAS, SEF
ENTRE Sr 1/4 DE IMAGEN. LAS 3 ZONAS SE VAN CARGANDO POR ORDEN.
PERMITE ÜN BARRIDO DE LA IMAGEN EN QUE LA Y NO VARIA A GRANDES SALTL
SU VARIACIÓN ES APROXIMADAMENTE PROGRESIVA AUMENTANDO.
DATOS: COC-RDENADAS X, Y (QUE PUEDEN SER NEGATIVOS O SUPERIORES A LOS
HA OE INICIALIZARSE GETFL A O CADA NUEVA IMAGEN
DEVUELVE AC1 =
=Z(X,Y)
3/2/82
. TITL DAXY
. ENT GETXY
. EXTN MPY
. EXTN INFOTí GETXM. GETYM, GETFL
NREL
377
, BVTECOUNT ,«EDIA IHAGEN)
SVAC3-. O
PTER ZONA EN MEMORIA
. XIHA: ir.'r-'JT
. GETXH. G h T - H
.GFTYH: GhT'Vt't
GETOO: O
. GLTFL G^T-L 11 t -o
XHAX: 126.
YMAX-. 11¿-
. Et-4D
378
.TITLE FINE
LDA 0, NZONA
ADD 0/0
L&A 1,N2969
.SYñTM
. wR-ü 2
JMP E2
.SYSTM
.GLOSE 2
JK.P E3
JMP eSVAC3
r^7P
COLOCA Et-i "L FILE DE IMPRESORA (PICTURE , 132#120 > LOS TONOS
DF GRISdS :..aRRESPONDIENTES A LOS CUATRO SUBPIXEL QUE DIRECCIONA
IWQRD . EN ITAB SE RJICIA LA TABLA CON LOS VALORES DE GRISES
3/15/82
.TITL GPIC
.ENT GPIC
. J'iREL
3 80
LDA I,.BLOCK
ADD 1. O XT/2 + BLQCK
LDA 1, YPTR
LC'A 2,N396
HPV iAC2*ACl + ACÓ —:> ACl
STA 1,PTRBLK ;PTRBLK= BLQCK + Y*396. -»- X/2
5UB 1, i
STA 1,SPIX
LC'A 1, t.12
STA 1,CS»^I)(
LDA í, f'JIWORD
STA [Link]
GPIC2: SÜB í, i
STA [Link]
LDA i.H3
STA 1/CTRPX
LDA 1, . ITAB
LDA 2, PTRX
ADD 1,2
STA [Link] iATAB=ITAB + PTRX
ADD 3.2
LDA 1,0,2
LDA 2, ^470
iACl = 000 000
AND 2, 1
ADD 1,O
ISZ AWORD
LDA [Link] i PRIMERO SUBPIXEL 2 LUEGO 4
MQVIL 1,2
ADD 2,1
LDA 2,ATAB
ADD 1,2
LDA 1,0,2
LDA 2.N7
Ar4D 2. 1 ; AC1 «. . . .000
ADD 1. O
LDA 2, r4200
ADD 2, O COLOCA 1 PARA IMPRESIÓN
MQ'v/ O, 3
MQVÜ O, O
ACD O, 3 i DUPLICAR INFORMACIÓN
LDA [Link]
AND 1,3
LDA O, SPIX
MOViL O,1
381
AC-D 1.0
LDA 2, PTRX
ADD O, 2 i3*SPIX •»• PTRX
LDA 1.N¿6
STA 3, ABC
U:A O, PTRBLK
LÚA 3< ABC
nü\' 1,2
LDA 1,0,2
LÍ:A O, MASK
C011 o, o
AIvu O, 1
AIZ'L' 3 , 1 ¿LIMPIA BYTE Y SUPERPONE
SfA 1,0.2 ;GRABA EN BLQCK
IS2 PTRX
D3Z CTRPX
JnP GPICl
ISZ TWQRD
ISZ TWQRD
ISZ SPIX
DSZ CSPIX
JHP GPIC2
JMP eSVAC3
SVAC3: O
ABC: O
NI 5: 15. íNÜM. DE LINEAS E N UNA ZONA
N6: é.
N2: 2.
N3: 3
O ;Y DENTRO DE LA ZONA
YPIR: iNUM. DE BYTES POR ZONA
N118S: iieeo.
flASK: o
377
N377:
396.
N3V6:
YT
. Yl:
XT
. XI :
ZONA
.ZONA:
BLQCK
-BLOCK:
IWQRD
NI WORD:
7
N70:
7G
N7:
IGO íPTR DENTRO DE BLOCK
N200:
áó. íPTR BLOQUE IWORD (0-1>
N66:
O
PTRBLK:
O
SPIX :
ATAB:
o
o
AWQRD: o íITAB=ADRESS INICIAL EN TABLA DE TONOS
TWQRD: o ;PTR DENTRO DE CADA SUBPIXEL (0-5)
CSPIX: I TAI;
. ITAB: O
PTRX: 382
CTRPX:
ITAB; 0
PQ2: 0
P03: 0
Pll 0
•n ;.
P12
P13 0
P21 0
P22 55
P23 G
P31 o 7-
P32 0
P33 55
P41 55
P42 G
P43 55
P51
P52 77
P53 22
Pól 55
Pó2 77
PÓ3 22
P71 77
P72 22
P73 77
P81 77
pa2 55
P83 77
P91 77
P92 77
P93 77
ENI
383
TITLE HISTQ
. £;<TD ERMES
. TXfrí 1
. [Link]
HISTQ; STA 3, SVAC3
LDA 1,N148'^
STA l í C T R Z i INICIALIZA CTRZ
LOA O,NPTRZ
3 7 A O, PTRZ /INICIALIZA PTRZ
LDA l / N H I S l
STA 1 / . H I S l ; INICIALIZA . HISl
LDA O , . F A L C O
.SV8TM
.QPEN 1
JMP E l JABRE XIHA
385
PROGRAJIA á-iE ir>PRIME EL FILE FOTO, ESTANDO ESTE EH 37 NIVELES
IHICIALHEWTE SOLO SE CARGA MEDIA IMAGEN EN MEMORIA DE 128. •»116.
2/26/82
. riTL PRTFT37
. NnCL
PRTFT: SiJB 1. 1
LDA O..FFOTQ
.SV3TM
. QPZH 1
JM? RETURN
SUS 2.2
J3R [Link]
ZLQQP: LDA 1,NZ
LDA 2,NBYT
JSR SMPYU
.SYSTM
.SPQS I
JHP RETURN
LDA O. . IMAGE
ADÍi 0.0
LDA [Link]
.SYSTM
. RDS í
JílP RETURN
LDA O, NSa
STA O. CTRY
SUB O,O
STA O, Y
LDA 2.Y
STA 2,YR
LDA [Link]
LDA O.N58
HOV 1. [Link]
ADD 0/ 2
GTA 2< Y
LDA [Link]
•JSR e. PIXEL
LDA 1. YR
STA 1. Y
IS¿ K
DSÍ CTRX
J^iP XLOOP
IS? Y
D£Z CTRY
•JKP YLOOP
ISZ NZ
DSZ CTRZ
Jl'^iP ZLQQP
JSR e. FPIXEL
JSR e. IMPIC
.SYSTM
.CLQSE 1
Jf'íP RETURN
RETURN: .SYSTM
. RTN
Jt'iP .
N58: 5e,
N12a: 128.
YR: 0
CTRY: 0
CTRX: 0
NZ: 0
CTRZ: 2
NBYT: 128. «116.
.FFOTO: . +í->2
. TXTM 1
. TXT "FOTO"
.IMAGE: IMAOE
END PRTFT
7.9.7
iSUBRUTIWA :<UE REALIZA LA INTERPOLACIÓN EN UNA IMAGEN DE 10 NIVELES
DE 12e-*llt PARA SUBDIVIDIR CADA PIXEL EN CUATRO SUBPIXEL DE
10 NIVELES [Link] LA SUBRUTINA [Link] DADOS X, Y DE LA
IMAGEN NG5 PROPORCIONA LA ILUMINACIÓN Z ASOCIADA
USA CONV r-V-RA REALIZAR LA CONVOLUCION EN LOS ENTORNOS DE CADA PIXEt
PUTXY CGwQ' A WORDIOÍPALABRA EN DONDE ESTÁN ENPAQUETADOS
LOS CUATW3-: VALORES ASOCIADOS)EN UN FILE DE SALIDA DENOMINADO SIMA
3/4/BS
. TiTL PTRIO
. ¿MV XT,YT,WORIO. INFOT,OUTFT,GETFL,PTRIO,PUTFL
. EXTN CONV,PUTXY
. NREL
.TXTM 1
LDA 0, W116
STA 0, CTRYT
SUB 0, 0
STA 0, YT ;INICIALIZA CTRYT E YT
YLOQP: LDA 0, NI28
STA CCTRXT
SUB 0, 0
STA 0, XT
388
sue o. o
LDA l . N B Y T E
. SVtlTM
.SPüS 1
J h r RETURt4 iPQSICIONA EN MEDIO
LDA O, . SIMA
ACD O, O i BYT PTR
LDA l . N B Y T E
. sv>::Tf-i
. uirtr; 1
Jf'.P RETURtJ i GRABA ULTIMA ZONA
. IMO: . -i 1-^2
. TXT "XIMA" ;FILE ENTRADA
. IMl: . -í-l*2
.TXT "SIMA" íFILE SALIDA
NBYTE 123. íHló. MITAD DE IMAGEN
PUTFL O
GETFL O
. XIMA INFOT
. SIMA QUTFT
XT: O
Yl: O i CONTADOR DE XT(X TOTAL)
CTRXT: O ;ÍDEM YT
CTRYT: O
N128: 123.
N116: 116.
WORIO: O
. CONV: CGNV
.PUTXY
INFQT: PUTXY
. ELi'.. 128. *58. «MEDIA IMAGEN DE ENTRADA
OUTFT: . BLK 128. -a-SS. jÍDEM SALIDA
.END PTR10
389
ESCRIBE £- VALOR DE Z CORRESPONDIENTE A LAS COORDENADAS X E Y EN X
HANTIENE A MITAD DE LA IMAGEN DE SALIDA EN MEMORIA A PARTIR DE SI
DIVIDE LA IMAGEN EN DOS ZONAS IGUALES, QUE GRABA EN DISCO CONSECüT
EL BARf^n;0 DE LA IMAGEN HA DE SER POR LINEAS HORIZONTALES SUCESIV
DATOS: COORDENADAS X E Y (DENTRO DE LOS LIMITES DE IMAGEN)
VALOR DE Z A GRABAR EN ACl
!Jí.N\L DE ESCRITURA (HA DE ESTAR ABIERTO Y HA DE CERRARSE)
H.A í'E INICIALIZARSE PUTFL CADA NUEVA IMAGEN
3/4/S2
. TITL STOXY
. EH ! PUTXY
. E/:TN MPY
. tí:<TH OUTFT, XT, YT, PUTFL, WORIO
NRCL
390
YT: YT
PUTFL: PUTFL
WQRIO: WOíílO
. Er4D
391
. T I T L E TRAS
. r4REL
.TXTM 1
TRAS: LDA U. . XIMA
.SYSTH
.QPEN O
JI1P RETURl'4
LDA O, . IMAíiC
ADD 0 / 0
LDA 1 , N
ADD 1, í
.SYSTM
. RDS O
JMP RETURW
LDA O- ^4
STA O. CTRN
SUB O,O
STA [Link]
ADD 1,1
.SYSTM
. WRS O
JMP RETURN
.SYSTM
.GLOSE O
JMP RETURN
RETURN: .SYSTM
. R1N
JMP .
392
N: 116.«122.
. XIMA . -^1^*2
. TXT •XIMA"
N3?7: 377
CTRN: 0
PTRN: 0
. IMAGEN: IHi-ÍGE
IMAGE . BLK 116 « 1 2 8 .
.END TRAS
.TITLE TRHISTO
ECTÜA r-lANSF. DE XIMA EN OTRA DE FORMA QUE PRESENTE UNA DISTRIBUCIÓN CONSTA
Y Umr3,}t^E EN SU HISTOGRAMA. USA SUB HISTO QUE EVALÚA HISTOGRAMA DE XIMA,
X QUE TwuNSFORMA DISTRISUCION DE 256 NIVELES EN 37, Y FINE QUE CIERRA LOS;
.ENT HIST2
LDA O.N256
STA O,CONT
LCA 1.NHIS2
tíTA 1, . HIS2
L C A O, NHISl
STA O, . HISl
JSR e. HISTO
SUB 1, 1
LDA O, e. HISl
ADD O, 1 i EN AGÍ EL RESULTADO PARA CADA X
STA i.&. HIS2 i NUEVA POSICIÓN DEL VALOR ACUMULADO
ISZ .HISl
ISZ .HIS2
D£Z CONT i ACABA SI X255
üñP INIC2
JSR e. TRX ;CALCULA XO. . . X36
LDA 1,NPTRH
STA [Link] »INIC. PTRM
LDA 0/NI484
STA O, CTRM ¡INIC. CTRM
LDA í,ePTRM ¿ASOCIA A CADA PUNTO EL NIVEL XO. X36 SEGÚN TRANSF.
LDA 0,ENRI
ADD O. 1
STA i/POSX
LDA liSPOSX GUARDA ADRESS PARA PSICIONAR EN TABLA
STA l,ePTRM
ISZ PTRfl
DSZ CTRM
Jt-IP BETAl
n^íi
PTRM: 0 iPTR IMAGEN MEMORIA
«1^184: 143-e. ill6íH2e= 14848 NUM PTOS MEMORIA
CTRM: 0
PQSX; 0
HIST2: .QIM 256
E\-m INIC
:s95
i OPERAClONf IMRPIME EL HISTOGRftriA FRECUENCIA-
TONO DE GRIS < O A 255, :> CORRESPONDIENTE
AL FICHERO "FOTO", REALIZANDO UN CAnBIO
DE ESCALA, QUE APARECE MARCADO EN LOS
BORDES DEL HISTOGRAMA. CADA 8 BARRAS
IMPRIME UNA ESCALA DE PUNTOS SEPARADA
12. UNIDADES DE ORDENADA.
SUBRUTINAS UTILIZADAS:
•EXTN STAB ; GENERA TABLA DE FRECUENCIAS
. EXTN ZDIST IMPRIME BARRA DE HISTRÜGRAMA
. EXTN PRTLN IMPRIME LINEA DE 132. CÓDIGO?
.ENT IMAGE
. EJ<TN TAB
.NREL
START: SUB 1, 1
LDA O,.FOTO BYTE PTER
.SYSTM
. OPEN ABRE "FOTO"
JMP
LDA 0..IMAGE
ADD 0,0
LDA 1,NBYTE } FOTO COMPLETO
.SYSTM
.RDS O ; LEE FOTO SOBRE IMAGE
JMP
.CLOSE O j CIERRA FOTO
JMP
SUB 1,1
LDA O,.LPT
.SYSTM
. OPEN O j ABRE IMPRESORA
JMP } SE DEJA ABIERTO
396
STA 1 . [Link]
JSR C". PRTLN
.JSR e,PRTLH
.SYSTM
•CLOSE 0 s CIERRA CANAL IMPRESORA
JMP t
.SYSTM
• RTN RETORNA
JMP 1 ^ SI ERROR. PARA
JMP 1 } STOP
,STHB: STAB
.TAB! TAB
.ZDIST 1 ZDIST
.PRTLH 1 PRTLN
N256 i 256.
397
HBYTEi 128,*1 16,'».2 ; NO. DE BYTES EN IMAGEN
CTER i 0 ; CONTADOR
PTER! 0 } PUNTERO
.FOTO; ,+1+2
. Tr-sTM 1
. TXT "FOTO"
.LPT! .+1*2
. TXT ":ÍLPT" ; NOMBRE DE LA IMPRESORA
NPUNTO i 1B1+1B9 ¡ BLANCO
.IHAGEi IHAGE
.ESCALA i . +1 *2
5B7+5
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9 ' " • -
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
398
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
CE se! B1+5B9
B1+5B9
B1+569
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
B1+5B9
399
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B5«
1B1+5B9
1B1+5B?
tBI+SBS"
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
IBI+SBS»
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1BH-5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
1B1+5B9
12B7
j LINE FEED. FIN DEL BUFFER
.EHD START
400
RHGE 1 HEWLETT-PACKARD 32201A,7,11 EOIT,''3C00 MON. HOV 21, 1583.
,1 * U S L I N I T , S T A N D H R D _ L E V E L 'HPSOOO'*
1 PROGRAM PRTCOLOR< INPUT>0UTPUT.0UTFILE•.>;
2 TYPE
3 SUBINTEGER=-32000..32000;
4 VECT0R=ARRAYC1 . .1281 OF SUBIHTEGERj
5 TPI>sEL=HRRñY ti,,563 OF SUBIHTEGER;
5,1 TPI«GÜL=ARRAY[1,.43 OF TPIXELj
6 L I N E A = P H C K E D ARRAYCI,.10243 OF CHAR;
7 FICHERn=FILE OF VECTORj
7.01 COLOR=<HnARlLLO,MHGENTA>[Link]>j
7.1 TC:ARAC=PACKED ARRAY [COLOR, 1 . . 83 OF CHARj
7.2 TALFH=ARRAYC1,,53 OF REAL;
O VAR
9 YAH-LUMENANCIA^i
10 R. <'*COriPÜNENTE ROJA* >
11 B.Í'í.COMPOHENTE A Z U L * >
11.1 F , <*CODIGO ASOCIADO AL FICHERO O U T F I L E * )
11.2 P A R M , < * p a r a m e t r o d e l FCONTROL n o s e u t i l i z a * ?
11.3 CONTROLCODE,<*parm d e FCONTROL,27 p a r d i s a t a l e LF y CR*?
12 K,[Link]ÜBINTEGER;
12.1 NR 1 REAL; < ••NUMERO RAHDOM* )
13 LY,<ALINEA DE FOTOY* )
14 LR.<*LIHEH DE F0T0R*>
15 LBIVECTORÍ<*HNEA DE FOTOB*>
16 LINIMPR) ARRAY CC0L0R3 OF LINEA;
20 INFILEiARRAYCI..33 OF FICHERO;
21 0UTFILE¡TEXT;
22 NOMFILEÍARRAYCI..33 OF PACKED ARRAYCI.,83 OF CHAR;
23 BETA¡TALFA;
23.1 CODIGOiPACKED ARRAY C1..43 OF CHAR;
24 PIXEITPIXCOL;
24.1 CARACí TCARAC;
24.2 C: COLOR;
25
25.1 PROCEDURE FCONTROLjINTRINSIC;
25.2 C* el FCONTROL permite gobernar el Carriage Return, en
25.3 este programa se quita, colocando controlcode=27 *)
26
27 FUNCTION ALFA<Y,R,BiSUBINTEGER>sTALFA;
28 <*esta función dada las Y,R,B, de un punto devuleve
23 las densidades asociadas a cada cinta de color *>
30
3 0.1 COMST
30.11 Kl=32j
30.12 K2=42;
30.13 K3=3j
30.14 K4=34;
30.15 K5=40;
30.16 Kó='32;
30.17 K7=56;
30.18 K8=16384;
30.19 K9=1Ó2;
30,2 K10=165;
31 VAR
32 DiARRAYCI..33 OFREAL;
32,1 N,
33 ALFAMIN,
401
PHGE 2 HEWLETT-PACKARD 32201A.7.11 EDIT/3000 MOH< HOV 2\, 1963. 9:05 Pi
es UHILE [Link] DO
89 BEGIN
90 NRi»=ftBS<NR:'+17¡
91 X!=SQRT<HR>+0.37j
92 X1=X-TRüNC< X ) i
93 NR!=NR*X;
94 Y!=0;
55 FOR Li=1 Tü 6 DO
96 BEGIN
97 Xi=10*Xj
95 IX;=TRUNr:<X)j
99 Xi=X-IXj
00 Y!='; Y+1X)/1 OJ
01 EHD;
02 NR ! =NR,^< 7+ O . 1 >;
03 I ! =ROUHD< Y*55 .1+1 j
04 IF NOT<I IH CONJUNTO) THEN
05 BEGIN
06 VRCNX3¡=I;
07 CONJUNTO!=CONJUNTO + tI3;
08 NX!=NX-1
09 ENDj
10 EHD;
11 END;
12 §
13 PROCEDURE PIXEURALFftiTALFAJVAR PIXEiTPIXCOLí; |
15 VAR I
16 MAX i REALJ s
17 N, i
18 [Link], g
19 L, §
20 CONT, I
21 M, i
22 JiSUBINTEGER; I
23 VRiTPIXEL; |
124 • i
25 BEGIN %
Ze MAXi=RALFACnj I
127 FOR I 1 = 1 TO 5 DO 3
28 IF RALFACI3>=MHX THEN |
29 BEGIN i,
50 MAXi=RALFACI3j Í:
131 1MAXJ=I "
132 END;
133 N)=56-TRUNC>:MAX>J
134 XTRAND<N,VR>;
6 C0NTi=1j
37 IF INAX05 THEN
S BEGIN
139 FOR Li=1 TO 56 DO
140 PIXECIMAX,LDi=1j
141 FOR K¡=1 TO N DO
142 PIXE£IMAX,VRtK33!=0j
143
144 FOR Mi=l TO 4 DO
145 BEGIN
403
PHGE 4 HEWLETT-PACKARD 32201A,7.11 EDIT/3000 MON. NOV 21. 1983. 9i05 P
404
PACE 5 HEULETT-PACKARC) 32201A.7.11 EC)IT,'3000 MON, HDV 21, 19S3. 9:05
2 04 EHDj
205 [Link]<OUTFILE>;
2 06 Fi=FNUM(OUTFlLE>;
2 06 . 01 NRI=F)
2 06. 1 C0NTR0LC0DEi=27j
206.2 FCOHTROL< F,CONTROLCODE,PñRM >j
2 06.3 WRITE-;0lJTFILE,CHR<3)Jj < [Link] L H IMPRESORA EH MODO GRÁFICO^.-)
2 07
208 FOR Ii-l TO 116 DO
2 09 BEGIH
21 0 READ<INFILEC1],LY)j
21 1 READCINFILE[[Link])j
212 REAP<[Link]>j
213 FOR J ¡ « 1 TO 128 DO
214 BEGIN
215 Yi=255-LYC.J3j
216 Rl=255-LRCJ3;
217 B:'=255-LBCJ3j
218 BETAI=ALFH';Y,R,B>J
219 PIXEL<[Link]>;
220 CARAC(=GENERACARAC< PIXE >;
221 FOR C!=AMARILLO TO NEGRO DO
222 FOR K i = t TO 8 DO LINIMPRCC,<J-1>*8+K3i=CARACnC,K3;
223 ENDj
224 FOR Ci«AMARILLO TO NEGRO DO
225 BEGIN
226 CODIGOC33 i=CHR<49+0RD<C))j
226. 1 WRITE<0UTFILE,CHR<3.'>,CHR<:2>,C0DIG0>j
227 lJRITE<;0UTFILE,CHR<3?.LINlNPRCCD,CHR<3>.CHR<)3.-)>;
228 EMDJ
229 WRITE<0UTFILE,CHR<3>.CHR<14>>
230 END;
231 WRITE< OUTFILE,CHRC 3 ).CHR< 2 >)
232 EHD.
405
PftGE 1 HEWLETT-PACKARD 3 2 2 0 t A . 7 . 1 1 EDIT.-3000 nOh4. NOV 2 1 . 1983, 9i02 PM i
I
1 *GOHTROL USLINIT
2 C PRÜGRANrt DE AISLAMIENTO DE FORMAS CROMATICAS
3 C LEE DE FILE 25 FOTO QUE CONTIENE INFORMACIÓN
4 C DE LOS CLUSTERS ESPACIALES NO CONTIGUOS. Y DE
5 C FILE 3 0 FOTO QUE APORTA LA INFORMACIÓN CROMATICA,
6 DIMENSIÓN IES<: 1 28. t 1 6 ). ICRC 128, 58 >
7 R E H D < 25 > < <IES<I.J >.1 = 1.128 >.J=1.n 6 >
B READ <30> << ICR<I.O>. 1 = 1 , 128>. 0=1 .58>
9 WRITE <6.10>
lij 10 FORMAT < ' CLUSTER ESPACIAL DESEADO './. ' ****:«**^***** •,
1 U. 1 1 'i*!******»*'******'***** ' >
1) ACCEPT NC
12 WRITE <:6. 1 1 >
13 11 FORMATí • INTERVALO CROMATICO DESEADO;'./.' *****;<:*******,-.:+.-,
13,1 1 '**:*********** ' >
14 ACCEPT I C 1 . I C 2
14.1 IC1=IC1-1
15 .JK=0
15,1 CnHT=0
16 DO 9 0 ..1=1. 1 16
17 DO 9 0 1 = 1 . 1 2 8
18 I F <IES< I . J>-HC.l 8 0 . 2 0 . 8 0
1Í< 2 0 IF<<ICR< I . J - J K > , L T . IC1 > , 0 R . < 1 C R < I . J - J K J . G T . IC2>> GOTO 8 0
20 IES<I.J>=255
20.1 C0NT=C0NT+1
21 GOTO 81
22 80 1ES<I.J>=0
23 81 IF<[Link].12S> GOTO 9 0
24 IF< J - 5 3 > 90.85.90
25 85 JK=58
26 READ < 3 0 > < < 1CR< I L . J L >. I L = 1 . 1 2 8 >. J L = 1 . 5 8 >
27 9 0 CONTINUÉ
28 WRITE < 6 . 1 0 0 ) NC
29 100 FORMAT < ' NUM, DEL CLUSTER ESPACIAL '.13./.'
29.1 1 ' './>
30 WRITE <6.110) ICt.IC2.C0NT
31 110 FORMAT < ' INTERVALO CROMATICO'.13. ' A '.13.//.' NUM. PUNTOS'.
32 1I5.//>
33 WRITE <20> < < IES< I. J >. 1 = 1 .1 28 >. J==1 . 11 6 >
54 STOP
35 END
406
PnCE 1 HEIJLETT-PACKARD 32201A,7,11 EMT/3000 MOH. HOV 21, 1983. 9100 PM
407
PAGE 1 HEWLETT-PACKARD 32201ft,7.11 EDIT/3000 MDN. NOV 21, 1983, 31 "r.^
1 ^CONTROL USLINIT
2 C PROGRAMA PARA EVALUAR LAS CARACTERÍSTICAS DE LA MASCARA
3 C IMAGEN EMPAQUETADAS FILE4O ••
4 DIMENSIÓN IEN<12S,nó>
5 COMMON I,XC<3>
6 READ < 4 0 > <<1EN< I . J > , 1 = K 1 2 S > , J = 1 .ney
y ..iriiH=o
S I M I H = 3 00
9 JMAX= O
10 iriA;s=o
1 1 DO 6 0 ..1=1 , 5 S
12 DO 6 0 1 = 1 , 6 4
13 C A L L DESPAC < lENC I , •.' > >
14 DO 10 K= J . 3
IS I K = I X G \ ' K .1
16 I F < IK> 10, 10.20
1? 10 CONTINUÉ
i-e GO TO 6 0
19 20 I F - ; ( IXC-; 1 ) . EQ . IXC< 2 > > . A N D . < IXCC 1 > , E Q , IXCC 3 > > > GOTO 6 0
20 IF< viMIN) 2 5 > 2 5 , 2 9
21 25 OMIN=J
22 29 ¡ F K - I M I H - I > 3 0 , 3 0 . 3 1
23 31 I M I N = I
24 30 IFCI-1MAX> 4 0 , 4 0 , 3 5
25 35 INAX=I
26 40 IF< 0-JMAX> 6 0 , 6 0 , 4 5
27 45 .JMAX=J
28 60 CONTINUÉ
29 DISPLAY "VALORES M Í N I M O S I, J",IMIN,JMIN
30 DISPLAY "VALORES MÁXIMOS I, J",IMAX,JMAX
31 I F < JMAX> 6 5 . 6 5 . 7 0
32 65 DISPLAY "4iN0 EXISTE PATTERNfi"
33 GO TO 99
34 70 N=IMAX-ININ+1
35 N=.JMAX-JMIN+1
36 WRITE <20,80) N,M
37 DISPLAY N,M
38 eo F0RMAT<2I3>
39 WRITE <20> << lEN'í I, J>.I = iniN,IMAX),0=JMIN, JMAX.'
40 DISPLAY "FIN ESCRITURA MASCARA [Link]"
41 DO 90 I=IMIN,IMAX
42 DO 90 J=JMIN,JMAX
43 CALL DESPAC <IEN<I,J>>
44 IEN< I-IMIN+1 , J-JMIN+1 >=IXC'; 1 >
45 90 CONTINUÉ
46 DO 95 I=N+1.128
47 DO 95 J=1,116
48 95 IEN(I.J>=0
49 DO 96 1=1,N
50 DO 96 J=M+1.116
51 96 lENCI,J>=0
52 WRITE <21> << lEN'ÍI, ..!>. 1 = 1 , J2S>,.J=1 , 116>
53 DISPLAY "FIN ESCRITURA DE LA MASCARA COMPROBACIÓN"
54 99- STOP
55 END
56 SUBROUTINE DESPAC <IEN>
57 COMMON IXC<3>
*COHTROL USLINIT
C PROGK'HMñ P H R A REALIZAR LA OPERACIÓN DE MASKING CROIIHTICI
READ <41,3) H.H
FORMAT Í:2I3>
DISPLAY "DIMENSIONES MATRIX" .N.M
CALL MASK<N,ri>
STOP
4 END
_5 SUBROÜTINE r-lASKí[Link]
S DIMENSIÓN IEH< 1 2 8 . 1 1 6 ) , IS< 1 2 6 . 5 8 >. XC1 < 3 >, IHASC< 2 0 . 2 3 , 3 "^
9 READ <41> << I S - Í I , J ) . I = 1 . N > . 0=1 .M>
I O READ <40> << lEN't I , .J>.I = J , 1 2 8 > , ..1=1 , 116>
II HC=<N+I)/2
11.1 MC=<M+1 >r''2
11.2 DO 10 I = 1 . N
1 1 .3 DO 10 J=1 . M < I S Í 1 / J ) . X C 1
1 1 31 CALL DESPAC
11 4 IS< I . J>=0
11 5 INASCÁI. J . 1 >=XCU 1 >
11 6 10 IMASC< I . J . 2 ) = X C 1 < 2 >
11 •7 }MASC< I . vi,3>s=í<:CU3>
1 I ..S DO 15 1 1 = 1 . N
1 1 .9 15 DO 15 J1=1.M
12 I S < I 1 , J1 >=0
13 JK=0
DO 60
14 DO 60 J=MC.116-MC
15 SX=0. I=NC,128-NC
IS DO 30 I A 0 = U N
19 DO 30 JA 0= 1 . ri
I0=IA0-NC+I
2Ü
Jo=JAO-nc+j
21 CALL DESPAC < l E N Í I [Link]>.XC1 >
22 DO 30 K = l . 3
23 S><=SX+XC K K ) * I riASC< IA O. OA O. K >
25 30 CONTINUÉ
26 SX=SX/<8.*32000. )
40 IS'Í I . J - J K > = I F I X < S X >
27
2'3'
I F ' Í I . N E . 12S-NC) GOTO 6 0
50 I F Í J - 5 S ) 6 0 . 5 1 . 6 0
30 51 JK=53
34 59 WRITE <20> <<IS< I L . J L > . I L = 1 . 128.>. JL=1 . 5 8 ?
35 DISPLAY ' I * * * * * * * * * * * * * * * * * * * * * * * * *******v(íX;+.m'
39 60 CONTINUÉ
40 WRITE <20> <<IS<[Link]=1.128>.JL=1.58>
41 DISPLAV " f i n c o n v o l u c i o n "
61 IHA=255
42
IMI = 0
43 LLH=127-NC
44 LLN=115-MC
45 REWIND 2 0
46 READ <20> < : < I E N < I , . > . I = 1 . 1 2 8 > . 0 = 1 , 116>
47 DO 100 1 = 1 . 1 2 8
DO 100 0 = 1 . 1 1 6
48
I F < < I . L T , N C > . O R . < O , L T . M C > . O R . < I . G T , L L N ) , O R . < [Link]>>
49 IF-: l E N Í I , J > - I M H > 75.75.70
50 70 IMA=IENCI.J>
51
52
53
54
(109
PrtQE 2 HEWLETT-PACKftRD 3 2 2 0 1 f t , 7 , n EOITr'3000 MON. HOW ZU 1933. e•í^'^ Pll <
55 GOTO 100
5Ó 75 IF< IMI-IEtK'1, J>) 100<100>80
57 80 IHI=1EH<I.J>
5é 100 CONTINUÉ
5.-> DISPLftY "VALOR MAXlNO" , IMA. "VALOR MINIMO" . IMI
c-Ci DISPLAY " D E S E M CORRECCIÓN DE NIVELES, SI = 1,H0 = n"
ol ACCEPT NCLA
62 IF<NCLA) 150,150,160
63 160 DO 120 1=1,126
¿4 DO 120 J=1,116
65 120 IEN< I., J )=< FLOAT< 1EM<; I, J>+IABS<INI ) )*225 ./FLOHT< I M A + I ABSÍ'IMI
66 DISPLAY "O.K, CORRECCIÓN"
67 150 REUUND £0
6S WRITE (SO) << lENú I, J>, 1 = 1 , 128>, ..1=1 , 116>
ei- RETURN
70 END
71 SUBROUTINE DESPAC <IEN,XC >
72 DIMENSIÓN XC<3>
73 RY=< FLOATC IEN/2 048 >-8 . ;>*255 . /? .
74 XI=ftNOD<FLOAT<IEN>,2048.>
75 NY=AMODC X 1 , 1 2 8 , >
76 BY=< < ><I->ÍY V I 28 . - 8 . ) * 2 5 5 . /7 .
77 XC-; 1 )=254 . - 2 . *XY
78 XC';2)=<254,->:RY+2H<XY>>
79 XC<3 >=< 254.-C BY+2*XY >) §
SO RETURN i
81 END i
PACE 1 HEWLETT-PñCKftRt 32201A.7.11 EDIT/3000 MON. NÜV 21, 1983. 8 ; 5 7 PM <
1 C TRftHSFORMftCION DE H I S T O G R H M H DE T I P O
i c LOGARÍTMICO,
3 D I M E N S I Ó N ! £ « • ; 1 2 8 , 1 1 6 > , IHC 2 5 c O . lAHC 2 5 6 >
4 XIM=36,
5.01 DISPLñY "VALOR DE 10"
5.02 ACCEPT rSlO
y,! REHD<20> <•.'. I E N < I . J > , 1 = 1 , 1 2 8 > . . J = 1 , U Ó >
5,11 DISPLAY "LECT. O . K , "
5.2 C E V A L U A C I Ó N HISTOGRAMA
5.3 DO 5 K = 1 . 2 5 6
5.4 5 IH(K:I=0
6 DO 1 O 1 = 1 , 1 2 6
r DO 10 J = 1 , 1 1 6
i- K= 1 EH< I . ^,1 >
iH<K+i >=IH<:K+I > + I
10 10 CONTINUÉ
11 C EVALUACIÓN HISTOGRAMA ACUMULADO
12 IS=0
13 DO 20 K=1.256
14 IS=IS+IH<K>
15 IAH<K>=IS
16 20 CONTINUÉ
16.1 DISPLAV " H I S T . 0 , K , "
17 C E V A L U A C I Ó N TRANSF, L O G ,
18 DO 3 0 1 = 1 . 1 2 8
19 DO 3 0 J = 1 . 1 1 6
20 IK=IEN<I..i>
21 IEN< I . . J > = I F I X < X I D * < < X I M / ' X I 0 + 1 ) * * < I - I A H C I K + 1 >/< 1 2 8 , * i 1 6 . ) ) - 1 >'
21,1 lENC I . . J > = 3 D - I E N < I . J)
22 30 CONTINUÉ
22,01 REWIND 2 0
22.1 DISPLAY "TRANSF. O . K , "
23 WRITE < 2 0 ) < < lENC I . J >. 1 = 1 . 126 ). J=1 . 11 6 >
24 STOP
•^'=^, END
(111
PHCÍ: 1 HEIJLETT-PACKARD 32201A.7.11 EDIT/3000 MON. HÜV 2 1 . 1933. 8 ¡ 5 8 Pil C C
(
PAGE 2 HEUILETT-PHCKARD 32201A.7.11 EDIT.'3000 MOH. NOV 2 1 . 1983. 8:58 PM < L
71 END
412
PHGE 1 HEWLETT-PACKARD 32201A.?,11 EDIT/SÜOO MOH. HOV 2\, 1933, 8 : 5 5 Pl
413
PHGE 1 HEWLETT-PACKARD 32201A,7.n Et>IT,'3000 MON, HOV 2 1 . 1983. 81S2
t íCONTROL USLINIT
2 C PROGRAMA CUANTI2AD0R EH N NIVELES
3 DIMENSIÓN LK255>, IE<12S. M 6 >
4 R E H O C'Ki.J <<IE< I, •J>.I = 1 .12S>, •J=1 . 116>
5 DISPLAY "NUn, DE NIVELES DE CUAHTIZACION"
e HCCEPT N
7 DO 1 O I = 1.N
e. 10 U< I >= FLOHT< I-l >*255 . / F L O H T < N >
^ DO 8 0 1 = 1 . 1 2 8
O DO 8 0 0 = 1 . 1 1 6
2 IF <IE<I,.J) - LK2>) 20.30.30
2.1 20 I E < I , . J > = 0
2.2 GOTO SO
3 30 IF <IE'CI...O - LKN:0 31.32.32
3.1 32 lE-; I. J:>=U(N>
3.2 GOTO 8 0
4 3 1 DO 4 0 K = 2 , N - 1
5 I F << l E í I . v O , G E , L K K > > . A N D . < I E < I . J > , L T . U < K + 1 >>> lE'-'. I.. •-'>
6 4 0 CONTINUÉ
8 8 0 CONTINUÉ
9 WRITE < 2 0 > << l E k ' I . J > . 1 = 1 . 1 2 8 . 1 . •-1=1 . 1 16>
0 STOP
1 END
,1 •CONTROL U S L I N I T
c PROGRAMA QUE MEilORA LA C A L I D A D DE LAS IMÁGENES
c C U A N T I 2 A D A S EN POCOS N I V E L E S POR A D I C I Ó N DE UNA
c IMAGEN A L E A T O R I f t f F I L E 4 1 > . H L H 0 B J E T 0 < F I L E 4 0 >
4 c LA IMAGEN F 1 N A L < F I L E 2 0 > ES CUANT12ADA EH 10 N I V E L E S 0 - 9
D I M E N S I Ó N IN< 1 2 8 ^ 1 16 >. I 0 v 1 2 8 . 1 1 6 . '
READ ' : 4 0 ) << I N < I . J ) . 1 = 1 . 128.--'. 0=1 ^1 1 6 >
READ < 4 1 ) , < < ID< 1 , 0 >. 1 = 1 . 1 2 8 . 1 . 0 = 1 , 1 1 6 >
DO 5 0 1 = 1 . 1 2 8
9 • DO 5 0 0 = 1 . 1 1 6
10 I 0 < I . J > = í F L O A T < I N < I . 0 > > - 8 , + < F L O A T ( l O Í I , O > > i ' 2 5 5 . / 9 0 0 . / )H<9 .
1 1 1F< I 0 < I . 0 > - 2 5 5 > 2 0 . 2 0 . 1 0
12 10 10<r,0>=225
13 GOTO 5 0
14 20 IF<I0<I,0)) 30,50.50
15 30 IO<I,0>=0
16 50 CONTINUÉ
1? WRITE < 2 0 > << lO't I , 0 > , 1 = 1 , 1 2 8 . 1 . 0=1 . 1 1 6 1
18 STOP
19 END
414
PMGE 1 HElJLETT-PACKftRD 32201A,7.11 EC'IT/3000 MON. t)OV 2 U 1933, 8:51 PH (t
415
HHGE ¿ HEULETT-PHCKARD 32201A.7.11 E D I T / 3 0 0 C 1 t-lOH, HDV 2 1 , 1933, S;51
416
1-Mu.t 1 HüiJLETT-HHUi.t • ^' O í ^ ^ u i M . - , 1 1 i-Lii. >L.i.o n u i l , n^>' ^
,1 *COHTROL USLINIT
1 C PROGRAMA PARA REALIZAR LA COHVOLUCION DE UNA MATRIS
2 C A<N,t-0 SOBRE UNA IMAGEN I EN< 1 28 , 11 6 ) . CONSIDERA NULOS
3 C LOS [Link] 4 0>=ir'lHGEH ENTRADA . FILEC 20 ) = IP1HGEH
4 C [Link](41>=MATRI2 A DE DIMEN. MAX 10*10.
5 DIMENSIÓN A<30,30>,IEH<12S<116>.IS<128-58 >
c READ < 4 0 ) íí IEN< 1. J>,l = 1 , 128>. ..1=1 .1 ie>
7 READ <41,1> N-M
f- 1 F0RMAT';2I2>
8,1 DISPLAY
DO 5 I=1 . "MATRIZ
H DE CONVOLUCION <",N.".",M." V
3 [
DO 5 j= 1, ri
1O REHD < ^ 1 , 2 .••' H
11 DREAD
I S P L H<41 I. J
,2.''
Y «•; HÍ: I . J>
11,1 CONTINUÉ
FORI'IHTK F 7 , 4 :
12
NC==<N+1 )/2
13
14
nc==<ri+i >/2
JK== 0
1Í5 DO 40 j = i . n 6
15.1 DO 40 1=1.1S c¡
1? suri=o. 0
17.1 DO 30 lftO=1, H
DO 30 JA0=1. N
17.2
1S
19
20 I0=IA0-NC+I
21 Ü0=JA0-MC+J
22 I F < < l O . L T . 1 ) . 0 R . ' : l O . G T . I S S J . O R . C J C L T . I ) , 0 R . < J O . G T , 1 1 6 > > GOTO 3 0
225
3 01 S U M = A < I A O . J A 0 > * F L O H T ' ; lEN-; l O j J 0 > > +SUM
24
25 1 30 CONTINUÉ i
25 IS-; l A J - J K > ) = S U M '
2
I F Í I . N E , 128:,« GOTO 4 0
25 3
IF< 0-53> 4 0 , 3 5 . 4 0
25 31
35 JK=58
26 U R I T E < 2 0 > << IS< I K . J L > , IK--=1 , 1 2 8 > , J L = 1 > 5 8 > i
C1 DISPLAY "****>K**>t<***í(<***H<****H<******" S
2S 40 CONTINUÉ ']
2S D I S P L A Y "OK CONVOLUCION" ¡
31 WRITE < 2 0 > << I £ < I I , J1 ) , 11 = 1 , 1 2 8 > , J1 = 1 , 5 8 >
32 D I S P L A Y "OK E S C R I T U R A " I
60 1MA=255 i
IMI=0 3
32,01 REUUND 2 0 i
32.1 READ < 2 0 > << lENC I , J > , 1 = 1 . 1 2 S > , J = 1 , n 6 . ' > ;
34
33 DO 1 0 0 1 = 1 , 1 2 8 i
37 DO 1 0 0 J = 1 , 1 1 6 i
3í' 70 IF<IEN<I,J)-IMA> 75,75,70 i
3S IMA=1EN<I,J> i
40 75 GOTO 100
41 80
IF< IMI-IEN'! I, .J>> 1 00,100,80
42 100
43 iriI = lEN«; I. J>
44 . 1 CONTINUÉ
44 .2 DISPLAY "VALOR MÁXIMO" , IMA, "VALOR N I N I N O ' M M I
44.3 DISPLAY "DESEA CORRECCIÓN DE NIVELES, SI=1,NÜ=0"
44 . 4 16 ACCEPT NCLA
45 1
IF<NCLA> 1 5 0 , 1 5 0 , 1 6 0
DO 1 2 0 1 = 1 , 1 2 8
DO 1 2 0 J = 1 , 1 1 6
•*"=• 120 IEN< I , J>=<FLOAT< IEN< I , J >+IABS< I M I ) > * 2 2 5 .,''FLOAT< I M A + I A B S c - I M I ' V>
->•?• D I S P L A Y " O . K . CORRECCIÓN"
4 7 . Cl 1 5 0 REUUND 2 0
•^^l WRITE < 2 0 > << IEN< I , J ) , I = I . 1 2 8 > , ..1=1, 1 1 6 >
4b STOP
49 EHD
417
PHGE 1 HEUILETT-PACKARC- 3 2 2 0 t f t . 7 . 1 1 EDIT/SOOO MOH, NÜV 2K 1933. Sibl t
418
PAGE 2 HEULETT-PHCKARD 32201 A.7.11 EO11/3 00O MOH. NDV 21. 1983, 8 i 51 Pi
<i?n
PftGE 2 HEWLETT-PAGKflRD 3 2 2 0 I f l , 7 . t 1 EOrTr'SOOO MON, NOV 2 1 , 1 9 8 7 . 8 : 5 0 PM < C )
421
PHGE 1 HEWLETT-PhtCKftRD 3 2 2 0 1 ( H . ? . n EC^IT/SOOO MON. HOV 2 1 . 1983. 8 i 4 9 P l i <G> HE
A99
HACE 2 HEWL -PHCKARD 32201H.7.11 ECiIT/3000 MÜH. HÜV 2 1 , 19S3, 6149 Pll
423
PrtGE 1 HEWLETT-PACKARD 32201A.?,11 EOIT/3000 MON. MDV 21. 1985, 8;49 PM <L
1 ÍGOHTROL USLINIT
2 c "i PROGRHMH ~ D E TRAZHDO DEL DIAGRAMA B-Y VS R-Y
.:; D I M E H S I OH IEW. 1 2 8 . 5 8 > . 1 S< 1 2 8 , 1 1 6 >
4 •JriIH=1
jriAí<=5S
•JK=0
i DO 4 1 = 1 , 1 2 8
01 DO 4 J = 1 , 1 1 6
1
1 I F ^ I . G E . U 6 > GOTO 2
;3 01 IF< J , E Q . 5 7 > GOTO 3
& 02 1 IF': I . E Q . 5 7 > GOTO 3
;ñ 03
i 1S<I,.J>=0
M 04
GOTO 4
8 1 3 IS'; I,..i>=37
S.2 4 COHTIHUE
:= 5 READ < 4 0 > < í iEH< I . K ) , 1 = 1 , 1 2 8 >. K=1 . 5 8 .i
9. 1 DO 1 O •J=.JMIN. JMAX
Í..2 DO 1 O 1 = 1 , 1 2 8
I O RY=< FLOAT< IEN< I . < J - J K > . V 2 0 4 8 > - 8 , > * 5 8 , /? .
II XI=AMOD<FLOHT<: IEN<I,«: J - J K > > ) , 2 0 4 8 , >
12 XY=AM0DCXI,128. )
13 BY=< < K I - X Y . V 1 2 8 . - 8 . > * 5 3 , /? .
14 KI=BY+57,
15 KJ=57.-RY
16 IS<[Link]>=IS<[Link])+1
18 10 CONTINUÉ
18 I F < 0MA><;-58> 3 0 . 3 0 , 4 0 |
20 30 JMAX=116 I
20.1 D I S P L f t Y "OK 1 " i
21 JriIN=59 i
21 , 1 JK=58 ||
£2 GOTO 5 i
23 40 DISPLAY • ' 0 ~ . K . " g
24 DO 5 0 1 = 1 . 1 2 8 §|
DO 5 0 J = 1 . 1 1 6 I
IF<IS<I.J>-928) 45.47.47 I
2i>. 1 47 IS>;i.J)=255 |l
2¿-. 2 GOTO 5 0 i
26.3 45 I S< I . J >=< FLOAT< I S< I . J > > * 2 5 5 . , ' 9 2 8 . >
2¿,4 50 CONTINUÉ I
UIRITE < 4 1 ) << I S < I . J ) . 1 = 1 . t 2 8 > . J = 1 . 1 1 6 > t
STOP i
END i'
424
PrtGE 1 HEtJLETT-PñCKARD 32201ft.7.n EPIT/3000 riOH. HOV 2 U 1933. 8 1 4 S Pt1 <C
425
PACE 2 HEWLETT-PACKARCi 3 2 2 01 A . 7 . 11 ECilT/SOOO MOH. HüV 2 1 , 1 9 & 3 , &i4& P l l <C
/I9fi
ef^Gt 3 HEWLETT-PACKftRD 3 2 2 0 1 ft, 7 . 11 E D 1 1 / 3 0 0 O MON. NOV 2 1 , 1933. 8 i 4 8 PM <C
427