Логин: Пароль:    Регистрация Всеми возможностями сайта можно пользоваться
только после авторизации.
   Забыли пароль?

Поиск
L



Статистика
u
Пользователи онлайн: нет
Гостей онлайн: 7
Всего онлайн: 7
Зарегистрировано юзеров: 7550
Комментариев на сайте: 670
Новый юзер: dolginaolha



Последние комментарии
c
Amard прокомментировал "Урок 53 - Потоки в Delphi, (часть 1/3)":
Всем привет! В Школе Частных Прорабов Prorab2.ru обучают как сделать дешевый и недорогой фундамент своими руками используя Строительные Нормы и Правила (СНиП), технологии для фундаментов и Технику Безопасности (ТБ) на объекте с помощью одной из лучших онлайн школ в мире ,а также единственной онлайн школы в России и на просторах бывшего СНГ Вы реально научитесь строить Фундамент за пол цены от рыночной стоимости работ – это не шутка, не розыгрыш и не мечта. Фундамент за 50 процентов – это реальность! Недавно я нашел крутую онлайн школу. Мужики реально крутая школа, все объясняют без заумных слов. Все нужно делать заблаговременно и разумно экономно! Там изучают множество тем о фундаментах. Одна из них: [url=https://prorab2.ru/category/fundament]Фундамент из бруса.[/url] До новых встреч!
CarolineWrifs прокомментировал "Урок 3 - Конструкция IF...THEN...ELSE":
[img]https://kapsuly-lipocarnit.ru/files/lipocarnit_1/img/product-head1.png[/img] [url=https://kapsuly-lipocarnit.ru/][img]https://karga.info/wp-content/uploads/2019/02/orig.jpg[/img][/url] Lipocarnit (ЛипоКарнит) - [url=https://kapsuly-lipocarnit.ru/]липокарнит капсулы для похудения цена екатеринбург[/url] для похудения в Екатеринбурге Цена: 990 руб. [url=https://kapsuly-lipocarnit.ru/]lipocarnit отзывы[/url] - Полная конфиденциальность Наименование и назначение товара не указаны на посылке. В соответствии с политикой конфиденциальности мы не передаем информацию третьим лицам. Аудио обзоры нашего магазина Липокарнит (LipoKarnit) - капсулы для похудения - описание Кто такие представители прекрасного пола ради похудения? Часы физических упражнений, строгие диеты, даже липосакция. Но, по мнению большинства врачей, лучше всего получить твердое натуральное средство для похудения с гарантированным эффектом. Среди тех, кто заменяет упражнения и осанку, профессионалы включают продукт для похудения Lipocarnit. По словам производителей, любая капсула бьет избыток жира на клеточном уровне, ускоряя обмен веществ и снижая уровень глюкозы в крови. LipoCarnit превращает жир в энергию и снижает уровень холестерина. Это, если верить словам клиентов, приводит к обещанной и быстрой потере веса. Почему мы набираем вес? Есть много причин, почему мы набираем вес. К ним относятся диетические излишки и фиксированный образ жизни и генетическая предрасположенность. Однако наименее реальным бедствием современной цивилизации является изменение в процессе обмена веществ. Нарушение обмена веществ возникает в результате: отсутствие компонентов, пригодных для обработки жировых клеток; сбой в процессе образования и разложения жира; отсутствие деталей, необходимых для осуществления химических реакций. Начальные признаки избыточного веса Дамы считают, что образования с избыточным весом наверняка не будет недостатка. Однако не только стрелки весов способны говорить о неточном ходе жирового обмена. Сначала вес может не измениться, однако другие симптомы нарушения обмена веществ будут наименее очевидными: апельсиновая корка; храп; постоянный аппетит; слабость; высокое кровяное давление; Боли в спине и суставах. Сказать, что все эти плохие реакции на тело означают заботиться о себе! Помогает ли нам бездействие? Если вам кажется, что лишний вес - это не та проблема, из-за которой вы должны изменить свой обычный образ жизни, вот лишь несколько несоответствий, которые могут привести к избыточному весу и неправильному обмену веществ. : высокое кровяное давление; избыток холестерина; уровень сахара в крови; проблемы с поджелудочной железой; Риск склероза и инфаркта миокарда. Не волнуйтесь, получите естественное и неопасное лечение для контроля жира - капсулы Липокарнит. Липокарнит (Li Капсулы ЛипоКарнит разрушают жировые отложения за счет действия состава природного баланса; Липоевая кислота нормализует уровень глюкозы в крови, очищает и сохраняет печень, ускоряет выделение энергии липидными клетками; Pycinate Pycollinate уменьшает чувство голода, расщепляет жир и нормализует кровяное давление; L-карнитин превращает липиды в энергию, снижает уровень холестерина. Поступление таким образом, чтобы улучшить ум, а не состав, значительно уменьшить избыточный вес. И сразу же для похудения не стоит ограничиваться едой. Продукт «переконфигурирует» организм для максимально быстрого удаления жиров и в то же время не вызывает привыкания или побочных эффектов.

Рисуем график функции в Delphi

В этой статье мы рассмотрим несколько способов нарисовать график какой-нибудь функции. Рисовать график мы будем на канве компонента Image.

Рисование по пикселям

Рисовать на канве можно разными способами. Первый вариант - рисовать по пикселям. Для этого используется свойство канвы Pixels. Это свойство представляет собой двумерный массив, который отвечает за цвета канвы. Например Canvas.Pixels[10,20] - соответствует цвету пикселя с координатами (10,20). С массивом пикселей можно обращаться, как с любым свойством: изменять цвет, задавая пикселю новое значение, или определять его цвет, по хранящемуся в нем значению. На примере ниже мы зададим черный цвет пикселю с координатами (10,20):

Canvas.Pixels[10,20]:=clBlack;
Теперь мы попробуем нарисовать график функции F(x), если известен диапазон ее изменений Ymax и Ymin, и диапазон изменения аргумента Xmax и Xmin. Для этого мы напишем пользовательскую функцию, которая будет вычислять значение функции F в точке x, а также будет возвращать максимум и минимум функции и ее аргумента.
function Tform1.F(x:real; var Xmax,Xmin,Ymax,Ymin:real):real; 
begin 
F:=Sin(x); 
Xmax:=4*pi; 
Xmin:=0; 
Ymax:=1; 
Ymin:=-1; 
end;
Не забудьте также указать заголовок этой функциии в разделе Public:
public 
{ public declarations } 
function F(x:real; var Xmax,Xmin,Ymax,Ymin:real):real;
Здесь для ясности мы просто указали диапазон изменения функции Sin(x) и ее аргумента, ниже эта функция будет описана целиком. Параметры Xmax, Xmin, Ymax, Ymin - описаны со словом Var потому что они являются входными-выходными, т.е. через них функция будет возвращать значения вычислений этих данных в основную программу. Поэтому надо объявить Xmax, Xmin, Ymax, Ymin как глобальные переменные в разделе Implementation:
implementation 
var Xmax,Xmin,Ymax,Ymin:real;
Теперь поставим на форму кнопку и в ее обработчике события OnClick напишем следующий код:
procedure TForm1.Button1Click(Sender: TObject); 
var x,y:real; 
PX,PY:longInt; 
begin 
for PX:=0 to Image1.Width do 
begin 
x:=Xmin+PX*(Xmax-Xmin)/Image1.Width; 
y:=F(x,Xmax,Xmin,Ymax,Ymin); 
PY:=trunc(Image1.Height-(y-Ymin)*Image1.height/(Ymax-Ymin)); 
image1.Canvas.Pixels[PX,PY]:=clBlack; 
end; 
end;
В этом коде вводятся переменные x и y, являющиеся значениями аргумента и функции, а также переменные PX и PY, являющиеся координатами пикселей, соответствующих x и y. Сама процедура состоит из цикла по всем значениям горизонтальной координаты пикселей PX компонента Image1. Сначала выбранное значение PX пересчитывается в соответствующее значение x. Затем производится вызов функции F(x) и определяется ее значение Y. Это значение пересчитывается в вертикальную координату пикселя PY.

Рисование с помощью пера Pen

У канвы имеется свойство Pen - перо. Это объект, в свою очередь имеющий ряд свойств. Одно из них - свойство Color - цвет, которым наносится рисунок. Второе свойство - Width - ширина линии, задается в пикселах (по умолчанию 1).

Свойство Style определяет вид линии и может принимать следующие значения:

psSolid Сплошная линия
psDash Штриховая линия
psDot Пунктирная линия
psDashDot Штрих-пунктирная линия
psDashDotDot Линия, чередующая штрих и два пунктира
psClear Отсутствие линии
psInsideFrame Сплошная линия, но при Width > 1 допускающая цвета, отличные от палитры Windows
Все стили со штрихами и пунктирами доступны только при толщине линий равной 1. Иначе эти линии рисуются как сплошные.

У канвы имеется свойство PenPos, типа TPoint. Это свойство определяет в координатах канвы текущую позицию пера. Перемещение пера без прорисовки осуществляется методом MoveTo(x,y). После вызова этого метода канвы точка с координатами (x,y) становится исходной, от которой методом LineTo(x,y) можно провести линию в любую точку с координатами (x,y).

Давайте теперь попробуем нарисовать график синуса пером. Для этого добавим перед циклом оператор:
Image1.Canvas.MoveTo(0,Image1.height div 2);
А перед заключительным end цикла добавим следующий оператор:
Image1.Canvas.LineTo(PX,PY);
Таким образом у Вас должен получиться такой код:
procedure TForm1.Button1Click(Sender: TObject); 
var x,y:real; 
PX,PY:longInt; 
begin 
Image1.Canvas.MoveTo(0,Image1.height div 2); 
for PX:=0 to Image1.Width do 
begin 
x:=Xmin+PX*(Xmax-Xmin)/Image1.Width; 
y:=F(x,Xmax,Xmin,Ymax,Ymin); 
PY:=trunc(Image1.Height-(y-Ymin)*Image1.height/(Ymax-Ymin)); 
image1.Canvas.Pixels[PX,PY]:=clBlack; 
Image1.Canvas.LineTo(PX,PY); 
end; 
end;
Как Вы уже успели заметить, если запустили программу, качество рисования графика пером, намного лучше, чем рисования по пикселям.

Как обещал сейчас напишу пример программы которая находит максимум и минимум функции. Я маленько изменил структуру процедур и функций, чтобы было яснее. Вот готовый код программы:
... 
type 
TForm1 = class(TForm) 
Button1: TButton; 
Image1: TImage; 
procedure Button1Click(Sender: TObject); 
private 
{ private declarations } 
public 
function F(x:real):real; 
procedure Extrem1(Xmax,Xmin:real; var Ymin:real); 
procedure Extrem2(Xmax,Xmin:real; var Ymax:real); 
{ public declarations } 
end; 

var 
Form1: TForm1; 

implementation 
Const e=1e-4;//точность одна тысячная 
var Xmax,Xmin,Ymax,Ymin:real; 
{$R *.DFM} 
function Tform1.F(x:real):real; 
begin 
F:=Sin(x); 
end; 

//поиск минимума функции 
procedure TForm1.Extrem1(Xmax,Xmin:real; var Ymin:real); 
var x,h:real; j,n:integer; 
begin 
n:=10; 
repeat 
x:=Xmin; 
n:=n*2; 
h:=(Xmax-Xmin)/n; 
Ymin:=F(Xmin); 
for j:=1 to n do begin 
if (x) < Ymin then Ymin:=f(x); 
x:=x+h; 
end; 
until abs(f(Ymin)-f(Ymin+h)) < e; 
end; 

//поиск максимума функции 
procedure TForm1.Extrem2(Xmax,Xmin:real; var Ymax:real); 
var x,h:real; j,n:integer; 
begin 
n:=10; 
repeat 
x:=Xmin; 
n:=n*2; 
h:=(Xmax-Xmin)/n; 
Ymax:=F(Xmin); 
for j:=1 to n do begin 
if f(x)>=Ymax then Ymax:=f(x); 
x:=x+h; 
end; 
until abs(f(Ymax)-f(Ymax+h)) < e; 
end; 


procedure TForm1.Button1Click(Sender: TObject); 
var x,y:real; 
PX,PY:longInt; 
begin 
//здесь необходимо указать диапазон изменения x 
Xmax:=8*pi; 
Xmin:=0; 

//вычисляем экстремумы функции 
Extrem1(Xmax,Xmin,Ymin); 
Extrem2(Xmax,Xmin,Ymax); 

//рисуем график функции 
Image1.Canvas.MoveTo(0,Image1.height div 2); 
for PX:=0 to Image1.Width do 
begin 
x:=Xmin+PX*(Xmax-Xmin)/Image1.Width; 
y:=F(x); 
PY:=trunc(Image1.Height-(y-Ymin)*Image1.height/(Ymax-Ymin)); 
image1.Canvas.Pixels[PX,PY]:=clBlack; 
Image1.Canvas.LineTo(PX,PY); 
end; 
end; 
end.

Вот и всё, Удачи!

ремонт ноутбука
Источник: www.thedelphi.ru
Автор: Савельев Александр
Опубликовано: 26 Октября 2014
Просмотров: 5371


Зарегистрируйтесь или авторизуйтесь, чтобы добавлять комментарии.