ZXTape!RETI   9:2,0;"RETI COMBINATORIE";'"A DUE LIVELLI" "di D. Tanzer" 713 ,0;"Dedica :""E'dolce consegnarsi,pur" C9 ;"tramite un'infinitesima";9 ;"scheggia,all'utopia" (C9 ;"dell'eternita'.Perche'";9 ;"qualcosa resti quale" 2A9 ;"memoria,a testimonianza";9 ;"tangibile di noi," 79 ;"per sempre.""" <25;"S.R." d9 ,0;: n"" RETI     *********************** *** inizializzazione ** ***********************   8000@  ***********************  programma principale ***********************     e=0 (*"Dammi il numero degli ingressi.(n2)",n 2n<25160( <"s$="":i=1n:s$=s$+" ":i F"a$(2^n,n):h$(2^n,n) P 7230> Z*********************** d***** elaborazione **** n*********************** x num=e 0e=2^n:"Y e' sempre vera.":5370 /e=0:"Y e' sempre falsa.":5370  5610  6000p  7600  6300 ::: "Uscita :":"uscita :"::  6430 Oe10 #0;"premi un tasto per il circuito.":0::6600  10 #0;"Ancora ? (s/n)" c$= (c$="s"c$="n")5380  c$="n" " 5140 , 6*********************** @******* dec>bin ******* J*********************** T ^b$="" hk=i rk=05550 |q=(k/2) q*2=kb$="0"+b$ q*2kb$="1"+b$ k=q  5490r q=1n-b$  b$="0"+b$ q   *********************** ******* compatta ****** ***********************   d$(e,n)  i=0  k=1e & i=i+1 0,a$(i,1)" "d$(k)=a$(i):5700D : 5670& Dk N a$(e,n) X i=1e b a$(i)=d$(i) li v  *********************** ***** togli doppie **** ***********************   d$(e,n)  e1=0 i=1e-1  k=0 j=i+1e i=j5880 a$(i)=a$(j)k=1 j (k=0e1=e1+1:d$(e1)=a$(i)  i e1=e1+1  d$(e1)=a$(e) *e=e1:a$(e,n) 4 i=1e > a$(i)=d$(i) Hi R \ f*********************** p******** riduci ******* z***********************   e=1 -q1=1:d$(e*(e-1),n):k1=0  i=1e  con=0  j=1e i=j6210B  q=0  k=1n a$(i,k)a$(j,k)q=q+1 k q16210B (q1=0:k1=k1+1:con=1 n=26190. k=2n-1 Ha$(i,k)a$(j,k)d$(k1)=a$(i)(1k-1)+" "+a$(i)(k+1) $k .9a$(i,1)a$(j,1)d$(k1)=" "+a$(i)(2) 82a$(i,n)a$(j,n)d$(k1)=a$(i)(1n-1) Bj L*con=0k1=k1+1:d$(k1)=a$(i) Vi `.a$(k1,n):i=1k1:a$(i)=d$(i):i:e=k1 j 5780 tq1=06030 ~  *********************** **** togli bianchi **** ***********************   i=1e e$=""  j=1n a$(i,j)" "e$=e$+a$(i,j) j  a$(i)=e$ i    *********************** *** scrivi funzione *** (*********************** 2 <e$="" F i=1e P j=0 Z j=j+1 dj>n6520x n(a$(i,j)" "e$=e$+a$(i,j):6490Z x e$=e$+"+" i e$=e$(1̱e$-1)  "y= ";e$  "y= ";e$   *********************** ******* grafica ******* ***********************  k=(21/n) a(n) i=0n-1 a(i+1)=(i*k+k/2) ,(i*k+k/2),0;(97a+i);"" i "k=(21/e):b(e) ,i=0e-1 6b(i+1)=(i*k+k/2) @da$(i+1,2)" "(i*k+k/2),12 ;"";(i*k+k/2)+1,12 ;"" Ji T<e>110 ,20;"";11 ,20;"" ^$e=110 ,20;"__" h10 ,30;"Y" r176,88X |568,0 g$(n,2)  i=1e  k=0  k=k+1 k>n7060  b$=a$(i,k) b$=" "7060 b$<96`6930 val=b$-96` !g$(val,1)="1"7010b g$(val,1)="1" +8,(22-a(val))*8+4 20,0  7010b val=b$-64@ !g$(val,2)="1"7010b &g$(val,2)="1" 0+8,(22-a(val))*8-4 :8,0 Da(val),2;"" N,24,(22-a(val))*8-4 X4,0 b$dif=-(b(i)-a(val))*8-8 l?b$<96`t=(22-a(val))*8-4:28,t v?b$>96`t=(22-a(val))*8+4:28,t J68D,(dif-4*(b$>96`)+4*(b$<96`))dif0  6820 i  i=1e val1=(10 -b(i))*8 &val2=(22-b(i))*8-8 e>nx=112p:7130  x=98b  a$(i,2)" "x=112p x,val2 val3=160-x val3+3,-val1 i =#0;0,0;"Vuoi copia su stampante ? (s/n)"  c$= (c$="s"c$="n")7180   c$="s" *; 4 > H*********************** R* formattazione video * \*********************** f p num=0 z i=1n (96`+i);"|"; (96`+i);"|"; 0i:" ";"y":"________________________________" -" ";"y":"________________________________"  *********************** ****** data entry ***** ***********************  i=02^n-1  5440@ Ik=1̱b$:b$(k);" "(kɱb$);:b$(k);" "(kɱb$);:k:"| ";:"| ";: "1 , 0 , x?",c$ &(c$="1" c$="0"c$="x")7420 c$ c$ $c$="0"7530j . e=e+1 8%c$="1"num=num+1:h$(num)=b$ B j=1n L*b$(j)="1"a$(i+1,j)=(96`+j) V*b$(j)="0"a$(i+1,j)=(64@+j) `j ji t ~ *********************** ** riduzione degli or * ***********************  z$(e):j$(e,num)  i=1e h=1num  q=0  j=1n \a$(i,j)" "((a$(i,j)<96`h$(h,j)="0")(a$(i,j)>96`h$(h,j)="1"))q=q+1 a$(i,j)=" "q=q+1 j q=nj$(i,h)="1"  h i i=1num (q=0:j=1e 2j$(j,i)="1"q=q+1 <j Fq>17790n P j=1e Z$j$(j,i)="1"z$(j)="1":7790n dj ni x 8090  i=1e z$(i)"1"a$(i)=s$ i  k=0  i=1e q=0:j=1n q=q+a$(i,j) j q=32 *n7920  k=k+1  a$(k)=a$(i) i e=k   *********************** "** caratteri grafici ** ,*********************** 6 @192,160,150,137,137,150,160,192,255,96`,16,12 ,4,2,2,2,0,128,96`,24,12 ,6,3,1,2,2,2,4,12 ,16,96`,255,1,3,6,12 ,24,96`,128,0,255,128,128,128,128,128,128,128,128,128,128,128,128,128,128,255 Jm=06 Tn=07 ^a h"a"+n+m*8,a rn |m   *********************** 2 verifica totale copertura ***********************  y$(num):w$(num)  o=1e z$(o)"1"8190 p=1num j$(o,p)="1"w$(p)="1" p o   o=1e p=1num &j$(o,p)="1"y$(p)="1" 0p :o Dbool=0 No=1num Xy$(o)=w$(o)8340 b p=0 l p=p+1 vj$(p,o)"1"8300l z$(p)="1" bool=1 o bool8090