|
PureBytes Links
Trading Reference Links
|
I second that
Thanks DT, your codes are inspirational and educational
Cheers,
Graham
http://groups.msn.com/ASXShareTrading
http://groups.msn.com/FMSAustralia
-----Original Message-----
From: Ken Close [mailto:closeks@xxxxxxxx]
Sent: Tuesday, 28 October 2003 8:38 PM
To: amibroker@xxxxxxxxxxxxxxx
Subject: RE: [amibroker] To the grail-less team [2]
Hi DT: Some people paint with oils and brush and a canvas. You paint with
creative AB code.
Very good---creative----simple (although I could never do it---and I can not
paint either).
Thanks,
Ken
-----Original Message-----
From: DIMITRIS TSOKAKIS [mailto:TSOKAKIS@xxxxxxxxx]
Sent: Monday, October 27, 2003 7:29 PM
To: amibroker@xxxxxxxxxxxxxxx
Subject: [amibroker] To the grail-less team [2]
Select an empty IB window and paste the
/*HISTORICAL TRENDLINES, v.2.*/
x = Cum(1);per = 3;s1=L;s11=H;
pS = TroughBars( s1, per, 1 ) == 0; endt=SelectedValue(ValueWhen( pS, x
,1)); startt=SelectedValue(ValueWhen( pS, x ,2)); dtS =endt-startt; endS =
SelectedValue((ValueWhen( pS, s1,1) )); startS = SelectedValue(( ValueWhen(
pS, s1 ,2))); aS = (endS-startS)/dtS;bS = endS; trendlineS = aS * ( x -endt
) + bS;//SUPPORT LINE pR = PeakBars( s11, per, 1 ) == 0; endt1=
SelectedValue(ValueWhen( pR, x, 1)); startt1=SelectedValue(ValueWhen( pR, x,
2 )); dtR =endt1-startt1; endR = SelectedValue(ValueWhen( pR, s11, 1 ) );
startR = SelectedValue( ValueWhen( pR, s11, 2 )); aR = (endR-startR)/dtR;bR
= endR; trendlineR = aR * ( x -endt1 ) + bR;//RESISTANCE LINE
first=Min(startt,startt1);Last=Max(endt,endt1);
Plot(IIf(x>=first -10 AND x<=Last+10,trendlineS,-
1e10),"Support",colorBrightGreen,1);
Plot(IIf(x>=first-10 AND x<=Last+10,trendlineR,-
1e10),"Resistance",colorRed,1); Plot(C,"Close",colorBlack,64);
Place your cursor at the last bar and move it slowly to the left. Your graph
will recall, one by one, the trendlines of the past.!! Dimitris Tsokakis
Send BUG REPORTS to bugs@xxxxxxxxxxxxx
Send SUGGESTIONS to suggest@xxxxxxxxxxxxx
-----------------------------------------
Post AmiQuote-related messages ONLY to: amiquote@xxxxxxxxxxxxxxx
(Web page: http://groups.yahoo.com/group/amiquote/messages/)
--------------------------------------------
Check group FAQ at:
http://groups.yahoo.com/group/amibroker/files/groupfaq.html
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
Send BUG REPORTS to bugs@xxxxxxxxxxxxx
Send SUGGESTIONS to suggest@xxxxxxxxxxxxx
-----------------------------------------
Post AmiQuote-related messages ONLY to: amiquote@xxxxxxxxxxxxxxx
(Web page: http://groups.yahoo.com/group/amiquote/messages/)
--------------------------------------------
Check group FAQ at:
http://groups.yahoo.com/group/amibroker/files/groupfaq.html
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Rent DVDs Online - Over 14,500 titles.
No Late Fees & Free Shipping.
Try Netflix for FREE!
http://us.click.yahoo.com/vhSowB/XP.FAA/3jkFAA/GHeqlB/TM
---------------------------------------------------------------------~->
Send BUG REPORTS to bugs@xxxxxxxxxxxxx
Send SUGGESTIONS to suggest@xxxxxxxxxxxxx
-----------------------------------------
Post AmiQuote-related messages ONLY to: amiquote@xxxxxxxxxxxxxxx
(Web page: http://groups.yahoo.com/group/amiquote/messages/)
--------------------------------------------
Check group FAQ at: http://groups.yahoo.com/group/amibroker/files/groupfaq.html
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
|