Can show Foreign Title variable?. Thanks 🙏

AFL Programming
#1

Can show the correct notes, because the variable title is different from the original. Thanks

_SECTION_BEGIN("Foreign Title");

SetChartOptions(0,chartShowArrows|chartShowDates);
Color= IIf(C==O,colorDefault,IIf(C>O,colorGreen,colorRed));
	SetBarFillColor(Color);
Plot( C, "Closea", colorBlack,64);

_SECTION_BEGIN("Best STOCK");

DV=C*V;
DVMil = DV / 1000000000;
NBSAVal = Aux2/ 1000000000;
Persen = Abs ((NBSAVal/DVMil)*100);

///========Golden Cross + Dead Cross=======/// 
GC = Cross( MACD(), Signal() ); 
DC = Cross( Signal(), MACD() ); 

TrendMACD =
WriteIf (GC, "Golden Cross",
WriteIf (DC, "Dead Cross", ""));

_SECTION_END();

 
 
_SECTION_BEGIN("Stock All");
PilihKomo2 = ParamList ("Stock Variable","0|SOSS|YPAS|TFCO",3); 

PSOSS = ParamList ("Stock Variable","0|SOSS",1); 
SOSS = Foreign (PSOSS,"Close");
RSOSS = ROC(SOSS ,1);

TSOSS = Foreign( PSOSS, "TrendMACD" );
//TrendSOSS = TrendMACD(SOSS ,"C");


PCPORM = ParamList ("Stock Variable","0|YPAS",1); 
CPORM = Foreign (PCPORM,"Close");
RCPORM = ROC(CPORM,1);

PTFCO = ParamList ("Stock Variable","0|TFCO",1); 
TFCO = Foreign (PTFCO,"Close");
RTFCO= ROC(TFCO,1);

_SECTION_END();


//============== TITLE ==============//
Title = 
Name() +" • "+ Interval(2)
+EncodeColor(ColorDarkGreen)+" • Aux2 : " + colorBlue + WriteVal(NBSAVal,1.2)+" B" +" ("+WriteVal(Persen,1.1)+"%) "
+ EncodeColor(colorBlack)+" • Trend? : " + EncodeColor(colorBlue)+TrendMACD + ""

+"\n"+"\n"

+EncodeColor(colorBlack)  +" • SOSS : "+EncodeColor(colorBlue) +WriteVal(SOSS,1.2) +"  " +EncodeColor(colorGrey50) + "("+WriteVal(RSOSS,1.2) +"%)"
+ EncodeColor(colorBlack)+" • Trend? : " + EncodeColor(colorBlue)+TrendMACD + ""

+"\n"
+EncodeColor(colorBlack)  +" • YPAS : "+EncodeColor(colorBlue) +WriteVal(CPORM,1.2) +"  " +EncodeColor(colorGrey50) + "("+WriteVal(RCPORM,1.2) +"%)"
+ EncodeColor(colorBlack)+" • Trend? : " + EncodeColor(colorBlue)+TrendMACD + ""

+"\n"
+EncodeColor(colorBlack)  +" • TFCO : "+EncodeColor(colorBlue) +WriteVal(TFCO,1.2) +"  " +EncodeColor(colorGrey50) + "("+WriteVal(RTFCO,1.2) +"%)"
+ EncodeColor(colorBlack)+" • Trend? : " + EncodeColor(colorBlue)+TrendMACD + ""

;

Foreign Title Real Notes

#3

That one TSOSS = Foreign( PSOSS, "TrendMACD" ) is incorrect.

Please take a careful look into manual:

Allowable data fields: "O" (open), "H" (high), "L" (low), "C" (close), "V" (volume), "I" (open Interest), and for v5.29 and above: "1" (aux1), "2" (aux2)

To create title of multi symbols data simply iterate symbol list.

_SECTION_BEGIN("Stock All");
sym_list = "SOSS,YPAS,TFCO";

Title = "";
for ( i = 0; ( symbol = StrExtract( sym_list, i ) ) != ""; i++ )
{
	SetForeign(symbol);
		mac = MACD();
		sig = Signal();
		GC = Cross(mac,sig);
		DC = Cross(sig,mac); 
		TrendMACD = WriteIf(GC, "Golden Cross", WriteIf (DC, "Dead Cross", ""));
		
		rc = SelectedValue(ROC(C,1));

		Title += Name() +" • "+ Interval(2) + " - "+ rc + "," + TrendMACD + "\n";
	RestorePriceArrays();
}
_SECTION_END();

NOTE: Loop with SetForeign may become slow. So rather do not create sym_list with hundreds or thousands of symbols.

1 Like
#4

Thank you very much Mr. Fxshrat, you are very generous and very SMART . Gbu

#6 
_SECTION_BEGIN("Main Title");

SetChartOptions(0,chartShowArrows|chartShowDates);
_N(Title = StrFormat("{{NAME}} - {{INTERVAL}} {{DATE}} Open %g, Hi %g, Lo %g, Close %g (%.1f%%) Vol " +WriteVal( V, 1.0 ) +" {{VALUES}}", O, H, L, C, SelectedValue( ROC( C, 1 )) ));

_SECTION_END();


_SECTION_BEGIN("Stock All");
sym_list = "SOSS,YPAS,TFCO";

Title += "\n";
for ( i = 0; ( symbol = StrExtract( sym_list, i ) ) != ""; i++ )
{
	SetForeign(symbol);
		mac = MACD();
		sig = Signal();
		GC = Cross(mac,sig);
		DC = Cross(sig,mac); 
		TrendMACD = WriteIf(GC, "Golden Cross", WriteIf (DC, "Dead Cross", ""));	

		rc = SelectedValue(ROC(C,1));
		Title += Name() +" • "+ Interval(2) + " - "+ rc + "," + TrendMACD + "\n";

	RestorePriceArrays();
}
_SECTION_END();
1 Like
#7

Thanks very much Sir

#9

This topic was automatically closed 100 days after the last reply. New replies are no longer allowed.