|
PureBytes Links
Trading Reference Links
|
How well did your market perform in 2005?
RoC % for year 2005
-------------------
Indices
-------
+40.2% Nikkei 225
+27.1% DAX
+23.4% CAC 40
+17.6% ASX 200
+16.7% FTSE 100
+7.0% NYSE Composite
+4.5% Hang Seng
+3.0% S&P 500
+1.4% Nasdaq Composite
-0.5% Dow Jones
Commodities
-----------
+40.5% Crude Oil CCS
+15.1% Wheat (Kansas)
+13.8% Gold
Forex/USD$
----------
+3.5% Canadian $
-6.0% Australian $
-10.1% British Pound
-12.5% Euro
-12.7% Japanese Yen
jose '-)
http://www.metastocktools.com
--- In equismetastock@xxxxxxxxxxxxxxx, "Jose Silva" <josesilva22@xxxx>
wrote:
>
> ==========
> Yearly RoC
> ==========
> ---8<-----------------------------
>
> { Yearly Rate of Change (RoC) v4.1
> Incomplete year begins on 4th data bar.
>
> ©Copyright 2004~2006 Jose Silva.
> The grant of this license is for personal use
> only - no resale or repackaging allowed.
> All code remains the property of Jose Silva.
> http://www.metastocktools.com }
>
> { User inputs }
> method:=Input("Method: [1]%percent, [2]$points",1,2,1);
> yr:=Input("RoC for Year [1800~2200]",
> 1800,2200,2004);
> yrNr:=Input("Yearly RoC: [1]Year, [2]Yearly, [3]Historical",1,3,
2);
> plot:=Input("plot: [1]RoC, [2]Year signals",
> 1,2,1);
>
> { Start/End of year }
> nuYear:=Year()<>Ref(Year(),-1) OR Cum(1)=2;
> YearEnd:=PeakBars(1,-(nuYear OR
> Cum(IsDefined(nuYear))=1 OR Cum(1)=4),1)=0;
> init:=Cum(IsDefined(YearEnd))=1;
>
> { Data Array }
> x:=C;
>
> { Yearly $ RoC change }
> chPts:=x-ValueWhen(1,YearEnd,x);
> chPts:=If(YearEnd=0,chPts,
> Ref(chPts,-1)+x-Ref(x,-1));
>
> { Yearly % RoC change }
> chPer:=(x/ValueWhen(1,YearEnd,x)-1)*100;
> chPer:=If(YearEnd=0,chPer,
> Ref(chPer,-1)+(x/Ref(x,-1)-1)*100);
>
> { Select %/$ RoC method }
> ch:=If(method=1,chPer,chPts);
>
> { Restrict RoC to selected year }
> chYear:=If(Year()=yr,ch,0);
> chYear:=If(Year()=yr,chYear,
> ValueWhen(1,
> init OR YearEnd AND Year()=yr,chYear));
>
> { Historical RoC from beginning of chart }
> chAllPts:=x-ValueWhen(1,Cum(1)=1,x);
> chAllPer:=(x/ValueWhen(1,Cum(1)=1,x)-1)*100;
>
> { Select %/$ historical RoC method }
> chAll:=If(method=1,chAllPer,chAllPts);
>
> { Select type of Yearly RoC }
> YearRoc:=If(yrNr=1,chYear,If(yrNr=2,ch,chAll));
>
> { Plot in own window }
> If(plot=1,YearRoc,nuYear-YearEnd)
>
> ---8<-----------------------------
>
>
> jose '-)
> http://www.metastocktools.com
------------------------ Yahoo! Groups Sponsor --------------------~-->
Try Online Currency Trading with GFT. Free 50K Demo. Trade
24 Hours. Commission-Free.
http://us.click.yahoo.com/RvFikB/9M2KAA/U1CZAA/BefplB/TM
--------------------------------------------------------------------~->
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/equismetastock/
<*> To unsubscribe from this group, send an email to:
equismetastock-unsubscribe@xxxxxxxxxxxxxxx
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
|