pascalabcnet/InstallerSamples/WhatsNew/3_8_1/PlotWPFExample1.pas

29 lines
1 KiB
ObjectPascal
Raw Permalink Normal View History

2022-04-18 15:23:21 +03:00
// пример вывода графиков разных видов
uses PlotWPF;
begin
var g := new GridWPF(2, 2, 10);
var c := new LineGraphWPF(0, Pi, v -> v * Sin(v * 10));
c.PlotRect := Rect(0, 0, 10, 10);
c.Graph[0].ChangeData(0, Pi, x -> x * x);
2022-04-18 15:23:21 +03:00
c.Graph[0].Color := Colors.Green;
c.Graph[0].Thickness := 3;
c.AddLineGraph(0, Pi, v -> Sqrt(v));
2022-04-18 15:23:21 +03:00
var c2 := new LineGraphWPF(0, Pi, v -> Sin(v * 10) - Cos(v * 7));
2022-04-18 15:23:21 +03:00
var c4 := new MarkerGraphWPF([1.0, 2, 3, 4, 5], [5.0, 15, 7, 12, 2]);
c4.AddLineGraph([1.0, 2, 3, 4, 5], [5.0 + 1, 15 + 1, 7 + 1, 12 + 1, 2 + 1]);
c4.AddMarkerGraph([1.0, 2, 3, 4, 5], [5.0 + 1, 15 + 1, 7 + 1, 12 + 1, 2 + 1], Colors.Bisque, MarkerType.Diamond, 8);
2022-04-18 15:23:21 +03:00
c4.Graph[0].Thickness := 0.7;
c4.Graph[1].MarkerType := MarkerType.Box;
c4.Graph[2].Thickness := 0.7;
var gg := new GridWPF(2, 2, 3);
new LineGraphWPF(0, 2, x -> Cos(10 * x));
new LineGraphWPF(0, 2, x -> Sqrt(x));
new LineGraphWPF(0, 2, x -> Sin(10 * x));
new LineGraphWPF(0, 2, x -> exp(x));
2022-04-18 15:23:21 +03:00
end.