مرجع لا اهم مؤشرات الويلث لاب

{ The trading system below buys a position whenever MFI crosses below 25.
  It sells all open positions as soon as MFI crosses above 75.
  The ChartScript also colors MFI bars red and green to show oversold/overbought levels. }
var MFIPANE, BAR, P: integer;
MFIPane := CreatePane( 100, true, true );
PlotSeries( MFISeries( 14 ), MFIPane, #WHITE, #Thin );
PlotSeries( MFISeries( 9 ), MFIPane, #blue, #Thin );
PlotSeries( MFISeries( 5 ), MFIPane, #yellow, #Thin  );
{Stochastic}
begin
var D, NPANE, K, BAR: integer;
D := SMASeries( StochKSeries( 5 ), 3 );
nPane := CreatePane( 100, TRUE, FALSE );
K := SMASeries( StochKSeries( 12 ), 3 );
D := SMASeries( K, 3 );
PlotSeries( K, nPane, 505, 0 );
PlotSeriesLabel( D, nPane, 999, 1, 'Stochastic' );
DrawHorzLine( 50, nPane, 990, 2 );
DrawHorzLine( 20, nPane,260, 2 );
DrawHorzLine( 80, nPane, 902, 2 );
SetPaneMinMax( nPane, -10, 110 );
{RSI}
PlotSeriesLabel( RSISeries( #Close, 14 ), nPane, #BLUE, #thick, 'RSI');
end;
 {$I 'TBui Support Resistance'}
DrawLabel( 'MFI( 14-9-5 )', MFIPane );
for Bar := 14 to BarCount - 1 do
begin
DrawHorzLine( 80,mfiPane, #red, #thin );
DrawHorzLine( 50,mfiPane, #Olive, #dotted );
DrawHorzLine( 20,mfiPane, #green, #thin );
  if CrossUnderValue( Bar, MFISeries( 14 ), 20) then
    BuyAtMarket( Bar + 1,  '');
  if CrossOverValue( Bar, MFISeries( 14 ), 85) then
    for P := 0 to PositionCount - 1 do
      if PositionActive( P ) then
        SellAtMarket( Bar + 1, P, 'MFI' );
  if MFI( Bar, 14 ) < 20 then
  SetColorScheme( #Lime, 906, #Olive, #black, #SILVER, #BLUE );
  
  {sMA}
begin
const sMAperiod2 = 89;
const PositionNum = 30;
var Num: integer;
var Bar: integer;
var IsLong: boolean;
PlotSeries( sMASeries ( #Close, sMAperiod2 ), 0, #WHITE, 0 );
end;
{ Draw the result of our commentary to the volume pane }
var COMMENTARYSTRING: string;
CommentaryString := ' moly';
DrawText( CommentaryString, 1, 4, 4, #WHITE,14 );
HideVolume
end;

var PPOPANE, MACDPane, WeeklyPPOPane, MyMACD, MYPPO, MYPPO2,  WeeklyPPO, PlotWeeklyPPO, BAR, MYPPOHISTO, MyPPOHisto2, WeeklyPPOHisto, PlotWeeklyPPOHisto, WeeklySignalLine, PlotWeeklySignalLine, MYMACDHISTO: Integer;
var RealOldWeekSignal, OldWeekSignal, CurrentWeekSignal: float ;
// --------------------------------------------------------------------------------------- //
                             { Create a new chart pane to hold our MACD indicator }
MACDPane := CreatePane( 100, TRUE, TRUE );
{Develop the 12,26 MACD Oscillator}
MyMACD := CreateSeries();
for Bar := 26 to BarCount () - 1 do
SetSeriesValue ( Bar, MyMACD, EMA( Bar, #close, 12) - EMA( Bar, #close,26 ) );
{ Set the series for the MACD Histogram }
MyMACDHisto := CreateSeries();
for Bar := 26 to BarCount () - 1 do
SetSeriesValue ( Bar, MyMACDHisto, ((EMA( Bar, #close, 12) - EMA( Bar, #close,26 ))) - EMA(Bar, MyMACD, 9 )) ;
// --------------------------------------------------------------------------------------- //
 var xBBU: float;
var xBBL: float;
PlotSeries( BBandUpperSeries( #Close, 10, 1.50 ), 0, 650, #Thin );
PlotSeries( BBandLowerSeries( #Close, 10, 1.50 ), 0, 650, #Thin );
PlotSeries( SMASeries( #Close, 10 ), 0, 650, #thin );
xBBU := BBandUpper( BarCount - 1, #Close, 10, 1.50 );
xBBL := BBandLower( BarCount - 1, #Close, 10, 1.50 );
//----------------------------------------------------------------------------------------------------------//
                                                                        var x: float;
PlotSeries( SMASeries( #Close, 50 ), 0, #Red, #Thin );
x := SMA( BarCount - 1, #Close, 50 );
 PlotSeries( SMASeries( #Close, 100 ), 0, #aqua, #dotted );
x := SMA( BarCount - 1, #Close, 100 );
PlotSeries( SMASeries( #Close, 14 ), 0, #fuchsia, #Thin );
x := SMA( BarCount - 1, #Close, 14 );
PlotSeries( SMASeries( #Close, 9 ), 0, #Green, #Thin );
x := SMA( BarCount - 1, #Close, 9 );
PlotSeries( SMASeries( #Close, 200 ), 0, #blue, #Thin );
x := SMA( BarCount - 1, #Close, 200 );
{Plot the 12,26 MACD}
PlotSeries( MyMACD, MACDPane, #red, #Thin ) ;
{Plot a 9 day MACD signal line}
PlotSeries( EMASeries( MyMACD, 9 ), MACDPane, #Blue, #dotted ) ;
{Plot the MACD Histogram}
PlotSeries( MyMACDHisto,MACDPane, 999, #ThickHist) ;
DrawText( '    maccd  ',MACDPane, 4, 4, #white, 10 );
for Bar := 0 to BarCount - 1 do
begin
      if (@MyMACDHisto[bar] > 0) then
        SetSeriesBarColor( Bar, MyMACDHisto, #green )
      else if (@MyMACDHisto[bar] < 0) then
        SetSeriesBarColor( Bar, MyMACDHisto, #red );
        SetColorScheme( #Lime,905, #Olive, 222, 888, #blue );
end;
var xRSI: float;
var Pane1: integer; Pane1 := CreatePane( 80,true,false );
SetPaneMinMax( Pane1, 20, 80 );
DrawHorzLine( 50, Pane1, 009, #red );
DrawHorzLine( 30, Pane1, 090, #Dotted );
DrawHorzLine( 70, Pane1, 900, #Dotted );
PlotSeries( RSISeries( #Close, 14 ), Pane1, #yellow, #Thick );
xRSI := RSI( BarCount - 1, #Close, 14 );
DrawText( '  rsi' + FormatFloat( '#,##0.00', xRSI ), Pane1, 4, 4, #white, 8 );
{ Plot 52 week moving average on the daily chart }
var WSMA, WSMAP: integer;
SetScaleWeekly;
wsma := SMASeries( #Close, 52 );
RestorePrimarySeries;
wsmap := DailyFromWeekly( wsma );
PlotSeries( wsmap, 0, #yellow, #Thick );
 { Draw the result of our commentary to the volume pane }
var COMMENTARYSTRING: string;
CommentaryString := 'mollllllly';
DrawText( CommentaryString, 1, 4, 4, #white,15 );

var ppopane, macdpane, weeklyppopane, mymacd, myppo, myppo2,  weeklyppo, plotweeklyppo, bar, myppohisto, myppohisto2, weeklyppohisto, plotweeklyppohisto, weeklysignalline, plotweeklysignalline, mymacdhisto: Integer;
var realoldweeksignal, oldweeksignal, currentweeksignal: Float ;
// --------------------------------------------------------------------------------------- //
var x: Float;
plotseries( parabolicseries( 0.020, 0.020, 0.200 ), 0, 905, #dots );
x := parabolic( barcount - 1, 0.020, 0.020, 0.200 );
drawlabel( 'parabolic(0.020,0.020,0.200) ' + formatfloat( '#,##0.00', x ), 0 );
 
 
                             { create a new chart pane to hold our macd indicator }
macdpane := createpane( 100, true, true );
{develop the 12,26 macd oscillator}
mymacd := createseries();
for bar := 26 to barcount () - 1 do
setseriesvalue ( bar, mymacd, ema( bar, #close, 12) - ema( bar, #close,26 ) );
{ set the series for the macd histogram }
mymacdhisto := createseries();
for bar := 26 to barcount () - 1 do
setseriesvalue ( bar, mymacdhisto, ((ema( bar, #close, 12) - ema( bar, #close,26 ))) - ema(bar, mymacd, 9 )) ;
// --------------------------------------------------------------------------------------- //
 var xbbu: Float;
var xbbl: Float;
plotseries( bbandupperseries( #close, 10, 1.50 ), 0, 650, #thin );
plotseries( bbandlowerseries( #close, 10, 1.50 ), 0, 650, #thin );
plotseries( smaseries( #close, 10 ), 0, 650, #thin );
xbbu := bbandupper( barcount - 1, #close, 10, 1.50 );
xbbl := bbandlower( barcount - 1, #close, 10, 1.50 );
//----------------------------------------------------------------------------------------------------------//
 setcolorscheme( #green,  #red, #olive, #black, #gray, #silver );
{plot the 12,26 macd}
plotseries( mymacd, macdpane, #red, #thin ) ;
{plot a 9 day macd signal line}
plotseries( emaseries( mymacd, 9 ), macdpane, #blue, #dotted ) ;
{plot the macd histogram}
plotseries( mymacdhisto,macdpane, 999, #thickhist) ;
drawtext( '    macd  ',macdpane, 4, 4, #white, 10 );
for bar := 0 to barcount - 1 do
begin
      if (@mymacdhisto[bar] > 0) then
        setseriesbarcolor( bar, mymacdhisto, #green )
      else if (@mymacdhisto[bar] < 0) then
        setseriesbarcolor( bar, mymacdhisto, #red );
end;
var xrsi: Float;
var pane1: Integer; pane1 := createpane( 80,true,false );
setpaneminmax( pane1, 20, 80 );
drawhorzline( 50, pane1, 009, #red );
drawhorzline( 30, pane1, 090, #dotted );
drawhorzline( 70, pane1, 900, #dotted );
plotseries( rsiseries( #close, 14 ), pane1, #yellow, #thin );
xrsi := rsi( barcount - 1, #close, 14 );
drawtext( '  rsi' + formatfloat( '#,##0.00', xrsi ), pane1, 4, 4, #white, 8 );
 { draw the result of our commentary to the volume pane }
var commentarystring: String;
commentarystring := 'm o l y   http://www.chartsreaders.com         ';
drawtext( commentarystring, 1, 4, 4, #white,13 );
{stochastic}
begin
var d, npane, k, bar: Integer;
d := smaseries( stochkseries( 12 ), 3 );
npane := createpane( 100, true, false );
k := smaseries( stochkseries(12 ), 3 );
d := smaseries( k, 3 );
plotseries( k, npane, 505, 0 );
plotserieslabel( d, npane, 999, 1, 'stochastic' );
drawhorzline( 50, npane, 990, 1 );
drawhorzline( 20, npane,260, 2 );
drawhorzline( 80, npane, #red, 2 );
setpaneminmax( npane, -10, 110 );
 hidevolume
 
end;