tirar dos dados

globals [
                         ; frecuencia de cada cara
  frecuencia_2
  frecuencia_3
  frecuencia_4
  frecuencia_5
  frecuencia_6
  frecuencia_7
  frecuencia_8
  frecuencia_9
  frecuencia_10
  frecuencia_11
  frecuencia_12
  n ; contador 
  tirada
  tirada2       
  exitos  
  posicion
  media
  varianza
  suma
  sumaaux
  sumaCuadrado
  total
   ]

to iniciar
     
   set n 0 
   set exitos 0
   set frecuencia_2 0
   set frecuencia_3 0
   set frecuencia_4 0
   set frecuencia_5 0
   set frecuencia_6 0
   set frecuencia_7 0
   set frecuencia_8 0
   set frecuencia_9 0
   set frecuencia_10 0
   set frecuencia_11 0
   set frecuencia_12 0
   ;set suma 0 
   ;set sumaCuadrado 0
     
   clear-all
   set posicion  10
   create-turtles 2    [ ;set shape "1"  
                             set size 4 
                             setxy ( posicion - 18 ) 0
                             set heading 0
                             set color 9.0
                             set size 16
                             set posicion   (posicion + 18)
                       ]
     
   ask patches [ set pcolor green - 2 ]
   set suma 0 
   set sumaCuadrado 0
   set total 0
end 

to tirar
  ;set suma 0 
  ;set sumaCuadrado 0
    
  reset-ticks
  if n >= muestra
    [ media_varianza 
      ;set n ( n - 1 )
      stop]  
    
    set sumaaux 0 ; importante por cada tirada la suma de los puntos se hace cero
  ask turtles [  
    
    set tirada (random 6) + 1  
    set sumaaux   ( sumaaux + tirada )
    
    if tirada = 1  [ set shape "1"]
    if tirada = 2  [ set shape "2"] 
    if tirada = 3  [ set shape "3"]
    if tirada = 4  [ set shape "4"]
    if tirada = 5  [ set shape "5"]
    if tirada = 6  [ set shape "6"]
    ]
   
   if sumaaux = 2 [ set frecuencia_2   (frecuencia_2 + 1) ] 
   if sumaaux = 3 [ set frecuencia_3   (frecuencia_3 + 1) ] 
   if sumaaux = 4 [ set frecuencia_4   (frecuencia_4 + 1) ] 
   if sumaaux = 5 [ set frecuencia_5   (frecuencia_5 + 1) ] 
   if sumaaux = 6 [ set frecuencia_6   (frecuencia_6 + 1) ] 
   if sumaaux = 7 [ set frecuencia_7   (frecuencia_7 + 1) ] 
   if sumaaux = 8 [ set frecuencia_8   (frecuencia_8 + 1) ] 
   if sumaaux = 9 [ set frecuencia_9   (frecuencia_9 + 1) ] 
   if sumaaux = 10 [ set frecuencia_10   (frecuencia_10 + 1) ] 
   if sumaaux = 11 [ set frecuencia_11   (frecuencia_11 + 1) ] 
   if sumaaux = 12 [ set frecuencia_12   (frecuencia_12 + 1) ] 

   set suma suma + sumaaux
   set  sumaCuadrado  sumaCuadrado + (sumaaux  ^ 2)   
  ;if tirada = suceso [set exitos (exitos + 1)]  elimina sucesos
  set n ( n + 1 ) 
  media_varianza
 ; ^
end 

to media_varianza
    set media  suma / n
    set varianza (sumaCuadrado / n) - (suma / n )  ^ 2
    set total frecuencia_2 + frecuencia_3 + frecuencia_4 + frecuencia_5 + frecuencia_6 + frecuencia_7 + frecuencia_8 + frecuencia_9 + frecuencia_10 +  frecuencia_11 +  frecuencia_12
end