EasyTrader_I,
Thanks! I have a long background in programming, and EL is new to me - thanks for your help!
If people want to have their equity curves based on bar closings, use the code in the original post. For those that like using the high/low of bars as a pseudo measure of "efficiency" of a trading day, please use the code below.
TradeMonster
Input:
NumDayColors(1),
DayPositiveColor(Cyan),
DayNegativeColor(DarkCyan),
NumOpenColors(2),
OpenPositiveColor(Green),
OpenNegativeColor(Red),
ClosedProfitColor(Blue),
MaxPossibleProfitColor(Yellow),
MaxPossibleLossColor(DarkMagenta),
ZeroLineColor(DarkGray);
Variables:
OpenProfit(0),
DayProfit(0),
PLB4Today(0),
MaxPossibleProfit(0),
MaxPossibleLoss(0),
OpenEq(0),
MP(0),
AvgEntry(0),
ClosedProfit(0);
// == PROGRAM STARTS HERE ====================================================================
If date <> date[2] Then
begin
PLB4Today = OpenProfit[1];
MaxPossibleProfit = 0;
MaxPossibleLoss = 0;
end;
OpenProfit = I_OpenEquity;
OpenEq = I_OpenEquity - I_ClosedEquity;
MP = I_MarketPosition;
AvgEntry = I_AvgEntryPrice;
ClosedProfit = I_ClosedEquity - PLB4Today;
DayProfit = OpenProfit - PLB4Today;
If (NumDayColors = 1) or (DayProfit > 0) Then SetPlotColor(2, DayPositiveColor)
Else SetPlotColor(2, DayNegativeColor);
If (NumOpenColors = 1) or (OpenEq > 0) Then SetPlotColor(3, OpenPositiveColor)
Else SetPlotColor(3, OpenNegativeColor);
If MP = 1 then
Begin
If MaxPossibleLoss > (ClosedProfit - ((AvgEntry-Low)*BigPointValue)) then
MaxPossibleLoss = (ClosedProfit - ((AvgEntry-Low)*BigPointValue));
If MaxPossibleProfit < (ClosedProfit + ((High-AvgEntry)*BigPointValue)) then
MaxPossibleProfit = (ClosedProfit + ((High-AvgEntry)*BigPointValue));
End;
If MP = -1 then
Begin
If MaxPossibleLoss > (ClosedProfit - ((High-AvgEntry)*BigPointValue)) then
MaxPossibleLoss = (ClosedProfit - ((High-AvgEntry)*BigPointValue));
If MaxPossibleProfit < (ClosedProfit + ((AvgEntry-Low)*BigPointValue)) then
MaxPossibleProfit = (ClosedProfit + ((AvgEntry-Low)*BigPointValue));
End;
If MP = 0 then
Begin
If MaxPossibleLoss > ClosedProfit then
MaxPossibleLoss = ClosedProfit;
If MaxPossibleProfit < ClosedProfit then
MaxPossibleProfit = ClosedProfit;
End;
Plot1(0,"Zero Line",ZeroLineColor);
Plot2(DayProfit,"Daily P&L");
Plot3(OpenEq,"Open P&L");
Plot4(MaxPossibleProfit, "Max Profit", MaxPossibleProfitColor);
Plot5(MaxPossibleLoss, "Max Loss", MaxPossibleLossColor);
Plot6(ClosedProfit,"Closed", ClosedProfitColor);