利用fortran语言实现区间的线性变换

!.. 本代码的功能：将[0,1)区间线性变换到[3.5,11.2)
Program LinearTransform
    implicit none
    integer, parameter :: n = 10000
    real :: x0 = 3.5, x1 = 11.2 
    real :: x(n), tranx(n)
    
    call random_seed()
    call random_number( x )  !.. 分布为[0,1)
    
    print*, minval(x), maxval(x)
    !.. 进行线性变换：tranx = ( max(tranx) - min(tranx) ) / ( max(x) - min(x) ) * ( x - min(x) ) + min(tranx)
    !.. x的范围为[0,1), max(x) = 1; min(x) = 0. 所以max(x) - min(x) = 1. max(tranx) = 11.2; min(tranx) = 3.5
    !.. 所以最终式子为： tranx = x * ( max(tranx) - min(tranx) ) + min(tranx)
    !.. 当n越大，线性变换后的范围越精确
    tranx = x * ( x1 - x0 ) + x0   !.. 分布范围为[3.5,11.2)    
    print*, minval(tranx), maxval(tranx)
    
End program LinearTransform