VPCI As PaintBar

[mcerio 10]

What I have below is what I had hoped to be the firs step in making VPCI into a PaintBar Study....it will verify, but just paints every bar.

 

The end result was supposed to be GREEN colored vbars for when VPCI is greater than Ave VPCI (or VPCI Smooth) AND greater than Zero.

 

RED when VPCI is less than VPCI Smooth AND less than zero.

 

WHITE or not painted when VPCI and its relation to zero are not in sync.

 

I am new as can be at this and am hoping someone can point me in the right direction.

 

Thank You.

 

 

 

inputs:

Price( Close ),

Length1( 5 ),

Length2( 20 ),

VPCIAvgLen( 20 ) ;

 

variables:

VolValue( 0 ),

VolumeSum1( 0 ),

VolumeSum2( 0 ),

VWMA1( 0 ),

VWMA2( 0 ),

VP( 0 ),

VPR( 0 ),

VM( 0 ),

VPCI( 0 ),

AvgVPCI( 0 ) ;

 

if BarType >= 2 then { not tick/minute data }

VolValue = Volume

else

VolValue = Ticks ;

 

VolumeSum1 = Summation( VolValue, Length1 ) ;

if VolumeSum1 > 0 then

VWMA1 = Summation( Price * VolValue , Length1 ) /

VolumeSum1 ;

 

VolumeSum2 = Summation( VolValue, Length2 ) ;

if VolumeSum2 > 0 then

VWMA2 = Summation( Price * VolValue , Length2 ) /

VolumeSum2 ;

 

VP = VWMA2 - Average( Price, Length2 ) ;

if Average( Low, Length1) > 0 then

VPR = VWMA1 / Average( Low, Length1 ) ;

if Average( VolValue, Length2 )> 0 then

VM = Average( VolValue, Length1 ) / Average( VolValue, Length2 ) ;

VPCI = VP * VPR * VM ;

AvgVPCI = Average( VPCI, VPCIAvgLen ) ;

 

 

 

If (VPCI > AvgVPCI) and (VPCI > 0)

Then PlotPaintBar (High, Low);

[Tams 20]

what you need is the rest of the logic...

 

 

If (VPCI > AvgVPCI) and (VPCI > 0)

Then PlotPaintBar (High, Low)

ELSE...

[mcerio 10]

OK, so now the end looks like this:

 

If (VPCI > AvgVPCI) and (VPCI > 0)

Then PlotPaintBar (High, Low)

Else;

 

NoPlot( 1 ) ; { unpaint the bar }

 

 

It verifies but still nothing...I seem to get all of my attempts at a paintbar to either not paint at all OR paint everything all the time.

 

Thank you in advance for any wisdom you can lend me.

 

MC

[Tams 20]

OK, so now the end looks like this:

 

If (VPCI > AvgVPCI) and (VPCI > 0)

Then PlotPaintBar (High, Low)

Else;

 

NoPlot( 1 ) ; { unpaint the bar }

 

 

It verifies but still nothing...I seem to get all of my attempts at a paintbar to either not paint at all OR paint everything all the time.

 

Thank you in advance for any wisdom you can lend me.

 

MC

 

 

I would suggest you to start from STEP ONE:

 

go download this book:

 

"Getting Started with EasyLanguage"

this is the book you need if you're thinking about using EasyLanguage but don't know where to start.

 

Documentation

 

lots of useful examples for you to copy-and-paste.

Edited October 14, 2010 by Tams

[mcerio 10]

OK. I took a look at what you wanted me to and have managed to get some paintbars working...now i am on to show me for vpci...it plots points (would really like an arrow at the cross above and below when above or below 0), but it is not doing the simple calculation at all. It cant seem to figure out when a pre-defined value is pos or neg and plot it.

 

I don't get it.

 

Here is where I'm at...seems simple enough but not working:

 

inputs:

Price( Close ),

Length1( 1 ),

Length2( 1 ),

VPCIAvgLen( 1 ) ;

 

variables:

VolValue( 0 ),

VolumeSum1( 0 ),

VolumeSum2( 0 ),

VWMA1( 0 ),

VWMA2( 0 ),

VP( 0 ),

VPR( 0 ),

VM( 0 ),

VPCI( 0 ),

AvgVPCI( 0 ) ;

 

if BarType >= 2 then { not tick/minute data }

VolValue = Volume

else

VolValue = Ticks ;

 

VolumeSum1 = Summation( VolValue, Length1 ) ;

if VolumeSum1 > 0 then

VWMA1 = Summation( Price * VolValue , Length1 ) /

VolumeSum1 ;

 

VolumeSum2 = Summation( VolValue, Length2 ) ;

if VolumeSum2 > 0 then

VWMA2 = Summation( Price * VolValue , Length2 ) /

VolumeSum2 ;

 

VP = VWMA2 - Average( Price, Length2 ) ;

if Average( Low, Length1) > 0 then

VPR = VWMA1 / Average( Low, Length1 ) ;

if Average( VolValue, Length2 )> 0 then

VM = Average( VolValue, Length1 ) / Average( VolValue, Length2 ) ;

VPCI = VP * VPR * VM ;

AvgVPCI = Average( VPCI, VPCIAvgLen ) ;

 

 

Condition1 = (VPCI is > avgVPCI) ;

 

{ OPTIONAL STEP: Replace CLOSE with your own formula for the price at which the marker

will be placed. Note that Value1 is a numeric variable, a temporary holding place

for the result of the numeric formula. }

 

Value1 = (low - .5);

 

{ Leave the following as is. The plot is not named because there is only one plot, and

the default name Plot1 will be adequate. The alert does not include a description

because the alerting criteria and the plotting criteria are the same, and the

description will be redundant. }

 

if Condition1 then

begin

Plot1 (value1) ;

Alert ;

end ;

[Tams 20]

you should wrap your code with the code tag.

it is the [b][size="4"]#[/size][/b] key at the top right of the message window

tagged code looks like this:

[code]
Input:
length(20);

Variables:
avg(0);

avg = average( close, length);

[Tams 20]

you are jumping ahead,

you haven't done these parts yet...

 

What I have below is what I had hoped to be the firs step in making VPCI into a PaintBar Study....it will verify, but just paints every bar.

 

The end result was supposed to be GREEN colored vbars for when VPCI is greater than Ave VPCI (or VPCI Smooth) AND greater than Zero.

 

RED when VPCI is less than VPCI Smooth AND less than zero.

 

WHITE or not painted when VPCI and its relation to zero are not in sync.

...

[mcerio 10]

I’m actually not going to paint the bars based on VPCI….but I do want to eliminate the VPCI indicator from below my chart and simply replace it with a show me that gives me one arrow up or down based on the following info:

 

If VPCI > AvgVPCI (this is VPCI Smooth) and VPCI > 0 (the “zero” I am referring to is the one represented in the VPCI indicator, NOT on the chart of course) then plot the show me under the bar as an arrow pointing up…ONLY at the initial time that these are true not on every single bar that fits this criteria.

 

Same thing but pointing DOWN when VPCI < AvgVPCI and VPCI < 0.

 

This doesn’t seem like it should be so difficult to get to work….but I sure can’t do it.

 

:crap:

 

Any help is SO needed and appreciated fully.

[Tams 20]

...

This doesn’t seem like it should be so difficult to get to work….but I sure can’t do it.

 

:crap:

 

Any help is SO needed and appreciated fully.

 

 

what program are you using?

[mcerio 10]

TradeStation

 

I am now working with cross over...still not working correctly with my VPCI calculations.

 

See below:

 

Condition1 = (VPCI > avgVPCI) ;

Condition2 = (VPCI crosses over 0) ;

 

 

{ OPTIONAL STEP: Replace CLOSE with your own formula for the price at which the marker

will be placed. Note that Value1 is a numeric variable, a temporary holding place

for the result of the numeric formula. }

 

Value1 = (low - .5);

 

{ Leave the following as is. The plot is not named because there is only one plot, and

the default name Plot1 will be adequate. The alert does not include a description

because the alerting criteria and the plotting criteria are the same, and the

description will be redundant. }

 

if Condition1 and Condition2 then

begin

Plot1 (value1) ;

Alert ;

end;

 

This is in with the code above for VPCI

[mcerio 10]

This is actually where I was stumped ignore last post:

 

Condition1 = (VPCI > 0) ;

Condition2 = (VPCI crosses over AvgVPCI) ;

Condition3 = (VPCI crosses over 0);

Condition4 = (VPCI > AvgVPCI);

 

{ OPTIONAL STEP: Replace CLOSE with your own formula for the price at which the marker

will be placed. Note that Value1 is a numeric variable, a temporary holding place

for the result of the numeric formula. }

 

Value1 = (low - .5);

 

{ Leave the following as is. The plot is not named because there is only one plot, and

the default name Plot1 will be adequate. The alert does not include a description

because the alerting criteria and the plotting criteria are the same, and the

description will be redundant. }

 

if Condition1 and Condition2 or Condition3 and Condition4 then

begin

Plot1 (value1) ;

Alert ;

end;

[Tams 20]

..................... see post #7

 

 

and this:

http://www.traderslaboratory.com/forums/f17/code-tag-8674.html

Edited October 15, 2010 by Tams

[mcerio 10]

I got it!

 

Not the most eloquent code I'm sure...but it works!

 

Thanks for the help.

 

I have another question but am going to see if I can find it on my own first.

[mcerio 10]

OK I am not even getting a sniff on the following:

 

How do you turn your show me plot as an arrow up or down? Anyone know how to do this?

 

Thanks Again

[Tams 20]

arrow is available in MultiCharts,

but not in TradeStation.

[mcerio 10]

Hmmm, thx. I've been trying to find out more about the text_new function....but no good tutorials on how to add it correctly to your code. Do you know of any good references?

[Tams 20]

Hmmm, thx. I've been trying to find out more about the text_new function....but no good tutorials on how to add it correctly to your code. Do you know of any good references?

 

1. READ THE MANUAL and the REFERENCE

 

lots of sample code in there

 

 

2. Press [F1] in TS for HELP

 

 

 

3. You have NOT tried the search function of this site !!!!! (ask me how I knew.)

[mcerio 10]

I don't have to...you clearly are all knowing....thanks for your help.