BullCharts Forum Homepage
Forum Home Forum Home > BullCharts > BullScript
  New Posts New Posts RSS Feed: Intraday trading Support and resistance and trend
  FAQ FAQ  Forum Search   Calendar   Register Register  Login Login

Intraday trading Support and resistance and trend

 Post Reply Post Reply Page  123>
Author
Message Reverse Sort Order / View First Unread Post
paulchow2k View Drop Down
Newbie
Newbie


Joined: 15 Oct 2010
Posts: 7
Post Options Post Options   Quote paulchow2k Quote  Post ReplyReply Direct Link To This Post Topic: Intraday trading Support and resistance and trend
    Posted: 12 Oct 2013 at 2:17pm
Totally agreed with Mr Gann regarding the past. It's NEVER quite the same as the past but the essence is identical. Thanks for your help. Your script certainly does help. I just want to clarify that I WAS obsessed with Market Profile because of what the futures traders were trading. Stocks are a lot less intensive most of the time.

Paul
Back to Top
cmacdon View Drop Down
BullCharts Guru
BullCharts Guru


Joined: 09 Sep 2012
Location: Brisbane
Posts: 236
Post Options Post Options   Quote cmacdon Quote  Post ReplyReply Direct Link To This Post Posted: 11 Oct 2013 at 11:55am
Paul

Bullscript is extremely similar but with a few more bells and whistles compared to Metastock indicator code.

Most Metastock indicators will usually port across and run in Bullscript without any or limited tweaking.

Roy Larsen was the originator of the Metastock Price by Volume indicator I originally copied and tweaked in Bullscript. So it is right to give him credit for his original idea and coding effort.

As Gann said everything is but a repetition of the past.

Charles
BC User since June 2007
Back to Top
paulchow2k View Drop Down
Newbie
Newbie


Joined: 15 Oct 2010
Posts: 7
Post Options Post Options   Quote paulchow2k Quote  Post ReplyReply Direct Link To This Post Posted: 11 Oct 2013 at 11:14am
Thanks for that.. I'll check the script out... Not sure about price by volume but I'll check the above script out.. is that written in Metastock format?

why do you give metastocktips.com the credit for their idea?

regards

Paul


Back to Top
cmacdon View Drop Down
BullCharts Guru
BullCharts Guru


Joined: 09 Sep 2012
Location: Brisbane
Posts: 236
Post Options Post Options   Quote cmacdon Quote  Post ReplyReply Direct Link To This Post Posted: 07 Oct 2013 at 4:51pm




{C2006 Roy Larsen, www.metastocktips.com}

[Target=Price;]

Value1 := Volume;
Value1a := (((H-C)/(H-L))*Volume); {Selling Vol}
Value2 := (((C-L)/(H-L))*Volume); {Buying Vol}
Value3 := If((Value2-Value1a) >0,(Value2-Value1a),undefined); {Net of buying and Selling Vol needs to be +'ve to plot on Histogram}
Value4 := If((Value1a-Value2) >0,(Value1a-Value2),undefined); {Net of buying and Selling Vol needs to be +'ve to plot on Histogram}

d:=input("Bars to Include", 100, 1, 9999);
n:=input("Scaling Factor", 4, 1, 999);
k:=input("Plot Frame?", 1, 0, 1);
y:=Cum(1);
f:=LastValue(y);
z:=f-1=y;
d1:=LastValue(If(d>=f,f-1,d));
a:=(f-d<y)*(y>1);
g:=a*V;
g1:=a*Value3;
g2:=a*Value4;


{Query Below if I have the scaleing factors right using g but not also ga ????}
b:=LastValue(Cum(g));
q:=LastValue(HighestSince(1,a=0,C));
r:=LastValue(LowestSince(1,a=0,C));
i:=(q-r)/50;
u:=r+i*.5;
m:=n*d/b;










[name=Net Buying; color=Cyan; width=9;]
x1:=LastValue(Cum((C<(r+i))*g1));
ValueWhen(1,f-x1*m<y,u);
x2:=LastValue(Cum((C>=(r+i))*(C<(r+i*2))*g1));
ValueWhen(1,f- x2*m<y,u+i);
x3:=LastValue(Cum((C>=(r+i*2))*(C<(r+i*3))*g1));
ValueWhen(1,f- x3*m<y,u+i*2);
x4:=LastValue(Cum((C>=(r+i*3))*(C<(r+i*4))*g1));
ValueWhen(1,f- x4*m<y,u+i*3);

x5:=LastValue(Cum((C>=(r+i*4))*(C<(r+i*5))*g1));
ValueWhen(1,f- x5*m<y,u+i*4);
x6:=LastValue(Cum((C>=(r+i*5))*(C<(r+i*6))*g1));
ValueWhen(1,f- x6*m<y,u+i*5);
x7:=LastValue(Cum((C>=(r+i*6))*(C<(r+i*7))*g1));
ValueWhen(1,f- x7*m<y,u+i*6);
x8:=LastValue(Cum((C>=(r+i*7))*(C<(r+i*8))*g1));
ValueWhen(1,f- x8*m<y,u+i*7);

x9:=LastValue(Cum((C>=(r+i*8))*(C<(r+i*9))*g1));
ValueWhen(1,f- x9*m<y,u+i*8);
x10:=LastValue(Cum((C>=(r+i*9))*(C<(r+i*10))*g1));
ValueWhen(1,f- x10*m<y,u+i*9);
x11:=LastValue(Cum((C>=(r+i*10))*(C<(r+i*11))*g1));
ValueWhen(1,f- x11*m<y,u+i*10);
x12:=LastValue(Cum((C>=(r+i*11))*(C<(r+i*12))*g1));
ValueWhen(1,f- x12*m<y,u+i*11);

x13:=LastValue(Cum((C>=(r+i*12))*(C<(r+i*13))*g1));
ValueWhen(1,f- x13*m<y,u+i*12);
x14:=LastValue(Cum((C>=(r+i*13))*(C<(r+i*14))*g1));
ValueWhen(1,f- x14*m<y,u+i*13);
x15:=LastValue(Cum((C>=(r+i*14))*(C<(r+i*15))*g1));
ValueWhen(1,f- x15*m<y,u+i*14);
x16:=LastValue(Cum((C>=(r+i*15))*(C<(r+i*16))*g1));
ValueWhen(1,f- x16*m<y,u+i*15);


x17:=LastValue(Cum((C>=(r+i*16))*(C<(r+i*17))*g1));
ValueWhen(1,f- x17*m<y,u+i*16);
x18:=LastValue(Cum((C>=(r+i*17))*(C<(r+i*18))*g1));
ValueWhen(1,f- x18*m<y,u+i*17);
x19:=LastValue(Cum((C>=(r+i*18))*(C<(r+i*19))*g1));
ValueWhen(1,f- x19*m<y,u+i*18);
x20:=LastValue(Cum((C>=(r+i*19))*(C<(r+i*20))*g1));
ValueWhen(1,f- x20*m<y,u+i*19);


x21:=LastValue(Cum((C>=(r+i*20))*(C<(r+i*21))*g1));
ValueWhen(1,f- x21*m<y,u+i*20);
x22:=LastValue(Cum((C>=(r+i*21))*(C<(r+i*22))*g1));
ValueWhen(1,f- x22*m<y,u+i*21);
x23:=LastValue(Cum((C>=(r+i*22))*(C<(r+i*23))*g1));
ValueWhen(1,f- x23*m<y,u+i*22);
x24:=LastValue(Cum((C>=(r+i*23))*(C<(r+i*24))*g1));
ValueWhen(1,f- x24*m<y,u+i*23);


x25:=LastValue(Cum((C>=(r+i*24))*(C<(r+i*25))*g1));
ValueWhen(1,f-Int(x25*m)=y,u+i*24);

x26:=LastValue(Cum((C>=(r+i*25))*(C<(r+i*26))*g1));
ValueWhen(1,f-Int(x26*m)=y,u+i*25);

x27:=LastValue(Cum((C>=(r+i*26))*(C<(r+i*27))*g1));
ValueWhen(1,f-Int(x27*m)=y,u+i*26);

x28:=LastValue(Cum((C>=(r+i*27))*(C<(r+i*28))*g1));
ValueWhen(1,f-Int(x25*m)=y,u+i*27);

x29:=LastValue(Cum((C>=(r+i*28))*(C<(r+i*29))*g1));
ValueWhen(1,f-Int(x29*m)=y,u+i*28);

x30:=LastValue(Cum((C>=(r+i*29))*(C<(r+i*30))*g1));
ValueWhen(1,f-Int(x30*m)=y,u+i*29);


x31:=LastValue(Cum((C>=(r+i*30))*(C<(r+i*31))*g1));
ValueWhen(1,f-Int(x31*m)=y,u+i*30);

x32:=LastValue(Cum((C>=(r+i*31))*(C<(r+i*32))*g1));
ValueWhen(1,f-Int(x32*m)=y,u+i*31);

x33:=LastValue(Cum((C>=(r+i*32))*(C<(r+i*33))*g1));
ValueWhen(1,f-Int(x33*m)=y,u+i*32);

x34:=LastValue(Cum((C>=(r+i*33))*(C<(r+i*34))*g1));
ValueWhen(1,f-Int(x34*m)=y,u+i*33);

x35:=LastValue(Cum((C>=(r+i*34))*(C<(r+i*35))*g1));
ValueWhen(1,f-Int(x35*m)=y,u+i*34);


x36:=LastValue(Cum((C>=(r+i*35))*(C<(r+i*36))*g1));
ValueWhen(1,f- x36*m<y,u+i*35);
x37:=LastValue(Cum((C>=(r+i*36))*(C<(r+i*37))*g1));
ValueWhen(1,f- x37*m<y,u+i*36);
x38:=LastValue(Cum((C>=(r+i*37))*(C<(r+i*38))*g1));
ValueWhen(1,f- x38*m<y,u+i*37);
x39:=LastValue(Cum((C>=(r+i*38))*(C<(r+i*39))*g1));
ValueWhen(1,f- x39*m<y,u+i*38);
x40:=LastValue(Cum((C>=(r+i*39))*(C<(r+i*40))*g1));
ValueWhen(1,f- x40*m<y,u+i*39);
x41:=LastValue(Cum((C>=(r+i*40))*(C<(r+i*41))*g1));
ValueWhen(1,f- x41*m<y,u+i*40);
x42:=LastValue(Cum((C>=(r+i*41))*(C<(r+i*42))*g1));
ValueWhen(1,f- x42*m<y,u+i*41);
x43:=LastValue(Cum((C>=(r+i*42))*(C<(r+i*43))*g1));
ValueWhen(1,f- x43*m<y,u+i*42);
x44:=LastValue(Cum((C>=(r+i*43))*(C<(r+i*44))*g1));
ValueWhen(1,f- x44*m<y,u+i*43);
x45:=LastValue(Cum((C>=(r+i*44))*(C<(r+i*45))*g1));
ValueWhen(1,f- x45*m<y,u+i*44);
x46:=LastValue(Cum((C>=(r+i*45))*(C<(r+i*46))*g1));
ValueWhen(1,f- x46*m<y,u+i*45);
x47:=LastValue(Cum((C>=(r+i*46))*(C<(r+i*47))*g1));
ValueWhen(1,f- x47*m<y,u+i*46);
x48:=LastValue(Cum((C>=(r+i*47))*(C<(r+i*48))*g1));
ValueWhen(1,f- x48*m<y,u+i*47);
x49:=LastValue(Cum((C>=(r+i*48))*(C<(r+i*49))*g1));
ValueWhen(1,f- x49*m<y,u+i*48);
x50:=LastValue(Cum((C>=(r+i*49))*(C<(r+i*50))*g1));
ValueWhen(1,f- x50*m<y,u+i*49);

{Note Two of the above lines needed for 1 line calc in Histograms}
[name=Boundary; color=Black; linestyle=Solid; width=2;]
x51:=(f-d=y)*k;
ValueWhen(1,x51,q);ValueWhen(1,Alert(x51,2),If(x51,q,r));
{c;}



{


x36:=(f-d=y)*k;
ValueWhen(1,x36,q);ValueWhen(1,Alert(x36,2),If(x36,q,r));}
{c;}
{end}

[name=Net Selling; Linestyle=Solid; color=Red; linestyle=Dash; width=3;]
x1a:=LastValue(Cum((C<(r+i))*g2));
ValueWhen(1,f-x1a*m<y,u);
x2a:=LastValue(Cum((C>=(r+i))*(C<(r+i*2))*g2));
ValueWhen(1,f- x2a*m<y,u+i);
x3a:=LastValue(Cum((C>=(r+i*2))*(C<(r+i*3))*g2));
ValueWhen(1,f- x3a*m<y,u+i*2);
x4a:=LastValue(Cum((C>=(r+i*3))*(C<(r+i*4))*g2));
ValueWhen(1,f- x4a*m<y,u+i*3);

x5a:=LastValue(Cum((C>=(r+i*4))*(C<(r+i*5))*g2));
ValueWhen(1,f- x5a*m<y,u+i*4);
x6a:=LastValue(Cum((C>=(r+i*5))*(C<(r+i*6))*g2));
ValueWhen(1,f- x6a*m<y,u+i*5);
x7a:=LastValue(Cum((C>=(r+i*6))*(C<(r+i*7))*g2));
ValueWhen(1,f- x7a*m<y,u+i*6);
x8a:=LastValue(Cum((C>=(r+i*7))*(C<(r+i*8))*g2));
ValueWhen(1,f- x8a*m<y,u+i*7);

x9a:=LastValue(Cum((C>=(r+i*8))*(C<(r+i*9))*g2));
ValueWhen(1,f- x9a*m<y,u+i*8);
x10a:=LastValue(Cum((C>=(r+i*9))*(C<(r+i*10))*g2));
ValueWhen(1,f- x10a*m<y,u+i*9);
x11a:=LastValue(Cum((C>=(r+i*10))*(C<(r+i*11))*g2));
ValueWhen(1,f- x11a*m<y,u+i*10);
x12a:=LastValue(Cum((C>=(r+i*11))*(C<(r+i*12))*g2));
ValueWhen(1,f- x12a*m<y,u+i*11);

x13a:=LastValue(Cum((C>=(r+i*12))*(C<(r+i*13))*g2));
ValueWhen(1,f- x13a*m<y,u+i*12);
x14a:=LastValue(Cum((C>=(r+i*13))*(C<(r+i*14))*g2));
ValueWhen(1,f- x14a*m<y,u+i*13);
x15a:=LastValue(Cum((C>=(r+i*14))*(C<(r+i*15))*g2));
ValueWhen(1,f- x15a*m<y,u+i*14);
x16a:=LastValue(Cum((C>=(r+i*15))*(C<(r+i*16))*g2));
ValueWhen(1,f- x16a*m<y,u+i*15);


x17a:=LastValue(Cum((C>=(r+i*16))*(C<(r+i*17))*g2));
ValueWhen(1,f- x17a*m<y,u+i*16);
x18a:=LastValue(Cum((C>=(r+i*17))*(C<(r+i*18))*g2));
ValueWhen(1,f- x18a*m<y,u+i*17);
x19a:=LastValue(Cum((C>=(r+i*18))*(C<(r+i*19))*g2));
ValueWhen(1,f- x19a*m<y,u+i*18);
x20a:=LastValue(Cum((C>=(r+i*19))*(C<(r+i*20))*g2));
ValueWhen(1,f- x20a*m<y,u+i*19);


x21a:=LastValue(Cum((C>=(r+i*20))*(C<(r+i*21))*g2));
ValueWhen(1,f- x21a*m<y,u+i*20);
x22a:=LastValue(Cum((C>=(r+i*21))*(C<(r+i*22))*g2));
ValueWhen(1,f- x22a*m<y,u+i*21);
x23a:=LastValue(Cum((C>=(r+i*22))*(C<(r+i*23))*g2));
ValueWhen(1,f- x23a*m<y,u+i*22);
x24a:=LastValue(Cum((C>=(r+i*23))*(C<(r+i*24))*g2));
ValueWhen(1,f- x24a*m<y,u+i*23);


x25a:=LastValue(Cum((C>=(r+i*24))*(C<(r+i*25))*g2));
ValueWhen(1,f-Int(x25a*m)=y,u+i*24);
x26a:=LastValue(Cum((C>=(r+i*25))*(C<(r+i*26))*g2));
ValueWhen(1,f- x26a*m<y,u+i*25);
x27a:=LastValue(Cum((C>=(r+i*26))*(C<(r+i*27))*g2));
ValueWhen(1,f- x27a*m<y,u+i*26);
x28a:=LastValue(Cum((C>=(r+i*27))*(C<(r+i*28))*g2));
ValueWhen(1,f- x28a*m<y,u+i*27);
x29a:=LastValue(Cum((C>=(r+i*28))*(C<(r+i*29))*g2));
ValueWhen(1,f- x29a*m<y,u+i*28);
x30a:=LastValue(Cum((C>=(r+i*29))*(C<(r+i*30))*g2));
ValueWhen(1,f- x30a*m<y,u+i*29);
x31a:=LastValue(Cum((C>=(r+i*30))*(C<(r+i*31))*g2));
ValueWhen(1,f- x31a*m<y,u+i*30);
x32a:=LastValue(Cum((C>=(r+i*31))*(C<(r+i*32))*g2));
ValueWhen(1,f- x32a*m<y,u+i*31);
x33a:=LastValue(Cum((C>=(r+i*32))*(C<(r+i*33))*g2));
ValueWhen(1,f- x33a*m<y,u+i*32);
x34a:=LastValue(Cum((C>=(r+i*33))*(C<(r+i*34))*g2));
ValueWhen(1,f- x34a*m<y,u+i*33);
x35a:=LastValue(Cum((C>=(r+i*34))*(C<(r+i*35))*g2));
ValueWhen(1,f- x35a*m<y,u+i*34);
x36a:=LastValue(Cum((C>=(r+i*35))*(C<(r+i*36))*g2));
ValueWhen(1,f- x36a*m<y,u+i*35);
x37a:=LastValue(Cum((C>=(r+i*36))*(C<(r+i*37))*g2));
ValueWhen(1,f- x37a*m<y,u+i*36);
x38a:=LastValue(Cum((C>=(r+i*37))*(C<(r+i*38))*g2));
ValueWhen(1,f- x38a*m<y,u+i*37);
x39a:=LastValue(Cum((C>=(r+i*38))*(C<(r+i*39))*g2));
ValueWhen(1,f- x39a*m<y,u+i*38);
x40a:=LastValue(Cum((C>=(r+i*39))*(C<(r+i*40))*g2));
ValueWhen(1,f- x40a*m<y,u+i*39);
x41a:=LastValue(Cum((C>=(r+i*40))*(C<(r+i*41))*g2));
ValueWhen(1,f- x41a*m<y,u+i*40);
x42a:=LastValue(Cum((C>=(r+i*41))*(C<(r+i*42))*g2));
ValueWhen(1,f- x42a*m<y,u+i*41);
x43a:=LastValue(Cum((C>=(r+i*42))*(C<(r+i*43))*g2));
ValueWhen(1,f- x43a*m<y,u+i*42);
x44a:=LastValue(Cum((C>=(r+i*43))*(C<(r+i*44))*g2));
ValueWhen(1,f- x44a*m<y,u+i*43);
x45a:=LastValue(Cum((C>=(r+i*44))*(C<(r+i*45))*g2));
ValueWhen(1,f- x45a*m<y,u+i*44);
x46a:=LastValue(Cum((C>=(r+i*45))*(C<(r+i*46))*g2));
ValueWhen(1,f- x46a*m<y,u+i*45);
x47a:=LastValue(Cum((C>=(r+i*46))*(C<(r+i*47))*g2));
ValueWhen(1,f- x47a*m<y,u+i*46);
x48a:=LastValue(Cum((C>=(r+i*47))*(C<(r+i*48))*g2));
ValueWhen(1,f- x48a*m<y,u+i*47);
x49a:=LastValue(Cum((C>=(r+i*48))*(C<(r+i*49))*g2));
ValueWhen(1,f- x49a*m<y,u+i*48);
x50a:=LastValue(Cum((C>=(r+i*49))*(C<(r+i*50))*g2));
ValueWhen(1,f- x50a*m<y,u+i*49);


{Note Two of the above lines needed for 1 line calc in Histograms}
[name=Boundary; Linestyle=Solid; Color Black; width =2;]
x51a:=(f-d=y)*k;
BC User since June 2007
Back to Top
cmacdon View Drop Down
BullCharts Guru
BullCharts Guru


Joined: 09 Sep 2012
Location: Brisbane
Posts: 236
Post Options Post Options   Quote cmacdon Quote  Post ReplyReply Direct Link To This Post Posted: 07 Oct 2013 at 4:50pm
BC User since June 2007
Back to Top
cmacdon View Drop Down
BullCharts Guru
BullCharts Guru


Joined: 09 Sep 2012
Location: Brisbane
Posts: 236
Post Options Post Options   Quote cmacdon Quote  Post ReplyReply Direct Link To This Post Posted: 07 Oct 2013 at 4:48pm
Paul


The indicator does not stop you adding any of the Bullchart colored bar criteria to the bars. Right click on a price bar and go to the color tab that then appears, and choose a Bullchart color bar option.

Alternatively you can color your own criteria for bars using Bullscript.

Here is a variation code to play around with. I will post Picture then code.

I made a 50 Volume by price indicator with buckets and colored the Histogram bars according to whether it was buying or selling volume according to Larry Williams Criteria for buying or selling volume (refer Smart Money and Herd separate post for explanation of that crieria).

As both SM and Herd Buying and selling can go on within same day or across various days, two histogram colors (and one wider then the other is needed to show what buying and selling is going on within each bucket).

Charles


BC User since June 2007
Back to Top
paulchow2k View Drop Down
Newbie
Newbie


Joined: 15 Oct 2010
Posts: 7
Post Options Post Options   Quote paulchow2k Quote  Post ReplyReply Direct Link To This Post Posted: 07 Oct 2013 at 3:47pm
Thanks for that mate! Ive been away for a while but that looks like it. Anyway of adding colours or per day? More like Market Profile

http://en.wikipedia.org/wiki/Market_profile
http://www.fin-alg.com/final/products/

regards

paul
Back to Top
cmacdon View Drop Down
BullCharts Guru
BullCharts Guru


Joined: 09 Sep 2012
Location: Brisbane
Posts: 236
Post Options Post Options   Quote cmacdon Quote  Post ReplyReply Direct Link To This Post Posted: 06 Jun 2013 at 8:01am
BC User since June 2007
Back to Top
cmacdon View Drop Down
BullCharts Guru
BullCharts Guru


Joined: 09 Sep 2012
Location: Brisbane
Posts: 236
Post Options Post Options   Quote cmacdon Quote  Post ReplyReply Direct Link To This Post Posted: 06 Jun 2013 at 7:57am

{C2006 Roy Larsen, www.metastocktips.com}

[Target=Price;]

d:=input("Bars to Include", 100, 1, 9999);
n:=input("Scaling Factor", 25, 1, 999);
k:=input("Plot Frame?", 1, 0, 1);
y:=Cum(1);
f:=LastValue(y);
z:=f-1=y;
d1:=LastValue(If(d>=f,f-1,d));
a:=(f-d<y)*(y>1);
g:=a*V;
b:=LastValue(Cum(g));
q:=LastValue(HighestSince(1,a=0,C));
r:=LastValue(LowestSince(1,a=0,C));
i:=(q-r)/25;
u:=r+i*.5;
m:=n*d/b;
x1:=LastValue(Cum((C<(r+i))*g));
ValueWhen(1,f-x1*m<y,u);
x2:=LastValue(Cum((C>=(r+i))*(C<(r+i*2))*g));
ValueWhen(1,f- x2*m<y,u+i);
x3:=LastValue(Cum((C>=(r+i*2))*(C<(r+i*3))*g));
ValueWhen(1,f- x3*m<y,u+i*2);
x4:=LastValue(Cum((C>=(r+i*3))*(C<(r+i*4))*g));
ValueWhen(1,f- x4*m<y,u+i*3);

x5:=LastValue(Cum((C>=(r+i*4))*(C<(r+i*5))*g));
ValueWhen(1,f- x5*m<y,u+i*4);
x6:=LastValue(Cum((C>=(r+i*5))*(C<(r+i*6))*g));
ValueWhen(1,f- x6*m<y,u+i*5);
x7:=LastValue(Cum((C>=(r+i*6))*(C<(r+i*7))*g));
ValueWhen(1,f- x7*m<y,u+i*6);
x8:=LastValue(Cum((C>=(r+i*7))*(C<(r+i*8))*g));
ValueWhen(1,f- x8*m<y,u+i*7);

x9:=LastValue(Cum((C>=(r+i*8))*(C<(r+i*9))*g));
ValueWhen(1,f- x9*m<y,u+i*8);
x10:=LastValue(Cum((C>=(r+i*9))*(C<(r+i*10))*g));
ValueWhen(1,f- x10*m<y,u+i*9);
x11:=LastValue(Cum((C>=(r+i*10))*(C<(r+i*11))*g));
ValueWhen(1,f- x11*m<y,u+i*10);
x12:=LastValue(Cum((C>=(r+i*11))*(C<(r+i*12))*g));
ValueWhen(1,f- x12*m<y,u+i*11);

x13:=LastValue(Cum((C>=(r+i*12))*(C<(r+i*13))*g));
ValueWhen(1,f- x13*m<y,u+i*12);
x14:=LastValue(Cum((C>=(r+i*13))*(C<(r+i*14))*g));
ValueWhen(1,f- x14*m<y,u+i*13);
x15:=LastValue(Cum((C>=(r+i*14))*(C<(r+i*15))*g));
ValueWhen(1,f- x15*m<y,u+i*14);
x16:=LastValue(Cum((C>=(r+i*15))*(C<(r+i*16))*g));
ValueWhen(1,f- x16*m<y,u+i*15);


x17:=LastValue(Cum((C>=(r+i*16))*(C<(r+i*17))*g));
ValueWhen(1,f- x17*m<y,u+i*16);
x18:=LastValue(Cum((C>=(r+i*17))*(C<(r+i*18))*g));
ValueWhen(1,f- x18*m<y,u+i*17);
x19:=LastValue(Cum((C>=(r+i*18))*(C<(r+i*19))*g));
ValueWhen(1,f- x19*m<y,u+i*18);
x20:=LastValue(Cum((C>=(r+i*19))*(C<(r+i*20))*g));
ValueWhen(1,f- x20*m<y,u+i*19);


x21:=LastValue(Cum((C>=(r+i*20))*(C<(r+i*21))*g));
ValueWhen(1,f- x21*m<y,u+i*20);
x22:=LastValue(Cum((C>=(r+i*21))*(C<(r+i*22))*g));
ValueWhen(1,f- x22*m<y,u+i*21);
x23:=LastValue(Cum((C>=(r+i*22))*(C<(r+i*23))*g));
ValueWhen(1,f- x23*m<y,u+i*22);
x24:=LastValue(Cum((C>=(r+i*23))*(C<(r+i*24))*g));
ValueWhen(1,f- x24*m<y,u+i*23);


x25:=LastValue(Cum((C>=(r+i*24))*(C<(r+i*25))*g));
ValueWhen(1,f-Int(x25*m)=y,u+i*24);
x26:=(f-d=y)*k;
ValueWhen(1,x26,q);ValueWhen(1,Alert(x26,2),If(x26,q,r));
{c;}
{end}

BC User since June 2007
Back to Top
cmacdon View Drop Down
BullCharts Guru
BullCharts Guru


Joined: 09 Sep 2012
Location: Brisbane
Posts: 236
Post Options Post Options   Quote cmacdon Quote  Post ReplyReply Direct Link To This Post Posted: 06 Jun 2013 at 7:55am
Paul

Just remembered an old indicator in my archives I once converted to Bullcharts from Tradersonline which may also help you avoid analyzing the Course of Trades report.

It is called Price by Volume 25 and was originally written by Roy Larsen in Metastock Code. I obtained it from Tradersonline.tk and converted it to Bullcharts.

It effectively puts the prices achieved into volume buckets ( in this case 25 Buckets) you can play with code to make as many buckets as your want but 25 appears reasonable. So it shows you how much volume traded at various prices over the course of the sample. Also you have to vary the parameters for the number of bars you want included in the sample and also scale the bars so they appear on the screen in a reasonable size histogram.

Below is BHp again with intraday sample.

BC User since June 2007
Back to Top
 Post Reply Post Reply Page  123>

Forum Jump Forum Permissions View Drop Down

Bulletin Board Software by Web Wiz Forums® version 9.69
Copyright ©2001-2010 Web Wiz