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

Re: Improving peformance of float analysis with AmiBroker 3.75 beta



PureBytes Links

Trading Reference Links

Hi Peter,
The formula

cumvol = LastValue( Cum( Volume ) ) - Cum( Volume );
lastrange = cumvol < 1000000;
dayone = ExRem( lastrange, 0 );
Graph0 = Close;
hh = LastValue( HighestSince( dayone, High ) );
ll = LastValue( LowestSince( dayone, Low ) );
Graph0 = Close;
Graph0Style=64;
Graph0Color=2;
Graph1 = IIf( lastrange, hh, -1e10 );
Graph2 = IIf( lastrange, ll, -1e10 );
Graph1Style = Graph2Style = 1;

works perfectly. Hence the program can not read "Float".
I do not know the reason.
Dimitris Tsokakis
--- In amibroker@xxxx, "Peter Gialames" <investor@xxxx> wrote:
> Hello Tomasz,
> 
> I am getting an error with the code you posted (attached).
> 
> I am currently testing a new DLL from QP so I don't know if this is 
the
> problem.
> 
> Peter Gialames
> 
> PS GREAT WORK!!! There is allot to digest this week. Thank you 
very much!
> 
> -----Original Message-----
> From: Tomasz Janeczko [mailto:amibroker@x...]
> Sent: Sunday, September 30, 2001 12:28 PM
> To: amibroker@xxxx
> Subject: [amibroker] Improving peformance of float analysis with 
AmiBroker
> 3.75 beta
> 
> 
> Hello,
> 
> This one is mainly for Peter Gialames and the other users
> of QuotesPlus COM objects.
> 
> With AmiBroker 3.75 beta you can replace new ActiveXObject
> with AFL.CreateStaticObject() function call that creates QP2
> ActiveX object only once per AmiBroker session.
> The initialization of QP2 is extremely slow so static creation
> supported now by AmiBroker gives tremendous performance
> gain (20-50 times faster).
> 
> Check for yourself
> 
> MaxGraph = 9;
> 
> EnableScript("jscript");
> 
> // this is to show only one entry per stock
> ticker = Name();
> 
> Float = 0;
> <%
> CInfo = AFL.CreateStaticObject("QuotesPlus.CompanyInfo"); // NEW
> CreateStaticObject !
> CInfo.Symbol = AFL("ticker");
> 
> // try-catch block handles the situation when
> // QuotesPlus object returns strange values
> 
> try
> {
> AFL("Float") = Number( CInfo.Float() )*100000;
> }
> catch( e )
> {
> AFL("Float") = 0;
> }
> 
> 
> %>
> 
> cumvol = LastValue( Cum( Volume ) ) - Cum( Volume );
> lastrange = cumvol < Float;
> dayone = ExRem( lastrange, 0 );
> 
> Graph0 = Close;
> 
> 
> hh = LastValue( HighestSince( dayone, High ) );
> ll = LastValue( LowestSince( dayone, Low ) );
> 
> Graph0 = Close;
> Graph0Style=64;
> Graph0Color=2;
> 
> Graph1 = IIf( lastrange, hh, -1e10 );
> Graph2 = IIf( lastrange, ll, -1e10 );
> Graph1Style = Graph2Style = 1;
> 
> ===========================
> Best regards,
> Tomasz Janeczko
> ===============
> AmiBroker - the comprehensive share manager.
> http://www.amibroker.com
> 
> 
> 
> 
> 
> 
> 
> Your use of Yahoo! Groups is subject to 
http://docs.yahoo.com/info/terms/