Modifying the Value Chart - Traders Laboratory Forums

daedalus · 12-03-2009, 07:49 PM

Just trying to modify the value chart so that if the High or Low of that bar is >= 7 (or whatever number you want) it paints that bar a different color. So you could tell visually if those bars are at the extremes rather than having to check them. But i can't seem to make it work.

Here's what i've got. I think my if then else's are the problem. Anyone got any ideas?

Code:

{*******************************************************************
Description	:	This Indicator plots Value Chart prices. 
Provided By	: Mark W. Helweg (c) Copyright 2001
********************************************************************}

Inputs:NumBars(5);
Variables:VOpen(0),VHigh(0),VLow(0),VClose(0),Var1(0),Var2(0),Value_Color(0),Bull_Color(0),Bear_Color(0),Mix_Color(0),Default_Color(0);


{Calcualte Value Chart}
VOpen = VChart(NumBars,Open);
VHigh = VChart(NumBars,High);
VLow = VChart(NumBars,Low);
VClose = VChart(NumBars,Close);
Bull_Color = Green;
Bear_Color = Red;
Default_Color = DarkGray;
Mix_Color = LightGray;

{Plot Value Chart - Disregards the first 20 bars because Omega doesn't process them correctly}
If BarNumber > Numbars then Begin
//This is where i started editing code	
	If VHigh >= 7.00 Then 
		Value_Color = Bear_Color
	else
		Value_Color = Mix_Color;	

	If VLow <= 7.00 Then 
		Value_Color = Bull_Color
	else
		Value_Color = Mix_Color;	

	Value_Color = Default_Color;

			Plot1(VOpen,"VOpen");
			Plot2(VHigh,"VHigh", Value_Color);
			Plot3(VLow,"VLow", Value_Color);
			Plot4(VClose,"VClose");
	
End;

// Value Chart Lines
Inputs:TopMid(7),BottomMid(-7);



Plot6(TopMid);
Plot7(BottomMid);


//Plot ADX Value in Subplot
Plot9("VC High: "+ numtoStr(VHigh,2),"High");
Plot10("VC Low: "+ numtoStr(VLow,2),"Low");

ochie · 12-03-2009, 08:03 PM

Take a look at this code modification. It may work for you.

Code:

{*******************************************************************
Description    :    This Indicator plots Value Chart prices. 
Provided By    : Mark W. Helweg (c) Copyright 2001

********************************************************************}

Inputs:NumBars(5), upcolour (green), downcolour(red), neutralcolour (cyan);
Variables:Vopen(0),VHigh(0),VLow(0),VClose(0),Var1(0),Var2(0);
Var: VcloseLam(0),ValueSOB(" "),ValueMOB(" "),ValueMOS(" "), ValueSOS(" "), ValueFair(" "), lastdate(0);


{Calcualte Value Chart}
VOpen = VChart(NumBars,Open);
VHigh = VChart(NumBars,High);
VLow = VChart(NumBars,Low);
VClose = VChart(NumBars,Close);

{Plot Value Chart - Disregards the first 20 bars because Omega doesn't process them correctly}
If BarNumber > Numbars then Begin
    Plot1(VOpen,"VOpen");
    Plot2(VHigh,"VHigh");
    Plot3(VLow,"VLow");
    Plot4(VClose,"VClose");

If vclose > 8 then setplotcolor (1,upcolour) else setplotcolor (1, neutralcolour);
If vclose > 8 then setplotcolor (2,upcolour) else setplotcolor (2, neutralcolour);
If vclose > 8 then setplotcolor (3,upcolour) else setplotcolor (3, neutralcolour);
If vclose > 8 then setplotcolor (4,upcolour) else setplotcolor (4, neutralcolour);
If vclose < -8 then setplotcolor (1,downcolour) else setplotcolor (8, neutralcolour);
If vclose < -8 then setplotcolor (2,downcolour) else setplotcolor (8, neutralcolour);
If vclose < -8 then setplotcolor (3,downcolour) else setplotcolor (8, neutralcolour);
If vclose < -8 then setplotcolor (4,downcolour) else setplotcolor (8, neutralcolour);



    End;

// Value Chart Lines
Inputs:Top(8),TopMid(4),BottomMid(-4),Bottom(-8);


Plot5(Top);
Plot6(TopMid);
Plot7(BottomMid);
Plot8(Bottom);

trader273 · 12-03-2009, 08:13 PM

Code:

{*******************************************************************
Description    :    This Indicator plots Value Chart prices. 
Provided By    : Mark W. Helweg (c) Copyright 2001

********************************************************************}

Inputs:NumBars(5), upcolour (green), downcolour(red), 
neutralcolour (cyan), MyExtreme(7);
Variables:Vopen(0),VHigh(0),VLow(0),VClose(0),Var1(0),Var2(0);
Var: VcloseLam(0),ValueSOB(" "),ValueMOB(" "),ValueMOS(" "), ValueSOS(" "), ValueFair(" "), lastdate(0);


{Calcualte Value Chart}
VOpen = VChart(NumBars,Open);
VHigh = VChart(NumBars,High);
VLow = VChart(NumBars,Low);
VClose = VChart(NumBars,Close);

{Plot Value Chart - Disregards the first 20 bars because Omega doesn't process them correctly}
If BarNumber > Numbars then Begin
    Plot1(VOpen,"VOpen");
    Plot2(VHigh,"VHigh");
    Plot3(VLow,"VLow");
    Plot4(VClose,"VClose");

If vclose > MyExtreme then setplotcolor (1,upcolour) else setplotcolor (1, neutralcolour);
If vclose > MyExtreme then setplotcolor (2,upcolour) else setplotcolor (2, neutralcolour);
If vclose > MyExtreme then setplotcolor (3,upcolour) else setplotcolor (3, neutralcolour);
If vclose > MyExtreme then setplotcolor (4,upcolour) else setplotcolor (4, neutralcolour);
If vclose < -MyExtreme then setplotcolor (1,downcolour) else setplotcolor (8, neutralcolour);
If vclose < -MyExtreme  then setplotcolor (2,downcolour) else setplotcolor (8, neutralcolour);
If vclose < -MyExtreme  then setplotcolor (3,downcolour) else setplotcolor (8, neutralcolour);
If vclose < -MyExtreme then setplotcolor (4,downcolour) else setplotcolor (8, neutralcolour);



    End;

// Value Chart Lines
Inputs:Top(8),TopMid(4),BottomMid(-4),Bottom(-8);


Plot5(Top);
Plot6(TopMid);
Plot7(BottomMid);
Plot8(Bottom);

Just to build on what Ochie had, I just added an input called MyExtreme so that you can change the number to whatever you want easier. I found that hard coding things made it a chore to change things. That is why I try to keep things as user inputs. Im not exactly sure if that will compile, dont have anything open right now to check. The only thing that you might need to tweak would be the -MyExtreme, but not entirely sure.

Also, dont know exactly what you are looking for, but adding some like >= (greater or equal to) might be of help. Not sure how many times the value chart exactly equals you extreme level, but just an idea.

daedalus · 12-03-2009, 08:34 PM

thanks for the help guys! You're defiantly on the right track, however the code doesn't work as it should.

It colors SOME of the bars that are greater than or less than 7 (the MyExtreme setting active in this screenshot) but not all of them.

Any ideas?

trader273 · 12-03-2009, 08:37 PM

Try this:

Change vclose to vhigh for upper extreme warning
change vclose to vlow for lower extreme warning

daedalus · 12-03-2009, 08:37 PM

Nevermind - fixed it. Just had to modify the variable vclose to vhigh and vlow...

Code:

{*******************************************************************
Description    :    This Indicator plots Value Chart prices. 
Provided By    : Mark W. Helweg (c) Copyright 2001

********************************************************************}

Inputs:NumBars(5), upcolour (green), downcolour(red), 
neutralcolour (cyan), MyExtreme(7);
Variables:Vopen(0),VHigh(0),VLow(0),VClose(0),Var1(0),Var2(0);
Var: VcloseLam(0),ValueSOB(" "),ValueMOB(" "),ValueMOS(" "), ValueSOS(" "), ValueFair(" "), lastdate(0);


{Calcualte Value Chart}
VOpen = VChart(NumBars,Open);
VHigh = VChart(NumBars,High);
VLow = VChart(NumBars,Low);
VClose = VChart(NumBars,Close);

{Plot Value Chart - Disregards the first 20 bars because Omega doesn't process them correctly}
If BarNumber > Numbars then Begin
    Plot1(VOpen,"VOpen");
    Plot2(VHigh,"VHigh");
    Plot3(VLow,"VLow");
    Plot4(VClose,"VClose");

If vhigh >= MyExtreme then setplotcolor (1,upcolour) else setplotcolor (1, neutralcolour);
If vhigh >= MyExtreme then setplotcolor (2,upcolour) else setplotcolor (2, neutralcolour);
If vhigh >= MyExtreme then setplotcolor (3,upcolour) else setplotcolor (3, neutralcolour);
If vhigh >= MyExtreme then setplotcolor (4,upcolour) else setplotcolor (4, neutralcolour);
If vlow <= -MyExtreme then setplotcolor (1,downcolour) else setplotcolor (8, neutralcolour);
If vlow <= -MyExtreme  then setplotcolor (2,downcolour) else setplotcolor (8, neutralcolour);
If vlow <= -MyExtreme  then setplotcolor (3,downcolour) else setplotcolor (8, neutralcolour);
If vlow <= -MyExtreme then setplotcolor (4,downcolour) else setplotcolor (8, neutralcolour);



    End;

// Value Chart Lines
Inputs:Top(8),TopMid(4),BottomMid(-4),Bottom(-8);


Plot5(Top);
Plot8(Bottom);

daedalus · 12-03-2009, 08:38 PM

lol @ trader273. Beat me by seconds!

Thread Tools
Show Printable Version Email this Page
Display Modes	Help Others By Rating This Thread
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode	Help Others By Rating This Thread:

∧ Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
TTM/DDF Value Chart	wsam29	Coding Forum	119	04-29-2012 12:52 AM
YM Chart 7/27/07	TinGull	The Candlestick Corner	2	07-30-2007 07:54 AM
a VSA chart a Day	flatwallet	Beginners Forum	27	05-05-2007 12:41 PM
Chart-ex.com	torero	Trading Products and Services	1	04-01-2007 08:35 PM
Chart Set-up	wsam29	Market Analysis	10	03-05-2007 04:13 PM

New TL Account

Create New Account

Information and Contact

Featured Forums

Website Terms

The Following User Says Thank You to ochie For This Useful Post:
daedalus (12-03-2009)

The Following User Says Thank You to trader273 For This Useful Post:
daedalus (12-03-2009)