Functions in rules. For example, ABS.

[Andrew Mamohin]

I need an ABS function in the rules. I need to execute a block based on the difference between two temperatures (regardless of which direction) How can you do this?

[TD-er]

Right now we don't have an abs call, but you could store the result in a variable and simply check to see if it is negative.
If it is negative you can multiply its value by -1.
Or just check the 2 values you want to subtract.
If A > B do A-B else B-A.

[Andrew Mamohin]

Right now we don't have an abs call

Well, it's ass-backwards!
Thanks for the help, I did:

Code: Select all

on T_1#T do
 if [T_1#T] > [T_2#T]
  TaskValueSet 12,3,[T_1#T]-[T_2#T]
 else
  TaskValueSet 12,3,[T_2#T]-[T_1#T]
 endif
endon

on T_2#T do
 if [T_1#T] > [T_2#T]
  TaskValueSet 12,3,[T_1#T]-[T_2#T]
 else
  TaskValueSet 12,3,[T_2#T]-[T_1#T]
 endif
endon

How can I do it in one block? There are no subroutines in the rules.

[Micha_he]

or...

[Device#Value]^2^.5

for ABS.

[Andrew Mamohin]

[Device#Value]^2^.5

Wow! It's beautiful!

[Ath]

How can I do it in one block? There are no subroutines in the rules.

User defined events are the substitute for subroutines:

Code: Select all

on T_1#T do
  event,CalcAbsDiff
endon

on T_2#T do
  event,CalcAbsDiff
endon

on CalcAbsDiff do
 if [T_1#T] > [T_2#T]
  TaskValueSet 12,3,[T_1#T]-[T_2#T]
 else
  TaskValueSet 12,3,[T_2#T]-[T_1#T]
 endif
endon

Edit: Fixed typo

[Andrew Mamohin]

User defined events are the substitute for subroutines:

Thank! I did this.
You got a typo:

on T_2#T do
event,CalcAbsDiff
enddo
need endon