Rank: Advanced Member
Groups: Registered, Registered Users, Subscribers, Unverified Users Joined: 8/11/2005(UTC) Posts: 104
|
{ second attempt }
1:=Input("Pivot (1=Minor 2=Interm 3=Major 4=Primary)",1,4,3);
i2:=Input("Trend Direction",1,4,1);
aPivots:= ExtFml("PowerPivots.Pivots");
aTrend:= ExtFml("PowerPivots.TrendDirection",i1,i2);
PLT:=Input("Highest lines",1,8,3);
ExtFml("PowerPivots.RetInd",0,aPivots,aTrend,i1,0);
ValueWhen( 1, PLT>=1,ExtFml("PowerPivots.RetInd",0,aPivots,aTrend,i1,-0.118));
ValueWhen( 1, PLT>=2,ExtFml("PowerPivots.RetInd",0,aPivots,aTrend,i1,-0.207));
ValueWhen( 1, PLT>=3,ExtFml("PowerPivots.RetInd",0,aPivots,aTrend,i1,-0.272));
ValueWhen( 1, PLT>=4,ExtFml("PowerPivots.RetInd",0,aPivots,aTrend,i1,-0.382));
ValueWhen( 1, PLT>=5, ExtFml("PowerPivots.RetInd",0,aPivots,aTrend,i1,-0.500));
ValueWhen( 1, PLT>=6, ExtFml("PowerPivots.RetInd",0,aPivots,aTrend,i1,-0.618));
ValueWhen( 1, PLT>=7,ExtFml("PowerPivots.RetInd",0,aPivots,aTrend,i1,-0.7071));
ValueWhen( 1, PLT>=8,ExtFml("PowerPivots.RetInd",0,aPivots,aTrend,i1,-0.7861));
ExtFml("PowerPivots.RetInd",0,aPivots,aTrend,i1,1);
ExtFml("PowerPivots.RetInd",0,aPivots,aTrend,i1,1);
ExtFml("PowerPivots.RetInd",1,aPivots,aTrend,i1,1);
ExtFml("PowerPivots.RetInd",2,aPivots,aTrend,i1,1);
|