local stopped game = { cell = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}, best = 0, -- key = nil, -- t = nil, colors = { [0] = QTABLE_DEFAULT_COLOR, [2] = RGB(248,248,255), [4] = RGB(255,239,213), [8] = RGB(255,222,173), [8] = RGB(255,218,185), [16] = RGB(205,92,92), [32] = RGB(255,69,0), [64] = RGB(238,238,0), [128] = RGB(238,118,33), [256] = RGB(255,160,122), [512] = RGB(255,0,0), [1028]= RGB(238,18,137), [2048]= RGB(139,0,0) }, create_table = function(self) self.t = AllocTable() for i = 1,4 do AddColumn(self.t, i, "", true, QTABLE_INT_TYPE, 10) end CreateWindow(self.t) SetWindowPos(self.t,100,100,300,130) for i = 1,4 do InsertRow(self.t,i) end SetTableNotificationCallback(self.t, function(_t, msg, _p, key) if msg == QTABLE_VKEY then self.key = key elseif msg == QTABLE_CLOSE then stopped = true end end) SetWindowCaption(self.t, "2048 game by www.bot4sale.ru") end, draw = function(self) local cell = self.cell for row=1,4 do for column=1,4 do local value = cell[(row-1)*4 + column] SetCell(self.t,row,column,value==0 and "" or tostring(value)) SetColor(self.t,row,column,game.colors[value],0,game.colors[value],0) end end end, incr = function(self) local t,open = self.cell,{} for i=1,16 do if t[i]==0 then open[#open+1]=i end end t[open[math.random(#open)]] = math.random()<0.1 and 4 or 2 end, pack = function(self,ofr,oto,ost,ifr,ito,ist) local t = self.cell for outer=ofr,oto,ost do local skip = 0 for inner=ifr,ito,ist do local i = outer+inner if t[i]==0 then skip=skip+1 else if skip>0 then t[i-skip*ist],t[i],self.diff = t[i],0,true end end end end end, comb = function(self,ofr,oto,ost,ifr,ito,ist) local t = self.cell for outer=ofr,oto,ost do for inner=ifr,ito-ist,ist do local i,j = outer+inner,outer+inner+ist if t[i]>0 and t[i]==t[j] then t[i],t[j],self.diff,self.best = t[i]*2,0,true,math.max(self.best,t[i]*2) end end end end, move = function(self,dir) local loopdata = { {0,12,4,1,4,1}, {0,12,4,4,1,-1}, {1,4,1,0,12,4}, {1,4,1,12,0,-4} } local ofr,oto,ost,ifr,ito,ist = table.unpack(loopdata[dir]) self:pack(ofr,oto,ost,ifr,ito,ist) self:comb(ofr,oto,ost,ifr,ito,ist) self:pack(ofr,oto,ost,ifr,ito,ist) end, full = function(self) local t = self.cell for r=0,12,4 do for c=1,4 do local i,v = r+c,t[r+c] if (v==0) or (c>1 and t[i-1]==v) or (c<4 and t[i+1]==v) or (r>0 and t[i-4]==v) or (r<12 and t[i+4]==v) then return false end end end return true end, play = function(self) math.randomseed(os.time()) self:incr() self:incr() while not stopped do self:draw() if self.best == 2048 then message("Поздравляю!\n\nwww.bot4sale.ru") break end if self:full() then message("Game Over!") break end self.diff = false if self.key==0x25 then -- Left self:move(1) elseif self.key==0x27 then -- Right self:move(2) elseif self.key==0x26 then -- Up self:move(3) elseif self.key==0x28 then -- Down self:move(4) end self.key = nil if self.diff then self:incr() end sleep(100) end end, rules = function() message("Правила игры:\n\nВ каждом раунде появляется плитка номинала «2» или «4». Нажатием стрелки игрок может скинуть все плитки игрового поля в одну из 4 сторон. Если при сбрасывании две плитки одного номинала «налетают» одна на другую, то они превращаются в одну, номинал которой равен сумме соединившихся плиток. После каждого хода на свободной секции поля появляется новая плитка номиналом «2» или «4». Если при нажатии кнопки местоположение плиток или их номинал не изменится, то ход не совершается. Если в одной строчке или в одном столбце находится более двух плиток одного номинала, то при сбрасывании они начинают соединяться с той стороны, в которую были направлены.\nЛевый столбец с номерами строк участия в игре не принимает.\n\[email protected]") end } local game = game -------------------------------------------------- function main() game:create_table() game:rules() game:play() end
Оригинал здесь
Комплект индикаторов из серии «черпаем издалека и намазываем на график».
Сайт московской биржи по окончании торгов приводит данные об открытых позициях на срочном рынке. Эти данные содержат информацию в следующих разрезах:
Эта информация является официальной. Она не всегда совпадает с количеством открытых позиций, которые показывает терминал Quik. Вернее она всегда показывает немного больше открытых позиций, чем терминал. Как я понимаю, дело во внебиржевых сделках, которые в терминал не попадают.
Информация интересная. На предложение визуализировать её я с удовольствием прикинулся золотой рыбкой. Написан шаблон, генерирующий комплект индикаторов, которые выводят на график историю как сырых данных, так и результат определённых математических действий над ними.
Часто требуется построить какой-то график, реализующий какое-то математическое действие с другими графиками, уже построенными в терминале. В самом простом варианте это может быть разница между двумя графиками — спред. Или среднее значение между двумя графиками. Или процентное соотношение между ними. Или все что угодно иное.
Несколько раз мне заказывали создание таких индикаторов, каждый раз с новой формулой. Каждый раз приходилось либо писать новый индикатор для терминала либо создавать формулу для программы технического анализа. Я решил, что имеет смысл написать для этой цели универсальный инструмент. Знакомьтесь: Juggler.
Итак, имеем в качестве входящей информации:
В терминале QUIK доступны сотни и даже тысячи инструментов. Как найти среди них те, в которых выполняются определённые условия? Например, бумага начала расти или достигнут локальный минимум и имеет смысл рассмотреть вопрос покупки этого актива? Или какое-то другое условие, которым пользуетесь именно вы для анализа ценных бумаг рынка.
Очевидный путь — листать эти инструменты в терминале. Да, можно. Например, просматривать дневные графики всех инструментов на сон грядущий вместо сказки на ночь. Или проводить все время перед экраном, тренируя мышцы руки, истирая мышку и ломая глаза, если интересуют сигналы для торговли внутри дня. Даже не принимая во внимание трудоёмкость и малоприятность процесса, часть сигналов в любом случае будет пропущена.
Однако процесс поддаётся автоматизации — и это хорошо. Я не встречал в открытом доступе подобных утилит, поэтому некоторое время назад написал такую утилиту для себя. Она оказалась удобной — я ее причесал и делюсь с публикой. Лишний плюсик в личное дело на главном суде не помешает.