Plot coordinate pairs: Difference between revisions
Content added Content deleted
MaiconSoft (talk | contribs) (Added Delphi example) |
|||
Line 1,025: | Line 1,025: | ||
{{Out}} |
{{Out}} |
||
[http://i.imgur.com/0RQaxNl.png] |
[http://i.imgur.com/0RQaxNl.png] |
||
=={{header|Delphi}}== |
|||
{{libheader| System.SysUtils}} |
|||
{{libheader| Boost.Process}} |
|||
{{Trans|Go}} |
|||
Boost.Process is part of [https://github.com/MaiconSoft/DelphiBoostLib DelphiBoostLib]. |
|||
<lang Delphi> |
|||
program Plot_coordinate_pairs; |
|||
{$APPTYPE CONSOLE} |
|||
uses |
|||
System.SysUtils, |
|||
Boost.Process; |
|||
var |
|||
x: TArray<Integer>; |
|||
y: TArray<Double>; |
|||
begin |
|||
x := [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]; |
|||
y := [2.7, 2.8, 31.4, 38.1, 58.0, 76.2, 100.5, 130.0, 149.3, 180.0]; |
|||
var plot := TPipe.Create('gnuplot -p', True); |
|||
plot.WriteA('unset key; plot ''-'''#10); |
|||
for var i := 0 to High(x) do |
|||
plot.WriteA(format('%d %f'#10, [x[i], y[i]])); |
|||
plot.writeA('e'#10); |
|||
writeln('Press enter to close'); |
|||
Readln; |
|||
plot.Kill; |
|||
plot.Free; |
|||
readln; |
|||
end.</lang> |
|||
=={{header|EasyLang}}== |
=={{header|EasyLang}}== |