Dear zultan, may you help me please

[mohammed rabie]

ALSALAM(PEACE) BE UPON YOU
A few days ago i found a website called www.wisetradertoolbox.com
and in this site they take about a very modern indicator here is a list of some of the things that are included:

Advanced Cycle Indicators:

Adaptive N Cycle Goertzel Discrete Fourier Transform
End Point Fast Fourier Transform.
Neural Networks:

Very fast.
Two different training algorithms.
Both standard and Walk-forward neural networks included.
Trained Neural Networks can be compiled to pure AFL!! This feature is new and not available anywhere else.
Pattern Exploration:

Advanced Trendline Scanner
Bullish/Bearish Gartley Pattern Finder
Bullish/Bearish Head And Shoulders Pattern Finder
Fibonacci Retracement Finder
Triangle Pattern Finder (Ascending, Descending and Wedges)
Double Bottom and Double Top Pattern Finder
Adaptive and Smooth Indicators with many different smoothers and adaptors to choose from:

Adaptive Wilder's Moving Average
Adaptive Exponential Moving Average (EMA)
Adaptive MACD
Adaptive Bollinger Bands
Adaptive/Smooth Momentum
Adaptive/Smooth StochRSI
Adaptive/Smooth TRIX
Adaptive/Smooth Relative Strength Index (RSI)
Adaptive/Smooth Money Flow Index (MFI)
Adaptive/Smooth Directional Movement Index (DMI)
Adaptive/Smooth Commodity Channel Index (CCI)
Adaptive/Smooth Average True Range (ATR)
Adaptive/Smooth Chande Momentum Oscillator (CMO)
Adaptive/Smooth Stochastic Oscillator %K and %D
Currently there are 5 smoothers and 8 adaptors included in the package. We are also working on more adaptive indicators.

Standard Indicators:

Automatic Support Indicator
Polynomial Interpolation
Hilbert Oscillator (Based on John Ehlers work)
Instant Trendline
CyberCycle
MESA Adaptive Moving Average (MAMA)
Sine Wave
Pivots
System Rotation functions

I need to know if this indicators really worth and i need them if you have it , thanks in advance
your brother mohammed

 

[Raju]

_SECTION_BEGIN("sinewave");
SetBarsRequired(100000,100000);
pi=4*atan(1);
RTD=180/pi;
DTR=pi/180;
SetOption( "initialequity", 50000 ); /* starting capital */
//PositionSize = -10; /* trade size will be 10% of available equty */


function CyclePeriod(array, alpha)
// Figure 9.4 on p. 111
{
smooth = (array + 2*Ref(array, -1) + 2*Ref(array, -2) + Ref(array, -3))/6;

for(i = 0; i < 7; i++) {
cycle=array; // Initialize early values and as array
InstPeriod = 0; // Initialize early values and as array
DeltaPhase = 0;
cycle=0;
Period=0;
}

for(i = 6; i < BarCount; i++)
{
cycle = (1 - .5*alpha)*(1 - .5*alpha)*(smooth - 2*smooth[i-1] + smooth[i-2]) + 2*(1 - alpha)*cycle[i-1] - (1 - alpha)*(1 - alpha)*cycle[i-2];
Q1 = (.0962*cycle + .5769*cycle[i-2] -.5769*cycle[i-4] - .0962*cycle[i-6])*(.5 + .08*InstPeriod[i-1]);
I1 = cycle[i-3];

if(Q1 != 0 AND Q1[i-1] != 0)
DeltaPhase = (I1/Q1 - I1[i-1]/Q1[i-1])/(1 + I1*I1[i-1]/(Q1*Q1[i-1]));
if(DeltaPhase < 0.1) DeltaPhase = 0.1;
if(DeltaPhase > 1.1) DeltaPhase = 1.1;

//----- Speed up the median calculation by placing it inline
mlen = 5;
for(k = mlen - 1; k >= 0; k--) {temparray[k] = DeltaPhase[i + k - (mlen - 1)];}
temp=0;
for(k = mlen - 1; k > 0; k--)
{for (j = mlen - 1; j > 0; j--)
{if (temparray[j-1] > temparray[j])
{
temp = temparray[j-1];
temparray[j-1] = temparray[j];
temparray[j] = temp;
}
}
}
MedianDelta = temparray[mlen - 1 - (mlen / 2)];
if(MedianDelta == 0) DC = 15;
else DC = 6.28318/MedianDelta + .5;

InstPeriod = .33*DC + .67*InstPeriod[i-1];
Period = .15*InstPeriod + .85*Period[i-1];

//Compute Dominant Cycle Phase
DCPeriod = int(Period);
RealPart = 0; ImagPart = 0;

for (Count1=0; Count1 < DCPeriod ;Count1++) {
if ((i-Count1) > 0) {
RealPart = RealPart + sin(360*DTR*Count1/DCPeriod) * Cycle[i-Count1];
ImagPart = ImagPart + cos(360*DTR*Count1/DCPeriod) * Cycle[i-Count1];
}
}

if (abs(ImagPart) > 0.001) {
DCPhase = atan(RealPart/ImagPart)*RTD;
};

if (abs(ImagPart) <= 0.001) {
DCPhase = 90*sign(RealPart);
};

DCPhase = DCPhase + 90;
if (ImagPart < 0) DCPhase = DCPhase + 180;
if (DCPhase > 315) DCPhase = DCPhase - 360;
}
return DCPhase;
}


Med = (H+L)/2;

// CyclePeriod
CP = CyclePeriod(Med, .07);
SineWave = sin(CP*DTR);
LeadSine = sin((CP+45)*DTR);


Buy =Cross(Sinewave,LeadSine);
Sell =Cross(LeadSine, Sinewave);

Plot(SineWave , "SineWave ", colorBlue, styleLine);
Plot(LeadSine , "LeadSine ", colorRed, styleLine);
_SECTION_END();

 

[zultan]

hello mohammed rabie good to see you

I have seen all and will try to collcting them according to your ranking
not promise
as for neural networks (License neded ) .. untested yet


I think your interested in neural networks and future programs that work with MS data (correct?) wich there are so many such as market worrior and a lot more BradleySiderograph Indicator

let me know if you need them just drop your email in privet message .

all the best

 

[mohammed rabie]

Hello , my friend zultan thanks so much for your replying. You are right , I'm interested in neural networks and future programs.
i hope you found and collect them soon , thanks in advance.

 

[Jose Mary]

Hello,

This AFL gives error in the following line:

CP = CyclePeriod(Med, .07);

As I can solve it? Thanks.

Greetings,