subroutine Standardization(array, n) ! 标准化数据 array是数组 n是元素个数
integer :: i, n
real :: array(n), average, SD
average = sum(array) / n
SD = sqrt(sum(array**2) / n - average**2)
do i = 1, n
array(i) = (array(i) - average) / SD
end do
end subroutine Standardization
Fortran 使用Z-score标准化数据
最新推荐文章于 2024-09-17 15:02:08 发布