معادلة رياضية تحتاج الي تحويل من لغة الي لغة أخرى

سأضع المعادلة هنا احبتي الكرام

// Using ZIGZAG
// Identify downside/upside Lag then buy or sell
// velappan periasamy
// 03/Mar/2007
{$I 'ZigZag Study'}
var Bar, Lag,Lagdown,Lagup,pane,x,y: integer;
ZigZag( 5 );
PlotSeries( PeakSeries( #Close, 5 ), 0, #Red, #Dots );
PlotSeries( TroughSeries( #Close, 5 ), 0, #Blue, #Dots );
Lagdown := CreateSeries;
Lagup := CreateSeries;
SetShareSize(10);
var RSIPane: integer;
RSIPane := CreatePane( 80, true, true );
for Bar := 100 to BarCount - 1 do
begin
    if Peak( Bar, #Close, 5 ) <> Peak( Bar - 1, #Close, 5 ) then
        begin
           Lag := Bar - PeakBar( Bar, #Close, 5 );
               x:=Bar-Lag+1;
              SetSeriesValue( x, Lagup, Lag);
              AnnotateBar( 'Lag = ' + IntToStr( Lag ), PeakBar( Bar, #Close, 5 ),
               true, #Red, 8 )
        end;
    if Trough( Bar, #Close, 5 ) <> Trough( Bar - 1, #Close, 5 ) then
        begin
           Lag := Bar - TroughBar( Bar, #Close, 5 );
               y:=Bar-Lag+1;
               SetSeriesValue(y , Lagdown, -Lag);
               AnnotateBar( 'Lag = ' + IntToStr( Lag ), TroughBar( Bar, #Close, 5 ),
               false, #Blue, 8 );
        end;
end;
DrawText( ' UP/DOWN indicator *** Green Buy Red Sell ***', RSIPane, 0, 1, #black, 15);
PlotSeries(Lagdown,RSIPane, #green, #Thick );
PlotSeries(Lagup,RSIPane, #red, #Thick );
for Bar := 100 to BarCount - 1 do
begin
SetPaneBackgroundColor( Bar, 0, #Greenbkg);
end ;
for Bar := 100 to BarCount - 1 do
    begin
    if GetSeriesValue( Bar, Lagdown ) < 0 then
        BuyAtMarket(Bar+1, '');
    if GetSeriesValue( Bar, Lagup ) > 0 then
        SellAtMarket(Bar+1,#all,'');

    if GetSeriesValue( Bar, Lagdown ) < 0 then
       SetPaneBackgroundColor( Bar, 0, #Green )
       else
    if GetSeriesValue( Bar, Lagup ) > 0 then
        SetPaneBackgroundColor( Bar, 0, #Red );
        SetBackgroundColor( Bar, #bluebkg );
end;

هل هناك من يساعد ايها الاحبة

عدد المشاهدات 79

عدد الردود 000000000000000

!!!!!!!!!!!!!!!!!!!!!!!!!!!

عدد المشاهدات 102

عدد الردود صفـــــــــــــــــر

why ?

الأخ abu mishari:

يبدو أن الكود عبارة عن wealthscript خاصة ببرنامج WealthLab والـ script مكتوب بالـ Pascal ؟ هل هذا صحيح؟

Wealth-lab في نسخته الأخيرة يدعم scripts مكتوبه بـ Pascal/Delphi و c# .

إن كان الكلام أعلاه صحيح , فلماذا تريد تحويل الكود إلى c++ ؟

وضح أكثر ما الذي تريد عمله بالكود وأين تريد إستخدامه ؟ فالكود وإن لم يكن خاصاً بـ wealthlab فهو يستدعي دوال في مكتبات خاصة ...

YaSeenTA كتب:

الأخ abu mishari:

يبدو أن الكود عبارة عن wealthscript خاصة ببرنامج WealthLab والـ script مكتوب بالـ Pascal ؟ هل هذا صحيح؟

Wealth-lab في نسخته الأخيرة يدعم scripts مكتوبه بـ Pascal/Delphi و c# .

إن كان الكلام أعلاه صحيح , فلماذا تريد تحويل الكود إلى c++ ؟

وضح أكثر ما الذي تريد عمله بالكود وأين تريد إستخدامه ؟ فالكود وإن لم يكن خاصاً بـ wealthlab فهو يستدعي دوال في مكتبات خاصة ...

نعم الكلام أعلاه صحيح يااستاذ ياسين

وبما انك مختص وتعرف في برامج البورصة

اريد تحويلة الي لغة الايمي بروكر

للأسف الشديد فلست مختصاً في برامج البورصة , بل لم أستخدم أي منها البتة ... :)

إن كنت تريد إستخدام الـ script في برنامج Amiborker فعليك فهم كل سطر فيه ومن ثم تكتب script جديد مشابه .. فلا أظن ان عملية التحويل ستكون مباشرة خصوصا إن كانت البرامج تعتمد scripts مختلفة ...

يبدو الكود غير صعب فأغلبه دوال للرسم (من إسمها ) ودوال للحصول على القيم الحالية للبورصة ...

يظهر أنك فعلاً تفهم جيداً فيها ولكنك تخبئ ذلك .,

استاذي أنا لست مبرمج , وحدثت أحد الأخوة المبرمجين ولكنة وجد بعض الاشكالية في فهم بعض الأوامر لكون البرنامج المذكور يستخدم لغة خاصة قريبة من السي ,.,