Список форумов AmiSite.ru AmiSite.ru
Форум по Ами
 FAQ  •  Поиск  •  Пользователи  •  Группы   •  Регистрация  •  Профиль  •  Войти и проверить личные сообщения  •  Вход
 Помощь! Перевод кода из TradeStation в Ами. Следующая тема
Предыдущая тема
Начать новую тему  Ответить на тему
Автор Сообщение
AntColonel



Зарегистрирован: 03.05.2011
Сообщения: 180
Откуда: Новосибирск

СообщениеДобавлено: Пт Окт 06, 2017 3:20 pm Ответить с цитатой Вернуться к началу

Олег и другие знающие товарищи, большая просьба помочь написать один индюк для Ами. Его код привожу ниже. Код этот для TradeStation. В целом все понятно, но как дохожу до расчета цикла - ступор. Пытался сделать в экселе для понимания расчета - не получается.
Вроде пояснения есть в комментариях.
Прошу помочь.

Заранее благодарю!

Код:

Input: Vol_D(0),                //Input Volume ("D")
TBF_Price(L),                    //Bar Price to use (L or H or (O+H+L)/3)
MyVolume,                       //Bar Volume information to use;
StartingDate(1120101),    //Start Date in TradeStation date format: YYYMMDD, where YYY is years since 1900. Example date is January 1, 2012 StartingTime(1530), //Start Time in military time with nopunctuation; ample time is 3:30 pm
StartColor(Yellow),           //Color of TBF curve will start with StartColor and end with EndColor . . .
EndColor(Red);                //. . . and changes according to % D completion

Vars: running(false),        //whether or not TBF calculation has started and not ended

pv(0),                             //cumulative price ∗ volume
vol(0),                            //cumulative volume
_D(0),                            //variable that holds input volume, D
pvInt(0),                        //interpolated pv
j(0),                               //loop iterator
e(0),                              //"e" variable
eT(0),                            //temporary copy of "e" used for iteration
tbf(0),                            //current calculated price of TBF curve
pct_D(0);                        //percent completion of TBF curve

//begin at user specified date and time
if (date = StartingDate and time = StartingTime) or running then begin

    running = true;

    pv = pv + TBF_Price ∗ MyVolume;                                    //add current bar’s price ∗ volume to cumulative total
    vol = vol + (MyVolume);                                                 //running total of volume


//begin calculation of TBF price

    if Vol_D <> 0 then begin
                _D = Vol_D;                      //store copy of input volume
                e = vol ∗ (1 - vol / _D);               //calculate "e"

                //if "e" greater than zero, continue to
                //calculate TBF price
               //otherwise, TBF is completed

               if e > 0 then begin
                           eT = e;                 //temporary copy of "e"
                           j = -1;                  //used for iteration
                //iterate backwards until the cumulative
                //displaced volume is greater than or
                //equal to "e"

                while eT > 0 begin
                j = j + 1;
               eT = eT - MyVolume[j];
                end;


               //If displaced volume is greater than "e"
               //(nearly always),
              //an interpolated pv amount is calculated
              //for "j" bars ago using only that part of
              //"j" bar’s volume needed to make cumulative
              //displaced volume equal to "e".
              //Note that at this point, "eT" is negative
              //and contains the partial volume
               //of "j" bars ago that should be excluded.

               if eT < 0 then pvInt = TBF_Price[j] ∗
               (MyVolume[j] + eT) else pvInt = 0;

                tbf = (pv - pv[j] + pvInt) / e;               //calculate
                                                                         //TBF curve
                                                                         //price for
                                                                         //this bar
                 pct_D = vol / _D ∗ 100;                     //calculate
                                                                         //percent TBF
                                                                         //completion
                 
                plot1(tbf, "TBF");
                //Set Plot Color based on gradient between two
                //Input colors
                SetPlotColor(1, GradientColor(pct_D, 0, 100,
                //StartColor, EndColor));
        end
         else running = false; //TBF curve is completed; do
          //not run anymore
end;
end;


Да, забыл сказать - сам параметр D должен задаваться вручную через меню.
Посмотреть профиль Отправить личное сообщение
Показать сообщения:      
Начать новую тему  Ответить на тему


 Перейти:   



Следующая тема
Предыдущая тема
Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете вкладывать файлы
Вы не можете скачивать файлы


Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Часовой пояс: GMT + 3

File Attachment © by Meik Sievertsen