+1 888 340 6572

Miscellaneous > NONPRICEUNIVERSALAB

Article/Author: Omega Research Inc., 1996

Download: NONPRICEUNIVERSALAB.ELA

File Includes: Indicator - NonPriceUniversalAB

Category: Indicator > Miscellaneous

Description:

This indicator plots a different study depending on the number typed in the TYPE input. AB Stands for Accumulation Distribution through Bullish Divergence.

Usage:

The TYPE and Description of the Indicator can be found at the bottom of your PRINT-LOG. If nothing show up, look into the PRINT-LOG for proper use of the Inputs




Inputs:

Type:
1 - Accumulation distribution
2 - Accumulation Swing Index
3 - Average directional Movement Index
4 - Average directional Movement Rating
5 - Bearish Divergence
6 - Bullish Divergence
Price - the data series to use
Length - the trailing number of bars to use
Other - see below
Miscell - see below

EasyLanguage Code:
INPUT:TYPE(0),PRICE(CLOSE),LENGTH(10),OTHER(VOLUME),MISCELL(10);


VALUE3 = PRICE;

IF TYPE = 1 THEN BEGIN
VALUE1 = ACCUMDIST(OTHER);
IF DATE = LASTCALCDATE AND TIME = LASTCALCTIME THEN
PRINT(TYPE:2:0," ACCUMULATION DISTRIBUTION");
END;
IF TYPE = 2 THEN BEGIN
VALUE1 = ACCUMSWINGINDEX;
IF DATE = LASTCALCDATE AND TIME = LASTCALCTIME THEN
PRINT(TYPE:2:0," ACCUMULATION SWING INDEX");
END;
IF TYPE = 3 THEN BEGIN
VALUE1 = ADX(LENGTH);
IF DATE = LASTCALCDATE AND TIME = LASTCALCTIME THEN
PRINT(TYPE:2:0," AVERAGE DIRECTIONAL MOVEMENT INDEX");
END;
IF TYPE = 4 THEN BEGIN
VALUE1 = ADXR(MISCELL);
IF DATE = LASTCALCDATE AND TIME = LASTCALCTIME THEN
PRINT(TYPE:2:0," AVERAGE DIRECTIONAL MOVEMENT RATING");
END;
IF TYPE = 5 THEN BEGIN
VALUE1 = BEARISHDIVERGENCE(VALUE3,OTHER,MISCELL,LENGTH);
IF DATE = LASTCALCDATE AND TIME = LASTCALCTIME THEN BEGIN
PRINT(TYPE:2:0," BEARISH DIVERGENCE * * OTHER SHOULD BE AN OSCILLATOR * *");
PRINT(TYPE:2:0," * * MISCELL SHOULD BE THE STRENGTH * *");
END;
END;
IF TYPE = 6 THEN BEGIN
VALUE1 = BULLISHDIVERGENCE(VALUE3,OTHER,MISCELL,LENGTH);
IF DATE = LASTCALCDATE AND TIME = LASTCALCTIME THEN BEGIN
PRINT(TYPE:2:0," BULLISH DIVERGENCE * * OTHER SHOULD BE AN OSCILLATOR * *");
PRINT(TYPE:2:0," * * MISCELL SHOULD BE THE STRENGTH * *");
END;
END;

IF TYPE > 0 AND TYPE < 7 THEN
PLOT1(VALUE1,"NPUNIVAB");