ТОРГОВЫЕ РОБОТЫ

Нашел у себя тексты некогда популярной игрушки 2048, на скорую руку адаптировал к квику. Ловите, улыбайтесь )

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

 

 Оригинал здесь

Цикл:

for i = 0.1, 0.3, 0.1 do
    message(tostring(i))
end

Результат:

0.1
0.2

Цикл:

for i = 0.1, 0.5, 0.1 do
    message(tostring(i))
end

Результат:

0.1
0.2
0.3
0.4
0.5

Забавно да?

А я этому LUA доверяю свои деньги! Кто знает, где у него еще косяки зарыты...

----------------------------------------
QUIK 8.13.1.16 / LUA 5.3.5 и 5.4.1

191 публичных торговых сигналов: счет моих роботов 117:74

Сегодня закрылась еще одна публичная сделка моих роботов:

• Робот PVVI, купивший акции Мечела (MTLR) 20.05.2021 по 82.8 рубля, закрыл сделку по тэйк-профиту, цена продажи 85.8.

На текущий момент было 191 публичных сигналов на покупку. 63 от робота AVP, 101 от робота PVVI и 27 от робота CandleMax. Вот ссылки:

• тс: покупка HYDR робот AVP
• тс: покупка NVTK робот AVP
• тс: покупка TATN робот PVVI
• тс: покупка RTKM робот AVP

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

Может показаться, что ралли в нефти захлёбывается — но на самом деле это не так. Рассказываем, чем вызван негатив в нефти и почему мы собираемся докупать нефтегаз в свои портфели.

 

Нефть упала по трём (кратковременным) причинам:

1. Возможное снятие санкций с Ирана. Если с Ирана снимут сакнции, персы начнут экспортировать нефть в полном объёме. Но есть оговорки: 1) это произойдёт не сразу, полное возобновление экспорта случится не раньше 2023 года; 2) растущий спрос на фоне восстановления мировой экономики с лёгкостью «поглотит» дополнительный объем нефти из Ирана.

2. Ситуация с ковидом в Индии. Заболеваемость в Индии по прежнему высокая — больше 276.000 случаев в день, но сейчас виден тренд на устойчивое снижение числа заболевших. По опыту 2020 года заболеваемость ковидом летом будет ниже, так что ожидаем улучшения обстановки в стране.

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

ТОРГОВЫЙ СИГНАЛ: ПОКУПКА MTLR, РОБОТ PVVI

ВРЕМЯ ДЕЙСТВИЯ: ДО ЗАКРЫТИЯ ТОРГОВ

УСЛОВИЕ: ЦЕНА >= 82.8

СТОП-ЛОСС: ЦЕНА ВАШЕЙ ПОКУПКИ — 3

ТЭЙК-ПРОФИТ: ЦЕНА ВАШЕЙ ПОКУПКИ + 3

СТАТИСТИКА С 22.09.1997 ПО 29.12.2018: 710/396

(ЧИСЛО ПРИБЫЛЬНЫХ СДЕЛОК/ЧИСЛО УБЫТОЧНЫХ)

Предлагаю обсудить текущую разволновкк Ri. Посмотрите на график. Вам не напоминает это неправильную плоскую коррекцию первого типа? 



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

Мечел – рсбу/ мсфо
416 270 745 Обыкновенных акций = 33,589 млрд руб
138 756 915 Привилегированных акций = 13,751 млрд руб
www.mechel.ru/shareholders/info/listing/
Капитализация на 20.05.2021г: 47,340 млрд руб


Общий долг 31.12.2018г: 270,346 млрд руб/ мсфо 550,820 млрд руб
Общий долг 31.12.2019г: 276,266 млрд руб/ мсфо 546,102 млрд руб
Общий долг 31.12.2020г: 288,124 млрд руб/ мсфо 424,511 млрд руб
Общий долг 31.03.2020г: 290,232 млрд руб/ мсфо 426,953 млрд руб


Выручка 2018г: 12,152 млрд руб/ мсфо 303,795 млрд руб
Выручка 1 кв 2019г: 5,156 млрд руб/ мсфо 74,856 млрд руб
Выручка 2019г: 14,360 млрд руб/ мсфо 287,153 млрд руб
Выручка 1 кв 2020г: 4,722 млрд руб/ мсфо 67,237 млрд руб
Выручка 2020г: 14,308 млрд руб/ мсфо 265,464 млрд руб
Выручка 1 кв 2021г: 3,854 млрд руб/ мсфо 76,048 млрд руб


Прибыль от курсовой разницы – мсфо 1 кв 2017г: 9,679 млрд руб
Прибыль от курсовой разницы – мсфо 2017г: 4,237 млрд руб
Прибыль от курсовой разницы – мсфо 1 кв 2018г: 508 млн руб

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

Вовсю кодим SmartMap для Квика.

Большой плюс данной разработки — наличие сборщика истории, что позволит не терять в течении дня картинку, если перезагружаешь программу, меняешь настройки или при потери связи.

Пока тестим

РИ


СИ


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

С одной стороны это ядрёна сделка в обмен на снятие санкций на экспорт нефти с Ирана, а с другой (я ожидаю) новое рекордное сокращение запасов сырой нефти в США от Energy Information Administration (EIA).