Raba 3

Raba versi 3 dengan berbagai pilihan resolusi. Donlut.

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

Program menulis terbalik untuk Windows 32 bit

Program ini dapat digunakan untuk menulis terbalik pada Windows 32 bit (x86).
Untuk Windows 64 bit (x64) ada di sini.
Keduanya ditulis menggunakan Fortran90.

cara install

cara instal

Template Proposal & Tesis

Template Proposal & Tesis dalam file .docx silakan DL di sini.

Raba 2

Program menghitung Rangka Batang 2D v2 telah dirilis dengan beberapa perbaikan dan tambahan. Silakan DL di sini beserta lima contoh rangka. Lihat juga versi sebelumnya di sini.
Agar tampilan gambar lebih proporsional, gunakan resolusi 800x600.