logaritmo e applicazioni

proprietà dei logaritmi e calcolo con elementi da inserire da tastiera
esercitazione con visual basic su powerpoint
vedi anche in generale logaritmo.htm

Private Sub CommandButton1_Click()
Rem tabella entro limiti indicati
inizio = TextBox1
fine = TextBox2
For k = inizio To fine
naturale = Left(Log(k), 5)
decimale = Left(Log(k) / Log(10), 5)
ListBox1.AddItem (k & " " & naturale & " " & decimale)
Next k
End Sub

Private Sub CommandButton10_Click()
Rem logaritmo di radicale
ListBox3.AddItem ("logaritmo di radicale = log(radicando)/indice radicale")
ListBox3.AddItem ("radice quinta di n : log(n)/5 ")
ListBox3.AddItem ("---------------------------------------")
a = 8
x = 3
radice = 8 ^ (1 / 3)
ListBox3.AddItem ("calcolo radice senza logaritmi")
ListBox3.AddItem ("radicando = " & a)
ListBox3.AddItem ("indice = " & x)
ListBox3.AddItem ("radice = " & radice)
ListBox3.AddItem ("------------------------")
ListBox3.AddItem ("calcolo radice con logaritmi")
logradicale = (Log(a) / Log(10)) / x
ListBox3.AddItem ("logaritmo radicale = log(radicando)/indice " & logradicale)
ListBox3.AddItem ("radice = 10^(logradicale) = " & 10 ^ (logradicale))
ListBox3.AddItem ("---------------------------------------------------")
a = 1000
x = 3
radice = 1000 ^ (1 / 3)
ListBox3.AddItem ("calcolo radice senza logaritmi")
ListBox3.AddItem ("radicando = " & a)
ListBox3.AddItem ("indice = " & x)
ListBox3.AddItem ("radice = " & radice)
ListBox3.AddItem ("------------------------")
ListBox3.AddItem ("calcolo radice con logaritmi")
logradicale = (Log(a) / Log(10)) / x
ListBox3.AddItem ("logaritmo radicale = log(radicando)/indice " & logradicale)
ListBox3.AddItem ("radice = 10^(logradicale) = " & 10 ^ (logradicale))
ListBox3.AddItem ("---------------------------------------------------")


End Sub

Private Sub CommandButton11_Click()
Rem prodotto e quoziente con due numeri da inserire
a = TextBox5
b = TextBox6
logprodotto = Log(a) + Log(b)
logquoziente = Log(a) - Log(b)
prodotto = Exp(logprodotto)
quoziente = Exp(logquoziente)
ListBox4.AddItem (a & " * " & b & " = " & prodotto)
ListBox4.AddItem (a & " / " & b & " = " & quoziente)
ListBox4.AddItem ("-----------------------------")

End Sub

Private Sub CommandButton12_Click()
Rem potenza
a = TextBox5
x = TextBox6
logpotenza = x * (Log(a) / Log(10))
potenza = Round(10 ^ (logpotenza))
ListBox4.AddItem ("potenza = " & potenza)
ListBox4.AddItem ("-----------------------------")
End Sub

Private Sub CommandButton13_Click()
Rem radice
a = TextBox5
x = TextBox6
logradicale = (Log(a) / Log(10)) / x
radice = 10 ^ logradicale
ListBox4.AddItem ("radice = " & radice)
ListBox4.AddItem ("----------------------------")
End Sub

Private Sub CommandButton2_Click()
Rem cerca logaritmo di numero da inserire
numero = TextBox3
naturale = Left(Log(numero), 5)
decimale = Left(Log(numero) / Log(10), 5)
ListBox2.AddItem ("numero =" & numero & " log(e) = " & naturale & " log(10) = " & decimale)
End Sub

Private Sub CommandButton3_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
End Sub

Private Sub CommandButton4_Click()
ListBox2.Clear
ListBox3.Clear
ListBox4.Clear
End Sub

Private Sub CommandButton5_Click()
Rem trova numero in funzione di logaritmo
logaritmo = TextBox4
numero1 = Exp(logaritmo)
numero2 = 10 ^ logaritmo
ListBox2.AddItem ("logaritmo = " & logaritmo)
ListBox2.AddItem ("se naturale , numero = " & numero1)
ListBox2.AddItem ("se decimale , numero = " & numero2)
ListBox2.AddItem ("----------------------------------")
End Sub

Private Sub CommandButton6_Click()
Rem logaritmo di prodotto e quoziente
Dim prodotto1 As Double
ListBox3.AddItem ("logaritmo di prodotto = somma logaritmi dei fattori")
ListBox3.AddItem ("log(a * b ) = log(a) + log(b) ")
ListBox3.AddItem ("---------------------------------------")
a = 10
b = 100
prodotto = a * b
loga = Log(a) / Log(10)
logb = Log(b) / Log(10)
logab = loga + logb
prodotto1 = Round(10 ^ (logab))
ListBox3.AddItem ("a = " & a & " b = " & b)
ListBox3.AddItem ("prodotto a * b = 10*100 = 1000 :senza logaritmi")
ListBox3.AddItem ("prodotto a * b = 10*100 >>> log(a*b) = log(a) + log(b) = log(10) + log(100) = 1+2 = 3")
ListBox3.AddItem ("prodotto a * b = 10*100 :con logaritmi >>> prodotto = 10^3 = 1000 ")
ListBox3.AddItem ("-------------------------------------------------------------------")
ListBox3.AddItem ("prodotto da eseguire : 10*100 = " & prodotto)
ListBox3.AddItem ("applicando logaritmo del prodotto :log(10*100) = log(10)+log(100) :" & loga & " + " & logb & " = " & logab)
ListBox3.AddItem ("prodotto ottenuto = 10^3 = " & prodotto1)
ListBox3.AddItem ("-------------------------------------------------------------------")

a = 123
b = 457
prodotto = a * b
loga = Log(a) / Log(10)
logb = Log(b) / Log(10)
logab = loga + logb
prodotto1 = 10 ^ logab
ListBox3.AddItem ("a = " & a & " b = " & b)
ListBox3.AddItem ("prodotto a * b :senza logaritmi= " & prodotto)
ListBox3.AddItem ("prodotto a * b = >>> log(a*b) = log(a) + log(b) = log(123) + log(457) = 2,089 + 2,659 = 4,748 ")
ListBox3.AddItem ("prodotto a * b = :con logaritmi >>> prodotto = 10^(4,748) = 56211 ")
ListBox3.AddItem ("-------------------------------------------------------------------")
ListBox3.AddItem ("prodotto da eseguire : 123*457 = " & prodotto)
ListBox3.AddItem ("applicando logaritmo del prodotto :log(123*457) = log(123)+log(457) :" & loga & " + " & logb & " = " & logab)
ListBox3.AddItem ("prodotto ottenuto = 10^(4,748) = " & prodotto1)
ListBox3.AddItem ("-------------------------------------------------------------------")
End Sub

Private Sub CommandButton7_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton8_Click()
Rem logaritmo di quoziente
ListBox3.AddItem ("logaritmo di quoziente = differenza logaritmi numeratore e denominatore")
ListBox3.AddItem ("log(a / b ) = log(a) - log(b) ")
ListBox3.AddItem ("---------------------------------------")
a = 1000
b = 100
quoziente = a / b
loga = Log(a) / Log(10)
logb = Log(b) / Log(10)
logab = loga - logb
quoziente1 = Round(10 ^ (logab))
ListBox3.AddItem ("a = " & a & " b = " & b)
ListBox3.AddItem ("quoziente a / b = 1000 / 100 = 10 :senza logaritmi")
ListBox3.AddItem ("quoziente a / b = 1000/100 >>> log(a/b) = log(a) - log(b) = log(1000) - log(100) = 3-2=1")
ListBox3.AddItem ("quoziente a / b = 1000/100 :con logaritmi >>> quoziente = 10^1 = 10 ")
ListBox3.AddItem ("-------------------------------------------------------------------")
ListBox3.AddItem ("quoziente da eseguire : 1000/100 = " & quoziente)
ListBox3.AddItem ("applicando logaritmo del quoziente :log(1000/100) = log(1000)-log(100) :" & loga & " + " & logb & " = " & logab)
ListBox3.AddItem ("quoziente ottenuto = 10^1 = " & quoziente1)
ListBox3.AddItem ("-------------------------------------------------------------------")

a = 1000
b = 135
quoziente = Round(a / b)
loga = Log(a) / Log(10)
logb = Log(b) / Log(10)
logab = loga - logb
quoziente1 = Round(10 ^ (logab))
ListBox3.AddItem ("a = " & a & " b = " & b)
ListBox3.AddItem ("quoziente a / b senza logaritmi = " & quoziente)
ListBox3.AddItem ("applicando logaritmo del quoziente :" & loga & " + " & logb & " = " & logab)
ListBox3.AddItem ("quoziente ottenuto = " & quoziente1)
ListBox3.AddItem ("-------------------------------------------------------------------")
End Sub

Private Sub CommandButton9_Click()
Rem logaritmo di una potenza
ListBox3.AddItem ("logaritmo di potenza = esponente * log(base)")
ListBox3.AddItem ("log(a^x) = x * log(a) ")
ListBox3.AddItem ("---------------------------------------")
a = 10
x = 3
potenza = a ^ x
ListBox3.AddItem ("calcolo potenza senza logaritmi")
ListBox3.AddItem ("base = " & a)
ListBox3.AddItem ("esponente = " & x)
ListBox3.AddItem ("potenza = " & potenza)
ListBox3.AddItem ("------------------------")
ListBox3.AddItem ("calcolo potenza con logaritmi")
logpotenza = x * Log(a) / Log(10)
ListBox3.AddItem ("logaritmo potenza = esponente*log(base) " & logpotenza)
ListBox3.AddItem ("potenza = 10^(logaritmopotenza) = " & 10 ^ (logpotenza))
ListBox3.AddItem ("---------------------------------------------------")
a = 2
x = 5
potenza = a ^ x
ListBox3.AddItem ("calcolo potenza senza logaritmi")
ListBox3.AddItem ("base = " & a)
ListBox3.AddItem ("esponente = " & x)
ListBox3.AddItem ("potenza = " & potenza)
ListBox3.AddItem ("------------------------")
ListBox3.AddItem ("calcolo potenza con logaritmi")
logpotenza = x * Log(a) / Log(10)
ListBox3.AddItem ("logaritmo potenza = esponente*log(base) " & logpotenza)
ListBox3.AddItem ("potenza = 10^(logaritmopotenza) = " & 10 ^ (logpotenza))
ListBox3.AddItem ("---------------------------------------------------")
End Sub

vedi logaritmo2.ppt