sperimentare

verifica numerica della legge dei punti coniugati in lente convergente;
con Excel, VBA su Excel
per codici e attivazione vedi link
http://digilander.libero.it/francescovise/vbacodice/prove.htm
http://digilander.libero.it/francescovise/vbacodice/vbalente.htm
http://digilander.libero.it/francescovise/vbacodice/vbalente.xls
http://digilander.libero.it/francescovise/vbacodice/vbaconiuga.htm
http://digilander.libero.it/francescovise/vbacodice/vbaconiuga.xls
http://digilander.libero.it/francescovise/vbacodice/vbalentex2.xml
http://digilander.libero.it/francescovise/vbacodice/vbalentex3.mht
http://digilander.libero.it/francescovise/vbacodice/vbaconiuga.mht

Private Sub CommandButton1_Click()
Rem verifica legge punti coniugati
Rem ipotesi per evitare errore divisione per 0
Cells(13, 1) = "inserire valore per fuoco in cella F2: limitarsi a 0,5 - 1-2-3-4 "
Cells(15, 1) = "poi cliccare pulsante 1"
Cells(1, 6) = "fuoco"
Cells(1, 7) = "centro curvatura"
Cells(2, 7) = Cells(2, 6) * 2
Cells(1, 1) = "posizione p"
Cells(1, 2) = "posizione q"
Cells(1, 3) = "ingrandimento g"
p = 10
For riga = 2 To 11
Cells(riga, 1) = p
If Cells(riga, 1) <> Cells(2, 6) Then
Cells(riga, 2) = (Cells(2, 6) * (Cells(riga, 1)) / ((Cells(riga, 1) - Cells(2, 6))))
Cells(riga, 3) = Cells(riga, 2) / Cells(riga, 1)
Else
Cells(riga, 2) = "non esiste"
Cells(riga, 3) = "non esiste"
End If
p = p - 1
Next riga
End Sub

Private Sub CommandButton2_Click()
For riga = 2 To 12
For colonna = 1 To 3
Cells(riga, colonna) = ""
Next colonna
Next riga
Cells(2, 6) = ""
Cells(2, 7) = ""
End Sub