ROCKET JET AUTO BUY SELL SIGNAL FREE BEST AMIBROKER INTRADAY AFL
Rocket Jet Is One
Of The Power Full afl For Intraday Trading. It
is easy and simple. Shows autos buy and
sell signals with stop loss. Best amibroker afl for intraday trading.
RECOMMENDATION TIME
FRAME
10 min / 15 min the time frame for intraday.
HOW TO USE
Just copy the afl
and paste it to Program Files\ Amibroker\Formulas\Custom.
 |
Rocket Jet Auto Buy Sell Signal Free Amibroker Intraday Afl |
 |
Rocket Jet Auto Buy Sell Signal Free Amibroker Intraday Afl |
AFL
_SECTION_BEGIN("Sound-script");
Length=Param("Length",25,
2);
Deviation=Param("Deviation",2);
MoneyRisk=Param("Money
Risk", 1);
LineStyle=ParamToggle("Display
line mode", "No|Yes", 0);
cUpTrendLine =
ParamColor("UpTrendLine", colorGold);
cDnTrendLine =
ParamColor("DownTrendLine", colorGold);
TurnedUp=Nz(StaticVarGet("TurnedUp"));
TurnedDown=Nz(StaticVarGet("TurnedDown"));
SoundON =
ParamToggle("Sound","Off|On",1);
procedure
CalcTrend_proc(bbtop,bbbot,Length,MoneyRisk,SoundON,TurnedUp,TurnedDown)
{
global UpTrendLine;
global DownTrendLine;
global smax;
global smin;
UpTrendLine=Null;
DownTrendLine=Null;
smax=Null;
smin=Null;
trend=0;
for
(i=Length+1; i<BarCount;
i++)
{
smax[i]=bbtop[i];
smin[i]=bbbot[i];
if
(C[i]>smax[i-1]) trend=1;
if
(C[i]<smin[i-1]) trend=-1;
if(trend>0
&& smin[i]<smin[i-1]) smin[i]=smin[i-1];
if(trend<0
&& smax[i]>smax[i-1]) smax[i]=smax[i-1];
bsmax[i]=smax[i]+0.5*(MoneyRisk-1)*(smax[i]-smin[i]);
bsmin[i]=smin[i]-0.5*(MoneyRisk-1)*(smax[i]-smin[i]);
if(trend>0
&& bsmin[i]<bsmin[i-1]) bsmin[i]=bsmin[i-1];
if(trend<0
&& bsmax[i]>bsmax[i-1]) bsmax[i]=bsmax[i-1];
if
(trend>0)
{
UpTrendLine[i]=bsmin[i];
if
(SoundON==True && !TurnedUp && i==BarCount-1 &&
IsEmpty(UpTrendLine[i-1]))
{
Say("Attention
please, Market Going, UP");
PopupWindow(Date()+
"\n > " + Name() +
"\n > Buy : " + L[ i ] + "\n >
Target : " +(L[i]*1.005) +"\n > Stop Loss : " +
(L[i]*0.9975),"Alert", 100, 640*mtRandom(),
480*mtRandom()); TurnedUp=StaticVarSet("TurnedUp",1);
TurnedDown=StaticVarSet("TurnedDown",0);
}
}
if
(trend<0)
{
DownTrendLine[i]=bsmax[i];
if
(SoundON==True && !TurnedDown && i==BarCount-1 &&
IsEmpty(DownTrendLine[i-1]))
{
Say("Attention
please, Market Going, DOWN");
PopupWindow(
Date()+ "\n > " + Name() + "\n >
Sell : " + H[i] + "\n > Target : " +
(H[i]*0.995)+"\n > Stop Loss : "
+(H[i]*1.0025),"Alert", 100, 640*mtRandom(), 480*mtRandom());
TurnedUp=StaticVarSet("TurnedUp",0);
TurnedDown=StaticVarSet("TurnedDown",1);
}
}
}
}
bbtop=BBandTop(C,Length,Deviation);
bbbot=BBandBot(C,Length,Deviation);
CalcTrend_proc(bbtop,bbbot,Length,MoneyRisk,SoundON,TurnedUp,TurnedDown);
UpTrendSigNal=UpTrendLine
AND IsEmpty(Ref(UpTrendLine,-1));
DownTrendSigNal=DownTrendLine
AND IsEmpty(Ref(DownTrendLine,-1));
dist = 0.8*ATR(10);
dist1 = 2*ATR(10);
for( i = 0; i < BarCount; i++ )
{
if( UpTrendSignal[i] )
{
PlotText(
"\nBuy:" + L[ i ] + "\nT= " + (L[i]*1.005) + "\nSL=
" + (L[i]*0.9975), i, L[ i ]-dist[i], colorGreen, colorWhite );
}
if( DownTrendSignal[i] )
{
PlotText(
"Sell:" + H[ i ] + "\nT= " + (H[i]*0.995) + "\nSL=
" + (H[i]*1.0025), i, H[ i ]+dist1[i], colorRed, colorWhite );
}
}
DisplayStyle =
styleNoLabel|styleLine|styleNoTitle;
if(LineStyle == 0)
DisplayStyle |= styleLine;
Plot(UpTrendLine,"Buy
Stop Loss",cUpTrendLine,DisplayStyle);
Plot(DownTrendLine,"Sell
Stop Loss",cDnTrendLine,DisplayStyle) ;
PlotShapes(IIf(UpTrendSignal,shapeSquare,shapeNone),colorLime,0,bbbot,Offset=-1);
PlotShapes(IIf(UpTrendSignal,shapeUpArrow,shapeNone),colorWhite,0,bbbot,Offset=-1);
PlotShapes(IIf(DownTrendSignal,shapeSquare,shapeNone),colorOrange,0,bbtop,Offset=-1);
PlotShapes(IIf(DownTrendSignal,shapeDownArrow,shapeNone),colorWhite,0,bbtop,Offset=-1);
_SECTION_END();
_SECTION_BEGIN("Chart
Settings");
SetChartOptions(0,chartShowArrows|chartShowDates);
SetChartBkColor(ParamColor("Outer
Panel",colorBlack));
SetChartBkGradientFill(ParamColor("Upper
Chart",colorDarkTeal),ParamColor("Lower Chart",colorBlack));
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;
Title =
EncodeColor(55)+ Title = Name() +
" " + EncodeColor(32) + Date() +
" "
+ EncodeColor(5) + "{{INTERVAL}} " +
EncodeColor(55)+
" Open = "+ EncodeColor(52)+
WriteVal(O,dec) +
EncodeColor(55)+
" High = "+ EncodeColor(5) +
WriteVal(H,dec) +
EncodeColor(55)+
" Low = "+ EncodeColor(32)+
WriteVal(L,dec) +
EncodeColor(55)+
" Close = "+ EncodeColor(52)+
WriteVal(C,dec)+
EncodeColor(55)+
" Volume = "+ EncodeColor(52)+
WriteVal(V,1);
_SECTION_END();
_SECTION_BEGIN(
"BASERECTANGEL" );
GfxSelectFont( "Arial",
10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorBlue
);
GfxSelectSolidBrush(
colorDarkTeal );
GfxSelectPen( colorBlue, 1
);
// broader color
GfxRectangle(0,15,203,400);
_SECTION_END();
_SECTION_BEGIN(
"BASERECTANGEL" );
GfxSelectFont( "Arial",
10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorBlue
);
GfxSelectSolidBrush(
colorDarkTeal );
GfxSelectPen( colorBlue, 1
);
// broader color
GfxRectangle(202,15,300,400);
_SECTION_END();
_SECTION_BEGIN("res/sup-s1");
DayH =
TimeFrameGetPrice("H", inDaily, -1);// yesterdays high
DayL =
TimeFrameGetPrice("L", inDaily, -1);//low
DayC =
TimeFrameGetPrice("C", inDaily, -1);//close
DayO =
TimeFrameGetPrice("O", inDaily);// current day open
HiDay =
TimeFrameGetPrice("H", inDaily);
LoDay = TimeFrameGetPrice("L",
inDaily);
PP = (DayH + DayL + DayO +
DayO) / 4 ;
R1 = (2 * PP) - DayL;
S1 = (2 * PP) - DayH;
R2 = PP + R1 - S1;
S2 = PP + S1 - R1;
R3 = R2 + (R1 - PP);
S3 = S2 - (PP - S1);
style = styleLine |
styleThick + styleNoRescale;
rcolor = colorBlue;
scolor = colorRed;
pcolor = colorGreen;
GfxSelectFont("arial",
10, 700 ); GfxSetBkMode( colorWhite );
GfxSetTextColor(
ParamColor("Color",colorRed) );
Hor=Param("Horizontal
Position",230,10,1200,1);
Ver=Param("Vertical
Position",230,300,500,500);
GfxTextOut(""+s1,Hor
, Ver );
_SECTION_END();
_SECTION_BEGIN("res/sup-s2");
GfxSelectFont("arial",
10, 700 ); GfxSetBkMode( colorWhite );
GfxSetTextColor(
ParamColor("Color",colorRed) );
Hor=Param("Horizontal
Position",230,10,1200,1);
Ver=Param("Vertical
Position",260,300,500,500);
GfxTextOut(""+s2,Hor ,
Ver );
_SECTION_END();
_SECTION_BEGIN("res/sup-s3");
GfxSelectFont("arial",
10, 700 ); GfxSetBkMode( colorWhite );
GfxSetTextColor(
ParamColor("Color",colorRed) );
Hor=Param("Horizontal
Position",230,10,1200,1);
Ver=Param("Vertical
Position",290,300,600,600);
GfxTextOut(""+s3,Hor ,
Ver );
_SECTION_END();
_SECTION_BEGIN("res/sup-r1");
GfxSelectFont("arial",
10, 700 ); GfxSetBkMode( colorWhite );
GfxSetTextColor(
ParamColor("Color",colorGreen) );
Hor=Param("Horizontal
Position",230,10,1200,1);
Ver=Param("Vertical
Position",320,300,500,500);
GfxTextOut(""+r1,Hor ,
Ver );
_SECTION_END();
_SECTION_BEGIN("res/sup-r2");
GfxSelectFont("arial",
10, 700 ); GfxSetBkMode( colorWhite );
GfxSetTextColor(
ParamColor("Color",colorGreen) );
Hor=Param("Horizontal
Position",230,10,1200,1);
Ver=Param("Vertical
Position",350,300,500,500);
GfxTextOut(""+r2,Hor ,
Ver );
_SECTION_END();
_SECTION_BEGIN("res/sup-r3");
GfxSelectFont("arial",
10, 700 ); GfxSetBkMode( colorWhite );
GfxSetTextColor(
ParamColor("Color",colorGreen) );
Hor=Param("Horizontal
Position",230,10,1200,1);
Ver=Param("Vertical
Position",380,300,500,500);
GfxTextOut(""+r3,Hor ,
Ver );
_SECTION_END();
_SECTION_BEGIN("MACD");
r1 = Param( "Fast avg",
12, 2, 200, 1 );
r2 = Param( "Slow avg",
26, 2, 200, 1 );
r3 = Param( "Signal
avg", 9, 2, 200, 1 );
r4 = Param( "Wk slow",
17, 2, 200, 1 );
r5 = Param( "Wk fast",
8, 2, 200, 1 );
m1=MACD(r1,r2);
s1=Signal(r1,r2,r3);
_SECTION_END();
_SECTION_BEGIN("WRITE");
GfxSelectFont("arial",
8, 700 ); GfxSetBkMode( colorLightBlue );
GfxSetTextColor(
ParamColor("Color",colorLightBlue) );
Hor=Param("Horizontal
Position",0,10,1200,1);
Ver=Param("Vertical
Position",385,100,50,50);
GfxTextOut(" R O C K E T J E T",Hor
, Ver );
_SECTION_END();
_SECTION_BEGIN("Forex_Main_mrtq13");
///////////////////////////////////
Title =
EncodeColor(colorWhite)+
Title = Name () + " | "
+EncodeColor(colorYellow) +
Date() + " | "
+EncodeColor(colorTurquoise)+
"O : "+ EncodeColor(colorLightGrey)+ O + " | "
+EncodeColor(colorTurquoise)+
"H : "+ EncodeColor(colorLightGrey)+ H + " | "
+EncodeColor(colorTurquoise)+
"L : "+ EncodeColor(colorLightGrey)+ L + " | "
+EncodeColor(colorTurquoise)+
"C : "+ WriteIf(C> Ref(C,
-1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ C + " | "
+EncodeColor(colorTurquoise)+
"Change : ("+ WriteIf(C> Ref(C,
-1),EncodeColor(colorBrightGreen),EncodeColor(colorRed)) +
WriteVal(C-Ref(C,-1))+" Rs."
+EncodeColor(colorTurquoise)+
" /"+ WriteIf(C> Ref(C,
-1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ WriteVal( ROC( C, 1
))+""+ " % "
+EncodeColor(colorTurquoise)+
") | Volume : " + WriteIf(V> Ref(V,
-1),EncodeColor(colorBrightGreen),EncodeColor(colorRed))+ WriteVal(V,1)
;
_SECTION_END();
_SECTION_BEGIN("Flower");
Show_color =
ParamToggle("Display CandleColor", "No|Yes", 1);
r1 = Param( "ColorFast
avg", 5, 2, 200, 1 );
r2 = Param( "ColorSlow
avg", 10, 2, 200, 1 );
r3 = Param( "ColorSignal
avg", 5, 2, 200, 1 );
Prd1=Param("ATR
Period",4,1,20,1);
Prd2=Param("Look
Back",7,1,20,1);
green =
HHV(LLV(L,Prd1)+ATR(Prd1),Prd2);
red =
LLV(HHV(H,Prd1)-ATR(Prd1),Prd2);
flowerClose =
EMA((Open+High+Low+Close)/4,3) ;
flowerOpen = EMA((Ref(Open,-1) +
Ref(flowerClose,-1))/2,3);
Temp = Max(High, flowerOpen);
flowerHigh = EMA(Max(Temp,
flowerClose),3);
Temp = Min(Low,flowerOpen);
flowerLow = EMA(Min(Temp,
flowerClose),3);
m1=MACD(r1,r2);
s1=Signal(r1,r2,r3);
mycolor=IIf(m1<0 AND m1>s1,
colorYellow,IIf(m1>0 AND
m1>s1,colorWhite,IIf(m1>0
AND m1<s1,colorDarkYellow,colorRed)));
if(Show_color)
{
ColorHighliter = myColor;
SetBarFillColor( ColorHighliter );
}
barColor=IIf(C>Green
,colorWhite,IIf(C < RED,colorRed,colorWhite));
PlotOHLC( IIf(flowerOpen<flowerClose,
flowerOpen,
flowerClose),flowerHigh,flowerLow,IIf(flowerOpen<flowerClose,
flowerClose,
flowerOpen), "Close",
barColor, styleNoTitle | styleCandle);
_SECTION_END();
_SECTION_BEGIN("Bands");
SupResB =Param("Sup-Res Short",6,0,100,1);
nn=SupResB;
Bandlinecol=ParamColor("SupResLineColor",ColorRGB(82,82,82));
ParmCloud =
ParamToggle("Cloud", "No|Yes", 0);
BoxCloudColor=ParamColor("BoxCloudColor",ColorRGB(27,27,27));
Line2=Param("ResLineLength",100,2,500,0.1);
Daysback1 =
Line2;
FirstBar1 =
BarCount - DaysBack1;
Hh=HHV(flowerHigh,nn);
LL=LLV(flowerLow,nn);
Res2=Hh;
Sup2=LL;
BandRes=IIf(BarIndex() >=
Firstbar1,EndValue(Res2),Null);
BandSup=IIf(BarIndex() >=
Firstbar1,EndValue(Sup2),Null);
Plot(BandRes,"",Bandlinecol,ParamStyle("ShortSupBand",styleLine|styleDashed|stylehidden|styleNoTitle|styleNoLabel|styleThick,maskAll));
Plot(BandSup,"",Bandlinecol,ParamStyle("ShortResBand",styleLine|styleDashed|stylehidden|styleNoTitle|styleNoLabel|styleThick,maskAll));
CS=BandRes;
CR=BandSup;
if(parmCloud == 1)
PlotOHLC( CS, CS, CR,CR,
"Band",BoxCloudColor, styleCloud | styleNoLabel|styleNoTitle);
_SECTION_END();
_SECTION_BEGIN("Breakout
Setting");
Buyperiods=Param("Breakout
periods best is usually 18",5,1,100,1,1);
Sellperiods=Param("Exit
Breakout",5,1,100,1,1);
HaClose =EMA((O+H+L+C)/4,3);
// Woodie
//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 ) );
Buy=
C>Ref(HHV(High,Buyperiods),-1) ;
Sell=
C<Ref(LLV(Low,Sellperiods),-1);
/* exrem is one method to
remove surplus strade signals. It removes excessive signals of arrow */
Buy = ExRem(Buy, Sell);
Sell = ExRem(Sell, Buy);
PlotShapes( IIf( Buy,
shapeSmallUpTriangle, shapeNone ), colorWhite, layer = 0,yposition = HaLow,
offset = -30);
//PlotShapes( IIf( Buy,
shapeSmallCircle, shapeNone ), colorWhite, layer = 0,yposition = HaLow,
offset = -8);
PlotShapes( IIf( Sell,
shapeSmallDownTriangle, shapeNone ), colorRed, layer = 0, yposition = HaHigh,
offset = -30);
//PlotShapes( IIf( Sell,
shapeSmallCircle, shapeNone ), colorRed, layer = 0, yposition = HaHigh,
offset = -8);
_SECTION_END();
_SECTION_BEGIN("Graphics");
GrpPrm=Param("Graphic
Space",-5,-10,10);
GraphXSpace=GrpPrm;
_SECTION_END();
//#include <T3.AFL>;
_SECTION_BEGIN("PFE");
pds=10;
x=sqrt((ROC(C,9)*ROC(C,9))+100);
y=Sum(sqrt((ROC(C,1)*
ROC(C,1))+1),pds);
z=(x/y);
pfe=EMA(IIf(C>Ref(C,-9),z,-z)*100,5);
rsidn=pfe <-10 AND pfe<Ref(pfe,-1);
rsiup=pfe >10 AND
pfe>Ref(pfe,-1);
rsiresult1 = WriteIf(
rsiup,"cu", "");
rsiresult2 = WriteIf(
rsidn,"cd", "");
RequestTimedRefresh( 0 );
GfxSelectFont(
"Tahoma", 12, 120 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorWhite
);
if ( rsiresult1
=="cu")
{
GfxSelectSolidBrush(
ColorRGB(0,90,0) );
}
else
if ( rsiresult2
=="cd")
{
GfxSelectSolidBrush(
ColorRGB(90,0,0));
}
else
if ( rsiresult2
=="")
{
GfxSelectSolidBrush(
colorDarkTeal );
}
GfxSelectFont(
"Arial", 10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorBlue
);
GfxCircle( 100,90,50 );
_SECTION_END();
//GfxRoundRect( 15,305,135,215, 5,
5 );
GfxCircle( 100,100,70 );
_SECTION_END();
_SECTION_BEGIN("STC");
_SECTION_BEGIN("Schaff Trend
Cycle");
/*
Ported directly from original STC
Tradestation code
results differ from other
Amibroker versions that are not based directly on original EasyLanguage code
http://mediaserver.fxstreet.com/Reports/99afdb5f-d41d-4a2c-802c-f5d787df886c/ebfbf387-4b27-4a0f-848c-039f4ab77c00.pdf
*/
MA1=23;
MA2=50;
TCLen=10;
MA1=Param("ShortMACDLen",23,5,36);
MA2=Param("LOngMACDLen",50,10,100);
TCLen=Param("TCLen(StochPeriod)",10,5,20);
Factor=.5;
//Calculate a MACD Line
XMac = MACD(MA1,MA2) ; // MACD in
Amibroker always uses Close for MACD calculation
//1st Stochastic: Calculate
Stochastic of a MACD
Value1 = LLV(XMac, TCLen);
Value2 = HHV(XMac, TCLen) -
Value1;
//Frac1=1; // prime Frac1 to a
default of 1
//Frac1 = IIf(Value2 > 0,
((XMac - Value1) / Value2) * 100, Ref(FRAC1,-1));
// have to "prime" first
value so that reference to "i-1" does not result in subscript out
of range
// since MACD for both periods is
not defined until MA2 period, 0 seems to be mathematically correct priming
value
frac1=0;
for (i = 1; i < BarCount; i++)
{
if (Value2[i] > 0) {
frac1[i]
= ((XMac[i] - Value1[i])/Value2[i])*100;
}
else {
frac1[i]=
frac1[i-1];
}
}
//Smoothed calculation for %FastD
of MACD
PF[0]=frac1[0];
PF[1]=frac1[1];
for (i = 2; i < BarCount; i++)
{
PF[i]=PF[i-1]+(Factor*(frac1[i]-PF[i-1]));
}
//2nd Stochastic: Calculate
Stochastic of Smoothed Percent FastD, above.
Value3 = LLV(PF, TCLen);
Value4 = HHV(PF, TCLen) - Value3;
//%FastK of PF
/*
Frac2=1;
Frac2 = IIf(Value4 > 0, ((PF -
Value3) / Value4) * 100, Ref(FRAC2,-1));
*/
frac2[0]=0;
for (i = 1; i < BarCount; i++)
{
if
(Value4[i] > 0 ) {
frac2[i]=((PF[i]
- Value3[i])/Value4[i])*100;
}
else
{
frac2[i]=frac2[i-1];
}
}
//Smoothed calculation for %FastD
of PF
PFF[0]=frac2[0];
PFF[1]=frac2[1];
for (i = 2; i < BarCount; i++)
{
PFF[i]=PFF[i-1]+(Factor*(frac2[i]-PFF[i-1]));
}
//HT=ParamColor("HT",
colorRed );
rsidn=pff <2;
rsiup=pff >98;
rsiresult1 = WriteIf(
rsiup,"cu", "");
rsiresult2 = WriteIf(
rsidn,"cd", "");
RequestTimedRefresh( 0 );
GfxSelectFont(
"Tahoma", 12, 120 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorWhite
);
if ( rsiresult1
=="cu")
{
GfxSelectSolidBrush(
ColorRGB(0,120,0) );
}
else
if ( rsiresult2
=="cd")
{
GfxSelectSolidBrush( ColorRGB(120,0,0));
}
else
if ( rsiresult2
=="")
{
GfxSelectSolidBrush(
colorDarkTeal );
}
GfxSelectFont(
"Arial", 10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorBlue
);
GfxCircle( 100,100,60 );
_SECTION_END();
_SECTION_BEGIN("rsi");
//HT=ParamColor("HT",
colorRed );
rsidn=RSI(7) <30;
rsiup=RSI(7) >70;
rsiresult1 = WriteIf(
rsiup,"cu", "");
rsiresult2 = WriteIf(
rsidn,"cd", "");
RequestTimedRefresh( 0 );
GfxSelectFont(
"Tahoma", 12, 120 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorWhite
);
if ( rsiresult1
=="cu")
{
GfxSelectSolidBrush(
ColorRGB(0,150,0) );
}
else
if ( rsiresult2
=="cd")
{
GfxSelectSolidBrush(
ColorRGB(150,0,0));
}
else
if ( rsiresult2
=="")
{
GfxSelectSolidBrush(
colorDarkTeal );
}
GfxSelectFont(
"Arial", 10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorBlue
);
GfxCircle( 100,100,50 );
_SECTION_END();
_SECTION_BEGIN("Rays");
//FT=ParamColor("FT",
colorRed );
Pp1=3;
Pp2=2;
CS33=HHV(LLV(flowerHigh,Pp1)-ATR(Pp2),4);
CR33=HHV(LLV(flowerHigh,Pp1)-ATR(Pp2),5);
AtrupTrendCond1 =
flowerClose> CS33 ;
AtrdnTrendCond1
=CS33>flowerClose ;
ATRup =
WriteIf(AtrupTrendCond1,"atrup", "");
ATRdown= WriteIf(
AtrdnTrendCond1,"atrdn", "");
if ( ATRup
=="atrup")
{
GfxSelectSolidBrush(
ColorRGB(0,180,0) );
}
else
if (ATRdown
=="atrdn")
{
GfxSelectSolidBrush(
ColorRGB(180,0,0));
}
else
if ( ATRdown =="")
{
GfxSelectSolidBrush(
colorDarkTeal );
}
GfxSelectFont( "Arial",
10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorBlue
);
GfxSelectPen( colorBlue, 1
); // broader color
GfxCircle( 100,100,40 );
_SECTION_END();
_SECTION_BEGIN("Exit_Beast-3");
//GT=ParamColor("GT",
colorRed );
EntrylookbackPeriod=10;
EntryATRperiod=1.9;
EntrySig = C > ( LLV(
flowerLow, EntrylookbackPeriod ) + EntryATRperiod * ATR( 10 ) );
ExitSig = C < ( HHV(
flowerHigh, EntrylookbackPeriod ) -EntryATRperiod * ATR( 10 ) );
RequestTimedRefresh( 0 );
GfxSelectFont(
"Tahoma", 12, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorWhite
);
EntryB = WriteIf(
EntrySig,"eu", "");
ExitB = WriteIf(
ExitSig,"ed", "");
if ( EntryB
=="eu")
{
GfxSelectSolidBrush(
ColorRGB(0,210,0) ); //
}
else
if ( ExitB =="ed")
{
GfxSelectSolidBrush(
ColorRGB(210,0,0)); //
}
else
if ( ExitB =="")
{
GfxSelectSolidBrush(
colorDarkTeal );
}
GfxSelectFont(
"Arial", 10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorBlue
);
GfxSelectPen( colorBlue, 1
); // broader color
GfxCircle( 100,100,30 );//
changing the value of x,y,rad x-70, y-90, rad-24
_SECTION_END();
_SECTION_BEGIN("CCI9-2");
//HT=ParamColor("HT",
colorRed );
ccidn=CCI(8) < 0;
cciup=CCI(9) > 0;
ccresult1 = WriteIf(
cciup,"cu", "");
ccresult2 = WriteIf(
ccidn,"cd", "");
RequestTimedRefresh( 0 );
GfxSelectFont(
"Tahoma", 12, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorWhite
);
if ( ccresult1
=="cu")
{
GfxSelectSolidBrush(
ColorRGB(0,240,0) );
}
else
if ( ccresult2
=="cd")
{
GfxSelectSolidBrush(
ColorRGB(240,0,0));
}
else
if ( ccresult2
=="")
{
GfxSelectSolidBrush(
colorDarkTeal );
}
GfxSelectFont(
"Arial", 10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorBlue
);
GfxSelectPen( colorBlue, 1
); // broader color
GfxCircle( 100,100,20);
_SECTION_END();
_SECTION_BEGIN("%BB7-1");
//IT=ParamColor("IT",
colorRed );
p=7;
x=((C+2*StDev(C,p)-MA(C,p))/(4*StDev(C,p)))*100;
bbdown= x < 40;
bbup= x > 40;
bbresult1 = WriteIf(
bbup,"bu", "");
bbresult2 = WriteIf(
bbdown,"bd", "");
bbresult3 = WriteIf(
C,"bearishrevers", "");
RequestTimedRefresh( 0 );
GfxSelectFont(
"Tahoma", 12, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorWhite
);
if ( bbresult1
=="bu")
{
GfxSelectSolidBrush( ColorRGB(62,255,62)
);
}
else
if ( bbresult2
=="bd")
{
GfxSelectSolidBrush(
ColorRGB(255,62,62) );
}
else
if ( bbresult2
=="")
{
GfxSelectSolidBrush(
colorDarkTeal );
}
GfxSelectFont(
"Arial", 10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorBlue
);
GfxSelectPen( colorBlue, 1
); // broader color
GfxCircle( 100,100,10 );
_SECTION_END();
_SECTION_BEGIN("MACDHIGHBULLISH");
r1 = Param( "Fast avg",
12, 2, 200, 1 );
r2 = Param( "Slow avg",
26, 2, 200, 1 );
r3 = Param( "Signal
avg", 9, 2, 200, 1 );
r4 = Param( "Wk slow",
17, 2, 200, 1 );
r5 = Param( "Wk fast",
8, 2, 200, 1 );
m1=MACD(r1,r2);
s1=Signal(r1,r2,r3);
rsidn=m1>0 AND m1>s1;
rsiresult2 = WriteIf(
rsidn,"cd", "");
if ( rsiresult2 =="cd")
{
GfxSelectSolidBrush(
ColorRGB(0,147,0));
}
else
if ( rsiresult2
=="")
{
GfxSelectSolidBrush(
colorDarkTeal );
}
RequestTimedRefresh( 0 );
GfxSelectFont(
"Arial", 10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorBlue
);
GfxSelectPen( colorBlue, 1
);
// broader color
GfxRectangle(80,220,120,280);
_SECTION_END();
_SECTION_BEGIN("MACDLOWHBULLISH");
r1 = Param( "Fast avg",
12, 2, 200, 1 );
r2 = Param( "Slow avg",
26, 2, 200, 1 );
r3 = Param( "Signal
avg", 9, 2, 200, 1 );
r4 = Param( "Wk slow",
17, 2, 200, 1 );
r5 = Param( "Wk fast",
8, 2, 200, 1 );
m1=MACD(r1,r2);
s1=Signal(r1,r2,r3);
rsidn=m1<0 AND m1>s1;
rsiresult2 = WriteIf(
rsidn,"cd", "");
if ( rsiresult2 =="cd")
{
GfxSelectSolidBrush(
ColorRGB(0,147,0));
}
else
if ( rsiresult2
=="")
{
GfxSelectSolidBrush(
colorDarkTeal );
}
RequestTimedRefresh( 0 );
GfxSelectFont(
"Arial", 10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorBlue
);
GfxSelectPen( colorBlue, 1
);
// broader color
GfxRectangle(120,315,180,280);
_SECTION_END();
_SECTION_BEGIN("MACDLOWHBEARISH");
r1 = Param( "Fast avg",
12, 2, 200, 1 );
r2 = Param( "Slow avg",
26, 2, 200, 1 );
r3 = Param( "Signal
avg", 9, 2, 200, 1 );
r4 = Param( "Wk slow",
17, 2, 200, 1 );
r5 = Param( "Wk fast",
8, 2, 200, 1 );
m1=MACD(r1,r2);
s1=Signal(r1,r2,r3);
rsidn=m1>0 AND m1<s1;
rsiresult2 = WriteIf(
rsidn,"cd", "");
if ( rsiresult2 =="cd")
{
GfxSelectSolidBrush(
ColorRGB(225,0,0));
}
else
if ( rsiresult2
=="")
{
GfxSelectSolidBrush(
colorDarkTeal );
}
RequestTimedRefresh( 0 );
GfxSelectFont(
"Arial", 10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorBlue
);
GfxSelectPen( colorBlue, 1
);
// broader color
GfxRectangle(20,315,80,280);
_SECTION_END();
_SECTION_BEGIN("MACDHIGHHBEARISH");
r1 = Param( "Fast avg",
12, 2, 200, 1 );
r2 = Param( "Slow avg",
26, 2, 200, 1 );
r3 = Param( "Signal
avg", 9, 2, 200, 1 );
r4 = Param( "Wk slow",
17, 2, 200, 1 );
r5 = Param( "Wk fast",
8, 2, 200, 1 );
m1=MACD(r1,r2);
s1=Signal(r1,r2,r3);
rsidn=m1<0 AND m1<s1;
rsiresult2 = WriteIf(
rsidn,"cd", "");
if ( rsiresult2 =="cd")
{
GfxSelectSolidBrush(
ColorRGB(225,0,0));
}
else
if ( rsiresult2
=="")
{
GfxSelectSolidBrush(
colorDarkTeal );
}
RequestTimedRefresh( 0 );
GfxSelectFont(
"Arial", 10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorBlue
);
GfxSelectPen( colorBlue, 1
);
// broader color
GfxRectangle(80,375,120,315);
_SECTION_END();
_SECTION_BEGIN("bearishline");
GfxSelectFont( "Arial",
10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorRed );
GfxSelectPen( colorRed, 1 );
GfxMoveTo( 25,320 );
GfxLineTo( 75, 370 );
_SECTION_END();
_SECTION_BEGIN("bullishline");
GfxSelectFont( "Arial",
10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorGreen
);
GfxSelectPen( colorGreen, 1
);
GfxMoveTo( 125,225 );
GfxLineTo( 175, 275 );
_SECTION_END();
_SECTION_BEGIN("volume1");
GfxSelectSolidBrush( colorDarkTeal
);
GfxRoundRect(240,30,260,200,20,20);
_SECTION_END();
_SECTION_BEGIN("volume2");
GfxSelectSolidBrush( colorDarkTeal
);
GfxCircle( 250,180,23 );
_SECTION_END();
_SECTION_BEGIN("spiker");
C1 = Ref(C, -1);
uc = C > C1; dc = C <= C1;
ud = C > O; dd = C <= O;
green = 1; blue = 2; yellow = 3;
red = 4; white = 5;
VType =
IIf(ud,
IIf(uc,
green, yellow),
IIf(dd,
IIf(dc,
red, blue), white));
/* green volume: up-day and
up-close*/
gv = IIf(VType == green, V, 0);
/* yellow volume: up-day but
down-close */
yv = IIf(VType == yellow, V, 0);
/* red volume: down-day and
down-close */
rv = IIf(VType == red, V, 0);
/* blue volume: down-day but
up-close */
bv = IIf(VType == blue, V, 0);
uv = gv + bv; uv1 = Ref(uv, -1);
/* up volume */
dv = rv + yv; dv1 = Ref(dv, -1);
/* down volume */
VolPer = Param("Adjust Vol.
MA per.", 10, 1, 255, 1);
ConvPer = Param("Adjust Conv.
MA per.", 4, 1, 255, 1);
MAuv = TEMA(uv, VolPer ); mauv1 =
Ref(mauv, -1);
MAdv = TEMA(dv, VolPer ); madv1 =
Ref(madv, -1);
MAtv = TEMA(V, VolPer );//total
volume
Converge = (TEMA(MAuv - MAdv,
ConvPer));
Converge1 = Ref(Converge, -1);
ConvergeUp = Converge >
Converge1;
ConvergeOver = Converge > 0;
rising = ConvergeUp AND
ConvergeOver;
falling = !ConvergeUp AND
ConvergeOver;
_SECTION_END();
_SECTION_BEGIN("vol30");
rsiup=rising;
rsidn=falling;
down=Converge > 0;
rsiresult1 = WriteIf(
rsiup,"ab", "");
rsiresult2 = WriteIf(
rsidn,"cd", "");
rsiresult3 = WriteIf(
down,"ef", "");
RequestTimedRefresh( 0 );
if ( rsiresult1
=="ab")
{
GfxSelectSolidBrush(
ColorRGB(0,147,0) );
GfxSelectFont( "Arial",
10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorGreen
);
GfxSelectPen( colorGreen, 1
);
}
else
if ( rsiresult2
=="cd")
{
GfxSelectSolidBrush(
ColorRGB(0,85,0) );
GfxSelectFont( "Arial",
10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor(
colorDarkGreen );
GfxSelectPen(
colorDarkGreen, 1 );
}
else
{
GfxSelectSolidBrush(
ColorRGB(255,0,0) );
GfxSelectFont( "Arial",
10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorRed );
GfxSelectPen( colorRed, 1 );
}
GfxRectangle(241,50,259,200);
_SECTION_END();
_SECTION_BEGIN("vol31");
rsiup=rising;
rsidn=falling;
down=Converge > 0;
rsiresult1 = WriteIf(
rsiup,"ab", "");
rsiresult2 = WriteIf(
rsidn,"cd", "");
rsiresult3 = WriteIf( down,"ef",
"");
RequestTimedRefresh( 0 );
if ( rsiresult1
=="ab")
{
GfxSelectSolidBrush(
ColorRGB(0,147,0) );
GfxSelectFont( "Arial",
10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorGreen
);
GfxSelectPen( colorGreen, 1
);
}
else
if ( rsiresult2
=="cd")
{
GfxSelectSolidBrush(
ColorRGB(0,85,0) );
GfxSelectFont( "Arial",
10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor(
colorDarkGreen );
GfxSelectPen(
colorDarkGreen, 1 );
}
else
{
GfxSelectSolidBrush(
ColorRGB(255,0,0) );
GfxSelectFont( "Arial",
10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorRed );
GfxSelectPen( colorRed, 1 );
}
GfxCircle( 250,180,22 );
_SECTION_END();
_SECTION_BEGIN("Average
0");
//Average_switch =
ParamToggle("Candle On/off", "Off|On");
P = HaClose;
Type =
ParamList("Type", "Weighted,Lagless-21,Hull-26,Linear
Regression-45,Exponential,Double
Exponential,Tripple
Exponential,Wilders,Simple");
Periods =
Param("Periods", 20, 2, 200 );
Displacement =
Param("Displacement", 1, -50, 50 );
m = 0;
if( Type ==
"Weighted" ) m= WMA( P, Periods );
if( Type ==
"Lagless-21" ) m= 2*EMA(P, Periods)-EMA(EMA(P, Periods), Periods);
if( Type ==
"Hull-26" ) m= WMA(2*(WMA(P, Periods/2))-WMA(P, Periods) ,4 );
if( Type == "Linear
Regression-45" ) m= LinearReg( P, Periods );
if( Type ==
"Exponential" ) m = EMA( P, Periods );
if( Type == "Double
Exponential" ) m = DEMA( P, Periods );
if( Type == "Tripple
Exponential" ) m = TEMA( P, Periods );
if( Type ==
"Wilders" ) m = Wilders( P, Periods );
if( Type == "Simple"
) m = MA( P, Periods );
Plot( m, _DEFAULT_NAME(),
ParamColor("Color",
colorLightGrey),ParamStyle("Style",styleLine
|styleThick|styleNoTitle ,maskAll),Displacement );
_SECTION_END();
_SECTION_BEGIN("Average
1");
//Average_switch = ParamToggle("Candle
On/off", "Off|On");
P = HaClose;
Type =
ParamList("Type", "Weighted,Lagless-21,Hull-26,Linear
Regression-45,Exponential,Double
Exponential,Tripple
Exponential,Wilders,Simple");
Periods =
Param("Periods", 60, 2, 200 );
Displacement =
Param("Displacement", 1, -50, 50 );
m = 0;
if( Type ==
"Weighted" ) m= WMA( P, Periods );
if( Type ==
"Lagless-21" ) m= 2*EMA(P, Periods)-EMA(EMA(P, Periods), Periods);
if( Type ==
"Hull-26" ) m= WMA(2*(WMA(P, Periods/2))-WMA(P, Periods) ,4 );
if( Type == "Linear
Regression-45" ) m= LinearReg( P, Periods );
if( Type ==
"Exponential" ) m = EMA( P, Periods );
if( Type == "Double
Exponential" ) m = DEMA( P, Periods );
if( Type == "Tripple
Exponential" ) m = TEMA( P, Periods );
if( Type == "Wilders"
) m = Wilders( P, Periods );
if( Type ==
"Simple" ) m = MA( P, Periods );
Plot( m, _DEFAULT_NAME(),
ParamColor("Color",
colorGrey50),ParamStyle("Style",styleLine |styleNoTitle
,maskAll),Displacement );
_SECTION_END();
_SECTION_BEGIN("Average
5");
P = HaClose;
Type =
ParamList("Type", "Weighted,Lagless-21,Hull-26,Linear
Regression-45,Exponential,Double
Exponential,Tripple
Exponential,Wilders,Simple");
Periods =
Param("Periods", 120 ,2, 200 );
Displacement =
Param("Displacement", 1, -50, 50 );
m = 0;
if( Type ==
"Weighted" ) m= WMA( P, Periods );
if( Type ==
"Lagless-21" ) m= 2*EMA(P, Periods)-EMA(EMA(P, Periods), Periods);
if( Type ==
"Hull-26" ) m= WMA(2*(WMA(P, Periods/2))-WMA(P, Periods) ,4 );
if( Type == "Linear
Regression-45" ) m= LinearReg( P, Periods );
if( Type ==
"Exponential" ) m = EMA( P, Periods );
if( Type == "Double
Exponential" ) m = DEMA( P, Periods );
if( Type == "Tripple
Exponential" ) m = TEMA( P, Periods );
if( Type ==
"Wilders" ) m = Wilders( P, Periods );
if( Type ==
"Simple" ) m = MA( P, Periods );
Plot( m, _DEFAULT_NAME(),
ParamColor("Color",
colorGrey40),ParamStyle("Style",styleLine |styleNoTitle
,maskAll),Displacement );
_SECTION_END();
_SECTION_BEGIN("Sell
Average 3");
P = HaClose;
Type = ParamList("Type",
"Weighted,Lagless-21,Hull-26,Linear
Regression-45,Exponential,Double
Exponential,Tripple
Exponential,Wilders,Simple");
Periods =
Param("Periods", 180, 2, 800 );
Displacement =
Param("Displacement", 1, -50, 50 );
m = 0;
if( Type == "Weighted"
) m= WMA( P, Periods );
if( Type ==
"Lagless-21" ) m= 2*EMA(P, Periods)-EMA(EMA(P, Periods), Periods);
if( Type ==
"Hull-26" ) m= WMA(2*(WMA(P, Periods/2))-WMA(P, Periods) ,4 );
if( Type == "Linear
Regression-45" ) m= LinearReg( P, Periods );
if( Type ==
"Exponential" ) m = EMA( P, Periods );
if( Type == "Double
Exponential" ) m = DEMA( P, Periods );
if( Type == "Tripple
Exponential" ) m = TEMA( P, Periods );
if( Type ==
"Wilders" ) m = Wilders( P, Periods );
if( Type ==
"Simple" ) m = MA( P, Periods );
Plot( m, _DEFAULT_NAME(),
ParamColor("Color",
ColorRGB(40,40,40)),ParamStyle("Style",styleLine |styleNoTitle
,maskAll),Displacement );
_SECTION_END();
_SECTION_BEGIN("trendline");
farback=Param("How Far back
to go",100,50,5000,10);
nBars = Param("Number of
bars", 12, 5, 40);
aHPivs = H - H;aLPivs = L - L;
aHPivHighs = H - H;aLPivLows = L -
L;aHPivIdxs = H - H;aLPivIdxs = L - L;
nHPivs = 0;nLPivs = 0;lastHPIdx =
0;lastLPIdx = 0;lastHPH = 0;lastLPL = 0;
curPivBarIdx = 0;
aHHVBars = HHVBars(H,
nBars);aLLVBars = LLVBars(L, nBars);
aHHV = HHV(H, nBars);aLLV = LLV(L,
nBars);
aVisBars =
Status("barvisible");nLastVisBar = LastValue(Highest(IIf(aVisBars,
BarIndex(), 0)));
_TRACE("Last visible bar:
" + nLastVisBar);
curBar = (BarCount-1);curTrend =
"";if (aLLVBars[curBar] < aHHVBars[curBar]) {
curTrend = "D";}else
{curTrend = "U";}
for (i=0; i<farback; i++)
{curBar = (BarCount - 1) - i;
if (aLLVBars[curBar] <
aHHVBars[curBar]) {
if (curTrend == "U")
{curTrend = "D";
curPivBarIdx = curBar - aLLVBars[curBar];aLPivs[curPivBarIdx]
= 1;aLPivLows[nLPivs] = L[curPivBarIdx];
aLPivIdxs[nLPivs] =
curPivBarIdx;nLPivs++;}
} else {if (curTrend ==
"D") {curTrend = "U";curPivBarIdx = curBar -
aHHVBars[curBar];
aHPivs[curPivBarIdx] =
1;aHPivHighs[nHPivs] = H[curPivBarIdx];
aHPivIdxs[nHPivs] =
curPivBarIdx;nHPivs++;}} }
curBar = (BarCount-1);candIdx =
0;candPrc = 0;lastLPIdx = aLPivIdxs[0];lastLPL = aLPivLows[0];
lastHPIdx = aHPivIdxs[0];lastHPH =
aHPivHighs[0];if (lastLPIdx > lastHPIdx) {
candIdx = curBar - aHHVBars[curBar];candPrc
= aHHV[curBar];
if (lastHPH < candPrc AND
candIdx > lastLPIdx AND candIdx < curBar) {
aHPivs[candIdx] = 1;
for (j=0; j<nHPivs; j++)
{aHPivHighs[nHPivs-j] = aHPivHighs[nHPivs-(j+1)];
aHPivIdxs[nHPivs-j] =
aHPivIdxs[nHPivs-(j+1)];}aHPivHighs[0] = candPrc ;
aHPivIdxs[0] = candIdx;nHPivs++;}}
else {
candIdx = curBar -
aLLVBars[curBar];candPrc = aLLV[curBar];if (lastLPL > candPrc AND
candIdx > lastHPIdx AND candIdx
< curBar) {
aLPivs[candIdx] = 1;
for (j=0; j<nLPivs; j++) {aLPivLows[nLPivs-j]
= aLPivLows[nLPivs-(j+1)];
aLPivIdxs[nLPivs-j] =
aLPivIdxs[nLPivs-(j+1)];}aLPivLows[0] = candPrc;
aLPivIdxs[0] = candIdx;nLPivs++;}}
for (k=0; k<nHPivs; k++)
{_TRACE("High pivot no. " + k
+ " at barindex: " +
aHPivIdxs[k] + ", "
+ WriteVal(ValueWhen(BarIndex()==aHPivIdxs[k],
DateTime(), 1), formatDateTime)+
", " + aHPivHighs[k]);}
a1=ahpivs==1;a2=alpivs==1;
x = Cum(1);s1=L;s11=H;pS = a2 ==
1;
endt= SelectedValue(ValueWhen( pS,
x, 1 ));
startt=SelectedValue(ValueWhen(
pS, x, 2 ));dtS =endt-startt;
endS = SelectedValue(ValueWhen(
pS, s1, 1 ) );
startS = SelectedValue( ValueWhen(
pS, s1, 2 ));aS = (endS-startS)/dtS;
bS = endS;trendlineS = aS * ( x
-endt ) + bS;
g3=
IIf(x>startt-10,trendlineS,-1e10);
pR = a1== 1;endt1=
SelectedValue(ValueWhen( pR, x, 1 ));
startt1=SelectedValue(ValueWhen(
pR, x, 2 ));
dtR =endt1-startt1;endR =
SelectedValue(ValueWhen( pR, s11, 1 ) );
startR = SelectedValue( ValueWhen(
pR, s11, 2 ));
aR = (endR-startR)/dtR;bR = endR;
trendlineR = aR * ( x -endt1 ) +
bR;
g4= IIf(x>startT1-10,trendlineR,-1e10);
_SECTION_END();
_SECTION_BEGIN("trendlineA");
dn=g3>C;
up=g3<C;
bbresult1 = WriteIf(
dn,"dn", "");
bbresult2 = WriteIf(
up,"up", "");
RequestTimedRefresh( 0 );
if ( bbresult1
=="dn")
{
GfxSelectSolidBrush( ColorRGB(255,0,0)
);
}
else
if ( bbresult2
=="up")
{
GfxSelectSolidBrush(
ColorRGB(0,147,0) );
}
GfxSelectFont( "Arial",
10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorWhite
);
GfxSelectPen( colorWhite, 1 );
GfxCircle( 30,229,8 );
_SECTION_END();
_SECTION_BEGIN("trendlineA");
dn=g3>C;
up=g3<C;
bbresult1 = WriteIf(
dn,"dn", "");
bbresult2 = WriteIf(
up,"up", "");
RequestTimedRefresh( 0 );
if ( bbresult1
=="dn")
{
GfxSelectSolidBrush(
ColorRGB(255,0,0) );
}
else
if ( bbresult2
=="up")
{
GfxSelectSolidBrush(
ColorRGB(0,147,0) );
}
GfxSelectFont( "Arial",
10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorWhite
);
GfxSelectPen( colorWhite, 1 );
GfxCircle( 168,367,8 );
_SECTION_END();
_SECTION_BEGIN("TRENDLINEline");
GfxSelectFont( "Arial",
10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorWhite
);
GfxSelectPen( colorWhite, 1
);
GfxMoveTo( 35,234 );
GfxLineTo( 163, 362 );
_SECTION_END();
_SECTION_BEGIN("traing
sl");
function vstop_func(trBull,trBear)
{
trailArray[
0 ] = C[ 0 ]; // initialize
for(
i = 1; i < BarCount; i++ )
{
prev
= trailArray[ i - 1 ];
if
(C[ i ] > prev AND C[ i - 1 ] > prev)
{
trailArray[
i ] = Max(prev,C[ i ] - trBull[ i ]);
}
else
if (C[ i ] < prev AND C[ i - 1 ] < prev)
{
trailArray[
i ] = Min(prev,C[ i ] + trBear[ i ]);
}
else
if (C[ i ] > prev)
{
trailArray[
i ] = C[ i ] - trBull[ i ];
}
else
{
trailArray[
i ] = C[ i ] + trBear[ i
];
}
}
return
trailArray;
}
per = Param("per",20, 1,
150, 1);
multBull =
Param("multBull",2, 1, 4, 0.05);
multBear = Param("multBear",2,
1, 4, 0.05);
trBull = multBull * ATR(per);
trBear = multBear * ATR(per);
trailArray =
vstop_func(trBull,trBear);
s0=trailArray;
s1= s0 > C ;
s2= s0 <C ;
ccresult1 = WriteIf(
s1,"cu", "");
ccresult2 = WriteIf(
s2,"cd", "");
GfxSelectFont("arial",
13, 700 ); GfxSetBkMode( colorRed);
GfxSetTextColor(
ParamColor("Color",colorRed) );
Hor=Param("Horizontal
Position",30,10,1200,1);
Ver=Param("Vertical
Position",185,100,50,50);
if ( ccresult1 =="cu")
{
GfxTextOut(""+s0,Hor
, Ver );
}
else
GfxSelectFont("arial",
13, 700 ); GfxSetBkMode( colorGreen );
GfxSetTextColor(
ParamColor("Color",colorGreen) );
Hor=Param("Horizontal
Position",75,10,1200,1);
Ver=Param("Vertical
Position",185,100,50,50);
if ( ccresult2
=="")
{
GfxTextOut(""+s0,Hor ,
Ver );
}
_SECTION_END();
_SECTION_BEGIN("traing
s2");
s0=trailArray;
s1= s0 > C ;
s2= s0 <C ;
ccresult1 = WriteIf(
s1,"cu", "");
ccresult2 = WriteIf(
s2,"cd", "");
GfxSelectFont("arial",
13, 700 ); GfxSetBkMode( colorBrightGreen );
GfxSetTextColor(
ParamColor("Color",colorBrightGreen) );
Hor=Param("Horizontal
Position",30,10,1200,1);
Ver=Param("Vertical
Position",185,100,50,50);
if ( ccresult2 =="cd")
{
GfxTextOut(""+s0,Hor
, Ver );
}
else
GfxSelectFont("arial",
13, 700 ); GfxSetBkMode( colorWhite );
GfxSetTextColor(
ParamColor("Color",colorWhite) );
Hor=Param("Horizontal
Position",75,10,1200,1);
Ver=Param("Vertical
Position",185,100,50,50);
if ( ccresult1
=="")
{
GfxTextOut(""+s0,Hor ,
Ver );
}
_SECTION_END();
_SECTION_BEGIN("CMP");
GfxSelectFont("arial",
13, 700 ); GfxSetBkMode( colorWhite );
GfxSetTextColor(
ParamColor("Color",colorWhite) );
Hor=Param("Horizontal
Position",120,10,1200,1);
Ver=Param("Vertical
Position",185,100,50,50);
GfxTextOut(""+C,Hor ,
Ver );
_SECTION_END();
_SECTION_BEGIN("buycircle");
GfxSelectFont( "Arial",
10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorBlue );
GfxSelectPen( colorBlue, 1 );
if ( ccresult2 =="cd")
{
GfxSelectSolidBrush(
ColorRGB(0,255,0) );
}
else
{
GfxSelectSolidBrush(
ColorRGB(0,0,94) );
}
GfxCircle( 20,40,7 );
_SECTION_END();
_SECTION_BEGIN("sellcircle");
GfxSelectFont( "Arial",
10, 100 );
GfxSetBkMode( 1 );
GfxSetTextColor( colorBlue );
GfxSelectPen( colorBlue, 1 );
if ( ccresult1 =="cu")
{
GfxSelectSolidBrush(
ColorRGB(255,0,0) );
}
else
{
GfxSelectSolidBrush(
ColorRGB(0,0,94) );
}
GfxCircle( 180,40,7 );
_SECTION_END();
|
No comments:
Post a Comment