/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Delphi

Выпуск № 679
от 14.12.2006, 05:35

Вопрос № 66.054

Здравствуйте Уважаемые эксперты ! Не могли бы Вы подсказать где можно найти программу или алгоритм для решения целочисленных задач линейного программирования симплекс-методом или двойственным симплекс-методом. Алгоритм для решения не целочисленных задач я написал, а целочисленных не получается - либо не находит решения , либо зависает, но решение задачи точно есть. Может есть уже готовые программы или алгоритмы ? За ранее благодарю всех за помощь.

Отправлен: 08.12.2006, 08:02 Вопрос задал: Geb2003 (статус: Посетитель) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Алтунин Василий Владимирович Здравствуйте, Geb2003! Попробуйте Яндекс, мне он выдал много информации на эту тему http://www.yandex.ru/yandsearch?text=симплекс-метод&stype=www про симплекс метод довольно много информации, программ и модулей... --------- ... Дорогу осилит Идущий ...

Ответ отправил: Алтунин Василий Владимирович (статус: 2-ой класс) Ответ отправлен: 09.12.2006, 09:39

Вопрос № 66.067

Здравствуйте, все! Вот такая задачка: У меня выводятся несколько картинок в StringGrid. Нужно менять цвет для определенных областей картинки. Например: в исходной картинке область была красная - ее надо заменить на любой другой (желтый, зеленый, ... выбирать самому). Исходную картинку (файл) трогать не надо. Я думаю, надо работать с палитрой - изменять цвет в палитре. Как в Paint-е - ту часть палитры, которая была определена, например красным, заменить на другой (изменить соотношение RGB). Тогда по идее автоматически и будут меняться цвета в картинке. Как это сделать? Заранее благодарен всем за ответ. Если непонятно выразился - пишите, постораюсь уточнить.

Отправлен: 08.12.2006, 09:22 Вопрос задал: Antares (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: Сухомлин Кирилл Владимирович Здравствуйте, Antares! Объекты типа BitMap работают в непалитровых режимах только для 16 или 256 цветов. Если для вас это слишком мало, то можете воспользоваться попиксельной работой с картинками после загрзуки. Написать одну процедуру. Через Pixels[], конечно, не быстро но для одной обработки на загрузке пойдет. Можно, конечно, воспользоваться TBitMap.ColorTable, но не совсем понятно, на какую именно таблицу цветов будет возвращен указатель... может быть, на системную. А ее менять не стоит и вам никто не даст. Да и формат знать надо... В MSDN про это что-то ничего не написано. Можно еще сделать маскирование с прозрачностью по данному цвету, а фон залить другим... но это уже для настоящих, кхм, самураев =) Приложение: MoveColors(bmp: TBitamp; c1, c2: TColor); var i,j : integer; begin for i := 0 to bmp.width-1 do for j := 0 to bmp.height-1 do if bmp.Canvas.Pixels[i,j] = c1 then bmp.Canvas.Pixels[i,j] := c2; end; --------- Не узнаешь - не попробуешь.

Ответ отправил: Сухомлин Кирилл Владимирович (статус: Практикант) Ответ отправлен: 08.12.2006, 17:36

Отвечает: KiberZero Здравствуйте, Antares! Если я правильно понял,вы загружаете картинку в окно TStringGrin,а для изменения области цвета хотите воспользоваться ячейками TStringGrin. Я предлагаю вам воспользоваться методом FillRect(закрашивает поверхность канвы).Единственное,нужно будеть зафиксировать область цвета,чтобы при очередном действии по этой же области картинки цвет не стирался. Останется только написать массив для области окна(картинки) TStringGrin,тогда вы сможете менять цвет любой области картинки.В приложении пример с фиксированными координатами закрашиваемой области. Для выбора цвета применён компонент TColorDialog. Удачи! Приложение: procedure TForm1.BitBtn1Click(Sender: TObject); begin if ColorDialog1.Execute then StringGrid1.Canvas.Brush.Color:=ColorDialog1.Color; StringGrid1.Canvas.FillRect(Rect(65,0, 0,24));//здесь устанавливаете // координаты углов и закрашиваемой области end;

Ответ отправил: KiberZero (статус: 3-ий класс) Ответ отправлен: 09.12.2006, 17:53

Вопрос № 66.084

Здравствуйте! Хочется написать свой почтовый клиент а-ля The Bat. Дайте пожалуйста какие-нибудь ссылки где такая тема уже рассматривалась - статьи а ещё лучше исходники.

Отправлен: 08.12.2006, 11:39 Вопрос задал: Prowler (статус: 1-ый класс) Всего ответов: 1 Мини-форум вопроса >>> (сообщений: 0)

Отвечает: sir henry Здравствуйте, Prowler! Боюсь что клиент а-ля TheBat у Вас прямо сейчас не получится, может быть только после годов упорного труда и десятков литров пота на поприще программирования. :) Впрочем, если говорить серьезно про почтового клиента вообще, то самый лучший вариант - взять за образец примеры компании Nevrona (которая в Delphi 7 компоненты Indy предоставила), как следует их разобрать и написать на этой основе своего клиента. Получится не хуже TheBat, а может быть даже и лучше, потому что все возможности своей программы Вы будете знать назубок и сможете, в случае нужды, внести необходимые изменения. Ссылка: http://www.indyproject.org/Sockets/Download/Borland.en.aspx

Ответ отправил: sir henry (статус: Академик) Россия, Красноярск ---- Ответ отправлен: 08.12.2006, 14:40

Вопрос № 66.135

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

Отправлен: 08.12.2006, 17:57 Вопрос задал: Томша Павел (статус: 3-ий класс) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 2)

Отвечает: Sarymian Здравствуйте, Томша Павел! Вот прмер чтоб узнать находится ли мышь на форме. Хотя событие MouseMove присутствует у большинства объектов. Приложение: procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin if GetCapture = 0 then SetCapture(Form1.Handle); if PtInRect(Rect(Form1.Left, Form1.Top, Form1.Left + Form1.Width, Form1.Top + Form1.Height), ClientToScreen(Point(x, y))) then Form1.Caption := 'Мышка на форме' else Form1.Caption := 'Мышка за пределами формы'; end;

Ответ отправил: Sarymian (статус: 3-ий класс) Ответ отправлен: 09.12.2006, 04:44

Отвечает: KiberZero Здравствуйте, Томша Павел! Если вам необходим обработчик события мыши навёдённой на произвольную, то есть вами созданную форму(рисунок), то определите положение рисунка внутрь какого-либо компонента,например, TShape(только не забудьте сделать его невидимым), а к нему повесьте обработчик наведения мыши onMouseMove.Ну, а уж за то, что должно после этого произойти решайте сами.В примере ниже показано изменение цвета компонента при наведении мышью. Удачи! Приложение: procedure TForm1.Shape1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin Shape1.Brush.Color:=clRed; end;

Ответ отправил: KiberZero (статус: 3-ий класс) Ответ отправлен: 10.12.2006, 01:08 Оценка за ответ: 5 Комментарий оценки: Спасибо

Вопрос № 66.197

Уважаемые эксперты помогите исходником правильного вращения картинки JPEG на 90 градусов.

Отправлен: 09.12.2006, 04:33 Вопрос задал: василий1 (статус: Посетитель) Всего ответов: 2 Мини-форум вопроса >>> (сообщений: 1)

Отвечает: Sarymian Здравствуйте, василий1! Вот несколько примеров (правда я не проверял их на работоспособность, но источник достоверный): Приложение: **************************************************** Вот алгоритм поворота изображения. Пусть: O - это центр поворота, M - некая точка исходного изображения. Для каждой точки M нужно найти угол alpha между отрезком OM и горизонталью и длину r отрезка OM. Теперь, чтобы повернуть изображение на угол beta, нужно каждой точке M присвоить цвет точки исходного изображения с координатами x,y, где x = xo + r * cos(alpha + beta) y = yo + r * sin(alpha + beta) xo,yo - центр поворота, r - длина отрезка OM Важно именно каждой точке нового изображения сопоставлять точку старого изображения, а не наоборот, так как иначе некоторые точки нового изображения останутся не закрашенными. Эту программу можно сильно ускорить, если исходное изображение записать в массив и обращаться к реальной переменной, а не к свойству Canvas.Pixels. uses Math; procedure TForm1.Button1Click(Sender: TObject); var bm, bm1: TBitMap; x, y: integer; r, a: single; xo, yo: integer; s, c: extended; begin bm := TBitMap.Create; bm.LoadFromFile('ex.bmp'); xo := bm.Width div 2; yo := bm.Height div 2; bm1 := TBitMap.Create; bm1.Width := bm.Width; bm1.Height := bm.Height; a := 0; repeat for y := 0 to bm.Height - 1 do begin for x := 0 to bm.Width - 1 do begin r := sqrt(sqr(x - xo) + sqr(y - yo)); SinCos(a + arctan2((y - yo), (x - xo)), s, c); bm1.Canvas.Pixels[x,y] := bm.Canvas.Pixels[ round(xo + r * c), round(yo + r * s)]; end; Application.ProcessMessages; end; Form1.Canvas.Draw(xo, yo, bm1); a := a + 0.05; Application.ProcessMessages; until Form1.Tag <> 0; bm.Destroy; bm1.Destroy; end; procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); begin Form1.Tag := 1; end; **************************************************** Вот быстрый и примитивный способ вращения изображения. Должно работать. По крайней мере хоть какой-то выход из-положения, поскольку Windows этого делать не умеет. Но сначала попробуйте на небольший изображениях. procedure RotateRight(BitMap: tImage); var FirstC, LastC, c, r: integer; procedure FixPixels(c, r: integer); var SavePix, SavePix2: tColor; i, NewC, NewR: integer; begin SavePix := Bitmap.Canvas.Pixels[c, r]; for i := 1 to 4 do begin newc := BitMap.Height - r + 1; newr := c; SavePix2 := BitMap.Canvas.Pixels[newc, newr]; Bitmap.Canvas.Pixels[newc, newr] := SavePix; SavePix := SavePix2; c := Newc; r := NewR; end; end; begin if BitMap.Width <> BitMap.Height then exit; BitMap.Visible := false; with Bitmap.Canvas do begin firstc := 0; lastc := BitMap.Width; for r := 0 to BitMap.Height div 2 do begin for c := firstc to lastc do begin FixPixels(c, r); end; inc(FirstC); Dec(LastC); end; end; BitMap.Visible := true; end; **************************************************** ...я думаю над принудительным грубым методом, но его эффективность может быть сомнительна, и не вздумайте пробовать его без сопроцессора! Сделайте наложение пиксель-на-пиксель из исходного изображение на целевой (используя свойство Canvas.Pixels). Для каждого пикселя осуществите преобразование полярных координат, добавьте компенсирующий угол к полярной координате, затем спозиционируйте это обратно на координаты прямоугольника, и разместите пиксель с новыми координатами на целевом изображении. Также вы можете добавлять какой-либо псевдослучайный пиксель через определенное их количество, если хотите задать какую-то точность вашей операции. Для преобразования X- и Y-координат объявлены следующие переменные: X,Y = старые координаты пикселя X1,Y1 = новые координаты пикселя T = угол вращения (в радианах) R, A - промежуточные величины, представляющие собой полярные координаты R = Sqrt(Sqr(X) + Sqr(Y)); A = Arctan(Y/X); X1 = R * Cos(A+T); Y1 = R * Sin(A+T); Я отдаю себе отчет, что это не оптимальное решение, поэтому, если вы найдете еще какое-либо решение, дайте мне знать. В действительности мой метод работает, но делает это очень медленно. Создайте наложение пиксель-на-пиксель исходного изображение на целевое (используя свойство Canvas.Pixels). ...это хорошее начало, но я думаю другой способ будет немного лучшим. Создайте наложение пиксель-на-пиксель целевого изображения на исходное так, чтобы нам было нужно вычислять откуда брать нужные пиксели, а не думать над тем, куда их нужно поместить. Для начала вот мой вариант формулы вращения: x, y = координаты в целевом изображении t = угол u, v = координаты в исходном изображении x = u * cos(t) - v * sin(t) y = v * cos(t) + u * sin(t) Теперь, если я захочу решить эти уравнения и вычислить u и v (привести их к правой части уравнения), то формулы будут выглядеть следующим образом (без гарантии, по этой причине я и включил исходные уравнения!): x * cos(t) + y u = -------------------- sqr(cos(t)) + sin(t) v = y * cos(t) - x -------------------- sqr(cos(t)) + sin(t) Так, подразумевая, что вы уже знаете угол вращения, можно вычислить константы cos(t) и 1/sqr(cos(t))+sin(t) непосредственно перед самим циклом; это может выглядеть примерно так (приблизительный код): ct := cos(t); ccst := 1/sqr(cos(t))+sin(t); for x := 0 to width do for y := 0 to height do dest.pixels[x,y] := source.pixels[Round((x * ct + y) * ccst), Round((y * ct - x) * ccst)]; Если вы хотите ускорить этот процесс, и при этом волнуетесь за накопление ошибки округления, то вам следует обратить внимание на используемую нами технологию: мы перемещаем за один раз один пиксель, дистанция между пикселями равна u, v содержит константу, определяющую колонку с перемещаемым пикселем. Я использую расчитанные выше переменные как рычаг с коротким плечом (с вычисленной длиной и точкой приложения). Просто поместите в (x,y) = (1,0) и (x,y) = (0,1) и уравнение, приведенное выше: duCol := ct * ccst; dvCol := -ccst; duRow := ccst; dvRow := ct * ccst; uStart := 0; vStart := 0; for x := 0 to width do begin u := uStart; v := vStart; for y := 0 to height do begin dest.pixels[x, y] := source.pixels[Round(u), Round(v)]; u := u + rowdu; v := v + rowdv; end; uStart := uStart + duCol; vStart := vStart + dvCol; end; Приведенный выше код можно использовать "как есть", и я не даю никаких гарантий отностительно его использования! Если вы в душе испытатель, и хотите попробовать вращение вокруг произвольной точки, попробуйте поиграться со значенияим u и v: Xp, Yp (X-sub-p, Y-sub-p) точка оси вращения, другие константы определены выше x = Xp + (u - Xp) * cos(t) - (y - Yp) * sin(t) y = Yp + (y - Yp) * cos(t) - (x - Xp) * sin(t) Оригинальные уравнения: x = u * cos(t) - v * sin(t) y = v * cos(t) + u * sin(t) верны, но когда я решаю их для u и v, я получаю это: x * cos(t) + y * sin(t) u = ----------------------- sqr(cos(t)) + sqr(sin(t)) y * cos(t) - x * sin(t) v = ------------------------ sqr(cos(t)) + sqr(sin(t))

Ответ отправил: Sarymian (статус: 3-ий класс) Ответ отправлен: 09.12.2006, 05:36

Отвечает: Gh0stik Здравствуйте, василий1! Вот привожу пример который позволяет повернуть картинку на угол альфа. Исходный файл 1.jpg, после преобразования создается файл 2.jpg. Только не забудьте в разделе описания модулей использовать uses ....., Math,jpeg;. Good Luck!!! Приложение: procedure TForm1.Button1Click(Sender: TObject); var bm, bm1: TBitMap; x, y: integer; r, a: single; xo, yo: integer; s, c: extended; jp:TJPEGImage; begin jp:=TJPEGImage.Create; jp.LoadFromFile('1.jpg'); xo := jp.Width div 2; yo := jp.Height div 2; bm1 := TBitMap.Create; bm1.Width := jp.Width; bm1.Height := jp.Height; bm := TBitMap.Create; bm.Assign(jp); a := pi/2;//угол поворота for y := 0 to bm.Height - 1 do begin for x := 0 to bm.Width - 1 do begin r := sqrt(sqr(x - xo) + sqr(y - yo)); SinCos(a + arctan2((y - yo), (x - xo)), s, c); bm1.Canvas.Pixels[x,y] := bm.Canvas.Pixels[ round(xo + r * c), round(yo + r * s)]; end; Application.ProcessMessages; end; Form1.Canvas.Draw(xo, yo, bm1); jp.CleanupInstance; jp.Assign(bm1); jp.SaveToFile('2.jpg'); bm.Destroy; bm1.Destroy; end; --------- Господь Бог - это всего лишь сверхмощный генератор случайных чисел, в соответствии с которыми сочетаются события на Земле. Генератор случайных чисел - и только.

Ответ отправил: Gh0stik (статус: Практикант) Ответ отправлен: 12.12.2006, 11:03 Оценка за ответ: 5

© 2001-2006, Портал RusFAQ.ru, Россия, Москва. Идея, дизайн, программирование: Калашников О.А. Email: adm@rusfaq.ru, Тел.: +7 (926) 535-23-31 Авторские права | Реклама на портале Версия системы: 4.37 от 04.10.2006