Необходимо на одной форме изобразить следующее:
y=5/Cos(x) на интервале [-25;25] и Четырехлепестковую розу R=a*Sin(2*t) 0<=t<=360 градусов
Построить именно точечный график функций на заданном интервале. Шаг изменения переменной Х выбрать таким образом, чтобы график выглядел непрерывной кривой. Цвет кривой чтобы выбирал пользователь. Интервал изменения переменной Х указывает пользователь. Выдавать сообщение, если график на заданном интервале нельзя построить. При необходимости выполнять масштабирование графика.
С первым я чуть разбиралась. Не могу понять, как сделать другие указания, которые перечислены выше. Исправьте\добавьте\объясните, плиз.
| Код |
var
Form1: TForm1;
implementation
{$R *.DFM}
Function f(x:real):real;
begin
f:=5/cos(x);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
x1,x2:real; // границы изменения аргумента функции
y1,y2:real; // границы изменения значения функции
x:real; // аргумент функции
y:real; // значение функции в точке x
dx:real; // приращение аргумента
l,b:integer; // левый нижний угол области вывода графика
w,h:integer; // ширина и высота области вывода графика
mx,my:real; // масштаб по осям X и Y
x0,y0:integer; // точка - начало координат
begin
// область вывода графика
l:=10; // X - координата левого верхнего угла
b:=Image2.Height-20; // Y - координата левого верхнего угла
h:=Image2.ClientHeight-40; // высота
w:=Image2.Width-40; // ширина
x1:=-25; // нижняя граница диапазона аргумента
x2:=25; // верхняя граница диапазона аргумента
dx:=0.04; // шаг аргумента
// найдем максимальное и минимальное значения
// функции на отрезке [x1,x2]
y1:=f(x1); // минимум
y2:=f(x1); // максимум
x:=x1;
repeat
y := f(x);
if y < y1 then y1:=y;
if y > y2 then y2:=y;
x:=x+dx;
until (x>=x2);
// вычислим масштаб
my:=h/abs(y2-y1); // масштаб по оси Y
mx:=w/abs(x2-x1); // масштаб по оси X
// оси
x0:=l;
y0:=b-Abs(Round(y1*my));
with image2.Canvas do
begin
// оси
MoveTo(l,b);LineTo(l,b-h);
MoveTo(x0,y0);LineTo(x0+w,y0);
TextOut(l+5,b-h,FloatToStrF(y2,ffGeneral,6,3));
TextOut(l+5,b,FloatToStrF(y1,ffGeneral,6,3));
// построение графика
x:=x1;
repeat
y:=f(x);
Pixels[x0+Round(x*mx),y0-Round(y*my)]:=clRed;
x:=x+dx;
until (x>=x2);
end;
end;
end.
|
Вот, а второй вообще не могу понять, как сделать.  |