|
PureBytes Links
Trading Reference Links
|
NOW TO SHOW MY
APPRECIATION TO BOBKC FOR LETTINGUS BRAG ON OUR WARES I'M GOING TO MAKE
AVAILABLE to TS2k and up users an Alpha release of a product which we
willeventually be commercializing. Understand, this is free and you
can do whatever you
want to with it so long as credit is given -- none of thefrontend code
removed. Also be aware that any support for thisversion will be
limited and that the documentation is a bit sparse atthe present stage of
development.The application draws ellipses. Details can be found
in the .txt fileand several .gif files
attached. An .ela file is included BUT I doubtit will
execute in TS4 without a lot of changes.
Thanks to everyone for their support.
Most of you know that I am a developer of indicators and have
builta couple of market models. These models are primarily guides
asto ways in which one can build trading systems. Trading
systemsper se I do not offer for sale.
The following is a list
of indicators/models available and detailedinformation is available
at <A
href="http://www.theswingmachine.com";>www.theswingmachine.com
<A
href="http://www.theswingmachine.com/Fib-GannFan-Manual.htm";><FONT face=Arial
size=2>Fib-GannFan-Manual (modified)<A
href="http://www.theswingmachine.com/Fib_Time_Price_Intro.htm";><FONT face=Arial
size=2>Fib-Time-Price-GannT<SPAN
lang=en-us><A
href="http://www.theswingmachine.com/GannSquareOfNine.htm";><FONT face=Arial
size=2>Gann_SquareOfNine
(updated)<FONT
face=Arial size=2>Hurst_Channel_Four_5<A
href="http://www.theswingmachine.com/andrews_001.htm";><FONT face=Arial
size=2>LOS+AndrewsPitch_EB (w/DGL&FIB)<A
href="http://www.theswingmachine.com/lss/LSS_Intro.htm";><FONT face=Arial
size=2>LSS_New_II .ela of system trading model<A
href="http://www.theswingmachine.com/Price_Distrib_Anal/PriceDist_Main.htm";><FONT
face=Arial size=2>Price_Distribution_Analysis<A
href="http://www.theswingmachine.com/Price_Distrib_Anal/PriceDist_Main.htm";><SPAN
lang=en-us> <A
href="http://www.theswingmachine.com/SwingTimer_Images/swingtimer-a.htm";><FONT
face=Arial size=2>SwingTimerTS2k<A
href="http://www.theswingmachine.com/SwingTimer_Fib%20Images/STF-Index.htm";><FONT
face=Arial size=2>SwingTimer_FIB_TS2k<A
href="http://www.theswingmachine.com/VolumeBoxes_Equi-Volume.htm";><FONT
face=Arial size=2>Volume (equi_volume) Boxes
My speciality is
in:<A
href="http://www.theswingmachine.com/Programming.htm";><FONT face=Arial
size=2>Programming for TradeStation (4/5/6/7..)
Yes, TS7 is a reality and
involves many changes. I amnot allowed to discuss this in public but
can say that thepre-release version seems to show improvement overTS6
(and before).
Have a Merry and Happy
Holiday season.
Clyde
- - - - - - - - - - - - - - - - - - - - - - -
- - - - -Clyde Lee
Chairman/CEO (Home of
SwingMachine)SYTECH
Corporation email:
<FONT face=Arial
size=2>clydelee@xxxxxxxxxxxx 7910
Westglen, Suite 105
Office: (713) 783-9540Houston, TX
77063
Fax: (713) 783-1092Details
at:
<FONT face=Arial
size=2>www.theswingmachine.com- - - - - -
- - - - - - - - - - - - - - - - - - - - - -
----- Original Message -----
From: "BobsKC" <<A
href="mailto:bobskc@xxxxxxxxxxxx";><FONT face=Arial
size=2>bobskc@xxxxxxxxxxxx>
To: <<A
href="mailto:realtraders@xxxxxxxxxxxxxxx";><FONT face=Arial
size=2>realtraders@xxxxxxxxxxxxxxx<FONT face=Arial
size=2>>
Sent: Sunday, December 22, 2002 9:41
PM
Subject: [RT] selling services
<FONT face=Arial
size=2>> > Many of our list members sell services and products related
to investing > and our rules prohibit them from soliciting our
list. This is a good rule > and one that will not be changed but ..
I am going to permit anyone who > wishes to tell the list about their
services over the next week. This > exception will expire next
Saturday at 12AM. If you wish to tell the list > about services or
products, make certain they are *your* products or > services and not
some other business.> > All list members should recognize that
allowing such information to be > presented does not mean the Real
Traders Mail List approves of or > recommends any service or product
being promoted.> > After this exempt period expires, people will
be removed for trolling here ...> > Bob> > >
To unsubscribe from this group, send an email to:> <A
href="mailto:realtraders-unsubscribe@xxxxxxxxxxxxxxx";><FONT face=Arial
size=2>realtraders-unsubscribe@xxxxxxxxxxxxxxx<FONT face=Arial
size=2>> > > > Your use of Yahoo! Groups is
subject to <FONT face=Arial
size=2>http://docs.yahoo.com/info/terms/
> >
Yahoo! Groups Sponsor
ADVERTISEMENT
<img
src="http://us.a1.yimg.com/us.yimg.com/a/am/ameritrade/120402_am_ban_off_x82_x_300x250_6.gif"; width=300 height=250 border=0>
To unsubscribe from this group, send an email to:
realtraders-unsubscribe@xxxxxxxxxxxxxxx
Your use of Yahoo! Groups is subject to the Yahoo! Terms of Service.
ND-D_c1a3b_2ELLIPSE.GIF
Elippses_withcomment.gif
ELLIPSE_TL2.ELA
{Indicator: Ellipse_TL2
Author: Clyde Lee, Copyrighted 2002 by SYTECH Corporation
Gregory Wood (small portion) 1999
NOTES
This version uses trendlines draw the ELLIPSE(S).
The user identifies the First of the FIRST ellipse by using the text
tool and entering some character to show the start of the ellipse.
Then the user must place another character at a point in the window
where the ellipse is to end.
If additional ellipses -- ALL IN SEQUENCE AND BEGINNING WHERE THE
PRIOR ONE ENDS -- are desired then additional characters must be
placed at future points in the chart. As noted later, there is
an input parameter (one that is entered in such a fashion that the
first character entered is preceeded by a double quote mark and the
last character entered if followed by a double quote mark)
that contains the letters of all the points which the user wishes to
use in the drawing of ellipses. When this parameter (PvtsID) is
completed in the inputs, be sure that ONLY those characters that
are desired to be included in ellipse drawing are identified AND be
sure that whatever characters are entered in the input parameter
(PvtsID) are entered ON THE SCREEN with the drawing tool. There
can be more characters on the SCREEN than there are specified in
the PvtID parameter BUT only characters entered on the screen to
identify pivots can be entered in the PvtID. Also note that if some
numeric characters are entered following the PvtID character (on
the screen) those numeric characters should NOT be specified in the
PvtID parameter -- only specify the first character at each pivot.
An ellipse is a funny animal. Normally (in the good old world of
drawing graphics based on pixel location) the proper "angle" for
an ellipse can be calculated and the computation of the y value
(in pixels) for each x value (in pixels) can be calculated and
a translated ellipse drawn correctly.
Unfortunately the TradeStation folks decided not to provide this
facility and only relate such things by date/time and price
pair points and not x,y.
For this reason we have decided to simply "tilt" the ellipse
from it's "normal" position horizontal to the x axis.
Additionally the indicator provides the ability to adjust the
apparent width of the ellipse in either of two fashions. An
input parameter COMPRESS provides a "default" value for ALL
ellipses BUT if the Pivot ID character used to identify the
beginning of an ellipse also contains a numeric value following
the PivotID then that numeric value is used as the compress
factor for that ellipse.
The user can specify the width of the line drawn for the ellipse
and the color of the first ellipse in a group.
The code which finds the alphanumeric entries on the chart was
originally written by
Gregory Wood,
SwissFranc@xxxxxxxxx
and graciously placed in the public domain. This code has been
modified significantly but since his code works well I have
always found it useful as a place to start (cl).
You may freely re-distribute this code so long as this
comment block goes with it.
Revision History
12/21/02 v2.0 - Original release of multi ellipse version
Single ellipse version not released
ellipse: x^2/a^2 + y^2/b^2 = 1
2*a is major axis
2*b is minor axis
c=sqroot(a^2-b^2) +/- on x axis=foci
}
input: PvtsID("abcde"), {An alphanumeric input parameter which is}
{a listing of the pivots which are to be }
{used in creating a series (or 1) ellipse}
Color(blue), {The color that is to be applied to the }
{leftmost ellipse that is drawn. Other }
{ellipses will be colored with an incre- }
{mented color number. }
WideStyl(0.3), {Set width and style for drawn lines w.s}
{Width = 0 to 6. Style only with ZEOR w }
{There are 5 possible line styles: }
{Style Name Number }
{Tool_Solid 1 (solid) }
{Tool_Dashed 2 (dashed) }
{Tool_Dotted 3 (dotted) }
{Tool_Dashed2 4 (dashed pattern) }
{Tool_Dashed3 5 (dashed pattern) }
{** İ 1987, 1999 Omega Research, Inc. ** }
{The default value of 0.3 (width=0 }
{and style=3) is a very thin dotted line }
Extn(0), {Shift the terminus of the ellipse to a }
{point before and past the end points }
{marked by the applied pivot identifiers.}
{The extension is in bars. }
Compress(1); {A multiplier that is used to change the }
{apparent width of the ellipse. This is }
{a "default" value for all ellipses BUT }
{each individual ellipse can be assigned }
{any value desired by entering a numeric }
{value following the Pivot ID character }
{at the beginning of the ellipse (i.e. }
{the character A at the beginning of }
{an ellipse says use the Compress value }
{that is input here for that ellipse. }
{However the characters a0.5 would }
{indicate that a compress factor of .5 is}
{to be applied to the ellipse that is to }
{begin where the a -- of the a0.5 -- is}
{located. }
var: date1(0),time1(0),price1(0),date2(0),time2(0),price2(0);
var: dy(0), x1(0), x2(0), yys1(0);
var: y(0), aa(0), bb(0), cc(0);
var: ii(0), ok2draw(true);
var: handl(0), ss("");
var: fac(0),han(0),IPass(0);
var: xx(0), yy(0), sumy(0);
var: HH(-99999), LL(99999),
LinWide(IntPortion(WideStyl)),
LinStyl(Iff(FracPortion(WideStyl)>0,FracPortion(WideStyl)*10,1));
var: xp(0), xx1(0), cnt(0), yy1(0), AryCount(0);
var: xph(0), Datexp(0), Timexp(0), Datexp1(0), Timexp1(0);
Arrays: DateAry[10000](0), TimeAry[10000](0);
Arrays: Dates[26](0), Times[26](0), Chars[26](""), Comp[26](2);
Arrays: PriceC[26](0), PriceH[26](0), PriceL[26](0), Abars[26](0);
Vars: CharKnt(0);
AryCount=AryCount+1;
DateAry[AryCount]=Date;
TimeAry[AryCount]=Time;
If AryCount>9999 then begin
ok2draw = false;
AryCount=9999;
End;
{ Locate the Left foci, and the right foci for the ellipse }
if currentbar = 1 then begin
{find out how many we are looking for}
CharKnt=strlen(PvtsID);
For Value1=1 to CharKnt begin
Chars[Value1]=UpperStr(midstr(PvtsID,Value1,1));
End;
handl = text_getfirst(2);
Value9=0;
while handl >= 0 begin
ss = text_getstring(handl);
ss = UpperStr(ss);
For Value1=1 to CharKnt begin
if LeftStr(ss,1) = Chars[Value1] then begin
Dates[Value1] = text_getdate(handl);
Times[Value1] = text_gettime(handl);
PriceC[Value1]= Text_GetValue(handl);
If strlen(ss)>1
then Comp[Value1]=StrToNum(MidStr(ss,2,Strlen(ss)-1))
else Comp[Value1]=Compress;
end;
end;
Value9=Value9+1;
handl = text_getnext(handl,2); { IMPORTANT -- infinite loop if this is missing! }
end;
{Check to see we have them all and good dates/times}
For Value1=1 to CharKnt-1 begin
For Value2=Value1+1 to CharKnt begin
If Dates[Value2]<Dates[Value1] or Dates[Value2]=Dates[Value1]
and Times[Value2]<Times[Value1] then begin
Value3=Dates[Value2];Dates[Value2]=Dates[Value1];Dates[Value1]=value3;
Value3=Times[Value2];Times[Value2]=Times[Value1];Times[Value1]=value3;
Value3=PriceC[Value2];PriceC[Value2]=PriceC[Value1];PriceC[Value1]=value3;
End;
End;
end;
Value3=0;
For Value1=1 to CharKnt-1 begin
If Date[Value1]=0 or Time[Value1]=0 then Value3=Value3+1;
End;
If Value3<>0 then begin
CharKnt=CharKnt-Value3;
For Value1=1 to CharKnt begin
Dates[Value1]=Dates[Value1+Value3];
Times[Value1]=Times[Value1+Value3];
PriceC[Value1]=PriceC[Value1+Value3];
End;
End;
{Have Stuff in arrays and sorted by D+T -- Now Scan dates for bars/price}
end;
If IPass<CharKnt then begin
if date = dates[Ipass+1] and time = times[Ipass+1] then begin
IPass=IPass+1;
PriceH[IPass] = h;
PriceL[IPass] = l;
ABars[IPass] = CurrentBar;
end;
If H>HH then HH=H;
If L<LL then LL=L;
end;
if lastbaronchart then begin
If IPass<>CharKnt then begin
If PriceC[Ipass+1]<>0 then begin
Ipass=Ipass+1;
PriceH[IPass] = PriceC[IPass];
PriceL[IPass] = PriceC[IPass];
Value1=Round((DateToJulian(Dates[IPass])-DateToJulian(date))*5/7,0);
ABars[IPass] = CurrentBar+Value1;
For Value1=1 to 100 begin
Value2=BarsToDate_Time(0, Value1, Value3, Value4);
AryCount=AryCount+1;
DateAry[AryCount]=Value3;
TimeAry[AryCount]=Value4;
If AryCount>9999 then begin
ok2draw = false;
AryCount=9999;
End;
End;
End;
End;
If IPass<>CharKnt or ok2draw=false then begin
Value1 = text_new(date,time,c,"Missing Label/Or too many "+NumToStr(AryCount,0));
text_setstyle(Value1,1,1);
End
Else begin
FOR IPASS=1 TO CHARKNT-1 BEGIN {start of plotting loop}
fac = Comp[Ipass];
If fac=0 then fac=1;
Value94=GetBackgroundColor;
If Value94=0 then Value94=8;
Value95=mod(color+Ipass-1,16);
If (Value95=0 or Value95=Value94) then Value95=color;
x1 = ABars[IPass];
x2 = ABars[IPass+1];
Price1 = PriceH[IPass];
Price2 = PriceH[IPass+1];
Date1 = Dates[Ipass];
Time1 = Times[Ipass];
Date2 = Dates[Ipass+1];
Time2 = Times[Ipass+1];
If price1<price2
then price1=PriceL[IPass]
else price2=PriceL[IPass+1];
han=TL_NEW(DATE1,TIME1,PRICE1,DATE2,TIME2,PRICE2);
tl_setcolor(han, Value95);
tl_setsize(han, LinWide);
tl_setstyle(han, LinStyl);
tl_setextright(han,false);
tl_setextleft(han,false);
{
ellipse: x^2/a^2 + y^2/b^2 = 1
2*a is major axis
2*b is minor axis
c=sqroot(a^2-b^2) +/- on x axis=foci
}
dy = (price2-price1)/(x2-x1);
xph = (x2-x1)/2+x1;
cc = (xph-x1);
aa = cc+extn;
bb = {Power(cc*cc+aa*aa,.5)*}fac*dy*10;
SumY=price1-extn*dy;
ii = x1-extn;
Condition5=True;
While ii<=x2+extn begin
xx = xph - ii ;
Value96=(1-((xx*xx)/(aa*aa)))*(bb*bb);
If Value96<=0
then yy=0
else yy = Power(Value96,.5);
Condition1=false;
{ now plot the point }
if xp>=0 and xp<=AryCount then begin
datexp=DateAry[{AryCount-xp}ii];
timexp=timeAry[{AryCount-xp}ii];
Condition1=true;
end;
If Condition5 then begin
datexp1=datexp;
timexp1=timexp;
yy1=yy;
yys1=SumY;
condition5=false;
condition1=false;
End;
If Condition1 then begin
{Plot + side of ellipse}
han = tl_new(datexp1,timexp1,yy1+yys1,datexp,timexp,yy+SumY);
tl_setcolor(han, Value95);
tl_setsize(han, LinWide);
tl_setstyle(han, LinStyl);
tl_setextright(han,false);
tl_setextleft(han,false);
{Plot - side of ellipse}
han = tl_new(datexp1,timexp1,-yy1+yys1,datexp,timexp,-yy+SumY);
tl_setcolor(han, Value95);
tl_setsize(han, LinWide);
tl_setstyle(han, LinStyl);
tl_setextright(han,false);
tl_setextleft(han,false);
end;
xx1 = xx;
yy1 = yy;
yys1= Sumy;
datexp1=datexp;
timexp1=timexp;
ii=ii+1;
Sumy=Sumy+dy;
end; {while ii }
End; {end IPASS loop}
End; {end of the for valid NChars loop}
END; {End last bar test}
Attachment:
Description: "ND-D_3ellipses-SpecialCharacters.gif"
Attachment:
Description: "ND-D_3ellipses.gif"
Attachment:
Description: ""
Attachment:
Description: ""
Attachment:
Description: " "
|
![http://us.a1.yimg.com/us.yimg.com/a/am/ameritrade/120402_am_ban_off_x82_x_300x250_6.gif"](http://us.a1.yimg.com/us.yimg.com/a/am/ameritrade/120402_am_ban_off_x82_x_300x250_6.gif"){kind=link}