Skip to main content

Score Card for Amibroker (AFL)

Nahid over 15 years ago Amibroker (AFL)

  • Rating:
    3 / 5 (Votes 5)
  • Tags:
    oscillator, amibroker

Score Card can help us to detect trend of the stock. It is moving from 09 to -09. Plus figure indicates positive trend and Negative figure indicates Negative trend.

Requires the following plugin to be installed to work:

Download Plugins
or
Download Plugins

Screenshots

Indicator / Formula

Copy & Paste Friendly
_SECTION_BEGIN("TSKPScoreCard"); 


Ctmpl = E_TSKPCOLORTMPL(Open,High,Low,Close,Volume);
total = 0;
total = total  + IIf(tskp_colortmplcnd0 > 0, 1, -1); 
total = total  + IIf(tskp_colortmplcnd1 > 0, 1, -1); 
total = total  + IIf(tskp_colortmplcnd2 > 0, 1, -1); 
total = total  + IIf(tskp_colortmplcnd3 > 0, 1, -1); 
total = total  + IIf(tskp_colortmplcnd4 > 0, 1, -1); 
total = total  + IIf(tskp_colortmplcnd5 > 0, 1, -1); 
total = total  + IIf(tskp_colortmplcnd6 > 0, 1, -1); 
total = total  + IIf(tskp_colortmplcnd7 > 0, 1, -1); 
total = total  + IIf(tskp_colortmplcnd8 > 0, 1, -1); 

Cutoff = 5;
for( i = 0; i < BarCount; i++ ) 
{
	if( total[i] >= Cutoff  )
		Color[i] = colorBlue;
	else if(  total[i] <= -Cutoff  )
		Color[i] = colorRed;
	else
		Color[i] = colorYellow;
}


//PlotGrid(4,ParamColor("CutoffColor",colorCycle));
//PlotGrid(-4,ParamColor("CutoffColor",colorCycle));
Plot(total,"ScoreCard",Color,ParamStyle("ScoreCardStyle",styleHistogram+styleThick,MAsk=maskHistogram));


if( Status("action") == actionCommentary ) 
{ 

printf(   "KPA900" +       NumToStr(tskp_colortmplcnd0) +  WriteIf(tskp_colortmplcnd0 > 0, " +++", " ---") );
printf( "\nAutoStop" +     NumToStr(tskp_colortmplcnd1) +  WriteIf(tskp_colortmplcnd1 > 0, " +++", " ---") );
printf( "\nHighlight" +    NumToStr(tskp_colortmplcnd2) +  WriteIf(tskp_colortmplcnd2 > 0, " +++", " ---") );
printf( "\nCombo" +        NumToStr(tskp_colortmplcnd3) +  WriteIf(tskp_colortmplcnd3 > 0, " +++", " ---") );
printf( "\nFast3" +        NumToStr(tskp_colortmplcnd4) +  WriteIf(tskp_colortmplcnd4 > 0, " +++", " ---") );
printf( "\nSTTB" +         NumToStr(tskp_colortmplcnd5) +  WriteIf(tskp_colortmplcnd5 > 0, " +++", " ---") );
printf( "\nTrigger/Stop" + NumToStr(tskp_colortmplcnd6) +  WriteIf(tskp_colortmplcnd6 > 0, " +++", " ---") );
printf( "\n115Split" +     NumToStr(tskp_colortmplcnd7) +  WriteIf(tskp_colortmplcnd7 > 0, " +++", " ---") );
printf( "\nMedium" +       NumToStr(tskp_colortmplcnd8) +  WriteIf(tskp_colortmplcnd8 > 0, " +++", " ---") );

/*
printf(         WriteIf(tskp_colortmplcnd0 > 0, "+++", "---") + "KPA900" +       NumToStr(tskp_colortmplcnd0));
printf( "\n" +  WriteIf(tskp_colortmplcnd1 > 0, "+++", "---") + "AutoStop" +     NumToStr(tskp_colortmplcnd1) );
printf( "\n" +  WriteIf(tskp_colortmplcnd2 > 0, "+++", "---") + "Highlight" +    NumToStr(tskp_colortmplcnd2) );
printf( "\n" +  WriteIf(tskp_colortmplcnd3 > 0, "+++", "---") + "Combo" +        NumToStr(tskp_colortmplcnd3) );
printf( "\n" +  WriteIf(tskp_colortmplcnd4 > 0, "+++", "---") + "Fast3" +        NumToStr(tskp_colortmplcnd4));
printf( "\n" +  WriteIf(tskp_colortmplcnd5 > 0, "+++", "---") + "STTB" +         NumToStr(tskp_colortmplcnd5) );
printf( "\n" +  WriteIf(tskp_colortmplcnd6 > 0, "+++", "---") + "Trigger/Stop" + NumToStr(tskp_colortmplcnd6) );
printf( "\n" +  WriteIf(tskp_colortmplcnd7 > 0, "+++", "---") + "115Split" +     NumToStr(tskp_colortmplcnd7) );
printf( "\n" +  WriteIf(tskp_colortmplcnd8 > 0, "+++", "---") + "Medium" +       NumToStr(tskp_colortmplcnd8) );
*/
}
_SECTION_END();

5 comments

2. rajaswamy
over 15 years ago

not working for me sir i have done plug in and includs still not working sir

Report as Spam
4. halfman
almost 14 years ago

it’s working like a charm. copy paste the plugin and restart your amibroker. It will show a message, but don’t worry. Just click ok and run the indicator.

Report as Spam
5. kv_maligi
almost 14 years ago

Hi,

Here is one more trendscore indicator based on BB.
Highly reliable than this trendscore & works on all TF.

/*
BB trend score > 2 highly bullish
and
BB trend score < -2 highly bearish
*/

_SECTION_BEGIN(“BB Histogram”);
bbhist=((C+2*StDev(C,20) – MA) / ((4*StDev(C,18)))*4) – 2;
Plot(bbhist, “BBands Histogram”, IIf(bbhist > 0, colorGreen, colorRed),
styleHistogram + styleThick);
_SECTION_END();

Report as Spam

Leave Comment

Please login here to leave a comment.