FIBOs erweitert

Eröffnet von dav im Board Indikatoren aus aller Welt

Seitenlänge102030
Seite 1 von 1
#3: 08.11.2012 18:12 dav
@Rene Rose (#2)

Was man nicht besitzt, kann man icht anbieten, sonst würde es ja geschehen.

Es ist ja nicht neu, dass ich nicht programmieren kann, sonst müsste ich nicht fragen.

Im übrigen ist jede Beteiligung freiwillig.

Mit einem brauchbaren Kommentar Deinerseits hatte ich ohnehin nicht spekuliert.

Also lass Deine Prollerei und lade Deinen offensichtlichen Frust dort ab, wo er herkommt.

Empfehle sehr, sich die Rubrik "Netiquette" einmal durchzulesen. Diese gilt auch für Dich.
#2: 08.11.2012 13:19 ReneRose
@dav (#1)

Ich kann mir nicht vorstellen, dass sich jemand einige Stunden hinsetzt und die "paar Korrekturen" durchführt und Dir dann hier alles fertig vorgekaut serviert. Du machst das schon seit Jahren und tust immer so, als ob das alles ein Klacks wäre, mal eben schnell Deine unformatierten Codes aus aller Welt auf Fehler zu prüfen und für Tradesignal umzusetzen. Mit solchen Postings von Dir kann man doch inzwischen ein Buch füllen.

Du machst Dir weder die Mühe, Quellen zu den Codes zu nennen, Du beschreibst nicht, was der Indikator genau darstellt und Du bietest auch keine Grafiken, Charts oder Screenshots an, die erkennen lassen, wie das Ergebnis sein soll. Vielleicht ist das der Grund für Deine Erfolgsquote von 0.1 Prozent?

Webseite
Neuer Service
#1: 05.11.2012 19:17 dav
Die nachstehende easy language - Version bedarf einiger Korrektoren, es scheinen aber nicht sonderlich viele zu sein.
Diese F.-Variante stammt von einem m.E. sehr kundigen und fähigen Trader in den US.
Der Arbeistaufwand könnte sich also lohnen - wenn es dem einen oder andern Experten nicht sogar Spaß macht. Selbst muss ich leider passen.

Die korroigierte Fassungwürde hier veröffentlicht - setze ich 'mal voraus:

// FIBO new
inputs:
iAlert(false),
iStartDate(1070101),
iPlotFibs(true),
iPlotSR(true),
iPlotTrade(false),
iPrice( Close ),
iDecimals(2),
iPeriods(5),
iFibPlot("R"),
iFib1(.24),
iFib2(.38),
iFib3(.50),
iFib4(.62),
iFib5(.76),
iFib1Color(darkcyan ),
iFib2Color(darkbrown),
iFib3Color(darkgray),
iFib4Color(darkbrown ),
iFib5Color(darkcyan ),
HighColor( red),
LowColor( blue),
buy.color(blue),
sell.color(red),
idummy("");
variables:
fg8(white),
bg8(black),
xAppType(0),
sFirstPass(true),
tInd(""),
tAlert(""),
xFib1(iFib1),
xFib2(iFib2),
xFib3(iFib3),
xFib4(iFib4),
xFib5(iFib5),
tFib(""),
xLowestLow(0),
xHighestHigh(0),
xRange(0),
xPosition(0),
oExtremeVal( 0 ),
oExtremeBar( 0 ) ;
variables:
xBars( 0 ),
xPeriods(05),
xOldPeriods(0),
Dynamic_R( 0 ),
Dynamic_S( 0 ),
OldDynamic_R( 0 ),
OldDynamic_S( 0 ),
PrevDynamic_R( 0 ),
PrevDynamic_S( 0 ) ;
{commentary variables}
variables:
xcomm(0),
oComm1( "" ),
oComm2( "" ),
oComm3( "" ),
oComm4( "" ),
oComm5( "" ),
oComm6( "" ),
oComm7( "" ),
oComm8( "" ),
oComm9( "" ),
oComm10( "" );
{first time through}
if sFirstPass
then begin
sFirstPass = false;
{ APP TYPE TEST }
sFirstPass = false;
xAppType = GetAppInfo(aiApplicationType);
end; {if sFirstPass}
{ INITIALIZE }
tInd = "";
tAlert = "";
{ CALCULATIONS }
If date this bar >= iStartDate
then begin
{save old values}
If Dynamic_R <> PrevDynamic_R
then OldDynamic_R = PrevDynamic_R;
If Dynamic_S <> PrevDynamic_S
then OldDynamic_S = PrevDynamic_S ;
OldDynamic_R = PrevDynamic_R ;
OldDynamic_S = PrevDynamic_S ;
PrevDynamic_R = Dynamic_R ;
PrevDynamic_S = Dynamic_S ;
{ high / low for period }
xBars = xBars + 1;
oExtremeVal = Extremes( L, iPeriods, -1, Dynamic_S , oExtremeBar ) ;
oExtremeVal = Extremes( H, iPeriods, 1, Dynamic_R , oExtremeBar ) ;
If Dynamic_R <> H
and Dynamic_R < PrevDynamic_R
then if PrevDynamic_R <> 0
then Dynamic_R = PrevDynamic_R;
If Dynamic_S <> L
and Dynamic_S > PrevDynamic_S
then if PrevDynamic_S <> 0
then Dynamic_S = PrevDynamic_S;
{
If iLow <> iLow[1]
Or iHigh <> iHigh[1]
then begin
}
If iFibPlot = "R"
Or iFibPlot = "r"
then begin
xLowestLow = Dynamic_S ;
xRange = Dynamic_R - Dynamic_S ;
xFib1 = iFib1 * xRange + xLowestLow;
xFib2 = iFib2 * xRange + xLowestLow;
xFib3 = iFib3 * xRange + xLowestLow;
xFib4 = iFib4 * xRange + xLowestLow;
xFib5 = iFib5 * xRange + xLowestLow;
end
else Begin
xLowestLow = Dynamic_S ;
xHighestHigh = Dynamic_R ;
xRange = xHighestHigh - xLowestLow;
If close > OpenD(0)
then begin
xFib1 = iFib1 * xRange + xHighestHigh;
xFib2 = iFib2 * xRange + xHighestHigh;
xFib3 = iFib3 * xRange + xHighestHigh;
xFib4 = iFib4 * xRange + xHighestHigh;
xFib5 = iFib5 * xRange + xHighestHigh;
end
else begin
xFib1 = xLowestLow - iFib1 * xRange ;
xFib2 = xLowestLow - iFib2 * xRange ;
xFib3 = xLowestLow - iFib3 * xRange ;
xFib4 = xLowestLow - iFib4 * xRange ;
xFib5 = xLowestLow - iFib5 * xRange ;
end;
end;
{ Alert criteria }
If high >= Dynamic_R
then begin
fg8 = red;
bg8 = white;
tAlert = "Price touched Resistance" ;
end
else
If Low <= Dynamic_S
then begin
fg8 = blue;
bg8 = white;
tAlert = "Price touched Support" ;
end;
{ Alert }
if iAlert
and tAlert <> ""
then Alert( tAlert ) ;
if iPlotFibs
then begin
Plot1(xFib1 , "fib1", iFib1Color ) ;
Plot2(xFib2 , "fib2", iFib2Color ) ;
Plot3(xFib3 , "fib3", iFib3Color ) ;
Plot4(xFib4 , "fib4", iFib4Color ) ;
Plot5(xFib5 , "fib5", iFib5Color ) ;
end;
if iPlotSR
then begin
Plot6(Dynamic_R , "Resistance", HighColor ) ;
Plot7(Dynamic_S , "Support", LowColor ) ;
end;
if iPlotTrade
then begin
if Low[1] = Dynamic_S
and Close[1] > Low[1]
then Plot9 (Dynamic_S , "go long", buy.color ) ;
if High[1] = Dynamic_R
and Close[1] < High[1]
then Plot10 (Dynamic_R , "go short", sell.color ) ;
end ;
end;
if xAppType = 2
then begin
if close = xFib1
then SetPlotBGColor( 1, white );
if close = xFib2
then SetPlotBGColor( 2, white );
if close = xFib3
then SetPlotBGColor( 3, white );
if close = xFib4
then SetPlotBGColor( 4, white );
if close = xFib5
then SetPlotBGColor( 5, white );
if close = Dynamic_R
then SetPlotBGColor( 6, white );
if close = Dynamic_S
then SetPlotBGColor( 7, white );
{Plot8(tAlert , "Alert", yellow ) ;}
end;

CommentaryCl( "Dynamic_R: ", NumToStr( Dynamic_R , iDecimals) );
CommentaryCl( "Dynamic_S: ", NumToStr( Dynamic_S , iDecimals) );