one to one coaching

Looking pivot points for TradeStation

Hello All Great traders,

I'm Looking pivot points for TradeStation. That I can change the open and close at any time.

Thanks You for all your Help and Have the Best Trading Day, Every Day
Shark Motor
 

chipeur

New member
hi

try this one


inputs:
DailyHigh( 0 ), DailyLow( 0 ), DailyClose( 0 ), WeeklyHigh( 0 ), WeeklyLow( 0 ), WeeklyClose( 0 ),
MonthlyHigh( 0 ), MonthlyLow( 0 ), MonthlyClose( 0 ), PlotDailyMidPts( true ),PlotDailyQuartMidPts(true),
PlotWeeklyMidPts( false ),
PlotMonthlyMidPts( false ), DailyR3color( red ), DailyR2color( Red ), DailyR1color( red ),
DailyPPcolor( blue ),
DailyS1color( darkgreen ), DailyS2color( darkgreen ), DailyS3color( darkgreen ), 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( LightGray),
WeeklyMidPtcolor( Blue ), MonthlyMidPtcolor( LightGray ),DailyQuartMidPtcolor( Yellow),
PivotStyle( 2 ), // 1 = solid, 2 = dashed, 3 = dotted, 4 = Dashed2, 5 = dashed3
MidPtStyle( 3 ),
QuartMidPtStyle( 1 );

variables:
S1( 0 ), S2( 0 ), S3( 0 ),S4( 0 ), R1( 0 ), R2( 0 ), R3( 0 ),R4( 0 ), PP( 0 ), Rng( 0 ), TL_S1( 0 ),
TL_S2( 0 ), TL_S3( 0 ),TL_S4( 0 ), TL_R1( 0 ), TL_R2( 0 ), TL_R3( 0 ),TL_R4( 0 ), TL_PP( 0 ), TL_M1( 0 ), TL_M2( 0 ),
TL_M3( 0 ), TL_M4( 0 ), TL_M5( 0 ), TL_M6( 0 ),TL_M7( 0 ),TL_M8( 0 ), TL_M9( 0 ), TL_M10( 0 ),TL_M11( 0 ) ,
TL_M12( 0 ),TL_M13( 0 ),TL_M14( 0 ),TL_M15( 0 ),TL_M16( 0 ),TL_M17( 0 ),TL_M18( 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;
R4 = R3 + Rng;
S1 = (2*PP) - DailyHigh ;
S2 = PP - Rng ;
S3 = S1 - Rng ;
S4 = S3 - Rng ;


TL_R4 = TL_New(StartDate, StartTime, R4, Date, Time, R4);
TL_SetColor(TL_R4, DailyR3color);
TL_SetStyle(TL_R4, PivotStyle);
TL_SetExtRight(TL_R4, True);
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);
TL_S4 = TL_New(StartDate, StartTime, S4, Date, Time, S4);
TL_SetColor(TL_S4, DailyS3color);
TL_SetStyle(TL_S4, PivotStyle);
TL_SetExtRight(TL_S4, 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);

TL_M13 = TL_New(StartDate, StartTime, (S4+S3)/2, Date, Time, (S4+S3)/2);
TL_SetColor(TL_M13, DailyMidPtcolor);
TL_SetStyle(TL_M13, MidPtStyle);
TL_SetExtRight(TL_M13, True);

TL_M14 = TL_New(StartDate, StartTime, (R4+R3)/2, Date, Time, (R4+R3)/2);
TL_SetColor(TL_M14, DailyMidPtcolor);
TL_SetStyle(TL_M14, MidPtStyle);
TL_SetExtRight(TL_M14, True);



end;

//quart Pivots daily

if PlotDailyQuartMidPts then
begin


TL_M1 = TL_New(StartDate, StartTime,R2-(R2-R1)/4 , Date, Time, R2-(R2-R1)/4);
TL_SetColor(TL_M1,DailyQuartMidPtcolor );
TL_SetStyle(TL_M1, MidPtStyle);
TL_SetExtRight(TL_M1, True);

TL_M2 = TL_New(StartDate, StartTime,R1-(R1-R2)/4 , Date, Time,R1-(R1-R2)/4) ;
TL_SetColor(TL_M2,DailyQuartMidPtcolor );
TL_SetStyle(TL_M2, MidptStyle);
TL_SetExtRight(TL_M2, True);

TL_M3 = TL_New(StartDate, StartTime,R1-(R1-PP)/4 , Date, Time,R1-(R1-PP)/4) ;
TL_SetColor(TL_M3, DailyQuartMidPtcolor);
TL_SetStyle(TL_M3, MidPtStyle);
TL_SetExtRight(TL_M3, True);

TL_M4 = TL_New(StartDate, StartTime,PP+(R1-PP)/4 , Date, Time,PP+(R1-PP)/4);
TL_SetColor(TL_M4, DailyQuartMidPtcolor);
TL_SetStyle(TL_M4, MidPtStyle);
TL_SetExtRight(TL_M4, True);

TL_M5 = TL_New(StartDate, StartTime, PP-(PP-S1)/4, Date, Time, PP-(PP-S1)/4);
TL_SetColor(TL_M5, DailyQuartMidPtcolor);
TL_SetStyle(TL_M5, MidPtStyle);
TL_SetExtRight(TL_M5, True);

TL_M6 = TL_New(StartDate, StartTime, S1+(PP-S1)/4, Date, Time, S1+(PP-S1)/4);
TL_SetColor(TL_M6, DailyQuartMidPtcolor);
TL_SetStyle(TL_M6, MidPtStyle);
TL_SetExtRight(TL_M6, True);

TL_M7 = TL_New(StartDate, StartTime, S1+(S2-S1)/4, Date, Time, S1+(S2-S1)/4);
TL_SetColor(TL_M7, DailyQuartMidPtcolor);
TL_SetStyle(TL_M7, MidPtStyle);
TL_SetExtRight(TL_M7, True);


TL_M8 = TL_New(StartDate, StartTime,S2-(S2-S1)/4 , Date, Time,S2-(S2-S1)/4) ;
TL_SetColor(TL_M8, DailyQuartMidPtcolor);
TL_SetStyle(TL_M8, MidPtStyle);
TL_SetExtRight(TL_M8, True);

TL_M9 = TL_New(StartDate, StartTime,S2-(S2-S3)/4 , Date, Time,S2-(S2-S3)/4);
TL_SetColor(TL_M9, DailyQuartMidPtcolor);
TL_SetStyle(TL_M9, MidPtStyle);
TL_SetExtRight(TL_M9, True);

TL_M10 = TL_New(StartDate, StartTime, S3+(S2-S3)/4, Date, Time, S3+(S2-S3)/4);
TL_SetColor(TL_M10, DailyQuartMidPtcolor);
TL_SetStyle(TL_M10, MidPtStyle);
TL_SetExtRight(TL_M10, True);

TL_M11 = TL_New(StartDate, StartTime, R2+(R3-R2)/4, Date, Time, R2+(R3-R2)/4);
TL_SetColor(TL_M11, DailyQuartMidPtcolor);
TL_SetStyle(TL_M11, MidPtStyle);
TL_SetExtRight(TL_M11, True);

TL_M12 = TL_New(StartDate, StartTime, R3-(R3-R2)/4, Date, Time, R3-(R3-R2)/4);
TL_SetColor(TL_M12, DailyQuartMidPtcolor);
TL_SetStyle(TL_M12, MidPtStyle);
TL_SetExtRight(TL_M12, True);

TL_M15 = TL_New(StartDate, StartTime, R4-(R4-R3)/4, Date, Time, R4-(R4-R3)/4);
TL_SetColor(TL_M15, DailyQuartMidPtcolor);
TL_SetStyle(TL_M15, MidPtStyle);
TL_SetExtRight(TL_M15, True);

TL_M16 = TL_New(StartDate, StartTime, R3+(R4-R3)/4, Date, Time, R3+(R4-R3)/4);
TL_SetColor(TL_M16, DailyQuartMidPtcolor);
TL_SetStyle(TL_M16, MidPtStyle);
TL_SetExtRight(TL_M16, True);

TL_M17 = TL_New(StartDate, StartTime, S4+(S3-S4)/4, Date, Time, S4+(S3-S4)/4);
TL_SetColor(TL_M17, DailyQuartMidPtcolor);
TL_SetStyle(TL_M17, MidPtStyle);
TL_SetExtRight(TL_M17, True);

TL_M18 = TL_New(StartDate, StartTime, S3-(S3-S4)/4, Date, Time, S3-(S3-S4)/4);
TL_SetColor(TL_M18, DailyQuartMidPtcolor);
TL_SetStyle(TL_M18, MidPtStyle);
TL_SetExtRight(TL_M18, 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;
 
one to one coaching
Top