2017-12-17 14:40:06 +03:00
|
|
|
|
uses GraphWPF;
|
2017-08-26 00:30:33 +03:00
|
|
|
|
|
|
|
|
|
|
begin
|
2017-12-17 14:40:06 +03:00
|
|
|
|
Window.Title := 'Графики функций';
|
2017-08-26 00:30:33 +03:00
|
|
|
|
var ww := Window.Width / 2;
|
|
|
|
|
|
var hh := Window.Height / 2;
|
2017-09-09 17:43:43 +03:00
|
|
|
|
DrawGraph(x -> sin(4 * x) + cos(3 * x), -5, 5, 0, 0, ww, hh);
|
|
|
|
|
|
DrawGraph(x -> x * x, -5, 5, ww - 1, 0, ww, hh);
|
|
|
|
|
|
DrawGraph(x -> exp(x), -5, 5, 0, hh-1, ww, hh);
|
|
|
|
|
|
DrawGraph(x -> x*cos(2*x-1), -5, 5, ww - 1, hh-1, ww, hh);
|
2017-08-26 00:30:33 +03:00
|
|
|
|
end.
|
