>From Wikipedia. 'Tis the dream of each programmer Before his life is done, To write three lines of APL And make the damn thing run. JOE
Sent: Tuesday, December 05, 2006 6:22 AM Subject: Re: [amibroker] Re: Having a nasty time figuring this APL out. > If you've been coding for 30 years you must have bushed up against APL? > (A Programming Language) Things were going so well for IBM in hardware > and software that we were trying to convert customers to using this > language. > In APL every variable was treated as a set(array). These sets had different > shapes/characteristics. Amibroker has that similar aspect to APL, except > you don't to use a special type ball with Greek symbols. For example to get > the > shape of the set (rho Close)....provides the number of elements in that set, > while > +/Close would sum the elements. Calculating an average was +/Close divided > by rho Close > > JOE > ----- Original Message ----- > From: "Homar Simpson" <[EMAIL PROTECTED]> > To: <amibroker@yahoogroups.com> > Sent: Tuesday, December 05, 2006 12:10 AM > Subject: [amibroker] Re: Having a nasty time figuring this APL out. > > > > As I mentioned I've been programming for 30 years. > > > > What I'm doing here is assigning a SINGLE boolean variable based on > > the comparison of array contents. If I did this in VB or VBA , there > > would be no issue. Are you saying the boolean takes on the > > characteristic of the tested array? I think Tradeestation does > > something like that. > > > > If thats the case , how would you > > > > If I say Var1=x(5)-y(2), then Var1 is not an array. > > > > Explain how: > > if (PassTest==False) i=0; > > generates an array error?? > > > > > > Please explain the actual reason, I've read the docs and there's > > nothing there to make this clear. > > > > > > ================================================================ > > Days=Param("Days To Test",3,1,15,1); > > > > PassTest=True; > > > > for(i=Days; i>0 ; i--) > > > > { > > TestVolume = IIf((Ref(Volume ,-i+1)> Ref(Volume ,-i)),True,False); > > > > PassTest = IIf(testvolume == False,False,PassTest ); > > > > > > if (PassTest==False) i=0; > > > > > > } > > > > > > _TRACE("--------------------------------- "); > > > > FL1=PassTest; > > FL2=Close >Param("ClosingPrice",5,0,999999,1); > > > > Filter = FL1 AND FL2; > > > > AddColumn(Close,"Close",1.4); > > AddColumn(Volume,"Volume",1.0); > > AddTextColumn( FullName(), "Full name", 77); > > > > AddColumn(Ref(Volume,-1),"Volume -1",1.0); > > AddColumn(Ref(Volume,-2),"Volume -2",1.0); > > AddColumn(Ref(Volume,-3),"Volume -3",1.0); > > > > > > > > Please note that this group is for discussion between users only. > > > > To get support from AmiBroker please send an e-mail directly to > > SUPPORT {at} amibroker.com > > > > For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG: > > http://www.amibroker.com/devlog/ > > > > For other support material please check also: > > http://www.amibroker.com/support.html > > > > Yahoo! Groups Links > > > > > > > > > > > > Please note that this group is for discussion between users only. > > To get support from AmiBroker please send an e-mail directly to > SUPPORT {at} amibroker.com > > For NEW RELEASE ANNOUNCEMENTS and other news always check DEVLOG: > http://www.amibroker.com/devlog/ > > For other support material please check also: > http://www.amibroker.com/support.html > > Yahoo! Groups Links > > > >