Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - Programma in vb per la scuola
Forum - Visual Basic 6 - Programma in vb per la scuola

Avatar
Gauss (Normal User)
Newbie


Messaggi: 1
Iscritto: 09/03/2009

Segnala al moderatore
Postato alle 18:31
Lunedì, 09/03/2009
ciao a tutti sono nuovo

entro domani devo consegnare un programma di calcolo
questa è la traccia

assegnati in input la media e la varianza di una popolazione statistica distribuita normalmente predisporre un programma in vb che permetta di calcolare le aree della normale standardizzata ed in particoalre calcolare le aree nelle seguenti situazioni:
-A) Z compreso tra h e k
-B) di almeno k
-C) e non piu di k

Codice sorgente - presumibilmente VB.NET
  1. Private Sub Command1_Click()
  2.  
  3. 'dichiarazioni variabili
  4. Dim h, k, n As Integer
  5. Dim func As Single
  6. Const pigreca = 3.14159265358979
  7.  
  8. 'disegnare assi cartesiani
  9. Picture1.Scale (-4.2, 0.65)-(4.5, -0.25)
  10. Picture1.Line (-4.5, 0)-(4.5, 0)
  11. Picture1.Line (0, -0.25)-(0, 0.65)
  12.  
  13. On Error Resume Next
  14. For X = -4 To 4
  15.     If X <> 0 Then
  16.         Picture1.Line (X, -0.02)-(X, 0.02)
  17.         Picture1.CurrentX = X
  18.         Picture1.CurrentY = -0.05
  19.         Picture1.Print X
  20.     End If
  21. Next
  22. For y = -0.2 To 0.65 Step 0.1
  23.         Picture1.Line (-0.02, y)-(0.02, y)
  24.         Picture1.CurrentY = y
  25.         Picture1.CurrentX = -0.05
  26.         Picture1.Print y
  27. Next
  28.  
  29. 'chiedere estremi dell'intervallo
  30. h = InputBox$("Inserire valore h da standardizzare")
  31. k = InputBox$("Inserire valore k da standardizzare")
  32.  
  33. 'chiedere numero degli intervallini
  34. n = InputBox$("Inserire valore degli intervallini:")
  35.  
  36. 'calcolare lunghezza di un intervallino
  37. L = (k - h) / n
  38.  
  39. 'calcolare area del grafico
  40. For i = 1 To n
  41.     k = h + L
  42.     c = (h + k) / 2
  43.     func = (1 / (Sqr(2 * pigreca))) ^ (-(c * c) / 2)
  44.     area = area + L * func
  45.     h = k
  46. Next
  47. MsgBox area
  48.  
  49. For z = h To k Step 0.001
  50.     y = func
  51.     Picture1.PSet (z, y)
  52. Next z
  53.  
  54. End Sub


questo è quello che ho fatto fin ora (ma non funzia..non mi mette niente nella picture)

vi prego aiutatemi
se riuscite a farmi almeno 1 dei 3 punti ve ne saro grato  
:hail::hail::hail:

PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 21:31
Giovedì, 12/03/2009
non è che hai messo valori troppo piccoli per la scala della picturebox?
per gli altri punti non dovresti utilizzare tipo un integrazione?

edit: ho trovato l'intergrazione. me la ero persa sorry.

Ultima modifica effettuata da P4p3r0g4 il 12/03/2009 alle 21:36
PM Quote
Avatar
marco1 (Normal User)
Pro


Messaggi: 157
Iscritto: 12/02/2009

Segnala al moderatore
Postato alle 21:43
Martedì, 17/03/2009
Ciao! se ti serve ancora un po d'aiuto ti posso aiutare io...
...non sono proprio esperto ma...
Basta che mi spiegi un po meglio cosa e come lo vuoi fare!
E interessante quello che vuoi fare, ma non l'ho capito bene!
:asd::asd::asd:

Comunque; sono quas sicuro che la scala della picture e integer... e quindi ti arrotonda i valori della scala.

Ultima modifica effettuata da marco1 il 17/03/2009 alle 21:47
PM Quote