Menghitung simpangan baku (deviasi standar) [CARA II, lebih ringkas]

real, allocatable:: X(:)

!membaca data dari file
OPEN(1, FILE='ABC.TXT', status='unknown')
read(1,*)n; allocate(X(n))
read(1,*) (x(i), i=1,n)
close(1)

!menghitung nilai rata-rata
total=0
do i=1,n; total = total + x(i); enddo
Xr = total/n

!menghitung jumlah (X-Xr)²
total2=0
do i=1,n; total2 = total2 + ( X(i) - Xr )**2; enddo

!menghitung S
S = sqrt(total2/n)

!menyimpan hasil perhitungan ke dalam file 'Hasil.txt'
open (2, file='HASIL.TXT', status='unknown')
write(2,*) 'Xr=', Xr
write(2,*) '============================'
WRITE(2,*) ' No    X    X-Xr     (X-Xr)²'
write(2,*) '============================'
do m=1,n;  write(2,'(i4, i5, f8.1, f10.2)') m, int(x(m)),  X(m)-Xr,  (X(m)-Xr)**2; enddo
write(2,*) '============================'
write(2,'(1x,A17,f9.2)') 'Jumlah --------->', total2
write(2,*) '============================'
write(2, '(1x,A2,f5.3)') 'S=',S
close(2)
print*, "SELESAI, silakan klik 2X file 'Hasil.TXT' "
read*  !berhenti, sampai ditekan enter
end

Menghitung simpangan baku (deviasi standar) [CARA I]

real, allocatable:: X(:), X_Xr(:) , X_Xr2(:)
real jumlah

!membaca data dari file
OPEN(1, FILE='ABC.TXT', status='unknown')
read(1,*)n
allocate(X(n), X_Xr(n) , X_Xr2(n))
do i = 1, n
   read(1,*) x(i)
enddo
close(1)

!menghitung nilai rata-rata
total=0
do i=1, n
   total=total + x(i)
enddo
Xr = total/n

!menghitung nilai X-Xr
do i=1,n
   X_Xr(i) = X(i)-Xr
enddo

!menghitung nilai (X-Xr)²
do k=1,n
   X_Xr2(k) = X_Xr(k)**2
enddo

!menghitung jumlah dari (X-Xr)²
jumlah=0
do j=1,n
   jumlah = jumlah + X_Xr2(j)
enddo

!menghitung S
S = sqrt(jumlah/n)

!menyimpan hasil perhitungan ke dalam file
open (2, file='HASIL.TXT', status='unknown')
write(2,*) 'Xr=',Xr
write(2,*) '============================'
WRITE(2,*) ' No    X    X-Xr     (X-Xr)²'
write(2,*) '============================'
DO m=1, n
    write(2,10) m, int(x(m)),  X_Xr(m),  X_Xr2(m)
enddo
10 format(i4, i5, f8.1, f12.2)
write(2,*) '============================'
write(2,*) 'Jumlah           ', jumlah
write(2,*) '============================'
write(2,20) 'S=',S
20 format(1x,A2, f5.3)
close(2)
write(*,*) 'SELESAI, silakan klik 2X file Hasil.TXT'
read*

end

Analisis Regresi

Analisis regresi diperlukan untuk membuat trendline terhadap titik-titik data diskrit. Program aplikasi bidang statistik umumnya menyediakan tool untuk analisis regresi. Dalam MS Excel juga tersedia analisis regresi model linier, logaritma, eksponensial, pangkat, dan polinomial. Dalam CurveExpert tersedia belasan model analisis regresi. Namun, program analisis regresi dengan banyak variabel bebas masih sulit ditemukan. Untuk analisis regresi linier berganda dapat digunakan program REGRESI yang ada di sini. Program REGRESI tersebut ditulis menggunakan bahasa Turbo BASIC. Untuk menggunakannya dalam Windows Vista, atau Windows 7, harus install dulu program DOSBox yang banyak terdapat di internet dan dapat didownload secara gratis.