[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

RE: Best alternative to TradeStation 2000i?



PureBytes Links

Trading Reference Links

I can't take this any more!

Pierre,

I think you should go back to school and learn what C is really like bfore
pontificating on the complexity/non complexity of it!  But that's we love
about you, you're always so full it.  Does the P stand for Pretentious or
Pedagogue?

Fact is, Easy Language is not easy.  That's the biggest marketing misnomer!
For example, not only are there about the same number of data types, but the
data types in Ensgin are easier to understand because they are like all the
other programming languages out there.  The code below has 18 lines in
Ensign and 13 lines in EL. Take out the Average function and you've got
18/15.  Not that different!  The EL was written by the programmers who wrote
the language.  The Ensing was written by a trader!  Also in Ensign the
concepts are directly transferrable which means any real programmer can sit
down and begin punching out code in no time AND turn around and use that
knowledge in some other language.  Learning EL is only useful in Tradesatan
and nowhere else.  None of this Numericseries, Numericsimple bullshit!
Who's ever heard of that!  Not only that but Ensing is fully documented and
there are tons of books aobut how to program in Delphi.  If you're new to
programming, Ensgin is repleat w/copious examples on how to use.  For Queasy
Language you get a 4 or 5 word description in some stupid ReadMe file then
you have to hunt examples down in the indicators.  Until recently, no books
just some stupid class for 500-1000 bucks.  I can understand why you
consider that acceptable documentation since you've never bothered to learn
real code.  The only thing EL has going for it is the Omega list with
generous people you can ask qustions to.  Ensign has normal product support.

Fact is, the Ensign code is not only easier but WAY MORE RELIABLE TOO!!!  A
new progammer could ramp on Ensign as fast as they could ramp up on VB
because they're almost identical and there's lots of examples out there to
learn from.

Go stomp your sour grapes someplace else.



> -----Original Message-----
> From: pierre.orphelin [mailto:pierre.orphelin@xxxxxxxxxx]
> Sent: Tuesday, April 27, 1999 4:52 PM
> To: L_Omega
> Subject: Re: Best alternative to TradeStation 2000i?
>
>
> HAhaHAha!!!!!
> Hihihihihi...
> Gnâaaaaaaar...ffff!
>
> This time you got the proof that Easy Language is REALLY easy language.
> =====================================================================
> inputs : Price(NumericSeries),Length(NumericSimple);
> vars   : Factor(0),xavg0(0);
>
> if Length + 1 <> 0
> then begin
>  if CurrentBar <= 1
>  then begin
>   XAvg0 = Price;
>  end
>  else
>   Factor = 2 / (Length + 1);
>   XAvg0= Factor * Price + (1 - Factor) * XAvg0;
> end;
>
> xavg=xavg0;
> =====================================================================
> Compare with Xaverage code from the Power Editor even by
> modifying one line
> for initialisation!
>
> inputs : Price(NumericSeries),Length(NumericSimple);
> vars   : Factor(0),xavg0(0);
>
> if Length + 1 <> 0
> then begin
>  if CurrentBar <= 1
>  then begin
>   XAvg0 = average(Price, length); <==== (I can replace by a loop if you
> want, 3 lines)
>  end
>  else
>   Factor = 2 / (Length + 1);
>   XAvg0= Factor * Price + (1 - Factor) * XAvg0;
> end;
>
> xavg=xavg0;
>
> =====================================================================
> Maybe only  a C version of the Xaverage code could be more
> complicated than
> the ESPL version of the Xaverage code below.
> Thanks a lot Earl, I think that none will try to download Ensign software
> now!
> Unfortunately, this will not stop yet your multiple message post
> to promote
> this dinosaur tool on Omega List.
>
> HAhaHAha!!!!! Hihihihihi...
>
> -Pierre Orphelin
> Représentant exclusif de Omega Research en France.
> web: http://www.sirtrade.com
>
> =====================================================================
>
> -----Message d'origine-----
> De : Earl Adamy <eadamy@xxxxxxxxxx>
>
> >
> >Function ufAverageExponential(lLastBar : LongInt; lLength : LongInt;
> >lValueConstant : LongInt; rPrevXA : Real) : Real;
> >/****************************************************************
> **********
> *
> >***
> >   Author   : Earl Adamy
> >   Copyright: Copyright 1999 by Earl Adamy, all rights reserved
> <<===== OH
> YES, keep it !!!!
> >   History  : 01/26/99 Create function
> >   Purpose  : Calc Exponential MA of specifed bar value in current chart
> >              lLastBar is last bar on which Average is to be calculated
> >                0 specifies that BarEnd is to be used
> >              lLength is number of bars over which Avg is to be
> calculated
> >              lValueConstant is one of following:
> >                eOpen, eHigh, eLow, eClose, eLast (Close) values on bar
> >                eRange (High - Low)
> >                eTrueRange (> High or yesterday Low - < Low or yesterday
> >High
> >                eMidpoint (H+L/2), eMid3 (H+L+C/3, eMid4 (O+H+L+C/4)
> >                eNet (Close - Yesterday Close)
> >              rPrevXA is for recursing the previous XA providing more
> >efficient calcs
> >  Formula   : XFactorToday = 2 / (lLength + 1)
> >              XMA = (Price(today) * XFactorToday) + XMA(yesterday) * (1 -
> >XFactorToday)
> >
> >*****************************************************************
> **********
> *
> >**/
> >var
> >  lBarX:          LongInt;
> >  lBarBeg:        LongInt;
> >  lBarEnd:        LongInt;
> >  rAverage:       Real;
> >  rXFactorToday:  Real;
> >
> >Begin
> >  If lLastBar = 0 Then
> >    {default to EndBar}
> >    lBarEnd := BarEnd
> >  Else
> >    {use requested bar}
> >    lBarEnd := lLastBar;
> >  rXFactorToday := (2.0 / (lLength + 1));
> >
> >  rAverage := rPrevXA;
> >  If rAverage = 0.0 then Begin
> >    /* Initializes calc with simple average for bar (lLastBar - Length),
> >        then runs exponential calculation for length bars to bring
> >        exponential average up to speed
> >    */
> >    lBarBeg   := (lBarEnd - lLength);
> >    if lBarBeg < 1 then lBarBeg := 1;
> >    rAverage := Average(lValueConstant, lBarBeg, lLength);
> >    lBarBeg   := lBarBeg + 1;
> >  End
> >  Else
> >    {Calculate average for one period}
> >    lBarBeg := lBarEnd;
> >  For lBarX := lBarBeg to lBarEnd do
> >    rAverage := (rXFactorToday * Bar(lValueConstant, lBarX)) + ((1.0 -
> >rXFactorToday) * rAverage);
> >  Result := rAverage;
> >End;  {ufAverageExponential}
> >
>
>