REM evapo5
REM leggi evaporazione interattiva
CLS
PRINT"leggi della evaporazione"
PRINT"si evidenzia come varia la velocita' di evaporazione"
PRINT"cioe' la quantita' di vapore che si libera nella unita' di tempo"
PRINT"in funzione della variazione di alcuni elementi:uno alla volta"
PRINT
PRINT"la evaporazione avviene in momenti successivi per i due liquidi"
PRINT"ma impiegando lo stesso tempo"
PRINT
PRINT"si disegnano due recipienti vuoti"
PRINT"si introducono due liquidi allo stesso livello iniziale"
PRINT"si indica la variazione di livello nel tempo"
PRINT
PRINT"viene poi richiesto di indicare la variabile da cui dipende"
PRINT"ogni singolo esperimento proposto"
PRINT
PRINT"premere return ogni volta per continuare":BEEP
2 :IF INKEY$="" THEN 2
CLS
CLS
REM diversa temperatura
A1=200:y1=A1-100:y3=A1-180:y2=a1-160
x1=20:x2=100:X3=120:X4=200
n=10
CALL recipienti(x1,X2,X3,X4,Y1,Y3)
CALL liquidi(x1,X2,X3,X4,Y1,Y2)
m=20
CALL evapo1(x1,x2,x3,x4,n,m)
e=1
CALL domande(e)
INPUT k$
CLS
REM diversa superficie
x4=280
CALL recipienti(x1,x2,x3,x4,y1,y3)
CALL liquidi(x1,x2,x3,x4,y1,y2)
m=10
CALL evapo1(x1,x2,x3,x4,n,m)
e=2
CALL domande(e)
INPUT k$
CLS
REM diversa natura liquido
x4=200
CALL recipienti(x1,X2,X3,X4,Y1,Y3)
CALL liquidi(x1,X2,X3,X4,Y1,Y2)
REM liquido secondo diverso
FOR C=5 TO 75
PRESET(X3+c,y1-20)
PRESET(x3+c,y1-30)
PRESET(X3+c,y1-c)
PRESET(X4-c,y1-c)
NEXT c
m=30
CALL evapo1(x1,x2,x3,x4,n,m)
e=3
CALL domande(e)
INPUT k$
CLS
REM diversa ventilazione
x4=200
CALL recipienti(x1,X2,X3,X4,Y1,Y3)
CALL liquidi(x1,X2,X3,X4,Y1,Y2)
LINE(x1-5,y3)-(x2+5,y3-5),,BF
LOCATE 1,2:PRINT"copertura vaso"
m=30
CALL evapo1(x1,x2,x3,x4,n,m)
e=4
CALL domande(e)
INPUT k$
CLS
PRINT"per rivedere,premi return:poi clic su RUN e clic su START"
INPUT k$
CLS
END
SUB recipienti(x1,X2,X3,X4,Y1,Y2) STATIC
LINE(x1,y1)-(x2,y2),,b
LINE(X3,Y1)-(x4,y2),,b
END SUB
SUB liquidi(x1,x2,x3,x4,y1,y2) STATIC
LINE(x1,y1)-(x2,y2),,BF
LINE(x3,y1)-(X4,y2),,BF
END SUB
SUB evapo1(x1,X2,x3,x4,n,m) STATIC
g=40
FOR a=1 TO n
FOR b=x1+2 TO x2-2
PRESET(b,g)
NEXT b
g=g+1
NEXT a
g=40
FOR a=1 TO m
FOR b=x3+2 TO x4-2
PRESET(b,g)
NEXT b
g=g+1
NEXT a
END SUB
SUB domande(e) STATIC
L$(1)="1....velocita' varia con temperatura? "
L$(2)="2....velocita' varia con superficie evaporante?"
L$(3)="3....velocita' varia con natura del liquido?"
L$(4)="4....velocita' varia con ventilazione?"
V$(1)="temperatura"
V$(2)="superficie"
V$(3)="natura liquido"
v$(4)="ventilazione"
LOCATE 16,2:PRINT"evaporazione in tempi successivi ma identici"
FOR a=1 TO 4
LOCATE 10+a,2:PRINT L$(a)
NEXT a
BEEP:BEEP
LOCATE 17,2:INPUT"risposta=";R
IF r=e THEN PRINT "esatto" ELSE PRINT"errato:era:";L$(e)
LINE(300,100)-(450,100)
LINE(300,100)-(300,20)
LINE(300,100)-(400,30)
LOCATE 1,30:PRINT"velocita' evaporazione"
LOCATE 8,45:PRINT V$(e)
BEEP
END SUB
