[VB6] Calcolo della distribuzione normale

[gio_gio88]

Salve, devo creare un programmino che mi calcoli la distribuzione normale...
La formula è in allegato.. quello che non riesco a fare è proprio il calcolo, sbaglio qualcosa nel codice.. Ecco il listato:

Private Sub Command1_Click()
Dim ValMedio As Integer, Varianza As Integer, X As Integer
Dim Elevato As Long
ValMedio = Text1.Text
Varianza = Text2.Text
X = Text3.Text
Elevato = -(1 / 2) * (((X - ValMedio) / Varianza) ^ 2)
Label1.Caption = (1 / (ValMedio * (Sqr(2 * 3.14159)))) * (2.718281 ^ Elevato)
End Sub


Grazie!!

[oregon]

In questo caso sarebbe utile un esempio numerico ... ovvero. indichi quanto valgono le variabili, quale dovrebbe essere il risultato e quale risultato invece ottieni ...

[gio_gio88]

ValMedio = 170
Varianza = 10
X = 200

Dovrebbe uscire 0.00135 e mi esce 4,29817337....

[oregon]

Intanto devi usare variabili Double e non Integer ...

E poi sei sicuro del risultato ... ?

[alka]

..mi dispiace se sbaglio a risponde o addirittura a postare! ALKA non ti arrabbiare!!

Cos'è? Una presa in giro? Nessuno si arrabbia... semplicemente chiudo.

Se poi ti sta bene evitare il linguaggio nel titolo e vedere le tue discussioni morire sul nascere, è un problema tuo.

[gio_gio88]

Originariamente inviato da alka
Cos'è? Una presa in giro? Nessuno si arrabbia... semplicemente chiudo.

Se poi ti sta bene evitare il linguaggio nel titolo e vedere le tue discussioni morire sul nascere, è un problema tuo.

Scherzo... siccome un giorno vidi 5 poste e li avevi tutti e 5 chisui!!!


oregon comunque si.. quello è il risultato che mi esce... però dovrebbe uscire 0.00135....
Dove sbaglioooooooooo!!!

[oregon]

Intanto, ripeto, tutte le variabili devono essere Double? Le hai modificate?

E poi mi sembra che

... 1 / (ValMedio ...

debba invece essere

... 1 / (Varianza ...

Per il resto, mi sembra corretto e il risultato e'

0,021363093

[gio_gio88]

Provo le modifiche e ritorno qui...

[gio_gio88]

Originariamente inviato da oregon
Intanto, ripeto, tutte le variabili devono essere Double? Le hai modificate?

E poi mi sembra che

... 1 / (ValMedio ...

debba invece essere

... 1 / (Varianza ...

Per il resto, mi sembra corretto e il risultato e'

0,021363093

A me non esce!!!
Questo è il codice:

Private Sub Command1_Click()
Dim ValMedio As Double
Dim Varianza As Double
Dim X As Double
Dim Elevato As Double

ValMedio = Text1.Text
Varianza = Text2.Text
X = Text3.Text
Elevato = -(1 / 2) * (((X - ValMedio) / Varianza) ^ 2)
Label1.Caption = (1 / (Varianza * (Sqr(2 * 3.14159)))) * (2.718281 ^ Elevato)
End Sub

dove sbaglio?
Questo è il programma http://webgio.altervista.org/gauss_prova.rar (copia e incolla il link nella barra degli indirizzi )

[oregon]

No ... scusa, vale tutto quello che ti ho detto ma il risultato e'

0,000443186