ZXTape! 0Created with Ramsoft MakeTZXstatisticat statistica /1:4:4:7:1: (5,7;"S T A T I S T I C A" ,10 ,5;"Z X S P E C T R U M" %15,8;"FERMA IL NASTRO" V20,0;" COPYRIGHT 1983 G.B.C. ITALIANA Divisione REBIT" k=11000:k 1:0:0:7:7:0: "STATISTICA SEMPLICE":'' '"Il seguente programma consente di calcolare i momenti di una variabile statistica semplice: in particolare la media e la varianza." '"Il programma calcola altresi' le frequenze relative nonche' la media degli scarti,utile per valutare la bonta'del calcolo." '"La varianza e'calcolata in due modi diversi per permettere un confronto,e verificare pertanto l'accuratezza del calcolo." '"Il programma disegna:DIAGRAMMA DI FREQUENZA CURVA DI DISTRIBUZIONE CURVA CUMULATIVA DI FREQUENZA." '"I disegni sono relativi alle frequenze,tuttavia dalla linea 2300 a 2600 vi e'il programma riferito alle frequenze relative" '"I valori argomentali debbono essere inseriti in ordine crescente se si vogliono ottenere la curva di distribuzione e la cumulativa." E'"Con un ordine qualsiasi se ci silimita al diagramma di frequenze" !d'"Il programma e'dimensionato per 100 valori aumentabili a secondadella disponibilita'di memoria." "R'"Le modifiche riguardano la linea 30 (DIM a(5,n) )e la linea 220 FOR i=1 TO n." #`'"Terminato l'inserimento dei datibattere 0 allorche'viene chiestoun nuovo valore argomentale" $/'"Dopo ogni STOP premere CONT per continuare" %#''''''':"INIZIO FASE DI INPUT": &/a1=0:b1=0:e1=0:b=0 'a(5,100d) (!"Valori argomentali frequenze" ) 2i=1100d <a(3,i) F!a(3,i)=0200 P"a(3,i)>a1a1=a(3,i) Za(1,i) d"a(1,i)>b1b1=a(1,i) nb=b+a(1,i) xa(4,i)=b $a(3,i)," ";a(1,i) i d=0:k4=i "Frequenze relative":' i=1100d a(2,i)=a(1,i)/b !a(2,i)=0400 "a(2,i)>e1e1=a(2,i) a(3,i),a(2,i) d=d+a(2,i) i  c=0 i=1k4 !c=c+(a(3,i)*a(2,i)) i '"Media",c:"N",b: ."Sommatoria delle frequenze relative",d   e=0 i=1k4 )e=e+(a(3,i)^2)*a(2,i) i !"Valore quadratico medio";" ";e  f=0 i=1k4 .f=f+((a(3,i)-c)^2)*a(2,i) &i 0"Varianza";" ";f: D"Varianza m2-m^2";" ";e-c*c X :g=0 bi=1k4 l#g=g+(a(3,i)-c)*a(2,i) vi "Media degli scarti";" ";g   c1=a1/250 d1=b1/170 -1:0,0:250,0 -1:0,0:0,170 4i=1k4-1 >x=a(3,i)/c1 Hy=0:p=x Rq=a(1,i)/d1 \2:x,y:(p-x),(q-y) fi p61:0,0;"Diagramma di frequenza" z  -1:0,0:250,0 -1:0,0:0,170 i=1k4-2 x=a(3,i)/c1 y=a(1,i)/d1 p=a(3,i+1)/c1 q=a(1,i+1)/d1 2:x,y:(p-x),(q-y) i 41:0,0;"Curva di distribuzione"    2600( FREQUENZE RELATIVE L-1:0,0:250,0 V-1:0,0:0,170 `f1=e1/170 ji=1k4-1 tx=a(3,i)/c1 ~ y=0 q=a(2,i)/f1 p=x 4:x,y:(p-x),(q-y) i 41:0,0;"Diagramma di frequenza"   -1:0,0:250,0 -1:0,0:0,170 i=1k4-2 x=a(3,i)/c1 y=a(2,i)/f1 p=a(3,i+1)/c1 q=a(2,i+1)/f1 4:x,y:(p-x),(q-y) i 41:0,0;"Curva di distribuzione"  # (h1=b/170 ,-1:0,0:250,0 0-1:0,0:0,170 2i=1k4-2 <x=a(3,i)/c1 Fy=a(4,i)/h1 Pp=a(3,i+1)/c1 Zq=a(4,i+1)/h1 d3:x,y:(p-x),(q-y) ni x91:0,0;"Curva cumulata di frequenza"  $:" SE VUOI REGISTRARE PREMI CONT"  "statistica"1