Wealth-Lab -- تنصيب -- خصائص -- مؤشرات

MOLY · 23-07-2009, 12:02 AM

وهذي معادلة للفيبو بعد التعديل عليها واضافة قيمة 23.6% وقيمة 76.4%

procedure FibRetrace;
begin
var Bar, b1, b2, b: integer;
var p1, p2, Decline, r50, r382, r618, r236 , r764: float;
Bar := BarCount - 1 ;
b2 := TroughBar( Bar, #Low, 10 );
p2 := Trough( Bar, #Low, 10);
b1 := PeakBar( b2, #High,10 );
p1 := Peak( b2, #High, 10 );
DrawLine( b1, p1, b2, p2, 0, #Blue, #Thick );
Decline := p1 - p2;
r50 := p2 + Decline * 0.5;
r382 := p2 + Decline * 0.382;
r618 := p2 + Decline * 0.618;
r236 := p2 + Decline * 0.236;
r764 := p2 + Decline * 0.764;
DrawLine( b2, r50, Bar, r50, 0, #Purple, #Dotted );
AnnotateChart( '50%', 0, b2, r50 * 0.995, #Purple, 8 );
DrawLine( b2, r382, Bar, r382, 0, #Purple, #Dotted );
AnnotateChart( '38.2%', 0, b2, r382 * 0.995, #Purple, 8 );
DrawLine( b2, r618, Bar, r618, 0, #Purple, #Dotted );
AnnotateChart( '61.8%', 0, b2, r618 * 0.995, #Purple, 8 );
DrawLine( b2, r236, Bar, r236, 0, #Purple, #Dotted );
AnnotateChart( '23.6%', 0, b2, r236 * 0.995, #Purple, 8 );
DrawLine( b2, r764, Bar, r764, 0, #Purple, #Dotted );
AnnotateChart( '76.4%', 0, b2, r764 * 0.995, #Purple, 8 );

end;
FibRetrace;

MOLY · 23-07-2009, 12:02 AM

وهذا مؤشر من تجميعي فيه الmfi والاستكاستك بالاضافة لمتوسط 89 يوم حلو للمضاربة على النص ساعة

{ 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 );
{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, 2 );
DrawHorzLine( 20, nPane,260, 2 );
DrawHorzLine( 80, nPane, 902, 2 );
SetPaneMinMax( nPane, -10, 110 );

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;

MOLY · 23-07-2009, 12:03 AM

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, 5 ), 0, #blue, #Thin );
x := SMA( BarCount - 1, #Close, 5 );
SetColorScheme( #Lime, 906, #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, #Thick );
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 := 'moooooooly';
DrawText( CommentaryString, 1, 4, 4, #white,15 );

MOLY · 23-07-2009, 12:04 AM

المؤشر الثالث من تجميعي وهو عبارة عن متوسطات وبولينجر وماكد وrsi
بالاضافة لمتوسطي الاسبوعي

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 );

MOLY · 23-07-2009, 12:05 AM

var BOPPANE: integer;
{ Create the Balance of Power Indicator }
{BOP := CreateSeries;
for Bar := 0 to BarCount - 1 do
begin
o := PriceOpen( Bar );
h := PriceHigh( Bar );
l := PriceLow( Bar );
c := PriceClose( Bar );
if h <> l then
begin
BullRewardO := ( h - o ) / ( h - l );
BearRewardO := ( o - l ) / ( h - l );
BullRewardC := ( c - l ) / ( h - l );
BearRewardC := ( h - c ) / ( h - l );
if c > o then
begin
BullRewardOC := ( c - o ) / ( h - l );
BearRewardOC := 0.0;
end
else
begin
BearRewardOC := ( o - c ) / ( h - l );
BullRewardOC := 0.0;
end;
BullRewardDaily := ( BullRewardO + BullRewardC + BullRewardOC ) / 3;
BearRewardDaily := ( BearRewardO + BearRewardC + BearRewardOC ) / 3;
BOPValue := BullRewardDaily - BearRewardDaily;
SetSeriesValue( Bar, BOP, BOPValue );
end;
end;}

{ Plot BOP }
HideVolume;
BOPPane := CreatePane( 150, false, true );
PlotSeries( SMASeries( BOPSeries, 14 ), BOPPane, #green, 2 );
PlotSeries( SMASeries( BOPSeries, 52 ), BOPPane, #Maroon, 2 );
DrawText( 'BOP 14 bar SMA', BOPPane, 4, 4, #green, 8 );
DrawText( 'BOP 52 bar SMA', BOPPane, 4, 16, #Maroon, 8 );

MOLY · 23-07-2009, 12:07 AM

وهذا مؤشر ثاني

إقتباس:
المشاركة الأصلية بواسطة M O L Y;957687

وهذا مؤشر آخر وهذي صورة له على الديلي واللحظي

كود:

var Swing, Bar: integer;
var sName: string;
var p0, t0, Cents, xHigh, xLow, Value, xLowestSince, xHighestSince: float;
var bPeak, bTrough: boolean;
var p0b, t0b, nLowestBar, nHighestBar: integer;
var lstPeaks, lstTroughs, lstPeakBars, lstTroughBars: TList;
var x1, x2: integer;
var y1, y2: float;
{ Custom Procedures }
procedure DrawSwingTrendLine( Num: integer; Color1, Color2: integer );
begin
x1 := lstPeakBars.Item( lstPeakBars.Count - 2 - Num );
x2 := lstPeakBars.Item( lstPeakBars.Count - 1 - Num );
y1 := lstPeaks.Item( lstPeaks.Count - 2 - Num );
y2 := lstPeaks.Item( lstPeaks.Count - 1 - Num );
y2 := LineExtendY( x1, y1, x2, y2, BarCount - 1 );
DrawLine( x1, y1, BarCount - 1, y2, 0, Color1, #Dotted );
x1 := lstTroughBars.Item( lstTroughBars.Count - 2 - Num );
x2 := lstTroughBars.Item( lstTroughBars.Count - 1 - Num );
y1 := lstTroughs.Item( lstTroughs.Count - 2 - Num );
y2 := lstTroughs.Item( lstTroughs.Count - 1 - Num );
y2 := LineExtendY( x1, y1, x2, y2, BarCount - 1 );
DrawLine( x1, y1, BarCount - 1, y2, 0, Color2, #Dotted );
end;
procedure DrawSwingHorzLine( Num: integer; Color: integer );
begin
x1 := lstPeakBars.Item( lstPeakBars.Count - 1 - Num );
x2 := BarCount - 1;
y1 := lstPeaks.Item( lstPeaks.Count - 1 - Num );
y2 := y1;
DrawLine( x1, y1, x2, y2, 0, Color, #Dotted );
x1 := lstTroughBars.Item( lstTroughBars.Count - 1 - Num );
x2 := BarCount - 1;
y1 := lstTroughs.Item( lstTroughs.Count - 1 - Num );
y2 := y1;
DrawLine( x1, y1, x2, y2, 0, Color, #Dotted );
end;
{ Access Peak/Trough by number }
function SwingHigh( Bar, Number: integer ): float;
var
i, pb: integer;
begin
Result := 0;
i := lstPeakBars.Count - 1;
while i >= 0 do
begin
pb := lstPeakBars.Item( i );
if pb <= Bar then
begin
i := i - Number;
if i >= 0 then
Result := lstPeaks.Item( i );
Exit;
end;
Dec( i );
end;
end;
function SwingLow( Bar, Number: integer ): float;
var
i, pb: integer;
begin
Result := 0;
i := lstTroughBars.Count - 1;
while i >= 0 do
begin
pb := lstTroughBars.Item( i );
if pb <= Bar then
begin
i := i - Number;
if i >= 0 then
Result := lstTroughs.Item( i );
Exit;
end;
Dec( i );
end;
end;
SetColorScheme( #Lime, 922, #Olive, #Black, #Black, #Silver );
{ Create Custom Series }
Swing := CreateSeries;
{ Create List Objects }
lstPeaks := TList.Create;
lstTroughs := TList.Create;
lstPeakBars := TList.Create;
lstTroughBars := TList.Create;
Cents := 0.09;
bPeak := true;
bTrough := true;
xLowestSince := Sqrt( PriceHigh( 0 ) );
xHighestSince := Sqrt( PriceLow( 0 ) );
Value := Sqrt( PriceLow( 0 ) );
nLowestBar := -1;
nHighestBar := -1;
for Bar := 1 to BarCount - 1 do
begin
xHigh := Sqrt( PriceHigh( Bar ) );
xLow := Sqrt( PriceLow( Bar ) );
if bPeak then
begin
if xHigh > xHighestSince then
begin
xHighestSince := xHigh;
nHighestBar := Bar;
end
else if xLow <= xHighestSince - Cents then
begin
p0 := xHighestSince * xHighestSince;
p0b := nHighestBar;
lstPeaks.Add( p0 );
lstPeakBars.Add( p0b );
DrawLine( nHighestBar, p0, nLowestBar, xLowestSince * xLowestSince, 0, 690, #Thick );
bPeak := false;
bTrough := true;
Value := xHighestSince;
xLowestSince := xLow;
nLowestBar := Bar;
end;
end
else
begin
if xLow < xLowestSince then
begin
xLowestSince := xLow;
nLowestBar := Bar;
end
else if xHigh >= xLowestSince + Cents then
begin
t0 := xLowestSince * xLowestSince;
t0b := nLowestBar;
lstTroughs.Add( t0 );
lstTroughBars.Add( t0b );
DrawLine( nLowestBar, t0, nHighestBar, xHighestSince * xHighestSince, 0, 960, #Thick );
bTrough := false;
bPeak := true;
Value := xLowestSince;
xHighestSince := xHigh;
nHighestBar := Bar;
end;
end;
SetSeriesValue( Bar, Swing, Value * Value );
end;
PlotSeries( Swing, 0, 222, #Thin );
{ Draw Horizontal Lines }
DrawSwingHorzLine( 0, #Silver );
DrawSwingHorzLine( 1, #Gray );
{ Draw Trendlines }
DrawSwingTrendLine( 0, 595, 955 );
DrawSwingTrendLine( 1, 373, 733 );
{ Set Bar Colors based on Peak/Trough Relationships }
for Bar := 1 to BarCount - 1 do
begin
SetBarColor( Bar, #Gray );
if SwingHigh( Bar, 0 ) > SwingHigh( Bar, 1 ) then
if SwingLow( Bar, 0 ) > SwingLow( Bar, 1 ) then
SetBarColor( Bar, #Lime );
if SwingHigh( Bar, 0 ) < SwingHigh( Bar, 1 ) then
if SwingLow( Bar, 0 ) < SwingLow( Bar, 1 ) then
SetBarColor( Bar, #Red );
end;
{ Free List Objects }
lstPeaks.Free;
lstTroughs.Free;
lstPeakBars.Free;
lstTroughBars

MOLY · 23-07-2009, 12:08 AM

المؤشرات المستخدمة هي:
1- Dema الفترة الزمنية 5 أيام .
2- Linear Regression Lndicator الفترة الزمنية 14 يوم .
3- Widers Smoothing الفترة الزمنية 14 يوم .

كود

{#OptVar1 4;1;12;1}
var Bar: integer;
var SMA1: integer = SMASeries( #Close, 5 );

var DMA1: integer = OffsetSeries( SMA1, -#OptVar1 );

PlotSeries( DMA1, 0, #WHITE, #Thick );

{ Compare a Simple and Exponential Moving Average with Wilder's MA }
var n: integer;
var s, s2: string;
n := 14;
s := '(Close, ' + IntToStr( n ) + ' )';
s2 := '(Close, ' + IntToStr( 2 * n ) + ' )';
PlotSeriesLabel( WilderMASeries( #Close, n ), 0, #YELLOW, #Thick, 'WilderMA' + s );

{ Report on how far closing prices are away from predicted value }

SetColorScheme( #Lime, 906, #Olive, #black, #SILVER, #BLUE );
PlotSeries( LinearRegSeries( #Close, 14 ), 0, 029, #Thick );

for Bar := 14 to BarCount - 1 do
begin
if LastPositionActive then
begin

end
else
begin
if not LastPositionActive then
begin
BuyAtClose( Bar, '0' );
end;
end;

end;

نواف العتيبي · 24-07-2009, 09:02 AM

بارك الله فيك

اشكرك على هذا الجهد المبذول

تقبل أرق تحياتى وتقديري

Mo777ammed · 27-07-2009, 07:34 PM

تسلم الايادي ... يالغاليه

MOLY · 12-08-2009, 09:09 PM

يسلموو على مروركم الكريم
وبالنسبة للمؤشر اخوي محمد قريب ان شاء الله

خيارات الموضوع
عرض نسخة للطّباعة ارسل هذه الصفحة لصديق
طريقة العرض
النمط المتتابع التحول إلى النمط التشعبي التحول إلى النمط الأُحادي

مواضيع مشابهة
الموضوع	الكاتب	القسم	الردود	آخر مشاركة
هبوط مؤشرات الأسواق الخليجية	مال وأعمال	الأسواق الأمريكيه,الأوربيه,الأسيويه للأوراق الماليه	0	01-07-2009 04:49 AM
خصائص ووظائف FX AccuCharts	خـدمة العمـلاء	أكاديمية الفوركس Forex	0	23-05-2009 07:59 AM

Wealth-Lab -- تنصيب -- خصائص -- مؤشرات

برامج التحليل الفني والمؤشرات