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

[amibroker] Re: 2004



PureBytes Links

Trading Reference Links

DT, 

Would you please write me some code to make Amibroker shovel the snow
from my driveway?

Happy Holidays,

Mark

--- In amibroker@xxxxxxxxxxxxxxx, "DIMITRIS TSOKAKIS" <TSOKAKIS@xxxx>
wrote:
> I hope there will be no questions for the following Indicator
Builder 
> AFL code. Paste it carefully and...
> 
> x=Cum(1);L1=LastValue(x);
> F=StochD()+30*sin(Cum(1/5))+20*sin(10*Cum(1/10));
> Plot(F,"",1,styleNoLine+styleNoLabel); 
> PlotShapes(shapeStar*(F>95)*(X>L1-180),1+(X%25));
> PlotShapes(shapeHollowStar*(F<30 AND F>10)*(X>L1-180),colorWhite);
> y0=20;y1=60;y=0.5*(y0+y1);Plot(0,"",1,styleNoLine+styleNoLabel);
> Plot(y0+y1,"",1,styleNoLine+styleNoLabel);
> n=4;d0=140;dd=10;
> 
> d=d0;Plot(LineArray(x[L1-d],y0[d],x[L1-d+1],y1[d],0),"",1,1);
> Plot(LineArray(x[L1-d-1],y[L1-d-1],x[L1-d-1+5],y
[L1-d-1+4],0),"",1,1);
> d1=d-n;Plot(LineArray(x[L1-d1],y0[d1],x[L1-d1+1],y1[d1],0),"",1,1);
> 
> d=d0-dd;Plot(LineArray(x[L1-d],y0[d],x[L1-d+1],y1[d],0),"",1,1);
> Plot(LineArray(x[L1-d-1],y[L1-d-1],x[L1-d-1+5],y
[L1-d-1+4],0),"",1,1);
> Plot(LineArray(x[L1-d-1+1],y1[L1-d-1],x[L1-d-1+5+1],y1[L1-d-
> 1+4],0),"",1,1);
> d1=d-n;Plot(LineArray(x[L1-d1],y0[d1],x[L1-d1+1],y1[d1],0),"",1,1);
> 
> d=d-dd;Plot(LineArray(x[L1-d],y0[d],x[L1-d+1],y1[d],0),"",1,1);
> Plot(LineArray(x[L1-d-1],y[L1-d-1],x[L1-d-1+5],y
[L1-d-1+4],0),"",1,1);
> Plot(LineArray(x[L1-d-1+1],y1[L1-d-1],x[L1-d-1+5+1],y1[L1-d-
> 1+4],0),"",1,1);
> d1=d-n;Plot(LineArray(x[L1-d1],y[d1],x[L1-d1+1],y1[d1],0),"",1,1);
> 
> d=d-dd;Plot(LineArray(x[L1-d],y0[d],x[L1-d+1],y1[d],0),"",1,1);
> Plot(LineArray(x[L1-d-1],y[L1-d-1],x[L1-d-1+5],y
[L1-d-1+4],0),"",1,1);
> Plot(LineArray(x[L1-d-1+1],y1[L1-d-1],x[L1-d-1+5+1],y1[L1-d-
> 1+4],0),"",1,1);
> d1=d-n;Plot(LineArray(x[L1-d1],y[d1],x[L1-d1+1],y1[d1],0),"",1,1);
> 
> d=d-dd;Plot(LineArray(x[L1-d],y0[d],x[L1-d+3],y1[d],0),"",1,1);
> Plot(LineArray(x[L1-d],y1[d],x[L1-d+1],y[d],0),"",1,1);
> 
> d=d-2*dd;Plot(LineArray(x[L1-d],y0[d],x[L1-d+1],y1[d],0),"",1,1);
> d1=d-n;Plot(LineArray(x[L1-d1],y0[d1],x[L1-d1+1],y1[d1],0),"",1,1);
> Plot(LineArray(x[L1-d+1],y1[d],x[L1-d+4],y0[d],0),"",1,1);
> 
> d=d-dd;Plot(LineArray(x[L1-d],y0[d],x[L1-d+1],y1[d],0),"",1,1);
> Plot(LineArray(x[L1-d-1],y[L1-d-1],x[L1-d-1+5],y
[L1-d-1+4],0),"",1,1);
> Plot(LineArray(x[L1-d-1+1],y1[L1-d-1],x[L1-d-1+5+1],y1[L1-d-
> 1+4],0),"",1,1);
> Plot(LineArray(x[L1-d-1+1],y0[L1-d-1],x[L1-d-1+5+1],y0[L1-d-
> 1+4],0),"",1,1);
> 
> d=d-dd;Plot(LineArray(x[L1-d],y0[d],x[L1-d+1],y1[d],0),"",1,1);
> Plot(LineArray(x[L1-d],y0[L1-d-1],x[L1-d-1+4],y[
L1-d-1+3],0),"",1,1);
> d1=d-n+1;Plot(LineArray(x[L1-d1],y[d1],x[L1-d1+2],y0
> [d1],0),"",1,1);d=d-5;
> Plot(LineArray(x[L1-d],y0[d],x[L1-d+1],y1[d],0),"",1,1);
> 
> d=d-dd;Plot(LineArray(x[L1-d],y0[d],x[L1-d+3],y1[d],0),"",1,1);
> Plot(LineArray(x[L1-d],y1[d],x[L1-d+1],y[d],0),"",1,1);
> 
> d=d-7;Plot(LineArray(x[L1-d],y0[d],x[L1-d+1],y1[d],0),"",1,1);
> Plot(LineArray(x[L1-d-1],y[L1-d-1],x[L1-d-1+5],y
[L1-d-1+4],0),"",1,1);
> Plot(LineArray(x[L1-d-1+1],y1[L1-d-1],x[L1-d-1+5+1],y1[L1-d-
> 1+4],0),"",1,1);
> Plot(LineArray(x[L1-d-1+1],y0[L1-d-1],x[L1-d-1+5+1],y0[L1-d-
> 1+4],0),"",1,1);
> 
> d=d-dd;Plot(LineArray(x[L1-d],y0[d],x[L1-d+1],y1[d],0),"",1,1);
> Plot(LineArray(x[L1-d-1],y[L1-d-1],x[L1-d-1+5],y
[L1-d-1+4],0),"",1,1);
> Plot(LineArray(x[L1-d-1+1],y1[L1-d-1],x[L1-d-1+5+1],y1[L1-d-
> 1+4],0),"",1,1);
> d1=d-n;Plot(LineArray(x[L1-d1],y0[d1],x[L1-d1+1],y1[d1],0),"",1,1);
> 
> d=d-dd;Plot(LineArray(x[L1-d],y0[d],x[L1-d+1],y1[d],0),"",1,1);
> Plot(LineArray(x[L1-d-1],y[L1-d-1],x[L1-d-1+5],y
[L1-d-1+4],0),"",1,1);
> Plot(LineArray(x[L1-d-1+1],y1[L1-d-1],x[L1-d-1+5+1],y1[L1-d-
> 1+4],0),"",1,1);
> d1=d-n;Plot(LineArray(x[L1-d1],y[d1],x[L1-d1+1],y1[d1],0),"",1,1);
> Plot(LineArray(x[L1-d],y[d],x[L1-d+5],y0[d],0),"",1,1);
> Title="";
> 
> 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 

Yahoo! Groups Links

To visit your group on the web, go to:
 http://groups.yahoo.com/group/amibroker/

To unsubscribe from this group, send an email to:
 amibroker-unsubscribe@xxxxxxxxxxxxxxx

Your use of Yahoo! Groups is subject to:
 http://docs.yahoo.com/info/terms/