My afl collection

Status
Not open for further replies.

amibrokerfans

Well-Known Member
hi guys
ok i started posting in traderji by this thread... and i am ending my posting in traderji by this thread, as i plan i will make my personal blog. but before i get silent i want to give u all Mr.Patel system(still i think its same)..
sorry guys if i hurt u, but thats the way it is...


now in Mr.patel system i didnt find any new thing.. its our old NICK MA SWING! BUT..... ..... the parameter is the main key! its k=2 and atr=20... AND with.. HeikenAshiSmoothed which make the chart more beautiful!

ok here go the code..

_SECTION_BEGIN("Chart Settings");
SetChartOptions(0,chartShowArrows|chartShowDates);
SetChartBkColor(ParamColor("Outer Panel",colorPaleBlue));
SetChartBkGradientFill(ParamColor("Upper Chart",1),ParamColor("Lower Chart",23));
GraphXSpace=Param("GraphXSpace",10,0,100,1);
dec = (Param("Decimals",2,0,7,1)/10)+1;
bi = BarIndex();
Lbi = LastValue(BarIndex());
sbi = SelectedValue(bi);
x1= BarCount-1;
_SECTION_END();
_SECTION_BEGIN("HeikenAshiSmoothed");
GraphXSpace=5;
p=6;
Om=MA(O,p);
hm=MA(H,p);
lm=MA(L,p);
Cm=MA(C,p);
HACLOSE=(Om+Hm+Lm+Cm)/4;
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( Hm, Max( HaClose, HaOpen ) );
HaLow = Min( Lm, Min( HaClose, HaOpen ) );
PlotOHLC( HaOpen, HaHigh, HaLow, HaClose, "" + Name(), colorBlack, styleCandle | styleNoLabel );
_SECTION_END();
_SECTION_BEGIN("theswing");
SetBarsRequired(200,0);
GraphXSpace = 5;
SetChartOptions(0,chartShowArrows|chartShowDates);
a = 2;
b= 20;
HACLOSE=(O+H+L+C)/4;
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( H, Max( HaClose, HaOpen ) );
HaLow = Min( L, Min( HaClose, HaOpen ) );
d=Haclose;
e=ATR(14);
g = WMA(H-L,b);
k = a * g;
m = 1;
n[0] = 0;
for(i = 1; i < BarCount; i++)
{
if(m[i-1] == 1)
{
if(d < n[i-1])
{
m = -1;
n = d + k;
}
else
{
m = 1;
if((d - k) > n[i-1])
{
n = d - k;
}
else
{
n = n[i-1];
}
}
}
if(m[i-1] == -1)
{
if(d > n[i-1])
{
m = 1;
n = d - k;
}
else
{
m = -1;
if((d + k) < n[i-1])
{
n = d + k;
}
else
{
n = n[i-1];
}
}
}
}
Buy=Cover=Cross(d,n);
Sell=Short=Cross(n,d);
SellPrice=ValueWhen(Sell,C,1);
BuyPrice=ValueWhen(Buy,C,1);
Long=Flip(Buy,Sell);
Shrt=Flip(Sell,Buy );
_SECTION_END();
_SECTION_BEGIN("Title");
z = (GetPerformanceCounter()/200)%255;
anim=ColorHSB( ( i + z ) % 256, 155, 250 );
RequestTimedRefresh(1);
if( Status("action") == actionIndicator )
(
Title = EncodeColor(colorWhite) + Name() + " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) +
" - " + Date() +" - "+"\n" +EncodeColor(colorWhite) +"Op-"+O+" "+"Hi-"+H+" "+"Lo-"+L+" "+
"Cl-"+C+" "+ "Vol= "+ WriteVal(V)+"\n"+
EncodeColor(colorRed)+
WriteIf (Buy , " GO LONG / Reverse Signal at "+C+" ","")+
WriteIf (Sell , " EXIT LONG / Reverse Signal at "+C+" ","")+"\n"+EncodeColor(colorWhite)+
WriteIf(Sell , "Total Profit/Loss for the Last Trade Rs."+(C-BuyPrice)+"","")+
WriteIf(Buy , "Total Profit/Loss for the Last trade Rs."+(SellPrice-C)+"","")+
WriteIf(Long AND NOT Buy, "Trade : Long - Entry price Rs."+(BuyPrice),"")+
WriteIf(shrt AND NOT Sell, "Trade : Short - Entry price Rs."+(SellPrice),"")+"\n"+
WriteIf(Long AND NOT Buy, "Current Profit/Loss Rs."+(C-BuyPrice)+"","")+
WriteIf(shrt AND NOT Sell, "Current Profit/Loss Rs."+(SellPrice-C)+"",""));
PlotShapes(IIf(Buy, shapeStar, shapeNone),colorCustom11,layer = 0, HaLow,offset = -80);
PlotShapes(IIf(Buy, shapeSmallCircle, shapeNone),colorBlue,layer = 0,HaLow,offset = -80);
PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),anim,layer = 0,HaLow,offset = -63);
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorCustom11,layer = 0,HaLow,offset = -71);
PlotShapes(IIf(Sell, shapeStar, shapeNone),colorYellow,layer = 0, HaHigh,offset = 80);
PlotShapes(IIf(Sell, shapeSmallCircle, shapeNone),colorRed,layer = 0,HaHigh,offset = 80);
PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),anim,layer = 0,HaHigh,offset = -63);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorYellow,layer = 0,HaHigh,offset = 71);
AlertIf( Buy, "SOUND C:\\Windows\\Media\\tada.wav", "Audio alert", 2 );
AlertIf( Sell, "SOUND C:\\Windows\\Media\\tada.wav", "Audio alert", 2 );



ok bye all and keep legpulling :rofl:
 

manish9300

Well-Known Member
ppl r able to pull legs only when legs rnt firmly grounded and hanging in air like a rocket or jetplane .wish u all the best... may u attain trading NIRWANA through your blog.
 

ethan hunt

Well-Known Member
hi guys
ok i started posting in traderji by this thread... and i am ending my posting in traderji by this thread, as i plan i will make my personal blog. but before i get silent i want to give u all Mr.Patel system(still i think its same)..
sorry guys if i hurt u, but thats the way it is...


now in Mr.patel system i didnt find any new thing.. its our old NICK MA SWING! BUT..... ..... the parameter is the main key! its k=2 and atr=20... AND with.. HeikenAshiSmoothed which make the chart more beautiful!

ok here go the code..

_SECTION_BEGIN("Chart Settings");
SetChartOptions(0,chartShowArrows|chartShowDates);
SetChartBkColor(ParamColor("Outer Panel",colorPaleBlue));
SetChartBkGradientFill(ParamColor("Upper Chart",1),ParamColor("Lower Chart",23));
GraphXSpace=Param("GraphXSpace",10,0,100,1);
dec = (Param("Decimals",2,0,7,1)/10)+1;
bi = BarIndex();
Lbi = LastValue(BarIndex());
sbi = SelectedValue(bi);
x1= BarCount-1;
_SECTION_END();
_SECTION_BEGIN("HeikenAshiSmoothed");
GraphXSpace=5;
p=6;
Om=MA(O,p);
hm=MA(H,p);
lm=MA(L,p);
Cm=MA(C,p);
HACLOSE=(Om+Hm+Lm+Cm)/4;
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( Hm, Max( HaClose, HaOpen ) );
HaLow = Min( Lm, Min( HaClose, HaOpen ) );
PlotOHLC( HaOpen, HaHigh, HaLow, HaClose, "" + Name(), colorBlack, styleCandle | styleNoLabel );
_SECTION_END();
_SECTION_BEGIN("theswing");
SetBarsRequired(200,0);
GraphXSpace = 5;
SetChartOptions(0,chartShowArrows|chartShowDates);
a = 2;
b= 20;
HACLOSE=(O+H+L+C)/4;
HaOpen = AMA( Ref( HaClose, -1 ), 0.5 );
HaHigh = Max( H, Max( HaClose, HaOpen ) );
HaLow = Min( L, Min( HaClose, HaOpen ) );
d=Haclose;
e=ATR(14);
g = WMA(H-L,b);
k = a * g;
m = 1;
n[0] = 0;
for(i = 1; i < BarCount; i++)
{
if(m[i-1] == 1)
{
if(d < n[i-1])
{
m = -1;
n = d + k;
}
else
{
m = 1;
if((d - k) > n[i-1])
{
n = d - k;
}
else
{
n = n[i-1];
}
}
}
if(m[i-1] == -1)
{
if(d > n[i-1])
{
m = 1;
n = d - k;
}
else
{
m = -1;
if((d + k) < n[i-1])
{
n = d + k;
}
else
{
n = n[i-1];
}
}
}
}
Buy=Cover=Cross(d,n);
Sell=Short=Cross(n,d);
SellPrice=ValueWhen(Sell,C,1);
BuyPrice=ValueWhen(Buy,C,1);
Long=Flip(Buy,Sell);
Shrt=Flip(Sell,Buy );
_SECTION_END();
_SECTION_BEGIN("Title");
z = (GetPerformanceCounter()/200)%255;
anim=ColorHSB( ( i + z ) % 256, 155, 250 );
RequestTimedRefresh(1);
if( Status("action") == actionIndicator )
(
Title = EncodeColor(colorWhite) + Name() + " - " + EncodeColor(colorRed)+ Interval(2) + EncodeColor(colorWhite) +
" - " + Date() +" - "+"\n" +EncodeColor(colorWhite) +"Op-"+O+" "+"Hi-"+H+" "+"Lo-"+L+" "+
"Cl-"+C+" "+ "Vol= "+ WriteVal(V)+"\n"+
EncodeColor(colorRed)+
WriteIf (Buy , " GO LONG / Reverse Signal at "+C+" ","")+
WriteIf (Sell , " EXIT LONG / Reverse Signal at "+C+" ","")+"\n"+EncodeColor(colorWhite)+
WriteIf(Sell , "Total Profit/Loss for the Last Trade Rs."+(C-BuyPrice)+"","")+
WriteIf(Buy , "Total Profit/Loss for the Last trade Rs."+(SellPrice-C)+"","")+
WriteIf(Long AND NOT Buy, "Trade : Long - Entry price Rs."+(BuyPrice),"")+
WriteIf(shrt AND NOT Sell, "Trade : Short - Entry price Rs."+(SellPrice),"")+"\n"+
WriteIf(Long AND NOT Buy, "Current Profit/Loss Rs."+(C-BuyPrice)+"","")+
WriteIf(shrt AND NOT Sell, "Current Profit/Loss Rs."+(SellPrice-C)+"",""));
PlotShapes(IIf(Buy, shapeStar, shapeNone),colorCustom11,layer = 0, HaLow,offset = -80);
PlotShapes(IIf(Buy, shapeSmallCircle, shapeNone),colorBlue,layer = 0,HaLow,offset = -80);
PlotShapes(IIf(Buy, shapeUpArrow, shapeNone),anim,layer = 0,HaLow,offset = -63);
PlotShapes(IIf(Buy, shapeSquare, shapeNone),colorCustom11,layer = 0,HaLow,offset = -71);
PlotShapes(IIf(Sell, shapeStar, shapeNone),colorYellow,layer = 0, HaHigh,offset = 80);
PlotShapes(IIf(Sell, shapeSmallCircle, shapeNone),colorRed,layer = 0,HaHigh,offset = 80);
PlotShapes(IIf(Sell, shapeDownArrow, shapeNone),anim,layer = 0,HaHigh,offset = -63);
PlotShapes(IIf(Sell, shapeSquare, shapeNone),colorYellow,layer = 0,HaHigh,offset = 71);
AlertIf( Buy, "SOUND C:\\Windows\\Media\\tada.wav", "Audio alert", 2 );
AlertIf( Sell, "SOUND C:\\Windows\\Media\\tada.wav", "Audio alert", 2 );



ok bye all and keep legpulling :rofl:


dear amifans,
differences or not, atleast i do not want you to leave. pls reconsider.
good luck for your new venture.
 
:thumb::thumb:
Trade index Without Charts

Password will be provided to near ones and dear ones
Others please excuse, Don't fill space by placing requests.

List of members whom I have provided Password so far is HERE
Thank you for posting such wonderful stuff.
This file i have downloaded but when i try to open it,
it opens but is blank,
where to enter the password provided ?
Please advice
Thanks once again
:thumb:
 
Status
Not open for further replies.

Similar threads