Traders.com

Sun05192013

Last update12:00:00 AM

BackHomeS&C MagazineDepartmentsTraders' Tips TRADERSSTUDIO, SECTOR ROTATION MODEL (SRM)

TRADERSSTUDIO, SECTOR ROTATION MODEL (SRM)

  • Print
Details
Parent Category: Departments
Category: Traders' Tips
Written by Richard Denning
logo

The TradersStudio code based on Giorgos Siligardos’ article in this issue, “Applying The Sector Rotation Model,” is provided at the following websites:

The following code files are provided in the download:

  • Indicator Plot: “BULL_BEAR_IND” for displaying the bull bear oscillator (BBO) indicator on a price chart
  • Function: “BULL_BEAR_OSC” for computing the BBO values
  • System: “MKT_TM_SR” for backtesting a system I created that uses the BBO for market timing

Although the author designed this system to trade ETFs, I wanted to test it on other markets since there is such limited data for ETFs and the author’s tests would all be considered “in-sample” tests. I found that the S&P 500 sector indexes have data back to 9/11/1989, which allows us almost 23 years of data to use. In addition, there are 10 sectors of which four tend to outperform during bear markets and six that tend to outperform during bull markets as follows:

Norgate SymbolDescriptionPhase
$SPXAS&P 500 Health Care SectorBear
$SPXSS&P 500 Consumer Staples SectorBear
$SPXUS&P 500 Utilities SectorBear
$SPXES&P 500 Energy SectorBear
$SPXDS&P 500 Consumer Discretionary SectorBull
$SPXFS&P 500 Financials SectorBull
$SPXIS&P 500 Industrials SectorBull
$SPXLS&P 500 Telecommunication Services SectorBull
$SPXMS&P 500 Materials SectorBull
$SPXTS&P 500 Information Technology SectorBull

The symbols are from Premium Data by Norgate. The system code and the indicator code have 196 types, which represent up to four bull and four bear sector rates of change that are fed into the BULL_BEAR_OSC function to get the values for that combination. With all these coded, it is possible to do an optimization on the sector combinations that work best for timing the market by changing the “type” parameter.

Using the simple market timing system that buys the SPX index when the BBO average is higher than it was one bar ago and sells the SPX index when it is lower than it was one bar ago, and optimizing, I found that one of the better combinations was type 175, which uses the consumer discretionary sector alone for the bullish sector and a three-sector combination of health care, consumer staples, and utilities for the bearish sectors.

Image 8

FIGURE 8: TRADERSSTUDIO, EQUITY CURVE. Here is a sample equity curve for optimized combination trading 100 shares of the SPX from 1990 to 2012.

Figure 8 shows the resulting equity curve and Figure 9 shows the underwater equity curve using the following parameters:

RC_LEN = 95	LENGTH FOR RATE OF CHANGE 
BB_LEN = 70	LENGTH FOR BULL_BEAR_OSC AVG
Type = 175	SECTOR COMBO FOR BULL_BEAR INDICATOR
Image 9

FIGURE 9: TRADERSSTUDIO, UNDERWATER EQUITY CURVE. Here is a sample underwater equity curve for optimized combination trading 100 shares of the SPX from 1990 to 2012.

Figure 10 shows how the data must be set up in TradersStudio to work properly with the code file.

Image 10

FIGURE 10: TRADERSSTUDIO, DATA SETUP. Here is the data series setup for TradersStudio using S&P 500 sector indexes.

'APPLYING THE SECTOR ROTATION MODEL
'Author: Giorgos E. Siligardos, TASC August 2012
'Coded by: Richard Denning 6/10/2012
'www.TradersEdgeSystems.com
Function BULL_BEAR_OSC(BULLrc1,BULLrc2,BULLrc3,BULLrc4,BEARrc1,BEARrc2,BEARrc3,BEARrc4)
'input a -99999 if an input is not used
Dim BULLsr As BarArray
Dim BEARsr As BarArray
Dim BULLcount As BarArray
Dim BEARcount As BarArray
BULLcount = IIF(BULLrc1>-99999,1,0)+IIF(BULLrc2>-99999,1,0)+IIF(BULLrc3>-99999,1,0)+IIF(BULLrc4>-99999,1,0)
BEARcount = IIF(BEARrc1>-99999,1,0)+IIF(BEARrc2>-99999,1,0)+IIF(BEARrc3>-99999,1,0)+IIF(BEARrc4>-99999,1,0)
BULLsr = (IIF(BULLrc1>-99999,BULLrc1,0)+IIF(BULLrc2>-99999,BULLrc2,0)+IIF(BULLrc3>-99999,BULLrc3,0)+IIF(BULLrc4>-99999,BULLrc4,0))/BULLcount
BEARsr = (IIF(BEARrc1>-99999,BEARrc1,0)+IIF(BEARrc2>-99999,BEARrc2,0)+IIF(BEARrc3>-99999,BEARrc3,0)+IIF(BEARrc4>-99999,BEARrc4,0))/BEARcount
BULL_BEAR_OSC = BULLsr - BEARsr
End Function
'-------------------------------------------------------------------------------------------------------------------------------------------
'APPLYING THE SECTOR ROTATION MODEL
'Author: Giorgos E. Siligardos, TASC August 2012
'Coded by: Richard Denning 6/10/2012
'www.TradersEdgeSystems.com
Sub MKT_TM_SR(RC_LEN,BB_LEN, TYPE)
'INPUTS:'RC_LEN = 95    LENGTH FOR RATE OF CHANGE 
'BB_LEN = 70    LENGTH FOR BULL_BEAR_OSC AVG
'Type = 175     SECTOR COMBO FOR BULL_BEAR INDICATOR
Dim FIN As BarArray
Dim CDS As BarArray
Dim ENE As BarArray
Dim CSP As BarArray
Dim UTL As BarArray
Dim HLT As BarArray
Dim MAT As BarArray
Dim IND As BarArray
Dim TEL As BarArray
Dim TEK As BarArray
Dim SPX As BarArray
Dim FINrc As BarArray
Dim CDSrc As BarArray
Dim ENErc As BarArray
Dim CSPrc As BarArray
Dim UTLrc As BarArray
Dim HLTrc As BarArray
Dim MATrc As BarArray
Dim INDrc As BarArray
Dim TELrc As BarArray
Dim TEKrc As BarArray
Dim SPXrc As BarArray
Dim BULLsr As BarArray
Dim BEARsr As BarArray
Dim BULL_BEAR As BarArray
Dim BBfun As BarArray
Dim BBAVG As BarArray
'DATA SERIES:                              STRONGET DURING:
HLT = C Of independent1  ' "SPXA" or "XLV"         [BEAR]
CDS = C Of independent2  ' "SPXD" or "XLY"    [BULL]
ENE = C Of independent3  ' "SPXE" or "XLE"         [BEAR]
FIN = C Of independent4  ' "SPXF" or "XLF"    [BULL]
IND = C Of independent5  ' "SPXI" or "XLI"    [BULL]
TEL = C Of independent6  ' "SPXL" or "XLI"    [BULL]
MAT = C Of independent7  ' "SPXM" or "XLB"    [BULL]
CSP = C Of independent8  ' "SPXS" or "XLP"         [BEAR]
TEK = C Of independent9  ' "SPXT" or "XLK"    [BULL]
UTL = C Of independent10 ' "SPXU" or "XLU"         [BEAR]
SPX = C Of independent11 ' "SPX"
FINrc = roc(FIN,RC_LEN,0)
CDSrc = roc(CDS,RC_LEN,0)
ENErc = roc(ENE,RC_LEN,0)
CSPrc = roc(CSP,RC_LEN,0)
UTLrc = roc(UTL,RC_LEN,0)
'OPTIONAL OTHER SECTOR ROCs THAT COULD BE TRIED:
HLTrc = roc(HLT,RC_LEN,0)
MATrc = roc(MAT,RC_LEN,0)
INDrc = roc(IND,RC_LEN,0)
TELrc = roc(TEL,RC_LEN,0)
TEKrc = roc(TEK,RC_LEN,0)
SPXrc = roc(SPX,RC_LEN,0)
BULLsr = (FINrc+CDSrc)/2
BEARsr = (ENErc+CSPrc+UTLrc)/3
If TYPE=0 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,-99999,-99999,-99999,ENErc)
If TYPE=1 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,-99999,-99999,-99999,ENErc)
If TYPE=2 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,-99999,-99999,-99999,ENErc)
If TYPE=3 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,-99999,-99999,-99999,ENErc)
If TYPE=4 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,-99999,-99999,-99999,ENErc)
If TYPE=5 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,-99999,-99999,-99999,ENErc)
If TYPE=6 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,-99999,-99999,-99999,ENErc)
If TYPE=7 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,-99999,-99999,-99999,ENErc)
If TYPE=8 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,-99999,-99999,-99999,ENErc)
If TYPE=9 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,-99999,-99999,-99999,ENErc)
If TYPE=10 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,-99999,-99999,-99999,ENErc)
If TYPE=11 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,-99999,-99999,-99999,ENErc)
If TYPE=12 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,-99999,-99999,-99999,ENErc)
If TYPE=13 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,-99999,-99999,-99999,ENErc)
If TYPE=14 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,-99999,-99999,UTLrc,-99999)
If TYPE=15 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,-99999,-99999,UTLrc,-99999)
If TYPE=16 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,-99999,-99999,UTLrc,-99999)
If TYPE=17 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,-99999,-99999,UTLrc,-99999)
If TYPE=18 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,-99999,-99999,UTLrc,-99999)
If TYPE=19 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,-99999,-99999,UTLrc,-99999)
If TYPE=20 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,-99999,-99999,UTLrc,-99999)
If TYPE=21 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,-99999,-99999,UTLrc,-99999)
If TYPE=22 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,-99999,-99999,UTLrc,-99999)
If TYPE=23 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,-99999,-99999,UTLrc,-99999)
If TYPE=24 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,-99999,-99999,UTLrc,-99999)
If TYPE=25 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,-99999,-99999,UTLrc,-99999)
If TYPE=26 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,-99999,-99999,UTLrc,-99999)
If TYPE=27 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,-99999,-99999,UTLrc,-99999)
If TYPE=28 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,-99999,-99999,UTLrc,ENErc)
If TYPE=29 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,-99999,-99999,UTLrc,ENErc)
If TYPE=30 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,-99999,-99999,UTLrc,ENErc)
If TYPE=31 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,-99999,-99999,UTLrc,ENErc)
If TYPE=32 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,-99999,-99999,UTLrc,ENErc)
If TYPE=33 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,-99999,-99999,UTLrc,ENErc)
If TYPE=34 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,-99999,-99999,UTLrc,ENErc)
If TYPE=35 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,-99999,-99999,UTLrc,ENErc)
If TYPE=36 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,-99999,-99999,UTLrc,ENErc)
If TYPE=37 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,-99999,-99999,UTLrc,ENErc)
If TYPE=38 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,-99999,-99999,UTLrc,ENErc)
If TYPE=39 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,-99999,-99999,UTLrc,ENErc)
If TYPE=40 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,-99999,-99999,UTLrc,ENErc)
If TYPE=41 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,-99999,-99999,UTLrc,ENErc)
If TYPE=42 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,-99999,CSPrc,-99999,-99999)
If TYPE=43 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,-99999,CSPrc,-99999,-99999)
If TYPE=44 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,-99999,CSPrc,-99999,-99999)
If TYPE=45 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,-99999,CSPrc,-99999,-99999)
If TYPE=46 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,-99999,CSPrc,-99999,-99999)
If TYPE=47 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,-99999,CSPrc,-99999,-99999)
If TYPE=48 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,-99999,CSPrc,-99999,-99999)
If TYPE=49 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,-99999,CSPrc,-99999,-99999)
If TYPE=50 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,-99999,CSPrc,-99999,-99999)
If TYPE=51 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,-99999,CSPrc,-99999,-99999)
If TYPE=52 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,-99999,CSPrc,-99999,-99999)
If TYPE=53 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,-99999,CSPrc,-99999,-99999)
If TYPE=54 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,-99999,CSPrc,-99999,-99999)
If TYPE=55 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,-99999,CSPrc,-99999,-99999)
If TYPE=56 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,-99999,CSPrc,-99999,ENErc)
If TYPE=57 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,-99999,CSPrc,-99999,ENErc)
If TYPE=58 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,-99999,CSPrc,-99999,ENErc)
If TYPE=59 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,-99999,CSPrc,-99999,ENErc)
If TYPE=60 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,-99999,CSPrc,-99999,ENErc)
If TYPE=61 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,-99999,CSPrc,-99999,ENErc)
If TYPE=62 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,-99999,CSPrc,-99999,ENErc)
If TYPE=63 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,-99999,CSPrc,-99999,ENErc)
If TYPE=64 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,-99999,CSPrc,-99999,ENErc)
If TYPE=65 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,-99999,CSPrc,-99999,ENErc)
If TYPE=66 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,-99999,CSPrc,-99999,ENErc)
If TYPE=67 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,-99999,CSPrc,-99999,ENErc)
If TYPE=68 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,-99999,CSPrc,-99999,ENErc)
If TYPE=69 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,-99999,CSPrc,-99999,ENErc)
If TYPE=70 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,-99999,CSPrc,UTLrc,-99999)
If TYPE=71 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,-99999,CSPrc,UTLrc,-99999)
If TYPE=72 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,-99999,CSPrc,UTLrc,-99999)
If TYPE=73 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,-99999,CSPrc,UTLrc,-99999)
If TYPE=74 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,-99999,CSPrc,UTLrc,-99999)
If TYPE=75 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,-99999,CSPrc,UTLrc,-99999)
If TYPE=76 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,-99999,CSPrc,UTLrc,-99999)
If TYPE=77 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,-99999,CSPrc,UTLrc,-99999)
If TYPE=78 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,-99999,CSPrc,UTLrc,-99999)
If TYPE=79 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,-99999,CSPrc,UTLrc,-99999)
If TYPE=80 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,-99999,CSPrc,UTLrc,-99999)
If TYPE=81 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,-99999,CSPrc,UTLrc,-99999)
If TYPE=82 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,-99999,CSPrc,UTLrc,-99999)
If TYPE=83 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,-99999,CSPrc,UTLrc,-99999)
If TYPE=84 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,-99999,CSPrc,UTLrc,ENErc)
If TYPE=85 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,-99999,CSPrc,UTLrc,ENErc)
If TYPE=86 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,-99999,CSPrc,UTLrc,ENErc)
If TYPE=87 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,-99999,CSPrc,UTLrc,ENErc)
If TYPE=88 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,-99999,CSPrc,UTLrc,ENErc)
If TYPE=89 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,-99999,CSPrc,UTLrc,ENErc)
If TYPE=90 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,-99999,CSPrc,UTLrc,ENErc)
If TYPE=91 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,-99999,CSPrc,UTLrc,ENErc)
If TYPE=92 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,-99999,CSPrc,UTLrc,ENErc)
If TYPE=93 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,-99999,CSPrc,UTLrc,ENErc)
If TYPE=94 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,-99999,CSPrc,UTLrc,ENErc)
If TYPE=95 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,-99999,CSPrc,UTLrc,ENErc)
If TYPE=96 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,-99999,CSPrc,UTLrc,ENErc)
If TYPE=97 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,-99999,CSPrc,UTLrc,ENErc)
If TYPE=98 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,HLTrc,-99999,-99999,-99999)
If TYPE=99 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,HLTrc,-99999,-99999,-99999)
If TYPE=100 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,HLTrc,-99999,-99999,-99999)
If TYPE=101 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,HLTrc,-99999,-99999,-99999)
If TYPE=102 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,HLTrc,-99999,-99999,-99999)
If TYPE=103 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,HLTrc,-99999,-99999,-99999)
If TYPE=104 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,HLTrc,-99999,-99999,-99999)
If TYPE=105 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,HLTrc,-99999,-99999,-99999)
If TYPE=106 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,HLTrc,-99999,-99999,-99999)
If TYPE=107 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,HLTrc,-99999,-99999,-99999)
If TYPE=108 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,HLTrc,-99999,-99999,-99999)
If TYPE=109 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,HLTrc,-99999,-99999,-99999)
If TYPE=110 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,HLTrc,-99999,-99999,-99999)
If TYPE=111 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,HLTrc,-99999,-99999,-99999)
If TYPE=112 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,HLTrc,-99999,-99999,ENErc)
If TYPE=113 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,HLTrc,-99999,-99999,ENErc)
If TYPE=114 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,HLTrc,-99999,-99999,ENErc)
If TYPE=115 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,HLTrc,-99999,-99999,ENErc)
If TYPE=116 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,HLTrc,-99999,-99999,ENErc)
If TYPE=117 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,HLTrc,-99999,-99999,ENErc)
If TYPE=118 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,HLTrc,-99999,-99999,ENErc)
If TYPE=119 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,HLTrc,-99999,-99999,ENErc)
If TYPE=120 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,HLTrc,-99999,-99999,ENErc)
If TYPE=121 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,HLTrc,-99999,-99999,ENErc)
If TYPE=122 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,HLTrc,-99999,-99999,ENErc)
If TYPE=123 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,HLTrc,-99999,-99999,ENErc)
If TYPE=124 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,HLTrc,-99999,-99999,ENErc)
If TYPE=125 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,HLTrc,-99999,-99999,ENErc)
If TYPE=126 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,HLTrc,-99999,UTLrc,ENErc)
If TYPE=127 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,HLTrc,-99999,UTLrc,ENErc)
If TYPE=128 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,HLTrc,-99999,UTLrc,ENErc)
If TYPE=129 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,HLTrc,-99999,UTLrc,ENErc)
If TYPE=130 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,HLTrc,-99999,UTLrc,ENErc)
If TYPE=131 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,HLTrc,-99999,UTLrc,ENErc)
If TYPE=132 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,HLTrc,-99999,UTLrc,ENErc)
If TYPE=133 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,HLTrc,-99999,UTLrc,ENErc)
If TYPE=134 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,HLTrc,-99999,UTLrc,ENErc)
If TYPE=135 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,HLTrc,-99999,UTLrc,ENErc)
If TYPE=136 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,HLTrc,-99999,UTLrc,ENErc)
If TYPE=137 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,HLTrc,-99999,UTLrc,ENErc)
If TYPE=138 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,HLTrc,-99999,UTLrc,ENErc)
If TYPE=139 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,HLTrc,-99999,UTLrc,ENErc)
If TYPE=140 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,HLTrc,CSPrc,-99999,-99999)
If TYPE=141 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,HLTrc,CSPrc,-99999,-99999)
If TYPE=142 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,HLTrc,CSPrc,-99999,-99999)
If TYPE=143 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,HLTrc,CSPrc,-99999,-99999)
If TYPE=144 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,HLTrc,CSPrc,-99999,-99999)
If TYPE=145 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,HLTrc,CSPrc,-99999,-99999)
If TYPE=146 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,HLTrc,CSPrc,-99999,-99999)
If TYPE=147 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,HLTrc,CSPrc,-99999,-99999)
If TYPE=148 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,HLTrc,CSPrc,-99999,-99999)
If TYPE=149 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,HLTrc,CSPrc,-99999,-99999)
If TYPE=150 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,HLTrc,CSPrc,-99999,-99999)
If TYPE=151 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,HLTrc,CSPrc,-99999,-99999)
If TYPE=152 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,HLTrc,CSPrc,-99999,-99999)
If TYPE=153 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,HLTrc,CSPrc,-99999,-99999)
If TYPE=154 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,HLTrc,CSPrc,-99999,ENErc)
If TYPE=155 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,HLTrc,CSPrc,-99999,ENErc)
If TYPE=156 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,HLTrc,CSPrc,-99999,ENErc)
If TYPE=157 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,HLTrc,CSPrc,-99999,ENErc)
If TYPE=158 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,HLTrc,CSPrc,-99999,ENErc)
If TYPE=159 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,HLTrc,CSPrc,-99999,ENErc)
If TYPE=160 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,HLTrc,CSPrc,-99999,ENErc)
If TYPE=161 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,HLTrc,CSPrc,-99999,ENErc)
If TYPE=162 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,HLTrc,CSPrc,-99999,ENErc)
If TYPE=163 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,HLTrc,CSPrc,-99999,ENErc)
If TYPE=164 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,HLTrc,CSPrc,-99999,ENErc)
If TYPE=165 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,HLTrc,CSPrc,-99999,ENErc)
If TYPE=166 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,HLTrc,CSPrc,-99999,ENErc)
If TYPE=167 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,HLTrc,CSPrc,-99999,ENErc)
If TYPE=168 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=169 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=170 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=171 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=172 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=173 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=174 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=175 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=176 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=177 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=178 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=179 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=180 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=181 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=182 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=183 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=184 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=185 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=186 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=187 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=188 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=189 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=190 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=191 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=192 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=193 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=194 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=195 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,HLTrc,CSPrc,UTLrc,ENErc)
BBAVG = Average(BBfun,BB_LEN)
'Print FormatDateTime(Date)," ",BULL_BEAR," ",BBfun
If BBAVG > BBAVG[1] Then Buy("LE",1,0,Market,Day)
If BBAVG < BBAVG[1] Then ExitLong("LX","",1,0,Market,Day)
If BBAVG < BBAVG[1] Then Sell("SE",1,0,Market,Day)
If BBAVG > BBAVG[1] Then ExitShort("SX","",1,0,Market,Day)
End Sub
'--------------------------------------------------------------------------------------------------------------------
Sub BULL_BEAR_IND(RC_LEN,BB_LEN, TYPE)
Dim FIN As BarArray
Dim CDS As BarArray
Dim ENE As BarArray
Dim CSP As BarArray
Dim UTL As BarArray
Dim HLT As BarArray
Dim MAT As BarArray
Dim IND As BarArray
Dim TEL As BarArray
Dim TEK As BarArray
Dim SPX As BarArray
Dim FINrc As BarArray
Dim CDSrc As BarArray
Dim ENErc As BarArray
Dim CSPrc As BarArray
Dim UTLrc As BarArray
Dim HLTrc As BarArray
Dim MATrc As BarArray
Dim INDrc As BarArray
Dim TELrc As BarArray
Dim TEKrc As BarArray
Dim SPXrc As BarArray
Dim BULLsr As BarArray
Dim BEARsr As BarArray
Dim BULL_BEAR As BarArray
Dim BBfun As BarArray
Dim BBAVG As BarArray
'DATA SERIES:                              STRONGET DURING:
HLT = C Of independent1  ' "SPXA" or "XLV"         [BEAR]
CDS = C Of independent2  ' "SPXD" or "XLY"    [BULL]
ENE = C Of independent3  ' "SPXE" or "XLE"         [BEAR]
FIN = C Of independent4  ' "SPXF" or "XLF"    [BULL]
IND = C Of independent5  ' "SPXI" or "XLI"    [BULL]
TEL = C Of independent6  ' "SPXL" or "XLI"    [BULL]
MAT = C Of independent7  ' "SPXM" or "XLB"    [BULL]
CSP = C Of independent8  ' "SPXS" or "XLP"         [BEAR]
TEK = C Of independent9  ' "SPXT" or "XLK"    [BULL]
UTL = C Of independent10 ' "SPXU" or "XLU"         [BEAR]
SPX = C Of independent11 ' "SPX"
FINrc = roc(FIN,RC_LEN,0)
CDSrc = roc(CDS,RC_LEN,0)
ENErc = roc(ENE,RC_LEN,0)
CSPrc = roc(CSP,RC_LEN,0)
UTLrc = roc(UTL,RC_LEN,0)
'OPTIONAL OTHER SECTOR ROCs THAT COULD BE TRIED:
HLTrc = roc(HLT,RC_LEN,0)
MATrc = roc(MAT,RC_LEN,0)
INDrc = roc(IND,RC_LEN,0)
TELrc = roc(TEL,RC_LEN,0)
TEKrc = roc(TEK,RC_LEN,0)
SPXrc = roc(SPX,RC_LEN,0)
BULLsr = (FINrc+CDSrc)/2
BEARsr = (ENErc+CSPrc+UTLrc)/3
If TYPE=0 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,-99999,-99999,-99999,ENErc)
If TYPE=1 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,-99999,-99999,-99999,ENErc)
If TYPE=2 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,-99999,-99999,-99999,ENErc)
If TYPE=3 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,-99999,-99999,-99999,ENErc)
If TYPE=4 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,-99999,-99999,-99999,ENErc)
If TYPE=5 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,-99999,-99999,-99999,ENErc)
If TYPE=6 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,-99999,-99999,-99999,ENErc)
If TYPE=7 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,-99999,-99999,-99999,ENErc)
If TYPE=8 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,-99999,-99999,-99999,ENErc)
If TYPE=9 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,-99999,-99999,-99999,ENErc)
If TYPE=10 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,-99999,-99999,-99999,ENErc)
If TYPE=11 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,-99999,-99999,-99999,ENErc)
If TYPE=12 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,-99999,-99999,-99999,ENErc)
If TYPE=13 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,-99999,-99999,-99999,ENErc)
If TYPE=14 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,-99999,-99999,UTLrc,-99999)
If TYPE=15 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,-99999,-99999,UTLrc,-99999)
If TYPE=16 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,-99999,-99999,UTLrc,-99999)
If TYPE=17 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,-99999,-99999,UTLrc,-99999)
If TYPE=18 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,-99999,-99999,UTLrc,-99999)
If TYPE=19 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,-99999,-99999,UTLrc,-99999)
If TYPE=20 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,-99999,-99999,UTLrc,-99999)
If TYPE=21 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,-99999,-99999,UTLrc,-99999)
If TYPE=22 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,-99999,-99999,UTLrc,-99999)
If TYPE=23 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,-99999,-99999,UTLrc,-99999)
If TYPE=24 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,-99999,-99999,UTLrc,-99999)
If TYPE=25 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,-99999,-99999,UTLrc,-99999)
If TYPE=26 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,-99999,-99999,UTLrc,-99999)
If TYPE=27 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,-99999,-99999,UTLrc,-99999)
If TYPE=28 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,-99999,-99999,UTLrc,ENErc)
If TYPE=29 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,-99999,-99999,UTLrc,ENErc)
If TYPE=30 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,-99999,-99999,UTLrc,ENErc)
If TYPE=31 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,-99999,-99999,UTLrc,ENErc)
If TYPE=32 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,-99999,-99999,UTLrc,ENErc)
If TYPE=33 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,-99999,-99999,UTLrc,ENErc)
If TYPE=34 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,-99999,-99999,UTLrc,ENErc)
If TYPE=35 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,-99999,-99999,UTLrc,ENErc)
If TYPE=36 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,-99999,-99999,UTLrc,ENErc)
If TYPE=37 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,-99999,-99999,UTLrc,ENErc)
If TYPE=38 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,-99999,-99999,UTLrc,ENErc)
If TYPE=39 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,-99999,-99999,UTLrc,ENErc)
If TYPE=40 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,-99999,-99999,UTLrc,ENErc)
If TYPE=41 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,-99999,-99999,UTLrc,ENErc)
If TYPE=42 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,-99999,CSPrc,-99999,-99999)
If TYPE=43 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,-99999,CSPrc,-99999,-99999)
If TYPE=44 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,-99999,CSPrc,-99999,-99999)
If TYPE=45 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,-99999,CSPrc,-99999,-99999)
If TYPE=46 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,-99999,CSPrc,-99999,-99999)
If TYPE=47 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,-99999,CSPrc,-99999,-99999)
If TYPE=48 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,-99999,CSPrc,-99999,-99999)
If TYPE=49 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,-99999,CSPrc,-99999,-99999)
If TYPE=50 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,-99999,CSPrc,-99999,-99999)
If TYPE=51 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,-99999,CSPrc,-99999,-99999)
If TYPE=52 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,-99999,CSPrc,-99999,-99999)
If TYPE=53 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,-99999,CSPrc,-99999,-99999)
If TYPE=54 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,-99999,CSPrc,-99999,-99999)
If TYPE=55 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,-99999,CSPrc,-99999,-99999)
If TYPE=56 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,-99999,CSPrc,-99999,ENErc)
If TYPE=57 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,-99999,CSPrc,-99999,ENErc)
If TYPE=58 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,-99999,CSPrc,-99999,ENErc)
If TYPE=59 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,-99999,CSPrc,-99999,ENErc)
If TYPE=60 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,-99999,CSPrc,-99999,ENErc)
If TYPE=61 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,-99999,CSPrc,-99999,ENErc)
If TYPE=62 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,-99999,CSPrc,-99999,ENErc)
If TYPE=63 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,-99999,CSPrc,-99999,ENErc)
If TYPE=64 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,-99999,CSPrc,-99999,ENErc)
If TYPE=65 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,-99999,CSPrc,-99999,ENErc)
If TYPE=66 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,-99999,CSPrc,-99999,ENErc)
If TYPE=67 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,-99999,CSPrc,-99999,ENErc)
If TYPE=68 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,-99999,CSPrc,-99999,ENErc)
If TYPE=69 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,-99999,CSPrc,-99999,ENErc)
If TYPE=70 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,-99999,CSPrc,UTLrc,-99999)
If TYPE=71 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,-99999,CSPrc,UTLrc,-99999)
If TYPE=72 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,-99999,CSPrc,UTLrc,-99999)
If TYPE=73 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,-99999,CSPrc,UTLrc,-99999)
If TYPE=74 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,-99999,CSPrc,UTLrc,-99999)
If TYPE=75 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,-99999,CSPrc,UTLrc,-99999)
If TYPE=76 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,-99999,CSPrc,UTLrc,-99999)
If TYPE=77 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,-99999,CSPrc,UTLrc,-99999)
If TYPE=78 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,-99999,CSPrc,UTLrc,-99999)
If TYPE=79 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,-99999,CSPrc,UTLrc,-99999)
If TYPE=80 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,-99999,CSPrc,UTLrc,-99999)
If TYPE=81 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,-99999,CSPrc,UTLrc,-99999)
If TYPE=82 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,-99999,CSPrc,UTLrc,-99999)
If TYPE=83 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,-99999,CSPrc,UTLrc,-99999)
If TYPE=84 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,-99999,CSPrc,UTLrc,ENErc)
If TYPE=85 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,-99999,CSPrc,UTLrc,ENErc)
If TYPE=86 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,-99999,CSPrc,UTLrc,ENErc)
If TYPE=87 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,-99999,CSPrc,UTLrc,ENErc)
If TYPE=88 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,-99999,CSPrc,UTLrc,ENErc)
If TYPE=89 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,-99999,CSPrc,UTLrc,ENErc)
If TYPE=90 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,-99999,CSPrc,UTLrc,ENErc)
If TYPE=91 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,-99999,CSPrc,UTLrc,ENErc)
If TYPE=92 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,-99999,CSPrc,UTLrc,ENErc)
If TYPE=93 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,-99999,CSPrc,UTLrc,ENErc)
If TYPE=94 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,-99999,CSPrc,UTLrc,ENErc)
If TYPE=95 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,-99999,CSPrc,UTLrc,ENErc)
If TYPE=96 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,-99999,CSPrc,UTLrc,ENErc)
If TYPE=97 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,-99999,CSPrc,UTLrc,ENErc)
If TYPE=98 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,HLTrc,-99999,-99999,-99999)
If TYPE=99 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,HLTrc,-99999,-99999,-99999)
If TYPE=100 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,HLTrc,-99999,-99999,-99999)
If TYPE=101 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,HLTrc,-99999,-99999,-99999)
If TYPE=102 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,HLTrc,-99999,-99999,-99999)
If TYPE=103 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,HLTrc,-99999,-99999,-99999)
If TYPE=104 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,HLTrc,-99999,-99999,-99999)
If TYPE=105 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,HLTrc,-99999,-99999,-99999)
If TYPE=106 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,HLTrc,-99999,-99999,-99999)
If TYPE=107 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,HLTrc,-99999,-99999,-99999)
If TYPE=108 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,HLTrc,-99999,-99999,-99999)
If TYPE=109 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,HLTrc,-99999,-99999,-99999)
If TYPE=110 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,HLTrc,-99999,-99999,-99999)
If TYPE=111 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,HLTrc,-99999,-99999,-99999)
If TYPE=112 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,HLTrc,-99999,-99999,ENErc)
If TYPE=113 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,HLTrc,-99999,-99999,ENErc)
If TYPE=114 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,HLTrc,-99999,-99999,ENErc)
If TYPE=115 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,HLTrc,-99999,-99999,ENErc)
If TYPE=116 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,HLTrc,-99999,-99999,ENErc)
If TYPE=117 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,HLTrc,-99999,-99999,ENErc)
If TYPE=118 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,HLTrc,-99999,-99999,ENErc)
If TYPE=119 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,HLTrc,-99999,-99999,ENErc)
If TYPE=120 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,HLTrc,-99999,-99999,ENErc)
If TYPE=121 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,HLTrc,-99999,-99999,ENErc)
If TYPE=122 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,HLTrc,-99999,-99999,ENErc)
If TYPE=123 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,HLTrc,-99999,-99999,ENErc)
If TYPE=124 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,HLTrc,-99999,-99999,ENErc)
If TYPE=125 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,HLTrc,-99999,-99999,ENErc)
If TYPE=126 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,HLTrc,-99999,UTLrc,ENErc)
If TYPE=127 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,HLTrc,-99999,UTLrc,ENErc)
If TYPE=128 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,HLTrc,-99999,UTLrc,ENErc)
If TYPE=129 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,HLTrc,-99999,UTLrc,ENErc)
If TYPE=130 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,HLTrc,-99999,UTLrc,ENErc)
If TYPE=131 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,HLTrc,-99999,UTLrc,ENErc)
If TYPE=132 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,HLTrc,-99999,UTLrc,ENErc)
If TYPE=133 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,HLTrc,-99999,UTLrc,ENErc)
If TYPE=134 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,HLTrc,-99999,UTLrc,ENErc)
If TYPE=135 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,HLTrc,-99999,UTLrc,ENErc)
If TYPE=136 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,HLTrc,-99999,UTLrc,ENErc)
If TYPE=137 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,HLTrc,-99999,UTLrc,ENErc)
If TYPE=138 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,HLTrc,-99999,UTLrc,ENErc)
If TYPE=139 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,HLTrc,-99999,UTLrc,ENErc)
If TYPE=140 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,HLTrc,CSPrc,-99999,-99999)
If TYPE=141 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,HLTrc,CSPrc,-99999,-99999)
If TYPE=142 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,HLTrc,CSPrc,-99999,-99999)
If TYPE=143 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,HLTrc,CSPrc,-99999,-99999)
If TYPE=144 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,HLTrc,CSPrc,-99999,-99999)
If TYPE=145 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,HLTrc,CSPrc,-99999,-99999)
If TYPE=146 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,HLTrc,CSPrc,-99999,-99999)
If TYPE=147 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,HLTrc,CSPrc,-99999,-99999)
If TYPE=148 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,HLTrc,CSPrc,-99999,-99999)
If TYPE=149 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,HLTrc,CSPrc,-99999,-99999)
If TYPE=150 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,HLTrc,CSPrc,-99999,-99999)
If TYPE=151 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,HLTrc,CSPrc,-99999,-99999)
If TYPE=152 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,HLTrc,CSPrc,-99999,-99999)
If TYPE=153 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,HLTrc,CSPrc,-99999,-99999)
If TYPE=154 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,HLTrc,CSPrc,-99999,ENErc)
If TYPE=155 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,HLTrc,CSPrc,-99999,ENErc)
If TYPE=156 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,HLTrc,CSPrc,-99999,ENErc)
If TYPE=157 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,HLTrc,CSPrc,-99999,ENErc)
If TYPE=158 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,HLTrc,CSPrc,-99999,ENErc)
If TYPE=159 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,HLTrc,CSPrc,-99999,ENErc)
If TYPE=160 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,HLTrc,CSPrc,-99999,ENErc)
If TYPE=161 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,HLTrc,CSPrc,-99999,ENErc)
If TYPE=162 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,HLTrc,CSPrc,-99999,ENErc)
If TYPE=163 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,HLTrc,CSPrc,-99999,ENErc)
If TYPE=164 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,HLTrc,CSPrc,-99999,ENErc)
If TYPE=165 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,HLTrc,CSPrc,-99999,ENErc)
If TYPE=166 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,HLTrc,CSPrc,-99999,ENErc)
If TYPE=167 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,HLTrc,CSPrc,-99999,ENErc)
If TYPE=168 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=169 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=170 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=171 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=172 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=173 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=174 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=175 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=176 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=177 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=178 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=179 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=180 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,HLTrc,CSPrc,UTLrc,-99999)
If TYPE=181 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,HLTrc,CSPrc,UTLrc,-99999)19
If TYPE=182 Then BBfun = BULL_BEAR_OSC(-99999,-99999,-99999,MATrc,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=183 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,-99999,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=184 Then BBfun = BULL_BEAR_OSC(-99999,-99999,INDrc,MATrc,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=185 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,-99999,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=186 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,-99999,MATrc,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=187 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,-99999,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=188 Then BBfun = BULL_BEAR_OSC(-99999,FINrc,INDrc,MATrc,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=189 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,-99999,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=190 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,-99999,MATrc,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=191 Then BBfun = BULL_BEAR_OSC(CDSrc,-99999,INDrc,MATrc,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=192 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,-99999,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=193 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,-99999,MATrc,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=194 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,-99999,HLTrc,CSPrc,UTLrc,ENErc)
If TYPE=195 Then BBfun = BULL_BEAR_OSC(CDSrc,FINrc,INDrc,MATrc,HLTrc,CSPrc,UTLrc,ENErc)
BBAVG = Average(BBfun,BB_LEN)
Plot1(BBfun)
Plot2(BBAVG)
End Sub
'----------------------------------------------------------------------------------------------------------------------

—Richard Denning
info@TradersEdgeSystems.com
for TradersStudio


To read the entire issue click here and subscribe today!

PTSK — The Professional Traders' Starter Kit
Home| Working Money Magazine | S&C Magazine | Traders.com Advantage | Online Store | Traders’ Resource
Add a Product to Traders’ Resource | Message Boards | Subscribe/Renew | Free Trial Issue | Article Code | Search

DEPARTMENTS: Advertising | Editorial | Circulation | Employment | Contact Us | BY PHONE: (206) 938-0570

Join us on Facebook     Follow us on Twitter     Follow Us on StockTwits

Bookmark and ShareCopyright © 1996-2013 Technical Analysis, Inc. All rights reserved. Read our disclaimer & privacy statement.

SUBSCRIBE TO OUR FREE
EMAIL NEWSLETTER!