Предыдущие выпуски
smart-lab.ru/blog/584371.php

— Я вас осматривать не буду, пока не наденете маску!

— А вы точно стоматолог?

***

После короновируса можно быть абсолютно уверенным в том,

что в колбасе нет туалетной бумаги

***

Многие мечтали пожить хотя бы неделю как их котэ.

Ну вот...

***

В такой трудный момент для всего мира

мы все как один должны держаться друг от друга подальше

***

Продавцы зимних шин передают пламенный привет туроператорам.

***

На рынке ценных бумаг лидирует туалетная.

Ещё одна неделя карантина — и маска будет мне мала...

***

А можно удалить 2020 и установить заново?

Эта версия с вирусом.

***

Пробыв несколько дней дома, я понял,

почему кот постоянно просит жрать...

***

— Дорогая, пойдем в ресторан или махнем на Мальдивы?

— Но сейчас же карантин…

— Ну, не хочешь — как хочешь.

***
Уважаемые соседи!

Не воруйте мой мусор, пожалуйста!

Я тоже хочу из дома выйти!

( Читать дальше )

Пожалуй, каждый, даже, самый ленивый программист на LUA презентовал свою версию для запуска QUIK.
Пришла и моя очередь.
Вчера, за небольшую благодарность, swerg перевёл w32.dll на LUA 5.3.
Теперь есть поддержка QUIK 8.5 и выше.
Скачать: http://pmntrade.ru/avtozapusk_quik_qlua/avtozapusk_quik_qlua.zip
Страница программы: http://pmntrade.ru/avtozapusk_quik_qlua.html
Видео:


( Читать дальше )

Итак все понимаем что КТ сделать быстро, а главное не контактируя с реальными больными сейчас очень сложно. Лайфхак

Берем телефон ( у меня когда то старый топ S7 edge a сейчас, вероятно, и в самом простом функция есть) и проверяем насыщенность крови кислородом (в самсунге самсунг  хелс называется, в других не знаю).  

После минуты сидения с палцем над сканером получаем концентрацию кислорода в крови. Меньше 95 начинаем очковать, меньше 90 собираем барахлишлишко и едем в больницу. Меньше 85 смотрим праис на аппарат ИВЛ

Статья про налоги. Прочтите пожалуйста. 3-НДФЛ

Доброго времени суток, коллеги!

Сегодня в своей статье я опишу крайне важную и объемную тему, с которой рекомендую ознакомиться всем.

Покажу на примере Interactive Brokers.
У других брокеров аналогичная схема.

 

Итак, начнем

В статье будет идти повествование по налогообложению резидентов. Данная информация поможет Вам ориентироваться на рынке ценных бумаг. Информация будет полезной, как инвесторам, так и спекулянтам.

Кто признается налоговым резидентом: признаются граждане РФ, иностранные граждане, лица без гражданства, если они находится на территории РФ более 183 календарных дней в течение 12 следующих подряд месяцев. Период нахождения физического лица в Российской Федерации не прерывается на периоды выезда физического лица за пределы Российской Федерации для краткосрочного (менее шести месяцев) лечения или обучения, а также для исполнения трудовых или иных обязанностей, связанных с выполнением работ (оказанием услуг) на морских месторождениях углеводородного сырья. И другие.

( Читать дальше )

Государство с некоторых пор перестало стесняться и посылает сигналы Обществу ясно и недвусмысленно, не пытаясь их как-то завуалировать.

Стеснительность пропала, ибо Государство внезапно попутало берега ощутило свою силу.

Взаимоотношения Государства и Общества проистекают из взаимоотношений разбойника вооружённого всадника и пахаря.

Суть этих взаимоотношений — компромисс.

Ощутив свою силу, Государство осознало, что пора «подвинуть» Общество и молчаливо скорректировать предыдущие договорённости.

Но, несмотря на это молчание, актуальные события и факты являются убедительными сигналами, которые здравомыслящий человек (представитель Общества) может легко распознать.

( Читать дальше )

Почему все боятся COVID-19? Из-за шанса тяжелого течения, попадания на ИВЛ с пневмонией и возможной смерти! 

Поэтому я даю вам следующую информацию:
Как оценить свои шансы? 
Смотрим статистику сопутствующих заболеваний, многократно увеличивающих риск летального исхода:


Нужно выявить следующие факторы риска:

— свой возраст (меньше 65 лет);
— нарушение обмена глюкозы, определяющее предрасположенность к сахарному диабету;
— изменения уровня липидов крови (холестерина), приводящие к развитию сердечно-сосудистых заболеваний, в том числе атеросклероза и его осложнений – инфарктов и инсультов;
— нарушения со стороны свертывающей системы крови;
— патологии печени и почек на ранней стадии.

Какие нужно сдать тесты, чтобы перестать бояться COVID-19?

В принципе их не так много! 
Вот их минимальный перечень:
1) Клинический анализ крови (c лейкоцитарной формулой)

( Читать дальше )

Всем привет. Переделал первоначальную версию скрипта. Исправил некоторые ошибки и немного расширил функционал. Теперь скрипт может сохранять данные в текстовый файл, который потом можно анализировать в другой программе (например exсel). Также, в отличии от первого варианта, скрипт показывает в таблице усредненную цену, по которой прошли сделки. В первом варианте отображалась цена последней сделки. И в скрипте добавлен показ накопленной дельты за все время пока скрипт работает.

TICER = "SBER";
CLASS_CODE = "TQBR";
FilePath = getScriptPath() .. "\\export.txt";--путь к файлу
save = false;--сохранять данные в файл если false нет, true да

f = nil;
stopped = false;
t_id = nil
H = -1;
M = -1;
VSELL = 0;
VBUY  = 0;
CDelta = 0;
CountTrans = 0;
PriceTrans = 0.0; 
t = "";
function OnInit()
    CountTrans = 0;
        if save then f = io.open(FilePath,"w"); end
        CreateTable();
end 

function main() 
        while not stopped do 
          if IsWindowClosed(t_id) then
         stopped = true;
      end       
          sleep(10);
        end
end

function CreateTable()
   t_id = AllocTable(); 
   AddColumn(t_id, 0, "Время", true, QTABLE_STRING_TYPE, 10);
   AddColumn(t_id, 1, "BUY", true, QTABLE_INT_TYPE, 10);
   AddColumn(t_id, 2, "SELL", true, QTABLE_INT_TYPE, 10);
   AddColumn(t_id, 3, "Дельта V", true, QTABLE_INT_TYPE, 10);   
   AddColumn(t_id, 4, "AVG Цена", true, QTABLE_DOUBLE_TYPE, 15);
   AddColumn(t_id, 5, "Накопленная Дельта", true, QTABLE_INT_TYPE, 15);
   AddColumn(t_id, 6, "Кол-во сделок", true, QTABLE_DOUBLE_TYPE, 12);   
   tab = CreateWindow(t_id);
   local NAME = tostring(getParamEx(CLASS_CODE,TICER,"LONGNAME").param_image);
   SetWindowCaption(t_id, TICER.." ("..NAME..") Баланс покупок/продаж");
   SetTableNotificationCallback(t_id, EventCallBack);
end

function Calc(alltrade)
        if bit.test(alltrade.flags, 0) then VSELL = VSELL+alltrade.qty;  --Продажа
        else VBUY  = VBUY+alltrade.qty;  end                            
        CountTrans = CountTrans+1;
        PriceTrans = PriceTrans+alltrade.price;                 
end

function OnAllTrade(alltrade)    
        if alltrade.sec_code == TICER then      
                local Rows, Col = GetTableSize(t_id);
                
                if H==-1 or H~= alltrade.datetime.hour then 
                        H = alltrade.datetime.hour;
                        M = alltrade.datetime.min;
                        t = tostring(alltrade.datetime.hour)..":"..tostring(alltrade.datetime.min);
                end
                if M==alltrade.datetime.min then
                        Calc(alltrade);
                else                                    
                M=alltrade.datetime.min;        
                        InsertRow(t_id, -1);                                               
                        local Delta = VBUY-VSELL;
                        Price = PriceTrans/CountTrans;
                        SetCell(t_id, Rows, 6, tostring(CountTrans));                   
                        SetCell(t_id, Rows, 0, t);
                        SetCell(t_id, Rows, 1, tostring(VBUY));
                        SetCell(t_id, Rows, 2, tostring(VSELL));                           
                        SetCell(t_id, Rows, 3, tostring(Delta));
                        local SEC_SCALE = tostring(getParamEx(CLASS_CODE,TICER,"SEC_SCALE").param_value);
                        SEC_SCALE = string.format("%.0f",SEC_SCALE);                    
                        SetCell(t_id, Rows, 4, string.format("%."..SEC_SCALE.."f", tostring(Price)));
                   if Rows>=2 then
                           local OldPrice = tonumber(GetCell(t_id,Rows-1,4).image);
                           if OldPrice>Price then 
                                        Red(Rows,4); 
                           else 
                                        Green(Rows,4);
                           end
                           CDelta = tonumber(GetCell(t_id,Rows-1,5).image);
                           CDelta = CDelta + Delta;                        
                        else 
                          CDelta = Delta;
                        end
                        SetCell(t_id, Rows, 5, tostring(CDelta));
                    if Delta<0 then Red(Rows,3); end
                    if Delta>0 then Green(Rows,3); end
                    if CDelta<0 then Red(Rows,5); end
                    if CDelta>0 then Green(Rows,5); end                                                   
                   if save then
                                local Str = tostring(H)..";"..tostring(M)..";"..tostring(VBUY)..";"..tostring(VSELL)..";"
                                                ..tostring(Delta)..";"..tostring(Price)..";"..tostring(CDelta);
                           Str=Str.."\n";
                           SaveFile(Str);
                        end
                t = tostring(alltrade.datetime.hour)..":"..tostring(alltrade.datetime.min);                        
                    VBUY = 0;VSELL = 0;
                        PriceTrans = 0;
                        CountTrans = 0;
                        Calc(alltrade);
                end
        end --if alltrade.sec_code == TICER then        
end

function SaveFile(Str)
        if f ~= nil then 
                f:write(Str);           
                f:flush();                               
        end
end

function Red(row,col)
        SetColor(t_id, row, col, RGB(255,0,0), RGB(0,0,0), RGB(255,0,0), RGB(0,0,0));
end
function Yellow(row,col)
        SetColor(t_id, row, col, RGB(240,240,0), RGB(0,0,0), RGB(240,240,0), RGB(0,0,0));
end
function Green(row,col)
        SetColor(t_id, row, col, RGB(0,200,0), RGB(0,0,0), RGB(0,200,0), RGB(0,0,0));
end


function EventCallBack(t_id, msg, par1, par2)
   if msg==QTABLE_CLOSE then
     OnStop();
   end;
end

function OnStop(s)
  if f ~= nil then f:close(); end
  if t_id ~= nil then
    DestroyTable (t_id);
  end;
  stopped = true;
end