equazioni esponenziali e logaritmiche, con vba

esempi di equazioni esponenziali , logaritmiche
risolti con logaritmi
o mediante applicazione proprietà delle potenze
esercitazione con visual basic su powerpoint
per descrizione, codici vba, animazione vedi link

http://digilander.libero.it/francescovise/visualpre/visapre.htm
http://utenti.multimania.it/fumari/anno10/elenco.htm
http://utenti.multimania.it/fumari/anno10/esponenziale.htm
http://utenti.multimania.it/fumari/anno10/esponenziale.ppt

http://utenti.multimania.it/fumari/anno10/logaritmiche.htm
http://utenti.multimania.it/fumari/anno10/logaritmiche.ppt

equazioni
logaritmiche
soluzione come esercitazione con visual basic su power point
per descrizione, codice vba, animazione vedi link

 

Private Sub CommandButton1_Click()
Rem equazioni logaritmiche
ListBox1.AddItem (" log(x^2-6) = log
(5x+8) ")

ListBox1.AddItem (" per (x^2-6) >0 e (5x+8) > 0
")
ListBox1.AddItem ("(x^2-6) = (5x+8)")
ListBox1.AddItem ("x^2 -5x -14 = 0")
ListBox1.AddItem (" radici : x1= -2 ; x2 = 7 ")
ListBox1.AddItem (" escludere x=-2 per condizione validità
")
x = 7
y1 = x ^ 2 – 6
y2 = 5 * x + 8
ListBox1.AddItem ("per x = " & 7 & " y1=
" & y1 & " = y2 : " & y2 & "
valido")
ListBox1.AddItem
("———————————————–")
For x = -5 To 10
y1 = x ^ 2 – 6
y2 = 5 * x + 8
If y1 > 0 And y2 > 0 And y1 = y2 Then
y = x ^ 2 – 5 * x – 14
ListBox1.AddItem (y1 & " = " & y2)
ListBox1.AddItem ("x = " & x & " y =
" & y)
Else
ListBox1.AddItem (x & " non valido")
End If
Next x

End Sub

Private Sub CommandButton2_Click()
Rem esempio2
ListBox1.AddItem ("1/2*log(3x+5) +
1/2*log(x) = 1 ")
ListBox1.AddItem ("con (3x+5)> 0 e (x)>0
")
ListBox1.AddItem ("log(sqr(3x+5)) + log(sqr(x))= log(10)
")
ListBox1.AddItem ("log(sqr(x(3x+5))= log(10) ")
ListBox1.AddItem ("sqr(x(3x+5)) = 10 ")
ListBox1.AddItem ("x(3x+5)=100 ")
ListBox1.AddItem ("3x^2+5x-100=0 ")
ListBox1.AddItem ("con radici x1= 5 ; x2 = -20/3 (da
escludere) ")
ListBox1.AddItem ("—————————————-
")
x = 5
y = 0.5 * (Log(3 * x + 5) / Log(10)) + 0.5 * (Log(x) / Log(10))
ListBox1.AddItem ("con x=5 :" & " soluzione y
= " & y)
ListBox1.AddItem ("**********************************")
For x = -5 To 10
y1 = (3 * x + 5)
y2 = x
If y1 > 0 And y2 > 0 And (3 * x ^ 2 + 5 * x – 100 = 0) Then
y = 0.5 * (Log(3 * x + 5) / Log(10)) + 0.5 * (Log(x) / Log(10))
ListBox1.AddItem ("x = " & x & " y =
" & y)
Else
ListBox1.AddItem (x & " non valido")
End If
Next x

End Sub

Private Sub CommandButton6_Click()
ListBox1.Clear
End Sub


Informazioni su fumarino

interessato ad argomenti scientifici, ambienti naturali, parchi e monti
Questa voce è stata pubblicata in informatica. Contrassegna il permalink.

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...