Your Title Goes Here
Your content goes here. Edit or remove this text inline or in the module Content settings. You can also style every aspect of this content in the module Design settings and even apply custom CSS to this text in the module Advanced settings.
_SECTION_BEGIN( "Chart Settings" );
SetChartOptions( 0, chartShowArrows | chartShowDates );
SetChartBkColor( ParamColor( "Outer Panel", colorPaleBlue ) );
SetChartBkGradientFill( ParamColor( "Upper Chart", 1 ), ParamColor( "Lower Chart", 23 ) );
_SECTION_END();
_SECTION_BEGIN( "Pilihan Charts" );
TSFC = ParamToggle( "TSFC", "Hide|Show", 0 );
TREND = ParamToggle( "TREND", "Hide|Show", 0 );
CHART = ParamToggle( "CHART", "Hide|Show", 0 );
SR = ParamToggle( "SR" , "Hide|Show", 0 );
SILVER = ParamToggle( "SILVER", "Hide|Show", 0 );
NICK_MA = ParamToggle( "NICK_MA", "Hide|Show", 0 );
ZIGZAG = ParamToggle( "ZIGZAG", "Hide|Show", 0 );
STREND = ParamToggle( "SUPER TREND", "Hide|Show", 0 );
TSR = ParamToggle( "TSR", "Hide|Show", 0 );
BOLLINGER = ParamToggle( "BOLLINGER", "Show|Hide", 1 );
CHALOKE = ParamToggle( "CHALOKE", "Hide|Show", 0 );
INTRA_TREND = ParamToggle( "INTRA_TREND", "Hide|Show", 0 );
EKEKO = ParamToggle( "EKEKO", "Hide|Show", 0 );
CANDLE_PIVOT_TRENDLINES = ParamToggle( "CANDLE_PIVOT_TRENDLINES", "Hide|Show", 0 );
ISFANDI = ParamToggle( "ISFANDI", "Hide|Show", 0 );
PEAK_VALLEY = ParamToggle( "PEAK_VALLEY", "Hide|Show", 0 );
AUTO_FIBO = ParamToggle( "AUTO_FIBO", "Hide|Show", 0 );
NEED = ParamToggle( "NEED", "Hide|Show", 0 );
FLOWER = ParamToggle( "FLOWER", "Hide|Show", 0 );
_SECTION_END();
if ( CHART == 1 )
{
_SECTION_BEGIN( "CHART" );
Plot( C, "", colorWhite, styleCandle | styleThick );
_SECTION_END();
}
if ( TSFC == 1 )
{
_SECTION_BEGIN( "TSFC" );
JSB_InitLib();
Phase = Param( "Phase", 1, 1, 200, 1, 0 );
T1 = Param( "T", 3, 1, 200, 1, 0 );
Y = C;
Displacement = Param( "Displacement", 1, -50, 50 );
TSFC = LinRegSlope( Y, T1 ) + ( ( T1 * Sum( Cum( 1 ) * Y, T1 ) - Sum( Cum( 1 ), T1 ) * Sum( Y, T1 ) ) / ( T1 * Sum( ( Cum( 1 ) ^ 2 ), T1 ) -
( Sum( Cum( 1 ), T1 ) ^ 2 ) ) * Cum( 1 ) + ( MA( Y, T1 ) - MA( Cum( 1 ), T1 ) * ( T1 * Sum( Cum( 1 ) * Y, T1 ) -
Sum( Cum( 1 ), T1 ) * Sum( Y, T1 ) ) / ( T1 * Sum( ( Cum( 1 ) ^ 2 ), T1 ) - ( Sum( Cum( 1 ), T1 ) ^ 2 ) ) ) );
AA = JSB_JMA( TSFC, T1, Phase );
Plot( C, "", colorWhite, styleCandle | styleThick );
Plot( AA, "", colorYellow, styleLine | styleThick | styleDots, 0, 0, Displacement );
_SECTION_END();
}
if ( SR == 1 )
{
_SECTION_BEGIN( "SR " );
//sbrAll
SetBarsRequired( 100, 0 );
xx = Cum( 1 );
nbar = Param( "nbar", 5, 2, 50, 1 );
PHigh = H > Ref( HHV( H, nbar ), -1 ) AND Ref( HHV( H, nbar ), nbar ) <= H;
PHighPrice = ValueWhen( PHigh, H );
PLow = L < Ref( LLV( L, nbar ), -1 ) AND Ref( LLV( L, nbar ), nbar ) >= L;
PLowPrice = ValueWhen( PLow, L );
startval_L = ValueWhen( PLow, L, 1 );
endval_L = ValueWhen( PLow, L, 0 );
startbar_L = ValueWhen( PLow, xx, 1 );
endbar_L = ValueWhen( PLow, xx, 0 );
aa_L = ( endval_L - startval_L ) / ( endbar_L - startbar_L );
bb_L = startval_L;
trendline_L = aa_L * ( xx - startbar_L ) + bb_L;
dtrendline_L = trendline_L - Ref( trendline_L, -1 );
startval_L_extend = ValueWhen( PLow, L, 2 );
endval_L_extend = ValueWhen( PLow, L, 1 );
startbar_L_extend = ValueWhen( PLow, xx, 2 );
endbar_L_extend = ValueWhen( PLow, xx, 1 );
aa_L_extend = ( endval_L_extend - startval_L_extend ) / ( endbar_L_extend - startbar_L_extend );
bb_L_extend = startval_L;
trendline_L_extend = aa_L_extend * ( xx - startbar_L ) + endval_L_extend;
dtrendline_L_extend = trendline_L_extend - Ref( trendline_L_extend, -1 );
dtrendline_L_extend = IIf( PLow, Ref( dtrendline_L, -1 ), dtrendline_L_extend );
startval_L_extend2 = ValueWhen( PLow, L, 3 );
endval_L_extend2 = ValueWhen( PLow, L, 2 );
startbar_L_extend2 = ValueWhen( PLow, xx, 3 );
endbar_L_extend2 = ValueWhen( PLow, xx, 2 );
aa_L_extend2 = ( endval_L_extend2 - startval_L_extend2 ) / ( endbar_L_extend2 - startbar_L_extend2 );
bb_L_extend2 = endval_L_extend2;
trendline_L_extend2 = aa_L_extend2 * ( xx - endbar_L_extend2 ) + endval_L_extend2;
dtrendline_L_extend2 = trendline_L_extend2 - Ref( trendline_L_extend2, -1 );
dtrendline_L_extend2 = IIf( PLow, Ref( dtrendline_L_extend, -1 ), dtrendline_L_extend2 );
startval_H = ValueWhen( PHigh, H, 1 );
endval_H = ValueWhen( PHigh, H, 0 );
startbar_H = ValueWhen( PHigh, xx, 1 );
endbar_H = ValueWhen( PHigh, xx, 0 );
aa_H = ( endval_H - startval_H ) / ( endbar_H - startbar_H );
bb_H = startval_H;
trendline_H = aa_H * ( xx - startbar_H ) + bb_H;
dtrendline_H = trendline_H - Ref( trendline_H, -1 );
startval_H_extend = ValueWhen( PHigh, H, 2 );
endval_H_extend = ValueWhen( PHigh, H, 1 );
startbar_H_extend = ValueWhen( PHigh, xx, 2 );
endbar_H_extend = ValueWhen( PHigh, xx, 1 );
aa_H_extend = ( endval_H_extend - startval_H_extend ) / ( endbar_H_extend - startbar_H_extend );
bb_H_extend = startval_H;
trendline_H_extend = aa_H_extend * ( xx - startbar_H ) + endval_H_extend;
dtrendline_H_extend = trendline_H_extend - Ref( trendline_H_extend, -1 );
dtrendline_H_extend = IIf( PHigh, Ref( dtrendline_H, -1 ), dtrendline_H_extend );
startval_H_extend2 = ValueWhen( PHigh, H, 3 );
endval_H_extend2 = ValueWhen( PHigh, H, 2 );
startbar_H_extend2 = ValueWhen( PHigh, xx, 3 );
endbar_H_extend2 = ValueWhen( PHigh, xx, 2 );
aa_H_extend2 = ( endval_H_extend2 - startval_H_extend2 ) / ( endbar_H_extend2 - startbar_H_extend2 );
bb_H_extend2 = endval_H_extend2;
trendline_H_extend2 = aa_H_extend2 * ( xx - endbar_H_extend2 ) + endval_H_extend2;
dtrendline_H_extend2 = trendline_H_extend2 - Ref( trendline_H_extend2, -1 );
dtrendline_H_extend2 = IIf( PHigh, Ref( dtrendline_H_extend, -1 ), dtrendline_H_extend2 );
tld = ParamToggle( "All trendlines", "Show|Hide", 1 );
if ( tld )
{
trendline_L = IIf( dtrendline_L > 0, trendline_L, Null );
trendline_L_extend = IIf( dtrendline_L_extend > 0, trendline_L_extend, Null );
trendline_L_extend2 = IIf( dtrendline_L_extend2 > 0, trendline_L_extend2, Null );
trendline_H = IIf( dtrendline_H < 0, trendline_H, Null );
trendline_H_extend = IIf( dtrendline_H_extend < 0, trendline_H_extend, Null );
trendline_H_extend2 = IIf( dtrendline_H_extend2 < 0, trendline_H_extend2, Null );
}
trendline_L_extend2 = IIf( BarsSince( Plow ) <= nbar, trendline_L_extend2, Null );
trendline_H_extend2 = IIf( BarsSince( PHigh ) <= nbar, trendline_H_extend2, Null );
GraphXSpace = 5;
SetChartOptions( 0, chartShowDates );
chartflag = ParamToggle( "Heikin Ashi", "show|hide", 1 );
if ( chartFlag )
{
Plot( C, "", colorWhite, styleBar );
}
else
{
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 ) );
PlotOHLC( HaOpen, HaHigh, HaLow, HaClose, "Modified " + Name(), colorWhite, styleBar );
}
PlotShapes( shapeHollowStar*PLow, colorYellow, 0, L, -10 );
PlotShapes( shapeHollowStar*PHigh, colorRed, 0, H, 10 );
Plot( trendline_L, "", colorBrightGreen, styleLine );
Plot( IIf( BarsSince( Plow ) <= nbar, trendline_L_extend, Null ), "", colorLightGrey, styleNoLine | styleDots | styleThick );
Plot( IIf( BarsSince( Plow ) > nbar, trendline_L_extend, Null ), "", colorBrightGreen, styleNoLine | styleDots | styleThick );
Plot( IIf( BarsSince( Plow ) <= nbar, trendline_L_extend2, Null ), "", colorDarkGreen, styleNoLine | styleDots | styleThick );
Plot( trendline_H, "", colorRed, styleLine );
Plot( IIf( BarsSince( PHigh ) <= nbar, trendline_H_extend, Null ), "", colorLightGrey, styleNoLine | styleDots | styleThick );
Plot( IIf( BarsSince( PHigh ) > nbar, trendline_H_extend, Null ), "", colorOrange, styleNoLine | styleDots | styleThick );
Plot( IIf( BarsSince( PHigh ) <= nbar, trendline_H_extend2, Null ), "", colorOrange, styleNoLine | styleDots | styleThick );
signalFlag = ParamToggle( "Possible Signals", "show|hide", 1 );
if ( signalFlag )
{
Buy = ( !IsEmpty( trendline_H_extend ) AND Cross( C, trendline_H_extend ) AND BarsSince( PHigh ) > nbar ) OR
( !IsEmpty( trendline_H_extend2 ) AND Cross( C, trendline_H_extend2 ) AND !PHigh ) OR
( PHigh AND C > trendline_H_extend2 AND Ref( C, -1 ) < Ref( trendline_H_extend, -1 ) AND !IsEmpty( trendline_H_extend ) AND !IsEmpty( trendline_H_extend2 ) );
BuyPrice = C;
Short = ( !IsEmpty( trendline_L_extend ) AND Cross( trendline_L_extend, C ) AND BarsSince( PLow ) > nbar ) OR
( !IsEmpty( trendline_L_extend2 ) AND Cross( trendline_L_extend2, C ) AND !PLow ) OR
( PLow AND C < trendline_L_extend2 AND Ref( C, -1 ) > Ref( trendline_L_extend, -1 ) AND !IsEmpty( trendline_L_extend ) AND !IsEmpty( trendline_L_extend2 ) );
ShortPrice = C;
Sell = 0;
Cover = 0;
}
_SECTION_END();
}