minFF_traffic_func Function

private function minFF_traffic_func(speed)

Arguments

Type IntentOptional Attributes Name
real :: speed

Return Value real


Source Code

    function minFF_traffic_func(speed)
        implicit none
        real:: speed
        real:: minFF_traffic_func
        real :: min_FF=0.0
        real :: max_FF=2.
        real :: min_speed=40.
        real :: max_speed=100.
        real :: gradient

        ! gradient=(max_FF-min_FF)/((max_speed-min_speed)*100000./25.)
        ! minFF_traffic_func=min(max(speed*adt/width*gradient,min_FF),max_FF)
        gradient=(max_FF-min_FF)/((max_speed-min_speed))
        minFF_traffic_func=min(max(speed*gradient,min_FF),max_FF)

    end function minFF_traffic_func