Ontvang nu dagelijks onze kooptips!

word abonnee
Van beleggers
voor beleggers
desktop iconMarkt Monitor
  • Word abonnee
  • Inloggen

    • Geen account? Registreren

    Wachtwoord vergeten?

Technische Analyse« Terug naar discussie overzicht

Snippets

112 Posts
Pagina: «« 1 2 3 4 5 6 »» | Laatste | Omlaag ↓
  1. [verwijderd] 7 juni 2012 12:02
    Plaatje: tiny.cc/131ifw
    MetaStock Versie:

    { User inputs }
    TZ:=Input("Market's local Time Zone? [-12hrs to +12hrs]",-12,12,-5);
    shift:=Input("Advance signal by x calendar days",-30,30,0);
    plot:=Input("Plot Q1 and Q3 (half) signals? [1]Yes, [0]No",0,1,0);

    { Peerke MaanKalender Geef op Volle Maan extra Vitamine }

    { Lunar cycle length in days (synodic month) }
    LunarMonth:=29.53059;
    offset:=4.86;

    { Calendar engine }
    y:=Year()-(Month()<3);
    leap:=Int(y/4)-Int(y/100)+Int(y/400);
    mth:=Int((2+153*(Month()-3+12*(Month()<3)))/5);
    dayNr:=DayOfMonth()+mth+y*365+leap-657382
    -offset-TZ/24+shift;

    { New/Q1/Full/Q3 Moon cycles }
    NM:=Frac((DayNr+LunarMonth/2)/LunarMonth);
    Q1:=Frac((DayNr+LunarMonth/4)/LunarMonth);
    FM:=Frac(DayNr/LunarMonth);
    Q3:=Frac((DayNr-LunarMonth/4)/LunarMonth);

    { Opletten Peerke extra Oortjes geven }

    { Lunar cycle signals }
    cycle:=FM-NM;
    FM:=cycle<0 AND Alert(cycle>0,2);
    NM:=-(cycle>0 AND Alert(cycle<0,2));
    cycle:=Q1-Q3;
    Q1:=(cycle<0 AND Alert(cycle>0,2))*.5;
    Q3:=(cycle>0 AND Alert(cycle<0,2))*-.5;
    signals:=If(plot=1,NM+Q1+FM+Q3,NM+FM);

    { Opletten Peerke extra BullePezen geven}
    signals
  2. [verwijderd] 7 juni 2012 13:33
    Naam: Elder's Impulse System

    Probleem: tiny.cc/jb6ifw
    Plaatje: www.uploadplaatjes.nl/img/n/593201/

    Op Trade 2 Win wordt een vraag gesteld. Beetje dom om daar een vraag te stellen natuurlijk. Zijn nogal suf daar bij Trade 2 Win.

    Plaatje Dag: www.uploadplaatjes.nl/img/n/593204/

    <---------------------------------- Code begint na deze regel
    Once False = 0
    Once True = 1
    Once Noft = -1
    Once PI = 3.141592653

    If False = True and Noft = False and Not True Then
    Pi=Pi
    endif

    Pc=5
    Pl=35
    Ps= 5

    If Year MOD 4 = False Then
    P=13
    else
    P=11
    endif

    aa=Exponentialaverage[p](Close)

    cc=MACD[pc,pl,ps](close)

    if aa > aa[True] and cc>CC[True] Then
    dd =True
    else
    dd=False
    endif

    if aa<aa[True] and cc < cc[True] then
    ee=True
    else
    ee=False
    endif

    if ( aa <aa[True] and cc > cc[True]) or (aa>aa[True] and cc<cc[True]) Then
    ff=True
    else
    ff=False
    endif

    SignTxt = Undefined

    Return SignTxt Coloured(150,150,150) as "Elder Impulse System", dd Coloured(0,255,0) as "Red Bar",ee Coloured(255,0,0) as "Green Bar",ff coloured(0,0,255) as "Blue Bar "

  3. [verwijderd] 7 juni 2012 16:33
    Nou het boogje dan nog. Geen idee wat iemand met een boogje moet maar goed iedereen doet zijn dansje is niet anders.

    www.uploadplaatjes.nl/img/n/593429/

    En daarmee zijn alle vragen naar ik hoop beantwoord. Naar tevredenheid wellicht niet maar goed je moet altijd wat te wensen hebben natuurlijk anders wordt het leven saai.

    Zou zelf de Saucer nemen overigens dat is toch ook een boog en zit standaard in PRT: www.uploadplaatjes.nl/img/n/593438/

    -----------------------------> Code volgt na deze regel

    //////////////////////////////////////////////////////////
    //////////////////////////////////////////////////////////
    // Geschreven door Tom Noach
    //////////////////////////////////////////////////////////
    //////////////////////////////////////////////////////////
    //////////////////////////////////////////////////////////
    //////////////////////////////////////////////////////////
    // Once Null = 0
    // Once Null = 0
    // Once Null = 0
    // Once Null = 0
    // Begin Intial INIT Routine FILL Work Space
    //////////////////////////////////////////////////////////

    Once False = 0
    Once True = 1
    Once DoNoThing = False + DoNoThing
    Once Null = 0

    Once False = 0
    Once True = 1
    Once Noft = -1
    Once PI = 3.141592653

    If False = True and Noft = False and Not True or Null Then
    Pi=Pi
    endif
    K = 20
    AB=3

    A=BarIndex

    sig=sin(360*a/11)+2*sin(360*a/19+90)
    b=SQRT(barindex*(b+1))
    b=abs((b-ROUND(b))*4)
    c=b-1
    sig=sig+c
    n=200
    pr=sig
    alpha=2*cos(360*1/k)
    q1=0
    q2=0

    for i=n downto 0
    q3=pr[i]+alpha*q1-q2
    q2=q1
    q1=q3
    next

    amp=sqrt(square(q1)+square(q2)-alpha*q1*q2)
    real=q1-(alpha*q2)/2
    imag=q2*sin(360*1/k)
    phas=atan(imag/real)
    if real<0 then
    phas=phas+180
    elsif real>=0 and imag<0 then
    phas=phas+360
    endif

    If Sig = Sig Then
    endif

    ST= Supertrend[2,10]

    If Close > ST Then
    Col = 1
    else
    Col = -1
    endif

    SinusWave = (2*amp/n)*sin(360/k+phas[1]+90)

    If BarIndex < 210 Then
    // SinusWave=Undefined
    endif

    Return SinusWave[Ab] Coloured by Col as "Boogje"

  4. [verwijderd] 8 juni 2012 09:02
    Naam Indicator: Engulfing

    S&C April 2012: www.traders.com/documentation/feedbk_...
    Plaatje: www.uploadplaatjes.nl/img/n/594243/

    Origin of Species: www.candlestickforum.com/PPF/Paramete...

    <--------------------------------Code begint na deze regel

    Once False = 0
    Once True = 1

    Once False = 0
    Once True = 1
    Once Noft = -1
    Once PI = 3.141592653

    If False = True and Noft = False and Not True Then
    Pi=Pi
    endif

    BodyWhite=High > High[1] and Low < Low[1] and Close > Open
    BodyBlack=High > High[1] and Low < Low[1] and Close <= Open

    Return BodyWhite Coloured(100,150,255) as "Bearish Engulfing", BodyBlack Coloured(80,60,100) as "Bullish Engulfing"

  5. [verwijderd] 8 juni 2012 10:25
    Naam Indicator: Kicker

    S&C April 2012: www.traders.com/documentation/feedbk_...
    Plaatje: www.uploadplaatjes.nl/img/n/594281/

    Origin of Species: www.candlestickforum.com/PPF/Paramete...

    <--------------------------------Code begint na deze regel

    Once False = 0
    Once True = 1

    Once False = 0
    Once True = 1
    Once Noft = -1
    Once PI = 3.141592653

    If False = True and Noft = False and Not True Then
    Pi=Pi
    endif

    DeltaOpen= ABS(Open -Open[1])
    OTS=DeltaOpen < 0.50

    BodyWhite=Close > Open
    BodyBlack=Close <= Open

    KickerBe = False
    KickerBu=False

    If BodyBlack[1] and BodyWhite[0] and OTS[1] Then
    KickerBe=Noft
    endif
    If BodyWhite[1] and BodyBlack[0] and OTS[1] Then
    KickerBu=True
    endif

    Return KickerBe Coloured(100,150,255) as "Kicker Bearish", KickerBu Coloured(80,60,100) as "Kicker Bullish"

  6. [verwijderd] 8 juni 2012 13:36
    Allereerst bedankt voor de Snippets mag ze graag verzamelen en uit proberen om zo tot iets te komen.

    Tom, is het ook mogelijk dat de indicator engulfing tekst te laten plaatsen in de grafiek in plaats van blokjes onderin?
    en heb je ook een idicator van de hamer of hanging man?

    De boogjes.
    Dit was niet echt wat ik bedoelde maar kom daar later nog op terug.

    Tom ik sta open voor verbetering die door jou worden aangereikt en ik bedoel daar de indicatoren mee.

    Bedankt!



  7. [verwijderd] 8 juni 2012 13:48
    Voor we nu te hard van stapel lopen even halt. De indicatoren zijn niet mijn indicatoren het zijn de indicatoren zoals S&C ze gebruikt. Lees het begin nog maar eens.
    Het is extra wat ik erbij doe.

    Tot 2 jaar geleden leverde PRT de service om de indicatoren te maken bij en voor het blad S&C. En daarom heb ik gesteld wil je een toelichting dan snel reageren omdat ik het verder niet bewaar. Is niet mijn zooi en het meeste gooi ik gelijk weg.

    Kijk vind het best kritiek te krijgen maar lees dan de begin tekst.

    En dan nog iets de titel is Snippest dan zou het handig zijn als mensen geen commentaar leveren om die manier blijft het overzichtelijk. Van mij branden die klotezooi gelijk af ik zal er niet mee zitten. Halverwege had ik al spijt van. Eigenlijk zou iedereen zijn eigen zooi moeten maken maar goed wil best een handje helpen maar ga echt geen dagwerk van maken. Dus neem het zoals het is en wil je het verbeteren ga je gang.

    Zijn er andere verzoeken dan bekijk ik dat stuk voor stuk op sommige dingen zitten nu eenmaal rechten ik ga geen dingen van David van Sentient Trader publiceren. Wil met iedereen ruzie maken behalve met David die uitstekend Nederlands leest voor een Zuid-Afrikaan en met Chris Grafton wil ook geen ruzie voor de rest maakt het me niks uit.
  8. [verwijderd] 8 juni 2012 14:21
    De meeste indicatoren waaronder kan je hier vinden: www.prorealtime.com/nl/library
    Elk land heeft zijn eigen toko dus als je slim bent loop je als je tenminste zin hebt de verschillende landen af.

    Italy: www.prorealtime.com/it/library

    Spanje: www.prorealtime.com/es/library

    Great Brit: www.prorealtime.com/en/library

    Kraut: www.prorealtime.com/de/library

    Het eerste wat ik dan doe als er iets is dan kijk ik op de verschillende landen of het al gemaakt is. Zo ja dan haal ik even door de schredder zoniet dan schrijf ik het. Soms zijn dingen niet mogelijk zoals de Swammi's en de boogjes dat is echt buiten het bereik van PRT. IBuilder is geen taal dus je loopt heel snel tegen beperkingen aan.

    En dan heb je bepaalde sites die indicatoren maken of onderhouden: www.blai5.net/web/

    Hele zooi van Rahul RMO staat er op maar dat ik dus nooit doen: www.blai5.net/web/index.php?option=co...
  9. [verwijderd] 8 juni 2012 14:41
    En als laatste vind je een systeem wat werkt. Hou het voor je. Vertel het tegen niemand zelfs niet tegen je vrouw, man of kinderen. Vertel het tegen niemand. Je mag het tegen de hond vertellen maar dan wel daarna af laten maken.
    Vind je een systeem wat werkt hou het voor je. Bedwing iedere neiging het te vertellen. De dag dat je het doorvertelt is de laatste dat het systeem werkt.
    Vraag maar een Ta-Phoenix/Peerke je vertelt het niet door of je schrijft op. Doe je wel dan glipt het tussen je vingers door en nooit zal je meer winst maken. Dat is de Heilige Graal dat is de vloek zo zijn de wetten. Nooit maar dan ook nooit vertel je iets door. Herhaal dit 100 maal.

    En dan zet ik Enveloppe op de Kk wee mij, wee mij, wee mij
    binck1.it-finance.com/BinckV9/tmp/img...

    www.youtube.com/watch?v=XwItzXGkawI
  10. [verwijderd] 8 juni 2012 17:24
    Naam Indicator: Hurst 5 Weeks Stop FLD

    Plaatje: www.uploadplaatjes.nl/img/n/594812/

    Origin of Species: www.tradersdaytrading.com/hurst_cycle...

    <--------------------------------Code begint na deze regel

    Once False = 0
    Once True = 1
    Once Noft = -1
    Once FirstTime = 0

    Disp = 5
    ///////////////////////////////////////////////////////////////////////
    // Een ParaMeter
    // Naam Disp
    // Label Disp
    // Geheel Getal
    // Parameter restrictie => 0
    // Default 5
    ///////////////////////////////////////////////////////////////////////

    Noft = Noft and True and False = FirstTime

    IF DayOfWeek < DayOfWeek[True] Then
    L40W=lowest[200](Low)
    L20W=lowest[100](Close)
    L10W=lowest[50](Close)
    L05W=lowest[25](Close)

    D1=L10W-L05W
    D2=L40W-L20W
    D3=L40W-L10W

    If D1 < 1 Then
    L05W=L05W+ 1
    endif

    If D2 < 1 Then
    L20W=L20W+ 1
    endif

    If D3 < 1 Then
    L40W=L40W- 1
    endif

    endif

    L01W= ExponentialAverage[3](lowest[05](Close))
    H01W= ExponentialAverage[7](Lowest[05](Close))

    If Disp = 0 Then
    L01W=Undefined
    H01W=Undefined
    endif
    If Disp = 1 Then
    // L01W=Undefined
    // H01W=Undefined
    endif
    If Disp = 2 Then
    L01W=Undefined
    H01W=Undefined
    L40W=Undefined
    L20W=Undefined
    L10W=Undefined
    L05W=Undefined
    endif
    If Disp = 5 Then
    L01W=Undefined
    H01W=Undefined
    L40W=Undefined
    L20W=Undefined
    L10W=Undefined
    // L05W=Undefined
    endif

    Return L40W Coloured(139,0,139) as "Low 40 Weken",L20W Coloured(50,205,50) as "Low 20 Weken", L10W coloured(220,20,60) as "Low 10 Weken",L05W coloured (101,150,250) as "Low 5 Weken",L01W coloured (176,255,47) as "Low 1 Week",H01W coloured (224,255,255) as "High 1 Week"

  11. [verwijderd] 8 juni 2012 17:30
    quote:

    TA-Phoenix schreef op 8 juni 2012 17:28:

    [...] Lenig hondje, lukt mijn niet :-)
    Ach wat is lenig he

    Het systeem Phoenix heeft gisteren na sluiting verkocht wat vorige week nabeurs was gekocht.

    Lenig is een kwestie van opvatting en lenig ben je.

    Heb er nog een voor je.

    Redundantie:

    Nu ga je op het internet zoeken wat dat betekent redundantie.

    En moet je denken aan ik heb 30 databases die ik bij werk.

    En dan weer redundantie

112 Posts
Pagina: «« 1 2 3 4 5 6 »» | Laatste |Omhoog ↑

Meedoen aan de discussie?

Word nu gratis lid of log in met je emailadres en wachtwoord.