Net Foreign Transactions for Amibroker (AFL)

_SECTION_BEGIN("NFT EOW Exploration");

// generates weekly net foreign transactions (buy/sell) in millions

TimeFrameSet(inDaily);

Filter = 1;
AddColumn( Ref(OpenInt, -4)/1000000, "Mon", 1.3, IIf( Ref(OpenInt,-4)>0, colorGreen, colorRed) );
AddColumn( Ref(OpenInt, -3)/1000000, "Tue", 1.3, IIf( Ref(OpenInt,-3)>0, colorGreen, colorRed) );
AddColumn( Ref(OpenInt, -2)/1000000, "Wed", 1.3, IIf( Ref(OpenInt,-2)>0, colorGreen, colorRed) );
AddColumn( Ref(OpenInt, -1)/1000000, "Thu", 1.3, IIf( Ref(OpenInt,-1)>0, colorGreen, colorRed) );
AddColumn( OpenInt/1000000, "Fri", 1.3, IIf( OpenInt>0, colorGreen, colorRed) );
total = Ref(OpenInt, -4) + Ref(OpenInt, -3) + Ref(OpenInt, -2) + Ref(OpenInt, -1) + OpenInt;
AddColumn( total/1000000, "Total", 1.3, IIf( total>0, colorGreen, colorRed) );

TimeFrameRestore();