إضافة رد
 
أدوات الموضوع انواع عرض الموضوع
قديم 16-09-2017, 05:56 PM   #1
أبوبرجس
الإدارة


الصورة الرمزية أبوبرجس
أبوبرجس غير متواجد حالياً

بيانات اضافيه [ + ]
 رقم العضوية : 1
 تاريخ التسجيل :  28 / 10 / 2014
 أخر زيارة : اليوم (12:22 AM)
 المشاركات : 8,360 [ + ]
 التقييم :  1000
 الدولهـ
Saudi Arabia
 الجنس ~
Male
 SMS ~
حياكم الله في الاكاديميه لاحتراف الاسهم السعودبة
لوني المفضل : Forestgreen
افتراضي معادلة البولنجر الذهبي



var BBDown, RSISer, RSIPane, StochKSer, StochDSer, StoPane, RSISer1, RSIPane1, StochKSer1, StochDSer1, StoPane1, BBUp: integer;
var Bar, p: integer;
var bLongSAR: boolean;
BBDown := BBandLowerSeries( #Close, 21, 1.618 );
RSISer := RSISeries( #Close, 8 );
StochDSer := StochDSeries( 3, 3 );
StochKSer := StochKSeries( 21 );
RSISer1 := RSISeries( #Close, 8 );
StochDSer1 := StochDSeries( 3, 3 );
StochKSer1 := StochKSeries( 21 );
BBUp := BBandUpperSeries( #Close, 21, 1.618 );
PlotSeries( BBDown, 0, 559, #Thick );
RSIPane := CreatePane( 100, true, true );
PlotSeries( RSISer, RSIPane, #Navy, #Thick );
DrawLabel( 'RSI(#Close,8)', RSIPane );
DrawHorzLine( 50, RSIPane, #Silver, #Dotted );
DrawHorzLine( 45, RSIPane, #Silver, #Dotted );
StoPane := CreatePane( 75, true, true );
PlotSeriesLabel( StochKSer, StoPane, #Teal, #Thin, 'StochK(21)');
PlotSeriesLabel( StochDSer, StoPane, #Blue, #Thin, 'StochD(3,3)' );
PlotSeries( BBUp, 0, 559, #Thick );
PlotSeries( ParabolicSeries( 0.02, 0.02, 0.2 ), 0, 052, #Dots );
for Bar := 21 to BarCount - 1 do
begin
if LastPositionActive then
begin
p := LastPosition;
bLongSAR := PositionLong( p );
if PositionSignalName( p ) = '0' then
if PositionLong( p ) then
begin
if CrossUnderValue( Bar, RSISer1, 45 ) then
begin
if CrossUnder( Bar, StochKSer1, StochDSer1 ) and ( @StochDSer1[Bar] >= 0 ) then
begin
if CrossOver( Bar, #Close, BBUp ) then
begin
SellAtMarket( Bar + 1, p, '' );
end;
end;
end;
end;
if PositionSignalName( p ) = '9' then
if PositionLong( p ) then
begin
SellAtStop( Bar + 1, Parabolic( Bar, 0.02, 0.02, 0.2 ), p, '9' );
end;
end;
if not bLongSAR then
begin
if CrossOver( Bar, #Close, BBDown ) then
begin
if CrossOverValue( Bar, RSISer, 50 ) then
begin
if CrossOver( Bar, StochKSer, StochDSer ) and ( @StochDSer[Bar] <= 100 ) then
begin
BuyAtMarket( Bar + 1, '0' );
end;
end;
end;
end;
if not bLongSAR then
begin
BuyAtStop( Bar + 1, Parabolic( Bar, 0.02, 0.02, 0.2 ), '8' );
end;
if bLongSAR then
begin
ShortAtStop( Bar + 1, Parabolic( Bar, 0.02, 0.02, 0.2 ), '9' );
end;
end;




سهم سوليدرتي




الموضوع الأصلي: معادلة البولنجر الذهبي ـــــــــ الكاتب: أبوبرجس ـــــــــ المصدر: أكاديمية إحتراف الأسهم السعودية

كلمات البحث

اسهم ، برامج ، تكرشارت ، برامج أسهم ، تحليل الاسهم




 

رد مع اقتباس
قديم 20-09-2017, 04:28 PM   #2
فوزي
المشرف العام


الصورة الرمزية فوزي
فوزي غير متواجد حالياً

بيانات اضافيه [ + ]
 رقم العضوية : 1440
 تاريخ التسجيل :  3 / 6 / 2015
 أخر زيارة : 21-10-2017 (08:33 PM)
 المشاركات : 490 [ + ]
 التقييم :  10
لوني المفضل : Forestgreen
افتراضي



جزاك الله خيـر
بارك الله في جهودك
وأسال الله لك التوفيق دائما
وأن يجمعنا على الود والإخاء والمحبة
وأن يثبت الله أجرك
ونفعا الله وإياك بما تقدمه


 

رد مع اقتباس
قديم 20-09-2017, 09:36 PM   #3
طالب الخير
برونزي


الصورة الرمزية طالب الخير
طالب الخير غير متواجد حالياً

بيانات اضافيه [ + ]
 رقم العضوية : 4092
 تاريخ التسجيل :  27 / 1 / 2017
 أخر زيارة : 29-11-2017 (10:27 PM)
 المشاركات : 10 [ + ]
 التقييم :  10
لوني المفضل : Forestgreen
افتراضي



بارك الله فيك وفي علمك
وجزاك الله عنا كل خير


 

رد مع اقتباس
إضافة رد


الذين يشاهدون محتوى الموضوع الآن : 1 ( الأعضاء 0 والزوار 1)
 
أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع


الساعة الآن 01:37 AM


Powered by vBulletin® Copyright ©2000 - 2017, Jelsoft Enterprises Ltd. TranZ By Almuhajir
Ads Management Version 3.0.1 by Saeed Al-Atwi

HêĽм √ 3.1 BY: ! ωαнαм ! © 2010
images

منتديات كاونتر سترايك