AmiBroker formula Language
- Thread starter murthymsr
- Start date
Pibot Finder Formula need help
Any body can help me to add by and sell , so I can use this formula for scanner.
_SECTION_BEGIN("Pivot Finder");
/* **********************************
Code to automatically identify pivots
********************************** */
// -- what will be our lookback range for the hh and ll?
farback=Param("How Far back to go",100,50,5000,10);
nBars = Param("Number of bars", 12, 5, 40);
// -- Title.
Title = Name() + " (" + StrLeft(FullName(), 15) + ") O: " + Open + ",
H: " + High + ", L: " + Low + ", C: " + Close;
// -- Plot basic candle chart
PlotOHLC(Open, High, Low, Close,
"BIdx = " + BarIndex() +
"\n" + "O = " + O + "\n"+"H = "+ H + "\n"+"L = " + L
+ "\n"+"C ",
colorBlack, styleCandle);
GraphXSpace=7;
// -- Create 0-initialized arrays the size of barcount
aHPivs = H - H;
aLPivs = L - L;
// -- More for future use, not necessary for basic plotting
aHPivHighs = H - H;
aLPivLows = L - L;
aHPivIdxs = H - H;
aLPivIdxs = L - L;
nHPivs = 0;
nLPivs = 0;
lastHPIdx = 0;
lastLPIdx = 0;
lastHPH = 0;
lastLPL = 0;
curPivBarIdx = 0;
// -- looking back from the current bar, how many bars
// back were the hhv and llv values of the previous
// n bars, etc.?
aHHVBars = HHVBars(H, nBars);
aLLVBars = LLVBars(L, nBars);
aHHV = HHV(H, nBars);
aLLV = LLV(L, nBars);
// -- Would like to set this up so pivots are calculated back from
// last visible bar to make it easy to "go back" and see the pivots
// this code would find. However, the first instance of
// _Trace output will show a value of 0
aVisBars = Status("barvisible");
nLastVisBar = LastValue(Highest(IIf(aVisBars, BarIndex(), 0)));
_TRACE("Last visible bar: " + nLastVisBar);
// -- Initialize value of curTrend
curBar = (BarCount-1);
curTrend = "";
if (aLLVBars[curBar] <
aHHVBars[curBar]) {
curTrend = "D";
}
else {
curTrend = "U";
}
// -- Loop through bars. Search for
// entirely array-based approach
// in future version
for (i=0; i<farback; i++) {
curBar = (BarCount - 1) - i;
// -- Have we identified a pivot? If trend is down...
if (aLLVBars[curBar] < aHHVBars[curBar]) {
// ... and had been up, this is a trend change
if (curTrend == "U") {
curTrend = "D";
// -- Capture pivot information
curPivBarIdx = curBar - aLLVBars[curBar];
aLPivs[curPivBarIdx] = 1;
aLPivLows[nLPivs] = L[curPivBarIdx];
aLPivIdxs[nLPivs] = curPivBarIdx;
nLPivs++;
}
// -- or current trend is up
} else {
if (curTrend == "D") {
curTrend = "U";
curPivBarIdx = curBar - aHHVBars[curBar];
aHPivs[curPivBarIdx] = 1;
aHPivHighs[nHPivs] = H[curPivBarIdx];
aHPivIdxs[nHPivs] = curPivBarIdx;
nHPivs++;
}
// -- If curTrend is up...else...
}
// -- loop through bars
}
// -- Basic attempt to add a pivot this logic may have missed
// -- OK, now I want to look at last two pivots. If the most
// recent low pivot is after the last high, I could
// still have a high pivot that I didn't catch
// -- Start at last bar
curBar = (BarCount-1);
candIdx = 0;
candPrc = 0;
lastLPIdx = aLPivIdxs[0];
lastLPL = aLPivLows[0];
lastHPIdx = aHPivIdxs[0];
lastHPH = aHPivHighs[0];
if (lastLPIdx > lastHPIdx) {
// -- Bar and price info for candidate pivot
candIdx = curBar - aHHVBars[curBar];
candPrc = aHHV[curBar];
if (
lastHPH < candPrc AND
candIdx > lastLPIdx AND
candIdx < curBar) {
// -- OK, we'll add this as a pivot...
aHPivs[candIdx] = 1;
// ...and then rearrange elements in the
// pivot information arrays
for (j=0; j<nHPivs; j++) {
aHPivHighs[nHPivs-j] = aHPivHighs[nHPivs-
(j+1)];
aHPivIdxs[nHPivs-j] = aHPivIdxs[nHPivs-(j+1)];
}
aHPivHighs[0] = candPrc ;
aHPivIdxs[0] = candIdx;
nHPivs++;
}
} else {
// -- Bar and price info for candidate pivot
candIdx = curBar - aLLVBars[curBar];
candPrc = aLLV[curBar];
if (
lastLPL > candPrc AND
candIdx > lastHPIdx AND
candIdx < curBar) {
// -- OK, we'll add this as a pivot...
aLPivs[candIdx] = 1;
// ...and then rearrange elements in the
// pivot information arrays
for (j=0; j<nLPivs; j++) {
aLPivLows[nLPivs-j] = aLPivLows[nLPivs-(j+1)];
aLPivIdxs[nLPivs-j] = aLPivIdxs[nLPivs-(j+1)];
}
aLPivLows[0] = candPrc;
aLPivIdxs[0] = candIdx;
nLPivs++;
}
}
// -- Dump inventory of high pivots for debugging
/*
for (k=0; k<nHPivs; k++) {
_TRACE("High pivot no. " + k
+ " at barindex: " + aHPivIdxs[k] + ", "
+ WriteVal(ValueWhen(BarIndex()==aHPivIdxs[k],
DateTime(), 1), formatDateTime)
+ ", " + aHPivHighs[k]);
}
*/
// -- OK, let's plot the pivots using arrows
PlotShapes(
IIf(aHPivs==1, shapeDownArrow, shapeNone), colorRed, 0,
High, Offset=-15);
PlotShapes(
IIf(aLPivs==1, shapeUpArrow , shapeNone), colorGreen, 0,
Low, Offset=-15);
_SECTION_END();
Any body can help me to add by and sell , so I can use this formula for scanner.
_SECTION_BEGIN("Pivot Finder");
/* **********************************
Code to automatically identify pivots
********************************** */
// -- what will be our lookback range for the hh and ll?
farback=Param("How Far back to go",100,50,5000,10);
nBars = Param("Number of bars", 12, 5, 40);
// -- Title.
Title = Name() + " (" + StrLeft(FullName(), 15) + ") O: " + Open + ",
H: " + High + ", L: " + Low + ", C: " + Close;
// -- Plot basic candle chart
PlotOHLC(Open, High, Low, Close,
"BIdx = " + BarIndex() +
"\n" + "O = " + O + "\n"+"H = "+ H + "\n"+"L = " + L
+ "\n"+"C ",
colorBlack, styleCandle);
GraphXSpace=7;
// -- Create 0-initialized arrays the size of barcount
aHPivs = H - H;
aLPivs = L - L;
// -- More for future use, not necessary for basic plotting
aHPivHighs = H - H;
aLPivLows = L - L;
aHPivIdxs = H - H;
aLPivIdxs = L - L;
nHPivs = 0;
nLPivs = 0;
lastHPIdx = 0;
lastLPIdx = 0;
lastHPH = 0;
lastLPL = 0;
curPivBarIdx = 0;
// -- looking back from the current bar, how many bars
// back were the hhv and llv values of the previous
// n bars, etc.?
aHHVBars = HHVBars(H, nBars);
aLLVBars = LLVBars(L, nBars);
aHHV = HHV(H, nBars);
aLLV = LLV(L, nBars);
// -- Would like to set this up so pivots are calculated back from
// last visible bar to make it easy to "go back" and see the pivots
// this code would find. However, the first instance of
// _Trace output will show a value of 0
aVisBars = Status("barvisible");
nLastVisBar = LastValue(Highest(IIf(aVisBars, BarIndex(), 0)));
_TRACE("Last visible bar: " + nLastVisBar);
// -- Initialize value of curTrend
curBar = (BarCount-1);
curTrend = "";
if (aLLVBars[curBar] <
aHHVBars[curBar]) {
curTrend = "D";
}
else {
curTrend = "U";
}
// -- Loop through bars. Search for
// entirely array-based approach
// in future version
for (i=0; i<farback; i++) {
curBar = (BarCount - 1) - i;
// -- Have we identified a pivot? If trend is down...
if (aLLVBars[curBar] < aHHVBars[curBar]) {
// ... and had been up, this is a trend change
if (curTrend == "U") {
curTrend = "D";
// -- Capture pivot information
curPivBarIdx = curBar - aLLVBars[curBar];
aLPivs[curPivBarIdx] = 1;
aLPivLows[nLPivs] = L[curPivBarIdx];
aLPivIdxs[nLPivs] = curPivBarIdx;
nLPivs++;
}
// -- or current trend is up
} else {
if (curTrend == "D") {
curTrend = "U";
curPivBarIdx = curBar - aHHVBars[curBar];
aHPivs[curPivBarIdx] = 1;
aHPivHighs[nHPivs] = H[curPivBarIdx];
aHPivIdxs[nHPivs] = curPivBarIdx;
nHPivs++;
}
// -- If curTrend is up...else...
}
// -- loop through bars
}
// -- Basic attempt to add a pivot this logic may have missed
// -- OK, now I want to look at last two pivots. If the most
// recent low pivot is after the last high, I could
// still have a high pivot that I didn't catch
// -- Start at last bar
curBar = (BarCount-1);
candIdx = 0;
candPrc = 0;
lastLPIdx = aLPivIdxs[0];
lastLPL = aLPivLows[0];
lastHPIdx = aHPivIdxs[0];
lastHPH = aHPivHighs[0];
if (lastLPIdx > lastHPIdx) {
// -- Bar and price info for candidate pivot
candIdx = curBar - aHHVBars[curBar];
candPrc = aHHV[curBar];
if (
lastHPH < candPrc AND
candIdx > lastLPIdx AND
candIdx < curBar) {
// -- OK, we'll add this as a pivot...
aHPivs[candIdx] = 1;
// ...and then rearrange elements in the
// pivot information arrays
for (j=0; j<nHPivs; j++) {
aHPivHighs[nHPivs-j] = aHPivHighs[nHPivs-
(j+1)];
aHPivIdxs[nHPivs-j] = aHPivIdxs[nHPivs-(j+1)];
}
aHPivHighs[0] = candPrc ;
aHPivIdxs[0] = candIdx;
nHPivs++;
}
} else {
// -- Bar and price info for candidate pivot
candIdx = curBar - aLLVBars[curBar];
candPrc = aLLV[curBar];
if (
lastLPL > candPrc AND
candIdx > lastHPIdx AND
candIdx < curBar) {
// -- OK, we'll add this as a pivot...
aLPivs[candIdx] = 1;
// ...and then rearrange elements in the
// pivot information arrays
for (j=0; j<nLPivs; j++) {
aLPivLows[nLPivs-j] = aLPivLows[nLPivs-(j+1)];
aLPivIdxs[nLPivs-j] = aLPivIdxs[nLPivs-(j+1)];
}
aLPivLows[0] = candPrc;
aLPivIdxs[0] = candIdx;
nLPivs++;
}
}
// -- Dump inventory of high pivots for debugging
/*
for (k=0; k<nHPivs; k++) {
_TRACE("High pivot no. " + k
+ " at barindex: " + aHPivIdxs[k] + ", "
+ WriteVal(ValueWhen(BarIndex()==aHPivIdxs[k],
DateTime(), 1), formatDateTime)
+ ", " + aHPivHighs[k]);
}
*/
// -- OK, let's plot the pivots using arrows
PlotShapes(
IIf(aHPivs==1, shapeDownArrow, shapeNone), colorRed, 0,
High, Offset=-15);
PlotShapes(
IIf(aLPivs==1, shapeUpArrow , shapeNone), colorGreen, 0,
Low, Offset=-15);
_SECTION_END();
_SECTION_BEGIN("A CandlestickTargeting Your Pattern");
function msPattPos( element )
{
Value1 = Ref( H, -1 );
Value2 = Ref( L, -1 );
Value3 = ( Value1 + Value2 )/2;
Dist = Ref( ATR( 10 ), -1 );
Value4 = Value1 + Dist;
Value5 = Value2 - Dist;
result = IIf( element < Value5, 0,
IIf( element < Value2, 1,
IIf( element < Value3, 2,
IIf( element < Value1, 3,
IIf( element < Value4, 4,
5 ) ) ) ) );
return result;
}
function msPattToText( patt )
{
result = WriteIf( patt == 0, " is below previous (Low - ATR 10) ",
WriteIf( patt == 1, " is above (at) previous (Low - ATR 10) and below previous Low ",
WriteIf( patt == 2, " is above (at) previous Low and below previous Midpoint ",
WriteIf( patt == 3, " is above (at) previous Midpoint and below previous High ",
WriteIf( patt == 4, " is above (at) previous High and below (High + ATR 10) ",
" is above (at) previous (High + ATR(10) " ) ) ) ) );
return result;
}
function msRecognize()
{
return 1000 * msPattPos( Open ) + 100 * msPattPos( High ) + 10 * msPattPos( Low ) + msPattPos( Close );
}
function msPatternDescription( patt )
{
return "Open: " + msPattToText( round( ( patt / 1000 ) % 10 ) ) + "\n" +
"High: " + msPattToText( round( ( patt / 100 ) % 10 ) ) + "\n" +
"Low: " + msPattToText( round( ( patt / 10 ) % 10 ) ) + "\n" +
"Close: " + msPattToText( round( patt % 10 ) );
}
patts = msRecognize();
// by default use pattern occuring at selected bar
DesiredPattern = SelectedValue( patts );
// if you want manual-entry of pattern code from parameter dialog
// then uncomment the line below
//DesiredPattern=Param("Pattern to look for", 3434, 0, 5555, 0 );
Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g", O, H, L, C);
Title = Title + "\nPattern code is : " + DesiredPattern + "\n" +
msPatternDescription( DesiredPattern );
Plot( C, "Price", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
PattCloseAbove = DesiredPattern == patts AND Ref( Close > Open, 1 );
PattCloseBelow = DesiredPattern == patts AND Ref( Close < Open, 1 );
PlotShapes( ( DesiredPattern == patts ) * shapeCircle ,
IIf( PattCloseAbove, colorGreen,
IIf( PattCloseBelow, colorRed, colorBlue ) ),
0, High, 30 );
NumPatterns = LastValue( Cum( DesiredPattern == patts ) );
NumPattCloseAbove = LastValue( Cum( PattCloseAbove ) );
NumPattCloseBelow = LastValue( Cum( PattCloseBelow ) );
NumPattCloseEqual = NumPatterns - NumPattCloseAbove - NumPattCloseBelow;
Title = Title +
"\n\nTotal number of Patterns: " + NumPatterns +
"\n% on Total Bars: " + 100 * NumPatterns/BarCount +
"\nIn the next bar\n" +
EncodeColor(colorGreen) +
"Close has been above the open " + NumPattCloseAbove +
" (" + NumPattCloseAbove / NumPatterns + "%) times\n" +
EncodeColor(colorRed) +
"Close has been below the open " + NumPattCloseBelow + " (" +
NumPattCloseBelow / NumPatterns +" %) times\n" +
EncodeColor(colorBlue) +
"Close has been equal to the open " + NumPattCloseEqual + " (" +
NumPattCloseEqual / NumPatterns +" %)times";
_SECTION_END();
function msPattPos( element )
{
Value1 = Ref( H, -1 );
Value2 = Ref( L, -1 );
Value3 = ( Value1 + Value2 )/2;
Dist = Ref( ATR( 10 ), -1 );
Value4 = Value1 + Dist;
Value5 = Value2 - Dist;
result = IIf( element < Value5, 0,
IIf( element < Value2, 1,
IIf( element < Value3, 2,
IIf( element < Value1, 3,
IIf( element < Value4, 4,
5 ) ) ) ) );
return result;
}
function msPattToText( patt )
{
result = WriteIf( patt == 0, " is below previous (Low - ATR 10) ",
WriteIf( patt == 1, " is above (at) previous (Low - ATR 10) and below previous Low ",
WriteIf( patt == 2, " is above (at) previous Low and below previous Midpoint ",
WriteIf( patt == 3, " is above (at) previous Midpoint and below previous High ",
WriteIf( patt == 4, " is above (at) previous High and below (High + ATR 10) ",
" is above (at) previous (High + ATR(10) " ) ) ) ) );
return result;
}
function msRecognize()
{
return 1000 * msPattPos( Open ) + 100 * msPattPos( High ) + 10 * msPattPos( Low ) + msPattPos( Close );
}
function msPatternDescription( patt )
{
return "Open: " + msPattToText( round( ( patt / 1000 ) % 10 ) ) + "\n" +
"High: " + msPattToText( round( ( patt / 100 ) % 10 ) ) + "\n" +
"Low: " + msPattToText( round( ( patt / 10 ) % 10 ) ) + "\n" +
"Close: " + msPattToText( round( patt % 10 ) );
}
patts = msRecognize();
// by default use pattern occuring at selected bar
DesiredPattern = SelectedValue( patts );
// if you want manual-entry of pattern code from parameter dialog
// then uncomment the line below
//DesiredPattern=Param("Pattern to look for", 3434, 0, 5555, 0 );
Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g", O, H, L, C);
Title = Title + "\nPattern code is : " + DesiredPattern + "\n" +
msPatternDescription( DesiredPattern );
Plot( C, "Price", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
PattCloseAbove = DesiredPattern == patts AND Ref( Close > Open, 1 );
PattCloseBelow = DesiredPattern == patts AND Ref( Close < Open, 1 );
PlotShapes( ( DesiredPattern == patts ) * shapeCircle ,
IIf( PattCloseAbove, colorGreen,
IIf( PattCloseBelow, colorRed, colorBlue ) ),
0, High, 30 );
NumPatterns = LastValue( Cum( DesiredPattern == patts ) );
NumPattCloseAbove = LastValue( Cum( PattCloseAbove ) );
NumPattCloseBelow = LastValue( Cum( PattCloseBelow ) );
NumPattCloseEqual = NumPatterns - NumPattCloseAbove - NumPattCloseBelow;
Title = Title +
"\n\nTotal number of Patterns: " + NumPatterns +
"\n% on Total Bars: " + 100 * NumPatterns/BarCount +
"\nIn the next bar\n" +
EncodeColor(colorGreen) +
"Close has been above the open " + NumPattCloseAbove +
" (" + NumPattCloseAbove / NumPatterns + "%) times\n" +
EncodeColor(colorRed) +
"Close has been below the open " + NumPattCloseBelow + " (" +
NumPattCloseBelow / NumPatterns +" %) times\n" +
EncodeColor(colorBlue) +
"Close has been equal to the open " + NumPattCloseEqual + " (" +
NumPattCloseEqual / NumPatterns +" %)times";
_SECTION_END();
Please take a look this chart maybe will help you.
_SECTION_BEGIN("A CandlestickTargeting Your Pattern");
function msPattPos( element )
{
Value1 = Ref( H, -1 );
Value2 = Ref( L, -1 );
Value3 = ( Value1 + Value2 )/2;
Dist = Ref( ATR( 10 ), -1 );
Value4 = Value1 + Dist;
Value5 = Value2 - Dist;
result = IIf( element < Value5, 0,
IIf( element < Value2, 1,
IIf( element < Value3, 2,
IIf( element < Value1, 3,
IIf( element < Value4, 4,
5 ) ) ) ) );
return result;
}
function msPattToText( patt )
{
result = WriteIf( patt == 0, " is below previous (Low - ATR 10) ",
WriteIf( patt == 1, " is above (at) previous (Low - ATR 10) and below previous Low ",
WriteIf( patt == 2, " is above (at) previous Low and below previous Midpoint ",
WriteIf( patt == 3, " is above (at) previous Midpoint and below previous High ",
WriteIf( patt == 4, " is above (at) previous High and below (High + ATR 10) ",
" is above (at) previous (High + ATR(10) " ) ) ) ) );
return result;
}
function msRecognize()
{
return 1000 * msPattPos( Open ) + 100 * msPattPos( High ) + 10 * msPattPos( Low ) + msPattPos( Close );
}
function msPatternDescription( patt )
{
return "Open: " + msPattToText( round( ( patt / 1000 ) % 10 ) ) + "\n" +
"High: " + msPattToText( round( ( patt / 100 ) % 10 ) ) + "\n" +
"Low: " + msPattToText( round( ( patt / 10 ) % 10 ) ) + "\n" +
"Close: " + msPattToText( round( patt % 10 ) );
}
patts = msRecognize();
// by default use pattern occuring at selected bar
DesiredPattern = SelectedValue( patts );
// if you want manual-entry of pattern code from parameter dialog
// then uncomment the line below
//DesiredPattern=Param("Pattern to look for", 3434, 0, 5555, 0 );
Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g", O, H, L, C);
Title = Title + "\nPattern code is : " + DesiredPattern + "\n" +
msPatternDescription( DesiredPattern );
Plot( C, "Price", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
PattCloseAbove = DesiredPattern == patts AND Ref( Close > Open, 1 );
PattCloseBelow = DesiredPattern == patts AND Ref( Close < Open, 1 );
PlotShapes( ( DesiredPattern == patts ) * shapeCircle ,
IIf( PattCloseAbove, colorGreen,
IIf( PattCloseBelow, colorRed, colorBlue ) ),
0, High, 30 );
NumPatterns = LastValue( Cum( DesiredPattern == patts ) );
NumPattCloseAbove = LastValue( Cum( PattCloseAbove ) );
NumPattCloseBelow = LastValue( Cum( PattCloseBelow ) );
NumPattCloseEqual = NumPatterns - NumPattCloseAbove - NumPattCloseBelow;
Title = Title +
"\n\nTotal number of Patterns: " + NumPatterns +
"\n% on Total Bars: " + 100 * NumPatterns/BarCount +
"\nIn the next bar\n" +
EncodeColor(colorGreen) +
"Close has been above the open " + NumPattCloseAbove +
" (" + NumPattCloseAbove / NumPatterns + "%) times\n" +
EncodeColor(colorRed) +
"Close has been below the open " + NumPattCloseBelow + " (" +
NumPattCloseBelow / NumPatterns +" %) times\n" +
EncodeColor(colorBlue) +
"Close has been equal to the open " + NumPattCloseEqual + " (" +
NumPattCloseEqual / NumPatterns +" %)times";
_SECTION_END();
_SECTION_BEGIN("A CandlestickTargeting Your Pattern");
function msPattPos( element )
{
Value1 = Ref( H, -1 );
Value2 = Ref( L, -1 );
Value3 = ( Value1 + Value2 )/2;
Dist = Ref( ATR( 10 ), -1 );
Value4 = Value1 + Dist;
Value5 = Value2 - Dist;
result = IIf( element < Value5, 0,
IIf( element < Value2, 1,
IIf( element < Value3, 2,
IIf( element < Value1, 3,
IIf( element < Value4, 4,
5 ) ) ) ) );
return result;
}
function msPattToText( patt )
{
result = WriteIf( patt == 0, " is below previous (Low - ATR 10) ",
WriteIf( patt == 1, " is above (at) previous (Low - ATR 10) and below previous Low ",
WriteIf( patt == 2, " is above (at) previous Low and below previous Midpoint ",
WriteIf( patt == 3, " is above (at) previous Midpoint and below previous High ",
WriteIf( patt == 4, " is above (at) previous High and below (High + ATR 10) ",
" is above (at) previous (High + ATR(10) " ) ) ) ) );
return result;
}
function msRecognize()
{
return 1000 * msPattPos( Open ) + 100 * msPattPos( High ) + 10 * msPattPos( Low ) + msPattPos( Close );
}
function msPatternDescription( patt )
{
return "Open: " + msPattToText( round( ( patt / 1000 ) % 10 ) ) + "\n" +
"High: " + msPattToText( round( ( patt / 100 ) % 10 ) ) + "\n" +
"Low: " + msPattToText( round( ( patt / 10 ) % 10 ) ) + "\n" +
"Close: " + msPattToText( round( patt % 10 ) );
}
patts = msRecognize();
// by default use pattern occuring at selected bar
DesiredPattern = SelectedValue( patts );
// if you want manual-entry of pattern code from parameter dialog
// then uncomment the line below
//DesiredPattern=Param("Pattern to look for", 3434, 0, 5555, 0 );
Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g", O, H, L, C);
Title = Title + "\nPattern code is : " + DesiredPattern + "\n" +
msPatternDescription( DesiredPattern );
Plot( C, "Price", ParamColor("Color", colorBlack ), styleNoTitle | ParamStyle("Style") | GetPriceStyle() );
PattCloseAbove = DesiredPattern == patts AND Ref( Close > Open, 1 );
PattCloseBelow = DesiredPattern == patts AND Ref( Close < Open, 1 );
PlotShapes( ( DesiredPattern == patts ) * shapeCircle ,
IIf( PattCloseAbove, colorGreen,
IIf( PattCloseBelow, colorRed, colorBlue ) ),
0, High, 30 );
NumPatterns = LastValue( Cum( DesiredPattern == patts ) );
NumPattCloseAbove = LastValue( Cum( PattCloseAbove ) );
NumPattCloseBelow = LastValue( Cum( PattCloseBelow ) );
NumPattCloseEqual = NumPatterns - NumPattCloseAbove - NumPattCloseBelow;
Title = Title +
"\n\nTotal number of Patterns: " + NumPatterns +
"\n% on Total Bars: " + 100 * NumPatterns/BarCount +
"\nIn the next bar\n" +
EncodeColor(colorGreen) +
"Close has been above the open " + NumPattCloseAbove +
" (" + NumPattCloseAbove / NumPatterns + "%) times\n" +
EncodeColor(colorRed) +
"Close has been below the open " + NumPattCloseBelow + " (" +
NumPattCloseBelow / NumPatterns +" %) times\n" +
EncodeColor(colorBlue) +
"Close has been equal to the open " + NumPattCloseEqual + " (" +
NumPattCloseEqual / NumPatterns +" %)times";
_SECTION_END();
white candle = Prices close above open.
black candle = Prices close below open.
in simple english, AFL to predict, will the stock go up tommorrow or down ?
I do not think such AFL exists to predict this.
If exists, nobody will share it even for Million $.
Because he would be already a BILLIONAIRE.
black candle = Prices close below open.
in simple english, AFL to predict, will the stock go up tommorrow or down ?
I do not think such AFL exists to predict this.
If exists, nobody will share it even for Million $.
Because he would be already a BILLIONAIRE.
Hi,
i am a novice in AFL programming. I found the following metastock code in the web. Kindly help to convert this code in to AFL.
Short Sell Strategy
MetaStock Explorer Formula:
Use this formula to explore and search stocks good for short selling...
Col A:
O - C +
Ref(O - C,-1) +
Ref(O - C,-2)
Filter:
C > O AND
Ref(C,-1) < Ref(O,-1) AND
Ref(C,-2) < Ref(O,-2) AND
(BBandTop(C,20,S,2) - BBandBot(C,20,S,2))/2 + BBandBot(C,20,S,2) > C AND
Ref((BBandTop(C,20,S,2) - BBandBot(C,20,S,2))/2 + BBandBot(C,20,S,2),-1) > Ref(C,-1) AND
Ref((BBandTop(C,20,S,2) - BBandBot(C,20,S,2))/2 + BBandBot(C,20,S,2),-2) > Ref(C,-2)
Thanks in advance.
i am a novice in AFL programming. I found the following metastock code in the web. Kindly help to convert this code in to AFL.
Short Sell Strategy
MetaStock Explorer Formula:
Use this formula to explore and search stocks good for short selling...
Col A:
O - C +
Ref(O - C,-1) +
Ref(O - C,-2)
Filter:
C > O AND
Ref(C,-1) < Ref(O,-1) AND
Ref(C,-2) < Ref(O,-2) AND
(BBandTop(C,20,S,2) - BBandBot(C,20,S,2))/2 + BBandBot(C,20,S,2) > C AND
Ref((BBandTop(C,20,S,2) - BBandBot(C,20,S,2))/2 + BBandBot(C,20,S,2),-1) > Ref(C,-1) AND
Ref((BBandTop(C,20,S,2) - BBandBot(C,20,S,2))/2 + BBandBot(C,20,S,2),-2) > Ref(C,-2)
Thanks in advance.
Need Help
Dear All,
I am an Advanced GET EOD user for the last few years but recently started using Ami as well and found AMI very flexible.
I have a small problem as of now while using AMI. I buy the EOD DATA from Viratech , the guys who sold Advanced GET to me.
My problem is as follows :
Each scrip in Viratech data has a unique number. For Eg, Infosys Future is 70006345 where as Infosys in NSE is 700000069. Now if i simply type Infosys i can access the chart in Advanced Get.
But in Ami i only get the scrip numbers. SO in case i run an exploration and the results display the scrip codes instead of names and it is very difficult for me to figure out which scrip it is.
Can anyone suggest what to do or is there an AFL which can convert the Scrip Codes to Scrip Names??
Look forward to the help.
Thanks in Advance,
Abhi
Dear All,
I am an Advanced GET EOD user for the last few years but recently started using Ami as well and found AMI very flexible.
I have a small problem as of now while using AMI. I buy the EOD DATA from Viratech , the guys who sold Advanced GET to me.
My problem is as follows :
Each scrip in Viratech data has a unique number. For Eg, Infosys Future is 70006345 where as Infosys in NSE is 700000069. Now if i simply type Infosys i can access the chart in Advanced Get.
But in Ami i only get the scrip numbers. SO in case i run an exploration and the results display the scrip codes instead of names and it is very difficult for me to figure out which scrip it is.
Can anyone suggest what to do or is there an AFL which can convert the Scrip Codes to Scrip Names??
Look forward to the help.
Thanks in Advance,
Abhi
HI
The following is HEIKEN ASHI Afl.
////////////////////////////////////
//
// Heikin_Ashi For Amibroker
//
////////////////////////////////////
SetChartBkColor(ParamColor("Outer panel color ",colorPaleBlue)); // color of outer border
SetChartBkGradientFill( ParamColor("Inner panel color upper half", colorPaleBlue),ParamColor("Inner panel color lower half",
colorPaleBlue)); // color of inner panel
HaClose =EMA((O+H+L+C)/4,3);
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( H, Max( HaClose, HaOpen ) );
HaLow = Min( L, Min( HaClose, HaOpen ) );
PlotOHLC( HaOpen, HaHigh, HaLow, HaClose, "Modified " + Name(), colorBlue, styleCandle | styleNoLabel );
Title = "\n" + "" + Name() + ", " + Interval(2) + ", " + Date() + "\n";
Can senior members provide color coding for the same: like Blue for hollow candles with upper shadows, Red for filled candles with lower shadows and diffrent color for body with lower and upper shadows?
If the information is already available, can you provide a link to it.
Kindly also add Buy and sell signals with arrows and prices.
SRJC
The following is HEIKEN ASHI Afl.
////////////////////////////////////
//
// Heikin_Ashi For Amibroker
//
////////////////////////////////////
SetChartBkColor(ParamColor("Outer panel color ",colorPaleBlue)); // color of outer border
SetChartBkGradientFill( ParamColor("Inner panel color upper half", colorPaleBlue),ParamColor("Inner panel color lower half",
colorPaleBlue)); // color of inner panel
HaClose =EMA((O+H+L+C)/4,3);
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( H, Max( HaClose, HaOpen ) );
HaLow = Min( L, Min( HaClose, HaOpen ) );
PlotOHLC( HaOpen, HaHigh, HaLow, HaClose, "Modified " + Name(), colorBlue, styleCandle | styleNoLabel );
Title = "\n" + "" + Name() + ", " + Interval(2) + ", " + Date() + "\n";
Can senior members provide color coding for the same: like Blue for hollow candles with upper shadows, Red for filled candles with lower shadows and diffrent color for body with lower and upper shadows?
If the information is already available, can you provide a link to it.
Kindly also add Buy and sell signals with arrows and prices.
SRJC
Last edited:
Hi
I want technical analysis including but and sell signals for INTRADAY for use in MCX,NCDEX and NSE.
1.Is AM supports for intraday,if so which version (i means standerd or proffesional ), i have to download from website ?
2.which one i have to use to data tranfer from odin diet karvy and sharekhan trade tiger
kindly help me please
Bhulokeshwar
I want technical analysis including but and sell signals for INTRADAY for use in MCX,NCDEX and NSE.
1.Is AM supports for intraday,if so which version (i means standerd or proffesional ), i have to download from website ?
2.which one i have to use to data tranfer from odin diet karvy and sharekhan trade tiger
kindly help me please
Bhulokeshwar
| Thread starter | Similar threads | Forum | Replies | Date |
|---|---|---|---|---|
| R | REQUEST AMIBROKER FORMULA FOR LOG BASED RS | AmiBroker | 1 | |
| R | please code morpheus-signal-trader formula in amibroker | AmiBroker | 3 | |
| V | Amibroker Supertrend formula in Array | AmiBroker | 0 | |
| S | Amibroker Formula Language | Beginners Guide | 1 | |
| S | AmiBroker Formula Language (AFL) colors | AmiBroker | 5 |