# utild1filt: Gaussian Filter for Vectors In stheoreme: Klimontovich's S-Theorem Algorithm Implementation and Data Preparation Tools

## Description

The function is applied to a pair of vectors as a lowpass gaussian filter to clean them from high frequency components

## Usage

 `1` ```utild1filt(arr0, arr1, outsize = 2, strong = 1) ```

## Arguments

 `arr0` vector to be filtered `arr1` vector to be filtered `outsize` radius of gaussian filter kernel `strong` multiplication factor defining the sigma of gaussian filter kernel as `sigma=outsize*strong`

## Value

 `filt0 ` result of arr0 filtration `filt1 ` result of arr1 filtration

## Author(s)

Vitaly Efremov <[email protected]>

`utild2filt`
 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14``` ```s1<-sin(c(1:128)*2)+2-c(1:128)*4/128 a<-utild1filt(arr0=s1, arr1=s1) plot(s1, type='l') lines(a\$filt1, col='red') s0<-c(rep(0,15), rep(2,12), rep(-2,12), rep(0,25)) s1<-c(rep(0,45), rep(2,4), rep(-2,4), rep(0,25)) a<-utild1filt(s0, s1, outsize=7, strong=.5) plot(s0, type='l', ylab='s0, s1, a\$filt0, a\$filt1') lines(s1, col='gray') lines(a\$filt0, col='red') lines(a\$filt1, col='purple') ```