|
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/
|