PureBytes Links
Trading Reference Links
|
In perusing the Tradestation code you've attached, I noticed that it
references multiple Data Sets.
If these data sets are from multiple time periods, Metastock will not
support the translation.
Steven Buss
sbuss@xxxxxxxxxxx
Walnut Creek, CA, USA
-----Original Message-----
From: DPoiree <DPoiree@xxxxxxx>
To: omega-list@xxxxxxxxxx <omega-list@xxxxxxxxxx>;
metastock-list@xxxxxxxxxxxxx <metastock-list@xxxxxxxxxxxxx>
Date: Thursday, March 12, 1998 11:49 PM
Subject: Help converting TS code to MetaStock
>I hope someone can help me with trying to "translate" the attached
>TradeStation code (x2) to MetaStock 6.5 code and save me many hours
learning
>MS code.
>
>Many thanks!
>Dan Poiree
>Bellingham WA
>**********
>vars: x(0), y(1), z(0);
>
>x = x[1] + 0.5 * (C Data5 - x[1]);
>y = highest(x, 40) - lowest(x, 40);
>if y > 0 then z = 100 * ((x - lowest(x, 40)) / y ) - 50;
>
>plot1(z,"ST");
>plot2(-11.5,"B");
>plot3(31,"S");
>**********
>
>vars: ADRrs(0), ADRstr(0), djcstr(0), adrx(0), hhv(0), llv(0), ii(0);
>
> adrx = adrx[1] + 0.2 * (((C Data2 - C Data3) / (C Data2 + C Data3)) -
>adrx[1]);
> hhv = adrx;
> llv = adrx;
> for ii = 1 to 5 begin
> if adrx[ii] > hhv then hhv = adrx[ii];
> if adrx[ii] < llv then llv = adrx[ii];
> end; {for loop}
> if (hhv - llv) > 0 then ADRstr = 100 * ((adrx - llv) / (hhv - llv)) - 50;
>
>ADRrs = 0;
>if currentbar > 6 then begin
> hhv = C Data6;
> llv = C Data6;
> for ii = 1 to 5 begin
> if (C Data6)[ii] > hhv then hhv = (C Data6)[ii];
> if (C Data6)[ii] < llv then llv = (C Data6)[ii];
> end; {for loop}
> djcstr = 0;
> if (hhv - llv) > 0 then djcstr = 100 * ((C Data6 - llv) / (hhv - llv)) -
50;
> ADRrs = ADRstr - djcstr;
>end;{>6dys}
>{===================================================}
>plot1(ADRrs,"ADRrs");
>plot2(0,"Brs");
>plot3(-30,"Srs");
>
|