Probabilità di passare un esame

[Fioravante Patrone]

Prima bozza (ma non so come estrarre da un insieme finito seguendo una probabilità "qualunque" assegnata).

Codice:

#####################
#####################
#                   #
#   DATI IN INPUT   #
#                   #
#####################
#####################


m <-  6                        #numero di domande fatte
m <- 20                        #numero di domande possibili

p <- c(0.05,0.05,0.05,0.04,0.05,0.05,0.05,0.06,0.05,0.05,0.05,0.04,0.05,0.05,0.05,0.06,0.05,0.05,0.05,0.05)
                               #probabilità di estrarre le varie domande
s <- c(0.9,0.8,0.9,0.9,0.9,0.8,0.9,0.9,0.9,0.8,0.9,0.9,0.9,0.8,0.9,0.9,0.9,0.8,0.9,0.9)
                               #quanto lo studente "sa" le varie domande (s_i \in [0,1])
v <- c(5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5)
                               #quanto "valgono" le varie domande (per ora ipotizziamo abbiano tutte leo stesso valore, 30/m)
                               #si può modificare, ma con accortezza (la somma delle domande fatte dovrebbe valere 30,

#########################
#                       #
# POTENZIALE ESTENSIONE #
#                       #
#########################

# a <- c(5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5,5)
                               #fattore di aleatorietà nella valutazione della preparazione da parte dello studente
                               #si tratta della varianza; la "s" viene interpretata come valore medio di una variabile aleatoria
# u
                               #lo "stato generale" dello studente (doping, strizza, etc.)
# ca
                               #"cattiveria" dello studente
# s_effettivo_i = realizzazione della variabile aleatoria "s" * u * ca

##############################
#                            #
# FINE POTENZIALE ESTENSIONE #
#                            #
##############################

                               
#######################
#######################
#                     #
#   BOZZA PROGRAMMA   #
#                     #
#######################
#######################
                               

for (I in 1:m)   {
estrai_domanda                 #K
determina_rendimento_effettivo_dello_studente
                               #R[I] <-
calcola_rendimento_cumulato    #RC[I] <-
check_se_bocciato              #if RC[I] + (30/m) * (m-I+1) < 18, bocciato, else...
}


mostra_risultato

[richard84]

Ciao, io sn un po indietro in questi due giorni nn ho fatto molto....vorrei capire "s" dove lo scarico?ora provo a guardare meglio quel che hai scritto perche nn l ho capito benissimo...grazie

ciao

[Fioravante Patrone]

Questo è il sito dedicato al progetto "R":
http://www.r-project.org/

E per scaricarlo si va qui:
http://cran.r-project.org/mirrors.html

E' tutto gratis.

[richard84]

Ho scaricato il programma da qui http://rm.mirror.garr.it/mirrors/CRAN/ (dal server di Milano)

Qua riporto alcuni dubbi dovuti alla mia ignoranza e non:
- "quanto lo studente "sa" le varie domande" immagino che sia un valore che dovra immettere l utente, giusto (nn capisco perche aleatoria)?e mi sembra di capire che lo si valuti come una probabilita o sbaglio?
- Le variabili "u" e "ca" come le si valutano?
- "s effettivo" si calcola moltiplicando s*ca*u perche? perche vengono considerati eventi indipendenti?
- if RC[I] + (30/m) * (m-I+1) < 18 nn capisco il significato del secondo addendo "(30/m) * (m-I+1)"
- quale sarebbe il calcolo finale per la probabilita di passare l esame?

ora provo a rispondermi da solo ad alcune pero se potete gradirei aiuto...grazie!
ciao

[richard84]

Ho installato il programma, dopo poco il computer mi ha dato un errore e ora nn funziona piu, dovrei utilizzare il disco di reboot.....e possibile che sia colpa del programma?