Lieber Besucher, herzlich willkommen bei: INVESTOX-Forum. Falls dies Ihr erster Besuch auf dieser Seite ist, lesen Sie sich bitte die Hilfe durch. Dort wird Ihnen die Bedienung dieser Seite näher erläutert. Darüber hinaus sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren oder informieren Sie sich ausführlich über den Registrierungsvorgang. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.
Freitag, 23. Juli 2004, 09:17
Insync Index by Norm North
Hallo
Hab mir mal die Arbeit gemacht den "Insync Index by Norm North"
von Metastock zu übersetzten. Dabei hat sich ein Fehler eingeschlichen, der sich so äusert, das die Berechnung immer 8Perioden zurück liegt. Kann sich bitte einer vo Euch mal die Formel anschauen ich sehe den Wald vor lauter Bäumen nicht mehr.
Danke im vorraus
Gruß ST.L
Hab mir mal die Arbeit gemacht den "Insync Index by Norm North"
von Metastock zu übersetzten. Dabei hat sich ein Fehler eingeschlichen, der sich so äusert, das die Berechnung immer 8Perioden zurück liegt. Kann sich bitte einer vo Euch mal die Formel anschauen ich sehe den Wald vor lauter Bäumen nicht mehr.
|
Quellcode |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 |
DPO
Detrended Price Oscillator
Const Daten: 10;
Close-Ref( GD(Close, 20, S),Daten)
_________________________________________________
ISI
Insync Index
Calc C: Close;
Const Daten1: 20;
Const Daten2:10;
Const Daten3:14;
Const Daten4:18;
Calc StdAbw1:StdAbw(C ,Daten1,2);
Calc CCI1:CCI(Daten3);
Calc DPO1:DPO(Daten4);
Calc MACD1:MACD(C);
Calc ROC1:ROC(C , Daten2, $);
Calc EMV1: EMV(Daten2,S);
Calc Stoch1:Stoch(Daten3,1);
50
+ (If(CCI1 > 100, 5, If(CCI1<-100, -5, 0)))
+ (If((C-( GD(C,Daten1,S) - 2 * (StdAbw1))) /
(GD(C,Daten1,S) + 2 * (StdAbw1)) -
(GD(C,Daten1,S) - 2 * (StdAbw1)) < .05, -5,
If((C-( GD(C,Daten1,S) - 2 * (StdAbw1))) /
(GD(C,Daten1,S) + 2 * (StdAbw1)) -
(GD(C,Daten1,S)- 2 * (StdAbw1)) > .95, 5, 0)))
+ (If(RSI(Daten3,Daten3) > 80,5,If(RSI(Daten3,Daten3) < 20,-5,0)))
+ (If(Stoch1 > 80,5,If(Stoch1 <20,-5,0)) )
+ (If(Stoch1 > 80, 5, If(Stoch1 < 20, -5,0)) )
+ (If(MFI(Daten1) > 80,5,If(MFI(Daten1) < 20,-5,0)))
+ (If(EMV1 - GD(EMV1,10,S) < 0,
If(GD(EMV1,10,S) < 0, -5, 0),0))
+ (If(EMV1 - GD(EMV1,10,S) > 0,
If(GD(EMV1,10,S) > 0, 5, 0),0) )
+ (If(ROC1 - GD(ROC1, 10,S) > 0,
If(GD(ROC1, 10,S)> 0,5,0),0))
+ (If(ROC1 - GD(ROC1, 10,S) < 0,
If(GD(ROC1,10,S)< 0,-5,0),0) )
+ (Ref((If(DPO1 - GD(DPO1, 10, S) > 0,
If(GD(DPO1,10,S) > 0, 5, 0), 0)),-10) )
+ (Ref((If(DPO1 - GD(DPO1, 10, S)< 0,
If(GD(DPO1,10,S) < 0, -5, 0), 0)),-10) )
+ (If(MACD1 - GD(MACD1, 10, S) > 0,
If(GD(MACD1,10, S) > 0, 5, 0), 0))
+ (If(MACD1 - GD(MACD1, 10, S) < 0,
If(GD(MACD1,10,S) < 0, -5, 0), 0))
|
Danke im vorraus
Gruß ST.L
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »ST.L« (23. Juli 2004, 10:08)
