This indicator, built as fully functional example, is called KagiInd because it follows the kagi chart movements. In fact, its value is 1 when the kagi is YIN, and 2 when the kagi is YANG.

To use the indicator with Insidero3000 proceed as follows:

1. Open the screen User Indicators Management from the Analysis menu, or from the icon on the top toolbar in the main program window.

2. Create a new indicator pressing the New button.

3. We recommend to rename the indicator with a more descriptive name than the default one.

4. Insert on the right box (using copy and paste), the code shown here, at the end of these instructions.

5. And eventually press the Save button.

Now your indicator is ready to be used like any other indicator distributed with the program. In fact it is possible to attach it to any security or to use it inside another portion of code to write, for example another indicator or trading system.

Select and copy the text inside the box below, in the screen User Indicators Management:

Indicator 1

Dim pklNoDir as Numeric = 0 Dim pklYang as Numeric = 2 Dim pklYin as Numeric = 1 Dim plDir as Numeric = 0 Dim pdTmpLevel as Numeric Dim pdMyCurrentValue as Numeric Dim pdNewBase as Numeric Dim pdOldBase as Numeric Dim plDirRet as Numeric Property Box() as Numeric Default (3) EndProperty Property Type() as Numeric List (Percent, 1) List (Point, 2) Default (1) EndProperty Function Main() Dim dMyBox as Numeric Dim lTmpDir as Numeric If (CurrentBar = 1) Then plDir = pklNoDir pdMyCurrentValue = Close pdNewBase = pdMyCurrentValue pdOldBase = Close pdTmpLevel = Open plDirRet = pklNoDir Return pklNoDir EndIf dMyBox = Box If (Type = 1) Then dMyBox = (pdMyCurrentValue * Box) / 100 EndIf If (Abs(Close - pdMyCurrentValue) < dMyBox) Then If (plDir <> 0) Then If (plDir = pklYang) And (Close > pdMyCurrentValue) Then pdMyCurrentValue = Close GoTo Prosegui EndIf If (plDir = pklYin) And (Close < pdMyCurrentValue) Then pdMyCurrentValue = Close GoTo Prosegui EndIf EndIf GoTo Prosegui EndIf lTmpDir = plDir If (Close > pdMyCurrentValue) Then plDir = pklYang EndIf If (Close < pdMyCurrentValue) Then plDir = pklYin EndIf pdNewBase = pdMyCurrentValue pdMyCurrentValue = Close If (pdMyCurrentValue < 0) Then pdMyCurrentValue = 0 EndIf if (plDirRet = pklNoDir) Then If (pdMyCurrentValue > pdOldBase) Then plDirRet = pklYang Else plDirRet = pklYin EndIf pdTmpLevel = pdOldBase endif If (lTmpDir <> plDir) And (lTmpDir <> 0) Then pdTmpLevel = pdOldBase pdOldBase = pdNewBase If (pdOldBase < 0) then pdOldBase = 0 endif EndIf Prosegui: If (plDir <> plDirRet) If (plDirRet = pklYang) then if (close < pdTmpLevel) then plDirRet = pklYin EndIf else If (plDirRet = pklYin) then if (Close > pdTmpLevel) then plDirRet = pklYang endif endif Endif EndIf Return plDirRet Endfunction