Tradestation User Group Germany - Literatur für Indikatoren

Tradestation User Group Germany » freie Foren » Posts aus dem alten Userforum » Literatur für Indikatoren

» Hallo Gast [registrieren|anmelden]

« Vorheriges Thema Nächstes Thema »

Druckvorschau | An Freund senden | Thema zu Favoriten hinzufügen

Autor

Beitrag

_harami
Administrator

Dabei seit: 12 2001
Herkunft: User altes Forum
Beiträge: 13
_harami ist offline

Literatur für Indikatoren

Hallo,
ich suche nach Literatur für folgende Indikatoren der TS:
FEAR Oscillator, gpMarketMood, Jail Break, Klinger Vol. Osc., FSST.
Gibt es eigentlich den Money Flow von Chaikin auch für TS oder nur
für Metastock?

Wenn jemand etwas wissen sollte. Ich bin für jeden Hinweis dankbar.

13.11.2001, 20:10

_Uwe
Administrator

Dabei seit: 12 2001
Herkunft: User altes Forum
Beiträge: 313
_Uwe ist offline

RE: Literatur FEAR / Indikatoren MoneyFlowIndex

Literatur zu FEAR Oscillator

MassPsycholgy Latest Book by James Dines
( http://www.amazon.com/exec/obidos/ASIN/0964968908/ref=ase_jamesdinescompai/002-9591321-3952835

GpMarketMood......{ mir nicht bekannt }
Jail Break................{ mir nicht bekannt }
Klinger Vol. Osc.....{ mir nicht bekannt }
FSST.......................{ mir nicht bekannt }

{Chaikin s Money Flow nach EQUIS-FORMULA – MataStock, umgesetzt für TS }

Inputs: Price((high+low+close)/3), Periode(21), viewInd(true);

vars: positivPriceVolume(0), negativPriceVolume(0);
var: PMF(0), NMF(0), MFR(0), MFI(0);

positivPriceVolume = Iff( Price > Price[1], Volume*Price,0);
negativPriceVolume = Iff( Price < Price[1], -Volume*Price,0);

{Positives Money Flow}
PMF = summation(positivPriceVolume, Periode);

{Negatives Money Flow}
NMF = summation(negativPriceVolume, Periode);

if NMF<>0 then
begin
{Money Flow Ratio}
MFR = PMF / NMF;

if MFR<>0 then
begin
{Money Flow Index}
MFI = 100 - ( 100 / ( 1 + MFR ) );

if viewInd then
begin
Plot1(100,"");
Plot2(MFI, "MF-Index");
end
else
begin
Plot1(0,"");
Plot3(MFR, "MF-Ratio");
end;
end;
end;

Uwe

15.11.2001, 10:10

_harami
Administrator

Dabei seit: 12 2001
Herkunft: User altes Forum
Beiträge: 13
_harami ist offline

RE: Literatur FEAR / Indikatoren MoneyFlowIndex

vielen herzlichen Dank. Hilft mir sehr weiter.

16.11.2001, 11:10

_harami
Administrator

Dabei seit: 12 2001
Herkunft: User altes Forum
Beiträge: 13
_harami ist offline

RE: Literatur FEAR / Indikatoren MoneyFlowIndex

ich habe es jetzt eingegeben. bekomme leider bei {Negativ Money Flow} - negativPriceVolume - einen Syntax error.
Ich komme also nicht weiter.

16.11.2001, 12:10

_Uwe
Administrator

Dabei seit: 12 2001
Herkunft: User altes Forum
Beiträge: 313
_Uwe ist offline

RE: Literatur FEAR / Indikatoren MoneyFlowIndex

harami:
ich habe es jetzt eingegeben. bekomme leider bei {Negativ Money Flow} - negativPriceVolume - einen Syntax error.
Ich komme also nicht weiter.

Wenn der Fehler beim Überprüfen des Programmcodes auftritt, so bitte ich Dich nochmals sorgfältig zu schauen, ob das Kopieren (oder Abtippen) in allen Einzelheiten richtig geklappt hat, denn bei mir wird die Befehlsfolge anstandslos umgesetzt.

Zum anderen ist natürlich noch eine Frage an Dich zu stellen, die, da ich das Programm auf der TS4 umgesetzt hatte, zuvor mir nicht in den sinn kam: Mit welcer TS arbeitest Du? Die Frage findet ihre Begründung, da ich in der TS2000i und in der TSpro den Indikator Money Flow im Lieferumfang vorgefunden hatte.

Darüber hinaus hier der Hinweis auf die MetaStock-Formel, die ich versucht habe umzusetzen (siehe Link).

Inputs: Price((high+low+close)/3), Periode(21), viewInd(true);

vars: positivPriceVolume(0), negativPriceVolume(0);
var: PMF(0), NMF(0), MFR(0), MFI(0);

positivPriceVolume = Iff( Price > Price[1], Volume*Price,0);
negativPriceVolume = Iff( Price < Price[1], -Volume*Price,0);

{Positives Money Flow}
PMF = summation(positivPriceVolume, Periode);

{Negatives Money Flow}
NMF = summation(negativPriceVolume, Periode);

if NMF<>0 then
begin
{Money Flow Ratio}
MFR = PMF / NMF;

if (1+MFR)<>0 then {!!!Anderung zur 1.Fassung!!!)
begin
{Money Flow Index}
MFI = 100 - ( 100 / ( 1 + MFR ) );

http://www.equis.com/customer/support/formulas/cf00028.html
Money Flow Index (Formula) MetaStock

von harami am 16.Nov.2001 12:20 :
ich habe es jetzt eingegeben. bekomme leider bei {Negativ Money Flow} - negativPriceVolume - einen Syntax error.
Ich komme also nicht weiter.

Wenn der Fehler beim Überprüfen des Programmcodes auftritt, so bitte ich Dich nochmals sorgfältig zu schauen, ob das Kopieren (oder Abtippen) in allen Einzelheiten richtig geklappt hat, denn bei mir wird die Befehlsfolge anstandslos umgesetzt.

Zum anderen ist natürlich noch eine Frage an Dich zu stellen, die, da ich das Programm auf der TS4 umgesetzt hatte, zuvor mir nicht in den sinn kam: Mit welcer TS arbeitest Du? Die Frage findet ihre Begründung, da ich in der TS2000i und in der TSpro den Indikator Money Flow im Lieferumfang vorgefunden hatte.

Darüber hinaus hier der Hinweis auf die Meta-Stock-Formel, die ich versucht habe umzusetzen:

Money Flow - Erläuterung

Money Flow Index (Formula)

Positive Money Flow:
sum ( if ( typ( ) ,> ,ref ( typ ( ) ,-1 ) ,V * typ ( ) ,0 ) , PERIODS)

Negative Money Flow:
sum ( if ( typ( ) ,< ,ref ( typ( ) ,-1) ,V * typ ( ) * -1 ,0 ) , PERIODS)

Money Flow Ratio:
fml ( "Positive Money Flow" ) / fml ( "Negative Money Flow" )

Money Flow Index:
100 - ( 100 / ( 1 + fml ( "Money Flow Ratio" ) ) )

***The time periods are controlled by PERIODS in the Positive and Negative Money Flow formulas.

24.11.2001, 19:10

_Snurer
Administrator

Dabei seit: 12 2001
Herkunft: User altes Forum
Beiträge: 3
_Snurer ist offline

RE: Literatur FEAR / Indikatoren MoneyFlowIndex

Das minuszeichen ist falsch

negativPriceVolume = Iff( Price < Price[1], -Volume*Price,0);

es muss lauten:

negativPriceVolume = Iff( Price < Price[1], Volume*Price,0);

01.12.2001, 10:10

_Snurer
Administrator

Dabei seit: 12 2001
Herkunft: User altes Forum
Beiträge: 3
_Snurer ist offline

RE: Literatur für Indikatoren

Den Klinger Volume Oscillator gibt s bei TradeStation2000i. Und hier unten der Market Mood. Auf wunsch kan es auch ge-emailt werden.

{Market Mood - (c) G.Prick 1997}

inputs: Flen(100);
vars: ax(0),Fhi(0),Flo(0),Midd(0),stem(0),RL(0),LL(0),BLH(0),BRH(0),TLH(0),
TRH(0),LA(0),RA(0);
if currentbar = 1 then begin
Fhi = highest(H,Flen);Flo=lowest(L,Flen);
ax = Fhi-Flo;
stem = TL_New(date,time,Fhi-.6*ax,date,time,Fhi-.4*ax);
RL = TL_New(date,time,Fhi-.4*ax,date,time,Fhi-.2*ax);
LL = TL_New(date,time,Fhi-.2*ax,date,time,Fhi-.1*ax);
BLH = TL_New(date,time,Fhi-.2*ax,date,time,Fhi-.1*ax);
BRH = TL_New(date,time,Fhi-.1*ax,date,time,Fhi-.4*ax);
TLH = TL_New(date,time,Fhi-.6*ax,date,time,Fhi-.2*ax);
TRH = TL_New(date,time,Fhi-.7*ax,date,time,Fhi-.6*ax);
LA = TL_New(date,time,Fhi-.7*ax,date,time,Fhi-.6*ax);
RA = TL_New(date,time,Fhi-.3*ax,date,time,Fhi-.2*ax);
TL_SetExtLeft(stem, false);TL_SetExtRight(stem, false);
TL_SetExtLeft(RL, false);TL_SetExtRight(RL, false);
TL_SetExtLeft(LL, false);TL_SetExtRight(LL, false);
TL_SetExtLeft(BLH, false);TL_SetExtRight(BLH, false);
TL_SetExtLeft(BRH, false);TL_SetExtRight(BRH, false);
TL_SetExtLeft(TLH, false);TL_SetExtRight(TLH, false);
TL_SetExtLeft(TRH, false);TL_SetExtRight(TRH, false);
TL_SetExtLeft(LA, false);TL_SetExtRight(LA, false);
TL_SetExtLeft(RA, false);TL_SetExtRight(RA, false);
if false then plot1(0,"duh");
end;
if currentbar > 1 then begin
Fhi = highest(H,Flen);Flo=lowest(L,Flen); ax = Fhi-Flo; Midd =
Flen/2; TL_SetEnd(stem,date[Midd],time[Midd],Fhi-.4*ax);
TL_SetBegin(stem, date[Midd], time[Midd], Fhi-.6*ax);
TL_SetEnd(RL,date[Midd],time[Midd],Fhi-.6*ax); TL_SetBegin(RL,
date[Midd-Midd/2], time[Midd-Midd/2], Flo);
TL_SetEnd(LL,date[Midd],time[Midd],Fhi-.6*ax); TL_SetBegin(LL,
date[Midd+Midd/2], time[Midd+Midd/2], Flo);
TL_SetEnd(BLH,date[Midd+Midd/6],time[Midd+Midd/6],Fhi-.2*ax);
TL_SetBegin(BLH, date[Midd], time[Midd], Fhi-.4*ax);
TL_SetEnd(BRH,date[Midd-Midd/6],time[Midd-Midd/6],Fhi-.2*ax);
TL_SetBegin(BRH, date[Midd], time[Midd], Fhi-.4*ax);
TL_SetEnd(TLH,date[Midd],time[Midd],Fhi); TL_SetBegin(TLH,
date[Midd+Midd/6], time[Midd+Midd/6], Fhi-.2*ax);
TL_SetEnd(TRH,date[Midd],time[Midd],Fhi); TL_SetBegin(TRH,
date[Midd-Midd/6], time[Midd-Midd/6], Fhi-.2*ax);
if close > close[10] then begin
TL_SetEnd(LA,date[Flen],time[Flen],Fhi-.2*ax);
TL_SetBegin(LA, date[Midd], time[Midd], Fhi-.5*ax);
TL_SetEnd(RA,date[1],time[1],Fhi-.2*ax);
TL_SetBegin(RA, date[Midd], time[Midd], Fhi-.5*ax);
end else begin
TL_SetEnd(LA,date[Flen],time[Flen],Fhi-.8*ax);
TL_SetBegin(LA, date[Midd], time[Midd], Fhi-.5*ax);
TL_SetEnd(RA,date[1],time[1],Fhi-.8*ax);
TL_SetBegin(RA, date[Midd], time[Midd], Fhi-.5*ax);
end;
end;

04.12.2001, 07:10

« Vorheriges Thema Nächstes Thema »