|
PureBytes Links
Trading Reference Links
|
Try { Bracketing set plot size and set plot color out }.
In TS4 those settings are built in, and accessible under format indicator.
It has worked for me with other TS2k to TS4 code conversions,
I haven't had a look at Bob's code yet.
Neville
-----Original Message-----
From: John Clemens <jbclem@xxxxxxxxxxxxx>
To: Bob Perry <bobperry@xxxxxxxxxxx>; Omega List <omega-list@xxxxxxxxxx>
Date: Saturday, May 12, 2001 3:24 AM
Subject: Re: If I can stay awake.... part 4
>
>Bob:
>
>I've transferred your three indicators into TS4 and two of them won't
verify
>because "SetPlotColor" is not recognized by Easy Language. Is this a word
>only used in TS2000, or would you know the solution to this problem?
>
>John
>
>
>----- Original Message -----
>From: "Bob Perry" <bobperry@xxxxxxxxxxx>
>To: "Omega List" <omega-list@xxxxxxxxxx>
>Sent: Thursday, May 10, 2001 11:43 PM
>Subject: RE: If I can stay awake.... part 4
>
>
>> **BP Vol_IntraMom2 - indicator
>> bpLRV - User function from Bob Fulks/TASC article
>> Median - Omega user function
>>
>> In subgraph one or three, scale to screen.
>>
>> If "MedianOn" = True:
>> Plot1: green = statistically; 75% of price changes are above this line.
>> Plot2: red = LRV of volume change.
>> Plot3: cyan/magenta = wAverage of plot2.
>> Plot4: red line = average minimum of last 10 days.
>>
>> If "MedianOn" = False:
>> Plot1: green = actual volume change (normally would be a histogram).
>> Plot2: red = LRV of volume change.
>> Plot3: cyan/magenta = wAverage of plot2.
>> Plot4: red line = average minimum of last 10 days.
>>
>>
>> This indicator shows you how fast volume is changing in the market. You
>> can actually see the volume peak at the opening and slowly taper off
>> until it hits a minimum and then starts to pick back up in the
>> afternoon. You can set your own "do not trade" zones during the day if
>> you like. You might also be able to tell when buy/sell programs are
>> kicking in.
>>
>>
>> --- cut/copy from here --
>>
>> {Bob Perry 2/01, 5/01
>> only use with time bar charts
>> futures have 405 minutes, indexes only have 390 minutes
>> Data1 = $VOLQE - NASDAQ Total Volume
>> Data2 = $VOLU - NYSE Total Volume }
>> {----- If you are using just one data stream: "High Data1 + High Data2"
>> can be replaced with "High" -----}
>>
>>
>> Inputs: FastLen(3),
>> SlowLen(15),
>> MedianOn(True) ; { line showing Avg 75% of changes above }
>> Vars: BSS(0), { BSS = BarsSinceStart of Day }
>> MOM(0),
>> count(0),
>> Sum(0),
>> DaysBak(10),
>> AvgMOM1(0),
>> AvgMOM2(0) ;
>> Arrays: minima[10](0), { line showing Avg minimum of changes }
>> AvgMOM[10](0) ;
>>
>> If date <> date[1] then begin
>> {---- AvgMOM ----}
>> AvgMOM[1] = median( MOM, BSS-1 );
>> sum = 0;
>> for count = 10 downto 1 begin
>> sum = sum + AvgMOM[ count ] ;
>> end ;
>> AvgMOM[0] = sum/10 ;
>>
>> for count = 10 downto 2 begin
>> AvgMOM[ count ] = AvgMOM[ count-1 ] ;
>> end;
>>
>> {---- minima ----}
>> Minima[1] = Lowest( MOM, BSS ) ;
>> sum = 0;
>> for count = 10 downto 1 begin
>> sum = sum + minima[ count ] ;
>> end ;
>> minima[0] = sum/10 ;
>>
>> for count = 10 downto 2 begin
>> minima[ count ] = minima[ count-1 ] ;
>> end;
>>
>> {---- reset BSS ----}
>> BSS = 0;
>> End;
>>
>> BSS = BSS + 1;
>>
>> If BSS > 1 then begin
>> MOM = ( High Data1 - High[1] Data1 ) + ( High Data2 - High[1] Data2 ) ;
>> If MedianOn = True then Value1 = ( AvgMOM[0] + Minima[0])/2 else Value1
>> = MOM ;
>> If BSS < FastLen then AvgMOM1 = bpLRV( MOM, BSS ) else AvgMOM1 = bpLRV(
>> MOM, FastLen );
>> If BSS < SlowLen then AvgMOM2 = waverage( AvgMOM1, BSS ) else AvgMOM2 =
>> waverage( AvgMOM1, SlowLen );
>> End;
>>
>> If AvgMOM2<AvgMOM2[1] then SetPlotColor(3, magenta);
>>
>> If Currentbar >= DaysBak * Round(( TimeToMinutes(Sess1EndTime) -
>> TimeToMinutes(Sess1StartTime)) /BarInterval, 0 ) then begin
>> Plot1( Value1, "MOMorMEDIAN" );
>> {color:green,type:point,style:1,weight:1}
>> Plot2( AvgMOM1, "AvgMOM1" ) ; {color:red,type:line,style:1,weight:1}
>> Plot3( AvgMOM2, "AvgMOM2" ) ; {color:cyan,type:line,style:1,weight:2}
>> Plot4( minima[0], "AvgMin" ) ;
>> {color:yellow,type:point,style:1,weight:1}
>> End;
>>
>> --- cut/copy to here --
>>
>> Bob Perry
>> San Jose, CA
>
>
|