Page 1 of 1

Pivot Ind.

Posted: Sun Nov 11, 2007 10:57 pm
by jana
TRO, why are the labels not showing for the soultrader pivots, I have "update value intra bar" un-checked?

Is your gridiron not the same, but for intra day ?

Thx.

Posted: Mon Nov 12, 2007 12:33 pm
by TheRumpledOne
Soultrader? I have no idea what you are talking about.

Post a screenshot and the code.

Posted: Mon Nov 12, 2007 2:01 pm
by jana
It is in the Jul 2007 Motherlodes.

Here's the code :


inputs:
DailyHigh( highd(1)),
DailyLow( lowd(1)),
DailyClose( closed(1)),
WeeklyHigh( highw(0)),
WeeklyLow( loww(0)),
WeeklyClose( closew(0)),
MonthlyHigh( highm(0)),
MonthlyLow( lowm(0)),
MonthlyClose( closem(0)),
PlotDailyMidPts( true),
PlotWeeklyMidPts( false),
PlotMonthlyMidPts( false),
DailyR3color( Magenta),
DailyR2color( Red),
DailyR1color( Cyan),
DailyPPcolor( Yellow),
DailyS1color( Cyan),
DailyS2color( Red),
DailyS3color( Magenta),
WeeklyR3color( Magenta),
WeeklyR2color( Red),
WeeklyR1color( Cyan),
WeeklyPPcolor( Yellow),
WeeklyS1color( Cyan),
WeeklyS2color( Red),
WeeklyS3color( Magenta),
MonthlyR3color( Magenta),
MonthlyR2color( Red),
MonthlyR1color( Cyan),
MonthlyPPcolor( Yellow),
MonthlyS1color( Cyan),
MonthlyS2color( Red),
MonthlyS3color( Magenta),
DailyMidPtcolor( Green),
WeeklyMidPtcolor( Blue),
MonthlyMidPtcolor( LightGray),
PivotStyle( 1), // 1 = solid, 2 = dashed, 3 = dotted, 4 = Dashed2, 5 = dashed3
MidPtStyle( 3);

variables:
S1( 0 ),
S2( 0 ),
S3( 0 ),
R1( 0 ),
R2( 0 ),
R3( 0 ),
PP( 0 ),
Rng( 0 ),
TL_S1( 0 ),
TL_S2( 0 ),
TL_S3( 0 ),
TL_R1( 0 ),
TL_R2( 0 ),
TL_R3( 0 ),
TL_PP( 0 ),
TL_M1( 0 ),
TL_M2( 0 ),
TL_M3( 0 ),
TL_M4( 0 ),
TL_M5( 0 ),
TL_M6( 0 ),
StartDate( 0 ),
StartTime( 0 );

if CurrentBar = 1 then
begin
StartDate = Date;
StartTime = Time;
end;

if LastBarOnChart then
begin
// Daily Pivot Points
Rng = DailyHigh - DailyLow;
PP = (DailyHigh + DailyLow + DailyClose) / 3 ;
R1 = (2*PP) - DailyLow ;
R2 = PP + Rng ;
R3 = R1 + Rng;
S1 = (2*PP) - DailyHigh ;
S2 = PP - Rng ;
S3 = S1 - Rng ;

TL_R3 = TL_New(StartDate, StartTime, R3, Date, Time, R3);
TL_SetColor(TL_R3, DailyR3color);
TL_SetStyle(TL_R3, PivotStyle);
TL_SetExtRight(TL_R3, True);
TL_R2 = TL_New(StartDate, StartTime, R2, Date, Time, R2);
TL_SetColor(TL_R2, DailyR2color);
TL_SetStyle(TL_R2, PivotStyle);
TL_SetExtRight(TL_R2, True);
TL_R1 = TL_New(StartDate, StartTime, R1, Date, Time, R1);
TL_SetColor(TL_R1, DailyR1color);
TL_SetStyle(TL_R1, PivotStyle);
TL_SetExtRight(TL_R1, True);
TL_PP = TL_New(StartDate, StartTime, PP, Date, Time, PP);
TL_SetColor(TL_PP, DailyPPcolor);
TL_SetStyle(TL_PP, PivotStyle);
TL_SetExtRight(TL_PP, True);
TL_S1 = TL_New(StartDate, StartTime, S1, Date, Time, S1);
TL_SetColor(TL_S1, DailyS1color);
TL_SetStyle(TL_S1, PivotStyle);
TL_SetExtRight(TL_S1, True);
TL_S2 = TL_New(StartDate, StartTime, S2, Date, Time, S2);
TL_SetColor(TL_S2, DailyS2color);
TL_SetStyle(TL_S2, PivotStyle);
TL_SetExtRight(TL_S2, True);
TL_S3 = TL_New(StartDate, StartTime, S3, Date, Time, S3);
TL_SetColor(TL_S3, DailyS3color);
TL_SetStyle(TL_S3, PivotStyle);
TL_SetExtRight(TL_S3, True);

if PlotDailyMidPts then
begin
TL_M1 = TL_New(StartDate, StartTime, (R2+R3)/2, Date, Time, (R2+R3)/2);
TL_SetColor(TL_M1, DailyMidPtcolor);
TL_SetStyle(TL_M1, MidPtStyle);
TL_SetExtRight(TL_M1, True);
TL_M2 = TL_New(StartDate, StartTime, (R1+R2)/2, Date, Time, (R1+R2)/2);
TL_SetColor(TL_M2, DailyMidPtcolor);
TL_SetStyle(TL_M2, MidptStyle);
TL_SetExtRight(TL_M2, True);
TL_M3 = TL_New(StartDate, StartTime, (PP+R1)/2, Date, Time, (PP+R1)/2);
TL_SetColor(TL_M3, DailyMidPtcolor);
TL_SetStyle(TL_M3, MidPtStyle);
TL_SetExtRight(TL_M3, True);
TL_M4 = TL_New(StartDate, StartTime, (S1+PP)/2, Date, Time, (S1+PP)/2);
TL_SetColor(TL_M4, DailyMidPtcolor);
TL_SetStyle(TL_M4, MidPtStyle);
TL_SetExtRight(TL_M4, True);
TL_M5 = TL_New(StartDate, StartTime, (S2+S1)/2, Date, Time, (S2+S1)/2);
TL_SetColor(TL_M5, DailyMidPtcolor);
TL_SetStyle(TL_M5, MidPtStyle);
TL_SetExtRight(TL_M5, True);
TL_M6 = TL_New(StartDate, StartTime, (S3+S2)/2, Date, Time, (S3+S2)/2);
TL_SetColor(TL_M6, DailyMidPtcolor);
TL_SetStyle(TL_M6, MidPtStyle);
TL_SetExtRight(TL_M6, True);
end;

// Weekly Pivot Points
Rng = WeeklyHigh - WeeklyLow;
PP = (WeeklyHigh + WeeklyLow + WeeklyClose) / 3 ;
R1 = (2*PP) - WeeklyLow ;
R2 = PP + Rng ;
R3 = R1 + Rng;
S1 = (2*PP) - WeeklyHigh ;
S2 = PP - Rng ;
S3 = S1 - Rng ;

TL_R3 = TL_New(StartDate, StartTime, R3, Date, Time, R3);
TL_SetColor(TL_R3, WeeklyR3color);
TL_SetStyle(TL_R3, PivotStyle);
TL_SetExtRight(TL_R3, True);
TL_R2 = TL_New(StartDate, StartTime, R2, Date, Time, R2);
TL_SetColor(TL_R2, WeeklyR2color);
TL_SetStyle(TL_R2, PivotStyle);
TL_SetExtRight(TL_R2, True);
TL_R1 = TL_New(StartDate, StartTime, R1, Date, Time, R1);
TL_SetColor(TL_R1, WeeklyR1color);
TL_SetStyle(TL_R1, PivotStyle);
TL_SetExtRight(TL_R1, True);
TL_PP = TL_New(StartDate, StartTime, PP, Date, Time, PP);
TL_SetColor(TL_PP, WeeklyPPcolor);
TL_SetStyle(TL_PP, PivotStyle);
TL_SetExtRight(TL_PP, True);
TL_S1 = TL_New(StartDate, StartTime, S1, Date, Time, S1);
TL_SetColor(TL_S1, WeeklyS1color);
TL_SetStyle(TL_S1, PivotStyle);
TL_SetExtRight(TL_S1, True);
TL_S2 = TL_New(StartDate, StartTime, S2, Date, Time, S2);
TL_SetColor(TL_S2, WeeklyS2color);
TL_SetStyle(TL_S2, PivotStyle);
TL_SetExtRight(TL_S2, True);
TL_S3 = TL_New(StartDate, StartTime, S3, Date, Time, S3);
TL_SetColor(TL_S3, WeeklyS3color);
TL_SetStyle(TL_S3, PivotStyle);
TL_SetExtRight(TL_S3, True);

if PlotWeeklyMidPts then
begin
TL_M1 = TL_New(StartDate, StartTime, (R2+R3)/2, Date, Time, (R2+R3)/2);
TL_SetColor(TL_M1, WeeklyMidPtcolor);
TL_SetStyle(TL_M1, MidPtStyle);
TL_SetExtRight(TL_M1, True);
TL_M2 = TL_New(StartDate, StartTime, (R1+R2)/2, Date, Time, (R1+R2)/2);
TL_SetColor(TL_M2, WeeklyMidPtcolor);
TL_SetStyle(TL_M2, MidptStyle);
TL_SetExtRight(TL_M2, True);
TL_M3 = TL_New(StartDate, StartTime, (PP+R1)/2, Date, Time, (PP+R1)/2);
TL_SetColor(TL_M3, WeeklyMidPtcolor);
TL_SetStyle(TL_M3, MidPtStyle);
TL_SetExtRight(TL_M3, True);
TL_M4 = TL_New(StartDate, StartTime, (S1+PP)/2, Date, Time, (S1+PP)/2);
TL_SetColor(TL_M4, WeeklyMidPtcolor);
TL_SetStyle(TL_M4, MidPtStyle);
TL_SetExtRight(TL_M4, True);
TL_M5 = TL_New(StartDate, StartTime, (S2+S1)/2, Date, Time, (S2+S1)/2);
TL_SetColor(TL_M5, WeeklyMidPtcolor);
TL_SetStyle(TL_M5, MidPtStyle);
TL_SetExtRight(TL_M5, True);
TL_M6 = TL_New(StartDate, StartTime, (S3+S2)/2, Date, Time, (S3+S2)/2);
TL_SetColor(TL_M6, WeeklyMidPtcolor);
TL_SetStyle(TL_M6, MidPtStyle);
TL_SetExtRight(TL_M6, True);
end;

// Monthly Pivot Points
Rng = MonthlyHigh - MonthlyLow;
PP = (MonthlyHigh + MonthlyLow + MonthlyClose) / 3 ;
R1 = (2*PP) - MonthlyLow ;
R2 = PP + Rng ;
R3 = R1 + Rng;
S1 = (2*PP) - MonthlyHigh ;
S2 = PP - Rng ;
S3 = S1 - Rng ;

TL_R3 = TL_New(StartDate, StartTime, R3, Date, Time, R3);
TL_SetColor(TL_R3, MonthlyR3color);
TL_SetStyle(TL_R3, PivotStyle);
TL_SetExtRight(TL_R3, True);
TL_R2 = TL_New(StartDate, StartTime, R2, Date, Time, R2);
TL_SetColor(TL_R2, MonthlyR2color);
TL_SetStyle(TL_R2, PivotStyle);
TL_SetExtRight(TL_R2, True);
TL_R1 = TL_New(StartDate, StartTime, R1, Date, Time, R1);
TL_SetColor(TL_R1, MonthlyR1color);
TL_SetStyle(TL_R1, PivotStyle);
TL_SetExtRight(TL_R1, True);
TL_PP = TL_New(StartDate, StartTime, PP, Date, Time, PP);
TL_SetColor(TL_PP, MonthlyPPcolor);
TL_SetStyle(TL_PP, PivotStyle);
TL_SetExtRight(TL_PP, True);
TL_S1 = TL_New(StartDate, StartTime, S1, Date, Time, S1);
TL_SetColor(TL_S1, MonthlyS1color);
TL_SetStyle(TL_S1, PivotStyle);
TL_SetExtRight(TL_S1, True);
TL_S2 = TL_New(StartDate, StartTime, S2, Date, Time, S2);
TL_SetColor(TL_S2, MonthlyS2color);
TL_SetStyle(TL_S2, PivotStyle);
TL_SetExtRight(TL_S2, True);
TL_S3 = TL_New(StartDate, StartTime, S3, Date, Time, S3);
TL_SetColor(TL_S3, MonthlyS3color);
TL_SetStyle(TL_S3, PivotStyle);
TL_SetExtRight(TL_S3, True);

if PlotMonthlyMidPts then
begin
TL_M1 = TL_New(StartDate, StartTime, (R2+R3)/2, Date, Time, (R2+R3)/2);
TL_SetColor(TL_M1, MonthlyMidPtcolor);
TL_SetStyle(TL_M1, MidPtStyle);
TL_SetExtRight(TL_M1, True);
TL_M2 = TL_New(StartDate, StartTime, (R1+R2)/2, Date, Time, (R1+R2)/2);
TL_SetColor(TL_M2, MonthlyMidPtcolor);
TL_SetStyle(TL_M2, MidptStyle);
TL_SetExtRight(TL_M2, True);
TL_M3 = TL_New(StartDate, StartTime, (PP+R1)/2, Date, Time, (PP+R1)/2);
TL_SetColor(TL_M3, MonthlyMidPtcolor);
TL_SetStyle(TL_M3, MidPtStyle);
TL_SetExtRight(TL_M3, True);
TL_M4 = TL_New(StartDate, StartTime, (S1+PP)/2, Date, Time, (S1+PP)/2);
TL_SetColor(TL_M4, MonthlyMidPtcolor);
TL_SetStyle(TL_M4, MidPtStyle);
TL_SetExtRight(TL_M4, True);
TL_M5 = TL_New(StartDate, StartTime, (S2+S1)/2, Date, Time, (S2+S1)/2);
TL_SetColor(TL_M5, MonthlyMidPtcolor);
TL_SetStyle(TL_M5, MidPtStyle);
TL_SetExtRight(TL_M5, True);
TL_M6 = TL_New(StartDate, StartTime, (S3+S2)/2, Date, Time, (S3+S2)/2);
TL_SetColor(TL_M6, MonthlyMidPtcolor);
TL_SetStyle(TL_M6, MidPtStyle);
TL_SetExtRight(TL_M6, True);
end;
end;

Posted: Mon Nov 12, 2007 6:09 pm
by TheRumpledOne
lol!!

Look at the code.. there are no text statements!!

Posted: Mon Nov 12, 2007 9:00 pm
by jana
hmm, okay. Then you forgot ?

I watched it today, and after some time more and more lines appeared, so ctrl +r and back to normal.

Now I looked at the code, is this yours, you usually have your spot at the top.

:?

Posted: Tue Nov 13, 2007 1:00 pm
by TheRumpledOne
No. Not my code.