potenze
esci con testvba.htm
studio di potenze e radicali
potenze.ppt
Private Sub
CommandButton1_Click()
Rem potenze e con esponente frazionario
ListBox1.AddItem ("estrazione di radice mediante funzione
sqr(x) con indice 2 ")
ListBox1.AddItem ("estrazione di radice mediante formula
x^(n/m) per indici diversi ")
ListBox1.AddItem ("estrazione di radice mediante
applicazione dei logaritmi")
ListBox1.AddItem
("--------------------------------------------------------")
ListBox1.AddItem (" y = sqr(x) ")
ListBox1.AddItem
("-------------------------------------------")
For x = 1 To 36
y = Left(Sqr(x), 5)
ListBox1.AddItem (x & " " & y)
Next x
ListBox1.AddItem
("------------------------------------------")
ListBox1.AddItem ("y = x^(n/m) radicando^n , indice
radicale=m ")
ListBox1.AddItem ("-----radice quadrata
----------------------")
ListBox1.AddItem (" y = x^(1/2) ")
For x = 1 To 36
y = x ^ (1 / 2)
ListBox1.AddItem (x & " " & (Left(y, 5)))
Next x
ListBox1.AddItem ("---radice cubica----")
ListBox1.AddItem (" y = x^(1/3) ")
ListBox1.AddItem ("-----------------")
For x = 1 To 36
y = x ^ (1 / 3)
ListBox1.AddItem (x & " " & (Left(y, 5)))
Next x
ListBox1.AddItem ("---radice quarta----")
ListBox1.AddItem (" y = x^(1/4) ")
ListBox1.AddItem ("-----------------")
For x = 1 To 36
y = x ^ (1 / 4)
ListBox1.AddItem (x & " " & (Left(y, 5)))
Next x
ListBox1.AddItem ("---radice seconda di
radicando^3----")
ListBox1.AddItem (" y = x^(3/2) ")
ListBox1.AddItem ("-----------------")
For x = 1 To 36
y = x ^ (3 / 2)
ListBox1.AddItem (x & " " & (Left(y, 5)))
Next x
ListBox1.AddItem ("------con logaritmo ---")
ListBox1.AddItem ("calcolo logaritmo :logradicale=
log(radicando)/indice")
ListBox1.AddItem ("calcolo numero corrispodente al
logaritmo: radice=10^(logradicale)")
radicando = 100
indice = 2
logradicando = Log(radicando) / Log(10)
logradicale = (Log(radicando) / Log(10)) / indice
radice = 10 ^ (logradicale)
ListBox1.AddItem ("radicando= " & radicando)
ListBox1.AddItem ("indice = " & indice)
ListBox1.AddItem ("logaritmo radicando = " &
logradicando)
ListBox1.AddItem ("logaritmo radicale =" &
logradicale)
ListBox1.AddItem ("radice = " & radice)
ListBox1.AddItem ("--------esempio ------------------")
For x = 4 To 100 Step 4
radicando = x
indice = 2
logradicando = Log(radicando) / Log(10)
logradicale = (Log(radicando) / Log(10)) / indice
radice = 10 ^ (logradicale)
ListBox1.AddItem ("radicando= " & radicando)
ListBox1.AddItem ("indice = " & indice)
ListBox1.AddItem ("logaritmo radicando = " &
logradicando)
ListBox1.AddItem ("logaritmo radicale =" &
logradicale)
ListBox1.AddItem ("radice = " & radice)
ListBox1.AddItem
("------------------------------------")
Next x
ListBox1.AddItem
("------------------------------------")
End Sub
Private Sub CommandButton2_Click()
Rem potenze assegnate
Dim quadrati(5) As Integer
Dim cubi(5) As Integer
Dim quarta(5)
k = 2
For x = 0 To 4
quadrati(x) = k ^ 2
cubi(x) = k ^ 3
quarta(x) = k ^ 4
k = k + 1
Next x
For x = 0 To 4
ListBox1.AddItem ("quadrati = " & quadrati(x) &
" cubi= " & cubi(x) & " quarta potenza =
" & quarta(x))
Next x
ListBox1.AddItem ("radice quadrata come x^(1/2) ")
For x = 0 To 4
ListBox1.AddItem (quadrati(x) & " radice =" &
quadrati(x) ^ (1 / 2))
Next x
ListBox1.AddItem ("------------------")
ListBox1.AddItem ("radice cubica come x^(1/3)")
For x = 0 To 4
ListBox1.AddItem (cubi(x) & " radice = " &
cubi(x) ^ (1 / 3))
Next x
ListBox1.AddItem ("------------------")
ListBox1.AddItem ("radice quarta come x^(1/4)")
For x = 0 To 4
ListBox1.AddItem (quarta(x) & " radice = " &
quarta(x) ^ (1 / 4))
Next x
ListBox1.AddItem ("----------------")
ListBox1.AddItem ("radicali tipo :radice n di di x^m :
x^(m/n)")
ListBox1.AddItem ("radice quadrata di 4^3 = 4^(3/2)")
h = 4
y = h ^ (3 / 2)
ListBox1.AddItem ("4^3 " & " radice quadrata =
" & (Left(y, 5)))
h = 5
y = h ^ (3 / 2)
ListBox1.AddItem ("5^3 " & " radice quadrata =
" & (Left(y, 5)))
h = 6
y = h ^ (3 / 2)
ListBox1.AddItem ("6^3 " & " radice quadrata =
" & (Left(y, 5)))
End Sub
Private Sub CommandButton3_Click()
ListBox1.Clear
End Sub
Private Sub CommandButton4_Click()
Rem prodotto di potenze
a = 10 ^ 3
b = 10 ^ 2
prodotto = a * b
ListBox1.AddItem ("prodotto di potenze senza uso di
logaritno")
ListBox1.AddItem ("10^3 * 10^2 = " & prodotto)
ListBox1.AddItem ("------con logaritmo
------------------")
loga = 3 * Log(10)
logb = 2 * Log(10)
logab = loga + logb
prodotto1 = Exp(logab)
ListBox1.AddItem (prodotto1)
ListBox1.AddItem ("------------------------")
a = 5 ^ 3
b = 4 ^ 2
prodotto = a * b
ListBox1.AddItem ("prodotto di potenze senza uso di
logaritno")
ListBox1.AddItem ("5^3 * 4^2 = " & prodotto)
ListBox1.AddItem ("------con logaritmo
------------------")
ListBox1.AddItem ("log(a^m * b*n ) = log(a^m) + log(b^n) =
m*log(a) + n*log(b)")
ListBox1.AddItem ("log(5^3 * 4^2) = log(5^3) + log(4^2) =
3*log(5) + 2*log(4)")
ListBox1.AddItem ("(5^3 * 4^2) = exp(somma logaritmi)
")
loga = 3 * Log(5)
logb = 2 * Log(4)
logab = loga + logb
prodotto1 = Exp(logab)
ListBox1.AddItem (prodotto1)
ListBox1.AddItem ("----------------------------------")
a = 12 ^ 5
b = 6 ^ 4
prodotto = a * b
ListBox1.AddItem ("(12^5) * (6^4)= 248832*1296= " &
prodotto & " senza logaritmi")
loga = 5 * Log(12)
logb = 4 * Log(6)
logab = loga + logb
prodotto1 = Exp(logab)
ListBox1.AddItem (prodotto1 & " con logaritmi")
ListBox1.AddItem ("----------------------------------")
End Sub
Private Sub CommandButton5_Click()
Rem esempi vari
Dim prodotto, prodottox As Double
ListBox1.AddItem ("prodotto = 412.6 * 0.00358 * 9.728 *
0.063 ")
prodotto = 412.6 * 0.00358 * 9.728 * 0.063
ListBox1.AddItem ("prodotto eseguito senza logaritmi= "
& prodotto)
ListBox1.AddItem ("-------------- con logaritmi naturali
-----------------")
ListBox1.AddItem ("trovo log(412.6 * 0.00358 * 9.728 *
0.063) ")
ListBox1.AddItem ("log(412.6) + log(0.00358) + log(9.728) +
log(0.063)")
x1 = Log(412.6)
x2 = Log(0.00358)
x3 = Log(9.728)
x4 = Log(0.063)
loga = x1 + x2 + x3 + x4
prodottox = Exp(loga)
x1 = Left(x1, 7)
x2 = Left(x2, 7)
x3 = Left(x3, 7)
x4 = Left(x4, 7)
loga = Left(loga, 7)
ListBox1.AddItem (x1 & " + " & x2 & "
+ " & x3 & " + " & x4 & " =
" & loga)
ListBox1.AddItem ("trovo valore del prodotto exp(loga) =
" & prodottox)
ListBox1.AddItem
("**************************************************")
ListBox1.AddItem ("prodotto = 10 * 100 * 1000 * 10000
")
ListBox1.AddItem ("---------- con logaritmi decimali
----------------")
ListBox1.AddItem ("trovo log(10 * 100 * 1000 * 10000)
")
ListBox1.AddItem ("log(10) + log(100) + log(1000) +
log(10000)")
x1 = Log(10) / Log(10)
x2 = Log(100) / Log(10)
x3 = Log(1000) / Log(10)
x4 = Log(10000) / Log(10)
loga = x1 + x2 + x3 + x4
prodottox = Round(10 ^ (loga))
x1 = Left(x1, 7)
x2 = Left(x2, 7)
x3 = Left(x3, 7)
x4 = Left(x4, 7)
loga = Left(loga, 7)
ListBox1.AddItem (x1 & " + " & x2 & "
+ " & x3 & " + " & x4 & " =
" & loga)
ListBox1.AddItem ("trovo valore del prodotto 10^(loga) =
" & prodottox)
ListBox1.AddItem ("***************** con logaritmi naturali
************")
ListBox1.AddItem ("prodotto = 10 * 100 * 1000 * 10000
")
ListBox1.AddItem ("trovo log(10 * 100 * 1000 * 10000)
")
ListBox1.AddItem ("log(10) + log(100) + log(1000) +
log(10000)")
x1 = Log(10)
x2 = Log(100)
x3 = Log(1000)
x4 = Log(10000)
loga = x1 + x2 + x3 + x4
prodottox = Round(Exp(loga))
x1 = Left(x1, 7)
x2 = Left(x2, 7)
x3 = Left(x3, 7)
x4 = Left(x4, 7)
loga = Left(loga, 7)
ListBox1.AddItem (x1 & " + " & x2 & "
+ " & x3 & " + " & x4 & " =
" & loga)
ListBox1.AddItem ("trovo valore del prodotto exp(loga) =
" & prodottox)
ListBox1.AddItem
("*************************************************")
ListBox1.AddItem ("quoziente da eseguire :625.48 / 21.532
")
ListBox1.AddItem ("applico logaritmo naturale : log(625.48 /
21.532) = log(625.48) - log(21.532) ")
x1 = Log(625.48)
x2 = Log(21.532)
loga = x1 - x2
quoziente = Round(Exp(loga))
ListBox1.AddItem (x1 & " - " & x2 & "
= " & loga)
ListBox1.AddItem ("quoziente = exp(loga) = " &
quoziente)
ListBox1.AddItem ("---------- applico logaritmo decimale
------- ")
ListBox1.AddItem ("quoziente da eseguire :625.48 / 21.532
")
ListBox1.AddItem ("applico logaritmo decimale : log(625.48 /
21.532) = log(625.48) - log(21.532) ")
x1 = Log(625.48) / Log(10)
x2 = Log(21.532) / Log(10)
loga = x1 - x2
quoziente = Round(10 ^ (loga))
ListBox1.AddItem (x1 & " - " & x2 & "
= " & loga)
ListBox1.AddItem ("quoziente = exp(loga) = " &
quoziente)
ListBox1.AddItem
("-----------------------------------------------------------------
")
ListBox1.AddItem ("quoziente da eseguire :1000 / 10 ")
ListBox1.AddItem ("applico logaritmo decimale : log(1000 /
10) = log(1000) - log(10) ")
x1 = Log(1000) / Log(10)
x2 = Log(10) / Log(10)
loga = x1 - x2
quoziente = Round(10 ^ (loga))
ListBox1.AddItem (x1 & " - " & x2 & "
= " & loga)
ListBox1.AddItem ("quoziente = exp(loga) = " &
quoziente)
ListBox1.AddItem
("***********************************")
ListBox1.AddItem ("calcolo potenza :35.48^3 ")
potenza = 35.48 ^ 3
ListBox1.AddItem ("potenza = 35.48^3 = " & potenza)
ListBox1.AddItem ("-------applico logaritmo
naturale-------------- ")
ListBox1.AddItem ("calcolo potenza :35.48^3 ")
ListBox1.AddItem ("trovo logaritmo : log(35.48^3) = 3 *
log(35.48) ")
loga = 3 * Log(35.48)
ListBox1.AddItem ("log(35.48) = " & Log(35.48))
ListBox1.AddItem ("logaritmo della potenza = " &
loga)
potenza = Exp(loga)
ListBox1.AddItem ("potenza = exp(loga) = " &
potenza)
ListBox1.AddItem ("------applico logaritmo decimale----
")
ListBox1.AddItem ("calcolo potenza :35.48^3 ")
ListBox1.AddItem ("trovo logaritmo : log(35.48^3) = 3 *
log(35.48) ")
loga = 3 * (Log(35.48) / (Log(10)))
ListBox1.AddItem ("log(35.48) = " & Log(35.48) /
Log(10))
ListBox1.AddItem ("logaritmo della potenza = " &
loga)
potenza = 10 ^ (loga)
ListBox1.AddItem ("potenza = 10^(loga) = " &
potenza)
ListBox1.AddItem ("--------------- applico logaritmo
decimale--- ")
ListBox1.AddItem ("calcolo potenza :100^3 ")
ListBox1.AddItem ("trovo logaritmo : log(100^3) = 3 *
log(100) ")
loga = 3 * (Log(100) / (Log(10)))
ListBox1.AddItem ("log(100) = " & Log(100) /
Log(10))
ListBox1.AddItem ("logaritmo della potenza = " &
loga)
potenza = 10 ^ (loga)
ListBox1.AddItem ("potenza = 10^(loga) = " &
potenza)
ListBox1.AddItem ("*************logaritmo
naturale******************* ")
ListBox1.AddItem ("calcolo radicale :radice 5^ di 0.64937
")
ListBox1.AddItem ("trovo logaritmo del radicale :
log(0.64937)/5 ")
loga = Log(0.64937) / 5
ListBox1.AddItem ("logaritmo del radicale = " &
loga)
radice = Exp(loga)
ListBox1.AddItem ("radice = exp(loga) = " & radice)
ListBox1.AddItem ("---------------logaritmo
decimale------------------------------- ")
ListBox1.AddItem ("calcolo radicale :radice 5^ di 0.64937
")
ListBox1.AddItem ("trovo logaritmo del radicale :
log(0.64937)/5 ")
loga = (Log(0.64937) / Log(10)) / 5
ListBox1.AddItem ("logaritmo del radicale = " &
loga)
radice = 10 ^ (loga)
ListBox1.AddItem ("radice = 10^(loga) = " & radice)
ListBox1.AddItem ("------------- logaritmo decimale---
")
ListBox1.AddItem ("calcolo radicale :radice 3^ di 1000
")
ListBox1.AddItem ("trovo logaritmo del radicale :
log(1000)/3 ")
loga = (Log(1000) / Log(10)) / 3
ListBox1.AddItem ("logaritmo del radicale = " &
loga)
radice = 10 ^ (loga)
ListBox1.AddItem ("radice = 10^(loga) = " & radice)
ListBox1.AddItem ("-------- logaritmo decimale ")
ListBox1.AddItem ("calcolo = ((5.247)^5 * (429.35)^(1/3)) /
(((92.822)^2)^(1/7))*128.3)) ")
ListBox1.AddItem ("trovo logaritmo:( 5*log(5.247) +
log(429.35)/3) - (2/7)*log(92.822)-log(128.3) ")
x1 = 5 * Log(5.247)
x2 = (Log(429.35)) / 3
x3 = (2 * Log(92.822)) / 7
x4 = Log(129.3)
loga = x1 + x2 - x3 - x4
calcolo = Exp(loga)
ListBox1.AddItem ("logaritmo totale = " & loga)
ListBox1.AddItem ("calcolo = exp(loga) = " &
calcolo)
ListBox1.AddItem ("------------------ logaritmo decimale
")
ListBox1.AddItem ("calcolo = ((5.247)^5 * (429.35)^(1/3)) /
(((92.822)^2)^(1/7))*128.3)) ")
ListBox1.AddItem ("trovo logaritmo:( 5*log(5.247) +
log(429.35)/3) - (2/7)*log(92.822)-log(128.3) ")
x1 = 5 * (Log(5.247) / Log(10))
x2 = (Log(429.35) / (Log(10)) / 3)
x3 = (2 * (Log(92.822) / Log(10)) / 7)
x4 = Log(129.3) / Log(10)
loga = x1 + x2 - x3 - x4
calcolo = 10 ^ (loga)
ListBox1.AddItem ("logaritmo totale = " & loga)
ListBox1.AddItem ("calcolo = 10^(loga) = " &
calcolo)
End Sub
Private Sub CommandButton6_Click()
Rem potenze con esponente negativo
ListBox1.AddItem ("y = 10^(-2) = 1/10^2 ")
y = 10 ^ (-2)
ListBox1.AddItem (y)
ListBox1.AddItem ("y = 5^(-2) = 1/5^2 ")
y = 5 ^ (-2)
ListBox1.AddItem (y)
ListBox1.AddItem ("y = 10^(-5) = 1/10^5 ")
ListBox1.AddItem ("log(y) = -5*log(10) = -5*1 = -5
>>> y = 10^(-5) = 1/100000 ")
y = 10 ^ (-5)
ListBox1.AddItem (y)
End Sub
Private Sub CommandButton7_Click()
Rem potenze con grafici
ydise1.Visible = True
ListBox1.AddItem (" y = x^2 ")
For x = -3 To 3
y = x ^ 2
ListBox1.AddItem ("x = " & x & " y =
" & y)
Next x
ListBox1.AddItem ("----------------------")
ListBox1.AddItem ("y = x^3 ")
For x = -3 To 3
y = x ^ 3
ListBox1.AddItem ("x = " & x & " y =
" & y)
Next x
ListBox1.AddItem (" valide in tutto il campo")
End Sub
Private Sub CommandButton8_Click()
ydise1.Visible = False
ydise2.Visible = False
End Sub
Private Sub CommandButton9_Click()
Rem grafici radicali
ydise2.Visible = True
ListBox1.AddItem (" y = sqr(x) radice quadrata")
For x = 0 To 10
y = Sqr(x)
ListBox1.AddItem ("x =" & x & " y = "
& y)
Next x
ListBox1.AddItem (" y = x^(1/3) radice cubica) ")
For x = 0 To 10
y = x ^ (1 / 3)
ListBox1.AddItem ("x =" & x & " y = "
& y)
Next x
End Sub