jonny

# Объявляем переменные
# 1) предыдущее значение
# 2) настоящее значение
# 3) инкриментное значение на выходе
global mom_prev_pos_V
global mom_pos_V
global mom_out_pos_V

# Установка значений для тестирования (предыдущее и настоящее)
set mom_prev_pos_V -2.99
set mom_pos_V +1.99

# Если предыдущее и настоящее больше нуля
# Убираем у них знаки и вычитаем из большего меньшее так же без знака
# Если предыдущее больше сейчашнего то усанавливаем знак минус, 
# если наоборот то плюс.
# Выводим результат.
if {$mom_prev_pos_V>0 && $mom_pos_V>0} {
set mom_pos_V [expr "abs($mom_pos_V)"]
set mom_prev_pos_V [expr "abs($mom_prev_pos_V)"]
set mom_out_pos_V [expr "abs($mom_prev_pos_V-$mom_pos_V)"]    
if {$mom_prev_pos_V > $mom_pos_V} {
set mom_out_pos_V -$mom_out_pos_V
}
if {$mom_prev_pos_V < $mom_pos_V} {
set mom_out_pos_V +$mom_out_pos_V
}
puts $mom_out_pos_V
}

# Если предыдущее и настоящее меньше нуля
# Убираем у них знаки и вычитаем из большего меньшее так же без знака
# Если предыдущее больше сейчашнего то усанавливаем знак плюс, 
# если наоборот то минус.
# Выводим результат.
if {$mom_prev_pos_V<0 && $mom_pos_V<0} {
set mom_pos_V [expr "abs($mom_pos_V)"]
set mom_prev_pos_V [expr "abs($mom_prev_pos_V)"]
set mom_out_pos_V [expr "abs($mom_prev_pos_V-$mom_pos_V)"]    
if {$mom_prev_pos_V > $mom_pos_V} {
set mom_out_pos_V +$mom_out_pos_V
}
if {$mom_prev_pos_V < $mom_pos_V} {
set mom_out_pos_V -$mom_out_pos_V
}
puts $mom_out_pos_V
}


# Если предыдущее больше нуля, а настоящее меньше нуля
# Убираем у них знаки и складываем
# Если предыдущее больше сейчашнего то усанавливаем знак минус, 
# если наоборот то плюс.
# Выводим результат.
if {$mom_prev_pos_V>0 && $mom_pos_V<0} {
set mom_pos_V [expr "abs($mom_pos_V)"]
set mom_prev_pos_V [expr "abs($mom_prev_pos_V)"]

set mom_out_pos_V [expr "abs($mom_prev_pos_V+$mom_pos_V)"]    

if {$mom_prev_pos_V > $mom_pos_V} {
set mom_out_pos_V -$mom_out_pos_V
}
if {$mom_prev_pos_V < $mom_pos_V} {
set mom_out_pos_V +$mom_out_pos_V
}
puts $mom_out_pos_V
}



# Если предыдущее меньше нуля, а настоящее больше нуля
# Убираем у них знаки и складываем
# Если предыдущее больше сейчашнего то усанавливаем знак плюс, 
# если наоборот то минус.
# Выводим результат.
if {$mom_prev_pos_V<0 && $mom_pos_V>0} {
set mom_pos_V [expr "abs($mom_pos_V)"]
set mom_prev_pos_V [expr "abs($mom_prev_pos_V)"]

set mom_out_pos_V [expr "abs($mom_prev_pos_V+$mom_pos_V)"]    

if {$mom_prev_pos_V > $mom_pos_V} {
set mom_out_pos_V +$mom_out_pos_V
}
if {$mom_prev_pos_V < $mom_pos_V} {
set mom_out_pos_V -$mom_out_pos_V
}
puts $mom_out_pos_V
}

# Затестировать код можно вот тут 
# https://www.tutorialspoint.com/execute_tcl_online.php
# Посмотри и скажи свое мнение мистер Джонни